Что нового

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

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

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. региться лень. сильно лень
 

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 выводит то что нужно (нужна локация) то почему не кликает??? если без фреймов то все работает

ccc.JPG
 

Belfigor

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