Как вывести полученную капчу в GUI ?
Такой код не работает. Выдает ошибку :
$o_Preview.Navigate(@ScriptDir &'\captcha.png')
$o_Preview^ ERROR
Код:
$h_Form1 = GUICreate("Captcha", 151, 136, 192, 114)
GUISetBkColor(0xFFFFFF)
$o_Preview = ObjCreate("Shell.Explorer.2")
$h_PreviewCtrl = GUICtrlCreateObj($o_Preview, 11, 9, 128, 44)
$h_Input1 = GUICtrlCreateInput("Введите код", 17, 60, 115, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$h_Button1 = GUICtrlCreateButton("Ok", 38, 96, 75, 25)
$o_Preview.Navigate(@ScriptDir &'\captcha.png')
$o_Preview.document.body.style.margin = 0
$o_Preview.document.body.scroll = "no"
GUISetState(@SW_SHOW)
While 1
$n_Msg = GUIGetMsg()
Switch $n_Msg
Case $GUI_EVENT_CLOSE
Exit
Case $h_Button1
$s_Captcha = GUICtrlRead($h_Input1)
If $s_Captcha <> 'Введите код' And $s_Captcha <> '' Then
ExitLoop
GUIDelete($h_Form1)
EndIf
EndSwitch
WEnd
Такой код не работает. Выдает ошибку :
$o_Preview.Navigate(@ScriptDir &'\captcha.png')
$o_Preview^ ERROR