На данный момент есть такая функция (взятая здесь на форуме и немного переделанная) ...
Хотелось бы доработать её, но пока не знаю как. Вот что необходимо реализовать:
[list type=decimal]
[*]Ориентация окна по высоте. Чтобы не перекрывало панель задач и было пямо над ним. В данный момент реализована жесткая привязка к нижнему краю экрана.
[*]Хотелось бы видеть чёрную рамку вокруг формы.
[*]Объект IE сделать не утопленным.
[*]Заменить кнопку "Ок" на банальный Enter в Input (поле для ввода капчи)
[*]Автоматическая смена раскладки клавиатуры при вводе на Английский, (но чтобы при закрытии формы раскладка возвращалась в прежнее значение)
[*]А уж совсем было бы прикольно, если бы окно плавно выезжало снизу экрана.
[/list]
Думаю данная функция много кому была бы полезна
Код:
Func _Preview()
Local $CaptchaForm = GUICreate("Captcha", 150, 70, @DesktopWidth-150, @DesktopHeight-70-40, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUISetBkColor(0xFFFFFF)
$oIEPreview = ObjCreate("Shell.Explorer.2")
$hIEPreviewCtrl = GUICtrlCreateObj($oIEPreview, 0, 0, 150, 40)
$hInput = GUICtrlCreateInput('', 5, 45, 80, 20, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_UPPERCASE))
$hButton = GUICtrlCreateButton("OK", 90, 45, 55, 20)
$oIEPreview.Navigate('about:blank') ; создаем пустой документ
$oIEPreview.document.write('<img src="' & @ScriptDir &'\captcha.png' & '" title="капча">') ; помещаем капчу
$oIEPreview.document.body.style.margin = 0
$oIEPreview.document.body.scroll = "no"
GUISetState(@SW_SHOW, $CaptchaForm)
GUICtrlSetState($hInput, $GUI_FOCUS)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $hButton
$sCaptcha = GUICtrlRead($hInput)
If $sCaptcha <> '' Then
GUIDelete($CaptchaForm)
ExitLoop
EndIf
EndSwitch
WEnd
Return $sCaptcha
EndFunc
Хотелось бы доработать её, но пока не знаю как. Вот что необходимо реализовать:
[list type=decimal]
[*]Ориентация окна по высоте. Чтобы не перекрывало панель задач и было пямо над ним. В данный момент реализована жесткая привязка к нижнему краю экрана.
[*]Хотелось бы видеть чёрную рамку вокруг формы.
[*]Объект IE сделать не утопленным.
[*]Заменить кнопку "Ок" на банальный Enter в Input (поле для ввода капчи)
[*]Автоматическая смена раскладки клавиатуры при вводе на Английский, (но чтобы при закрытии формы раскладка возвращалась в прежнее значение)
[*]А уж совсем было бы прикольно, если бы окно плавно выезжало снизу экрана.
[/list]
Думаю данная функция много кому была бы полезна