:thumbs_down:Nik_rus сказал(а):Если создавал через библиотеку IE.au3, то:
Код:_IELoadWait($ieObject)
Nik_rus сказал(а):Пройдем по коду:
1. Создается IE.
2. Отрабатывает TAB.
3. Отрабатывает Enter.
4. Идет ожидание загрузки страницы.
По-моему что-то не так, не правда ли?
_IECreate - без этого можно обойтись?
Можно так попробовать:_IECreate - без этого можно обойтись?
Opt('WinTextMatchMode', 2)
$sTitle = 'Windows Internet Explorer'
$sIE = @ProgramFilesDir & '\Internet Explorer\iexplore.exe'
$sUrl = 'http://autoit-script.ru/index.php?action=forum'
Run($sIE & ' ' & $sUrl)
$hIE = WinWait($sTitle)
While 1
If StringInStr(ControlGetText($hIE, '', '[CLASS:msctls_statusbar32; INSTANCE:1]'), 'Готово') Then ExitLoop
Sleep(50)
WEnd
MsgBox(64, 'Тест', 'Страница загружена.' & @CRLF & 'Можно с ней дальше работать.')
Nik_rus сказал(а):Да какая разница, что ты там укажешь в _IECreate - "http://..." строку или $ переменую. Или вообще ничего.
Это нужно написать на титульной странице красным цветом и максимальным шрифтом! ;DЕсли честно я не телепат и думаю сообществу было бы интересно увидеть код. Или его кусок.
А так не легче?HelpMe сказал(а):($ieObject) - Требует гипперсылку...
Код:$oIE = _IECreate ("http://www.autoitscript.com/forum/index.php") Send("{TAB 12}") Send("{ENTER}") _IELoadWait ($oIE)
где http:// - не константа...
#include <IE.au3>
$oIE = _IECreate ("http://www.autoitscript.com/forum/index.php")
_IELinkClickByText($oIE, 'Wiki')
Garrett сказал(а):Nik_rus [?]
Это нужно написать на титульной странице красным цветом и максимальным шрифтом! ;DЕсли честно я не телепат и думаю сообществу было бы интересно увидеть код. Или его кусок.
А так не легче?HelpMe сказал(а):($ieObject) - Требует гипперсылку...
Код:$oIE = _IECreate ("http://www.autoitscript.com/forum/index.php") Send("{TAB 12}") Send("{ENTER}") _IELoadWait ($oIE)
где http:// - не константа...
Код:#include <IE.au3> $oIE = _IECreate ("http://www.autoitscript.com/forum/index.php") _IELinkClickByText($oIE, 'Wiki')
P.S. _IECreate сама ожидает полной загрузки документа, так что нужды в дополнительной функции _IELoadWait нет нужды.
Думать!Это онлайн игра и в игре идет бой - что тогда делать?
MsgBox(0,'Внимание!','Осталась 40 сек.').
Func _ListenerTimer()
$oTimer = _IEGetObjById($oIE,'download_waiter_remain')
If Not @error Then
If _IEPropertyGet($oTimer, 'innertext') = 40 Then
MsgBox(48, 'Внимание!', 'Осталось ' & _IEPropertyGet($oTimer, 'innertext') & ' сек.')
AdlibUnRegister('_ListenerTimer')
Exit
EndIf
EndIf
EndFunc
#include <IE.au3>
$oIE = _IECreate("http://depositfiles.com/ru/files/31bg2hufe")
$oButtons = _IETagNameGetCollection($oIE, "input")
For $oButton In $oButtons
If StringStripWS($oButton.value, 3) = 'Бесплатно' Then _IEAction($oButton, 'click')
Next
_IELoadWait($oIE)
AdlibRegister('_ListenerTimer')
While 1
Sleep(250)
WEnd