[Сеть, интернет] Авторизация на сайт через _IECreateEmbedded с ввод капча

Se7enstars · 28 Сен 2014

Как войти на сайт при заполнение всех полей HTML через GUI и ввод капч

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GDIPlus.au3>
#include <Clipboard.au3>

Local $oIE = _IECreateEmbedded()
GUICreate("Embedded Web control Test", 800, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$I_Login = GUICtrlCreateInput("Логин", 620, 40, 150, 20)
$I_Password = GUICtrlCreateInput("Пароль", 620, 70, 150, 20)
$B_Submit = GUICtrlCreateButton("Log In", 620, 100, 150, 20)
$I_Captcha = GUICtrlCreateInput("Капча", 620, 130, 150, 20)
;~ $Captcha = GUICtrlCreatePic("", 620, 160)
;~ GUICtrlSetBkColor(-1, 0xffffff)

GUISetState(@SW_SHOW) ;Show GUI

_IENavigate($oIE, "http://richrancho.net")

$oImgs = _IEImgGetCollection($oIE)

   For $oImg In $oImgs
      If StringInStr($oImg.src, "code.php") Then
      $oCtlRange = $oImg.document.body.createControlRange()
      $oCtlRange.addElement($oImg)
	  $oCtlRange.select($oImg)
      $oCtlRange.execCommand('Copy')
      _ClipBoard_Open(0)
      $hBitmap = _ClipBoard_GetDataEx($CF_BITMAP)
      _ClipBoard_Close()
      _GDIPlus_Startup()
      $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
      _GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\" & "captcha.jpg")
      _GDIPlus_BitmapDispose($hImage)
      _GDIPlus_Shutdown()
      EndIf
   Next
; Тут надо показать капчу на GUI

While 1
    Local $iMsg = GUIGetMsg()
    Select
        Case $iMsg = $GUI_EVENT_CLOSE
            ExitLoop
		 Case $iMsg = $B_Submit
			$oLogin = _IEGetObjById($oIE, 'inputloginnew')
			$oPass = _IEGetObjById($oIE, 'inputpassnew')
			$oCaptcha = _IEGetObjById($oIE, 'codnew')
			_IEFormElementSetValue($oLogin, GUICtrlRead($I_Login))
			_IEFormElementSetValue($oPass, GUICtrlRead($I_Password))
			_IEFormElementSetValue($oCaptcha, GUICtrlRead($I_Captcha))
; Здесь команда показать в GUI окно
    EndSelect
WEnd

GUIDelete()

Exit

Вот в этой скрипт всё работает прямой через Internet explore (скачивает капчу на диск) но через Embded неработает :scratch:

Код:

#include <IE.au3>
#include <GDIPlus.au3>
#include <Clipboard.au3>


; Пример 2 - Открывает страницу AutoIt, получает коллекцию Img
;               и для каждого отображает src URL

$oIE = _IECreate("http://richrancho.net/")
$oImgs = _IEImgGetCollection($oIE)

   For $oImg In $oImgs
      If StringInStr($oImg.src, "code.php") Then
      $oCtlRange = $oImg.document.body.createControlRange()
      $oCtlRange.addElement($oImg)
      $oCtlRange.execCommand('Copy', False)
      _ClipBoard_Open(0)
      $hBitmap = _ClipBoard_GetDataEx($CF_BITMAP)
      _ClipBoard_Close()
      _GDIPlus_Startup()
      $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
      _GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\" & "captcha.jpg")
      _GDIPlus_BitmapDispose($hImage)
      _GDIPlus_Shutdown()
      EndIf
   Next
MsgBox(64,'','Выход ?')

ЗАРАНЕЕ СПАСИБО ТОТ КТО ПОМОЖЕТ !!! :beer:

Garrett · 28 Сен 2014

Ребят, зачем вы себе создаёте головную боль?!!!
Ну да ладно, ваше право :smile:

Вот тема, где я уже приводил пример.

Вам просто нужно этот код (так как у вас картинка png.):

Код:

;...
$hFile = FileOpen(@ScriptDir & "\captcha.jpg", 18)
FileWrite($hFile, $oHTTP.ResponseBody)
FileClose($hFile)

#Region Form
$Form1 = GUICreate("1", 136, 160, -1, -1)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\captcha.jpg", 8, 8, 120, 72)
$Button1 = GUICtrlCreateButton("Send", 31, 122, 75, 25)
$Input1 = GUICtrlCreateInput("", 8, 88, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion Form

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $sKeystring = GUICtrlRead($Input1)
            ExitLoop
    EndSwitch
 WEnd

GUIDelete($Form1)
;...

сменить на этот код:

Код:

#Include <GDIPlus.au3>
;....
$hFile = FileOpen(@ScriptDir & "\captcha.png", 18)
FileWrite($hFile, $oHTTP.ResponseBody)
FileClose($hFile)

_GDIPlus_StartUp()
$hImage   = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\captcha.png")

#Region Form
$Form1 = GUICreate("1", 136, 160, -1, -1)
$Button1 = GUICtrlCreateButton("Send", 31, 122, 75, 25)
$Input1 = GUICtrlCreateInput("", 8, 88, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion Form

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 35, 30)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$sKeystring = GUICtrlRead($Input1)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_ImageDispose($hImage)
			_GDIPlus_ShutDown()
			ExitLoop
	EndSwitch
 WEnd

GUIDelete($Form1)
;...

Так же естественно, нужно будет поменять параметры запросов.

Se7enstars · 29 Сен 2014

Вы не поняли, вот когда копирую капчу через эту функцию, он не копируется

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GDIPlus.au3>
#include <Clipboard.au3>

Local $oIE = _IECreateEmbedded()
GUICreate("Embedded Web control Test", 800, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$I_Login = GUICtrlCreateInput("Логин", 620, 40, 150, 20)
$I_Password = GUICtrlCreateInput("Пароль", 620, 70, 150, 20)
$B_Submit = GUICtrlCreateButton("Log In", 620, 100, 150, 20)
$I_Captcha = GUICtrlCreateInput("Капча", 620, 130, 150, 20)
;~ $Captcha = GUICtrlCreatePic("", 620, 160)
;~ GUICtrlSetBkColor(-1, 0xffffff)

GUISetState(@SW_SHOW) ;Show GUI

_IENavigate($oIE, "http://richrancho.net")

$oImgs = _IEImgGetCollection($oIE)

   For $oImg In $oImgs
      If StringInStr($oImg.src, "code.php") Then
      $oCtlRange = $oImg.document.body.createControlRange()
      $oCtlRange.addElement($oImg)
      $oCtlRange.select($oImg)
      $oCtlRange.execCommand('Copy')
      _ClipBoard_Open(0)
      $hBitmap = _ClipBoard_GetDataEx($CF_BITMAP)
      _ClipBoard_Close()
      _GDIPlus_Startup()
      $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
      _GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\" & "captcha.jpg")
      _GDIPlus_BitmapDispose($hImage)
      _GDIPlus_Shutdown()
      EndIf
   Next
; Тут надо показать капчу на GUI

While 1
    Local $iMsg = GUIGetMsg()
    Select
        Case $iMsg = $GUI_EVENT_CLOSE
            ExitLoop
         Case $iMsg = $B_Submit
            $oLogin = _IEGetObjById($oIE, 'inputloginnew')
            $oPass = _IEGetObjById($oIE, 'inputpassnew')
            $oCaptcha = _IEGetObjById($oIE, 'codnew')
            _IEFormElementSetValue($oLogin, GUICtrlRead($I_Login))
            _IEFormElementSetValue($oPass, GUICtrlRead($I_Password))
            _IEFormElementSetValue($oCaptcha, GUICtrlRead($I_Captcha))
; Здесь команда показать в GUI окно
    EndSelect
WEnd

GUIDelete()

Exit

но в этом случай все работает

Код:

#include <IE.au3>
#include <GDIPlus.au3>
#include <Clipboard.au3>


; Пример 2 - Открывает страницу AutoIt, получает коллекцию Img
;               и для каждого отображает src URL

$oIE = _IECreate("http://richrancho.net/")
$oImgs = _IEImgGetCollection($oIE)

   For $oImg In $oImgs
      If StringInStr($oImg.src, "code.php") Then
      $oCtlRange = $oImg.document.body.createControlRange()
      $oCtlRange.addElement($oImg)
      $oCtlRange.execCommand('Copy', False)
      _ClipBoard_Open(0)
      $hBitmap = _ClipBoard_GetDataEx($CF_BITMAP)
      _ClipBoard_Close()
      _GDIPlus_Startup()
      $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
      _GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\" & "captcha.jpg")
      _GDIPlus_BitmapDispose($hImage)
      _GDIPlus_Shutdown()
      EndIf
   Next
MsgBox(64,'','Выход ?')

Разница: В первая функция скрипт работает через _IECreateEmbedded()
А вторая прямой: _IECreate()

Автор темы	Похожие темы	Форум	Ответы	Дата
G	[Сеть, интернет] Авторизация на сайте с капчей через WINHTTP	Общие вопросы по AutoIt	0	30 Янв 2018
B	[Сеть, интернет] Одновременная авторизация под разными учетными записями на сайте в IE	Автоматизация IE и Web-интерфейса	1	22 Янв 2016
D	[Сеть, интернет] Авторизация на сайте и скачивание файла	Автоматизация IE и Web-интерфейса	13	7 Ноя 2015
A	[Сеть, интернет] Не работает авторизация на mail.ru Помогите поправить	Автоматизация IE и Web-интерфейса	0	12 Авг 2015
	[Сеть, интернет] Авторизация и проверка авторизации на сайте mail.ru	Автоматизация IE и Web-интерфейса	0	28 Мар 2014

Поиск

Поиск

[Сеть, интернет] Авторизация на сайт через _IECreateEmbedded с ввод капча

Se7enstars

[email protected]

Garrett

Модератор

Se7enstars

[email protected]