Что нового

Как вывести полученную капчу в GUI

betauto

Новичок
Сообщения
15
Репутация
0
Как вывести полученную капчу в GUI ?
Код:
$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
 
Верх