手把手教你TestComplete_图文转换OCR示例一

Sub test1 Set p = Sys.Process("notepad") Set w = p.Window("Notepad", "*").Window("Edit") Log.Message(w.Width) Log.Message(w.Height) Set Rect = w.Picture(0, 0,w.Width,w.Height ) '200, 25) Call Log.Picture(Rect, "Region with text to be recognized.") Set OCRObj = OCR.CreateObject(Rect) Set OCROptions = OCRObj.CreateOptions Call p.Window("Notepad", "*").MainMenu.Click("格式(O)|字体(F)...") Set w = p.Window("#32770", "字体") Log.Message("字体：" & w.Window("ComboBox", "", 1).wText) Log.Message("字号：" & w.Window("ComboBox", "", 3).wText) Set Font = OCROptions.Fonts.Add Font.Name = w.Window("ComboBox", "", 1).wText 'Call Font.Sizes.Add(w.Window("ComboBox", "", 3).wText) Call Font.Sizes.Add(12) Call w.Window("ComboBox", "", 2).ClickItem("常规") Call w.Window("Button", "确定").ClickButton aqUtils.Delay(1000) Call Log.Message(OCRObj.GetText(OCROptions), "", pmNormal, Null, Rect) End Sub