Что нового

Получение сообщений чата с игры (состоит с фреймов)

Статус
Закрыто для дальнейших ответов.

jilexandr

Знающий
Сообщения
129
Репутация
6
есть игра Cwars, все попытки написать бота завершились неудачей :(
кто может помочь? вот ссылка на игру
http://cwars.ru/reg.php?welcome=1000104117 (рефка что бы видел кто может помочь, денег всеравно не дадут мне =) )

нужно выполнять примитивные действия (пример - все что нужно мне для успеха)

2 функции -> 2 кнопки

1) получить все сообщения чата
2) переход в "Локация"

начнем обсуждение?) :laugh:
P.S. готовый бот не нужен, пару примеров и все...


Добавлено:
Сообщение автоматически объединено:

6.39 руб смогу заплатить если что ;D


Добавлено:
Сообщение автоматически объединено:

Код:
Func _ent()
$oIE = _IECreate("http://www.cwars.ru/")
$form = _IEGetObjByName($oIE,"log")
$name = _IEGetObjByName($oIE,"nick")
$pass = _IEGetObjByName($oIE,"password")
_IEFormElementSetValue($name,"*****")
_IEFormElementSetValue($pass,"*****")
_IEFormSubmit($form)
_IELoadWait($oIE)
$location = "Локация"
$sText = _IEBodyReadText ($oIE)
_IELinkClickByText ($sText, $location) ; не кликает
MsgBox(0,0,$oIE) ; ничего не выводит
EndFunc



Добавлено:
Сообщение автоматически объединено:

ну кто поможет? надоело уже мучаться (
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Да ладно тебе сказки то рассказывать :scratch:

Авторизация проходит?
ps. региться лень. сильно лень
 
Автор
J

jilexandr

Знающий
Сообщения
129
Репутация
6
axlwor

авторизация проходит (
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Если тебе лень искать нужный фрейм, то мне лень писать без ошибок :beer:

Код:
#include <ie.au3>

$oIE = _IECreate("http://www.cwars.ru/")
$form = _IEGetObjByName($oIE,"log")
$name = _IEGetObjByName($oIE,"nick")
$pass = _IEGetObjByName($oIE,"password")
_IEFormElementSetValue($name,"*****")
_IEFormElementSetValue($pass,"*****")
_IEFormSubmit($form)
_IELoadWait($oIE)

_Fr($oIE)


Func _Fr(ByRef $_obj)
	$oFrames = _IEFrameGetCollection ($_obj)
	$iNumFrames = @extended
	For $i = 0 to ($iNumFrames - 1)
		$oFrame = _IEFrameGetCollection ($_obj, $i)
		ConsoleWrite($oFrame.name & @CRLF)
		If StringInStr(_IEBodyReadHTML($oFrame), '') > 0 Then
			ConsoleWrite('Нашли!!!' & @CRLF)
			ConsoleWrite($oFrame.paternt.name & @CRLF)
			Exit
		EndIf
		_Fr($oFrame)
	Next
EndFunc
 
Автор
J

jilexandr

Знающий
Сообщения
129
Репутация
6
axlwor

:( это жесть...

Код:
Func _ent()
$oIE = _IEAttach("[CLASS:IEFrame]", 'Instance')
$oFrame = _IEFrameGetCollection ($oIE, 0)
$sText = _IEBodyReadText ($oFrame)
_IELinkClickByText($sText, "Локация")
MsgBox(0,0,$sText)
EndFunc


MsgBox выводит то что нужно (нужна локация) то почему не кликает??? если без фреймов то все работает

 

Belfigor

Модератор
Локальный модератор
Сообщения
3 596
Репутация
938
Тема закрыта.
 
Статус
Закрыто для дальнейших ответов.
Верх