[Сеть, интернет] Автовход в игру
- Автор темы B1ad3
- Дата начала
- Сообщения
- 3,999
- Репутация
- 967
B1ad3
menu nowrap - это CSS класс таблицы!
[box]<table class="menu nowrap" ...[/box]
Имя вашего главного фрейма main!
[box]<frame name="main" ...[/box]
В функцию
нужно просто подставлять два аргумента, имя фрейма и текст ссылки, на которую нужно нажать.
menu nowrap - это CSS класс таблицы!
[box]<table class="menu nowrap" ...[/box]
Имя вашего главного фрейма main!
[box]<frame name="main" ...[/box]
В функцию
Код:
_LinksClick("frame_name", "text_link")Medic84 сказал(а):
проблема в том, что после нажатия на ссылку "Ратуша" нажимается ссылка "Достроить до 5 уровня", которая касается Ратуши, а мне надо, чтобы нажималась другая ссылка "Достроить до 5 уровня", которая касается Склада.
пример выше нажимает на сам склад и всё!
- Сообщения
- 3,999
- Репутация
- 967
B1ad3 вы, как я понял, удалили свой аккаунт?
Ну, да ладно. Выкладываю без проверки, пробуйте, должно сработать:
Ну, да ладно. Выкладываю без проверки, пробуйте, должно сработать:
Код:
; ...
_Login("http://voyna-plemyon.ru", "kiprida", "159357", "Мир 1")
_LinksClick("main", "Ратуша")
_LinksClick("main", "Железная шахта", "Достроить до 10-го уровня")
_LinksClick("main", "Склад", "Достроить до 5-го уровня")
; ...
Код:
; ...
Func _LinksClick($sFrame, $sText, $sAction = "")
Local $i
$oFrame = _IEFrameGetObjByName($oIE, $sFrame)
$oLinks = _IELinkGetCollection($oFrame)
For $oLink in $oLinks
$sLinkText = _IEPropertyGet($oLink, "innerText")
If $sAction <> "" Then
If StringInStr($sLinkText, $sText) Then
_IELinkClickByIndex ($oLink, $i + 1)
ExitLoop
EndIf
Else
If StringInStr($sLinkText, $sText) Then
_IEAction($oLink, "click")
ExitLoop
EndIf
EndIf
$i += 1
Next
_IELoadWait($oFrame)
EndFunc
; ...
- Сообщения
- 3,999
- Репутация
- 967
B1ad3 [?]
Код:
Func _InputXY($sFrame, $sX, $sY)
$oFrame = _IEFrameGetObjByName($oIE, $sFrame)
$oX = _IEGetObjById($oFrame, "inputx")
_IEFormElementSetValue($oX, $sX)
$oY = _IEGetObjById($oFrame, "inputy")
_IEFormElementSetValue($oY, $sY)
$oAttack = _IEGetObjByName($oFrame, "attack")
_IEAction($oAttack, "click")
_IELoadWait($oFrame)
$oAttack = _IEGetObjByName($oFrame, "submit")
_IEAction($oAttack, "click")
EndFuncТогда вопрос с временем пока отложу. Мне интересно как сделать так, чтобы выполнялась "фукция 1" потом "функция 2" 10 раз, потом "функция 3", а потом опять "функция 2" 10 раз.
если писать каждый раз, например: _LinksClick("main", "Ратуша") и копировать 10 раз - это не удобно :(
если писать каждый раз, например: _LinksClick("main", "Ратуша") и копировать 10 раз - это не удобно :(
