Добрый день, есть сайт , на котором задаются критерии поиска, и наживается кнопка, пытаюсь получить код страницы, которая открывается после нажатия кнопки, но получаю страницу с критериями поиска. Подскажите что я делаю не так?
[box title=TitleBox]#include <IE.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <INet.au3>
Global $objIE = _IECreate ("//local.ch/")
Call ("SignIn")
Func SignIn()
Local $WhoOrWhat = _IEGetObjByName ($objIE,"what")
Local $Where = _IEGetObjByName ($objIE,"where")
_IEFormElementSetValue ( $WhoOrWhat,"Cafe, Restaurant")
_IEFormElementSetValue ( $Where,"Suisse")
$oForms = _IEFormGetCollection($objIE,0)
_IEFormSubmit($oForms,0)
_IELoadWait($objIE)
Sleep(2000)
Local $oInputs = _IETagNameGetCollection ($objIE, 'span')
For $oInput In $oInputs
; MsgBox($MB_SYSTEMMODAL, "Link Info", $oInput)
If $oInput.innertext == 'Print' Then
_IEAction($oInput, 'click')
EndIf
Next
_IELoadWait($objIE)
$body = _IEDocReadHTML($objIE)
$file = FileOpen("D:\check.txt", 1)
FileWrite($file,$body)
FileClose($file)
$sUrl = _IEPropertyGet( $objIE, "locationurl" )
ConsoleWrite( $sUrl & @CRLF )
Sleep( 2000)
_IEQuit ($objIE)
EndFunc[/box]
[box title=TitleBox]#include <IE.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <INet.au3>
Global $objIE = _IECreate ("//local.ch/")
Call ("SignIn")
Func SignIn()
Local $WhoOrWhat = _IEGetObjByName ($objIE,"what")
Local $Where = _IEGetObjByName ($objIE,"where")
_IEFormElementSetValue ( $WhoOrWhat,"Cafe, Restaurant")
_IEFormElementSetValue ( $Where,"Suisse")
$oForms = _IEFormGetCollection($objIE,0)
_IEFormSubmit($oForms,0)
_IELoadWait($objIE)
Sleep(2000)
Local $oInputs = _IETagNameGetCollection ($objIE, 'span')
For $oInput In $oInputs
; MsgBox($MB_SYSTEMMODAL, "Link Info", $oInput)
If $oInput.innertext == 'Print' Then
_IEAction($oInput, 'click')
EndIf
Next
_IELoadWait($objIE)
$body = _IEDocReadHTML($objIE)
$file = FileOpen("D:\check.txt", 1)
FileWrite($file,$body)
FileClose($file)
$sUrl = _IEPropertyGet( $objIE, "locationurl" )
ConsoleWrite( $sUrl & @CRLF )
Sleep( 2000)
_IEQuit ($objIE)
EndFunc[/box]