Пользователь
Сообщения: 147
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
помогите скрипт перестал вставлять title . и пустое окно делает.
PHP код: 
#include <IE.au3> While 1 $oIE = _IECreate ("http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187", 0, 1, 0) WinWait("[Class:IEFrame]") WinSetState("[Class:IEFrame]", "", @SW_MAXIMIZE) _IELoadWait ($oIE) Send("{F5}") $oIE_2 = _IECreate ("http://nigma.ru") WinWait("[Class:IEFrame]") WinSetState("[Class:IEFrame]", "", @SW_MAXIMIZE) _IELoadWait ($oIE_2) $oForm = _IEFormGetObjByName ($oIE_2, 0) $oQuery = _IEFormElementGetObjByName ($oForm, 0) $sTitle = StringReplace(_IEPropertyGet($oIE,"title"), "Яндекс:", "") $sTitle = StringStripWS($sTitle, 3) _IEFormElementSetValue ($oQuery, $sTitle) _IEFormSubmit ($oForm) Sleep(5000) MouseClick("left", 69, 293, 1, 1) Sleep(2000) MouseClick("left", 394, 329, 1, 1) Sleep(2000) MouseClick("left", 379, 355, 1, 1) Sleep(5000) Do WinClose("[Class:IEFrame]") Until Not WinExists("[Class:IEFrame]") ;~ RunWait(@ComSpec & " /c " & 'taskkill /im iexplore.exe /f', "", @SW_HIDE) Sleep(1000) WEnd
|
Последний раз редактировалось DENoszone, 06-04-2008 в 10:08.
Отправлено: 23:19, 05-04-2008
| #393
|