[ШПАНА] Бот для браузерной игры от Вуку

[Dere]

Уникальная хулиганская игра "Шпана" http://wkids.mobi/
Кому интересно то компоновку делайте сами на свой вкус...

Авторизация на сайте http://wkids.mobi/

#include <IE.au3>
$oIE = _IECreate ("http://www.wkids.mobi/")
_IELoadWait ($oIE)
$sInputLogin =_IEGetObjByName($oIE,"login")
$sInputPassword =_IEGetObjByName($oIE,"password")
_IEFormElementSetValue ($sInputLogin, 'Букавуку')
_IEFormElementSetValue ($sInputPassword, '1234567890')    
Sleep(1000)
$oInputs = _IETagnameGetCollection($oIE, "input")
For $oInput in $oInputs
    If String($oInput.Value) = "вход" Then
        _IEAction($oInput, "click")
        ExitLoop
    EndIf
Next
Sleep(500)

Авторизация на сайте http://wkids.mgates.ru/

#include <IE.au3>
$oIE = _IECreate ("http://mgates.ru/")
Sleep(500)
_IENavigate ($oIE, "http://wap.mgates.ru/login/")
Sleep(3000)
$sInputLogin =_IEGetObjByName($oIE,"login")
$sInputPassword =_IEGetObjByName($oIE,"password")
_IEFormElementSetValue ($sInputLogin, 'БукаВуку')
_IEFormElementSetValue ($sInputPassword, '1234567890')    
Sleep(500)
$oInputs = _IETagnameGetCollection($oIE, "input")
For $oInput in $oInputs
    If String($oInput.Value) = "Войти" Then
        _IEAction($oInput, "click")
        ExitLoop
    EndIf
Next
Sleep(500)

Как сделать 5 боев на свалке, тоже самое драка только ссылка другая

$i = 0
While $i <= 5
_IENavigate ($oIE, "http://wkids.mobi/dump") ; для драки меняется ссылка на "http://wkids.mobi/battle"
Sleep(2500)
_IELinkClickByText ($oIE, 'атаковать ')
EndIf
$i = $i + 1
WEnd
; если необходимо добавить условие типа вылет со свалки то примерно так, только добавьте в нужное место
If StringInStr(_IEBodyReadHTML($oIE),'Недостаточно Здоровья,') Then 
	Sleep(60000)
EndIf

Заход на боссов, зайдет на первую попавшуюся кнопку ЗАЯВИТСЯ.

_IENavigate ($oIE, "http://wkids.mobi/bosses") ; босс
_IELoadWait ($oIE)
Sleep(500)
_IELinkClickByText ($oIE, 'заявиться')
_IELoadWait ($oIE)
Sleep(500)

Положить фантики в казну банды:

_IENavigate ($oIE, "http://wkids.mobi/")
$sHTML=_IEBodyReadHTML($oIE)
$sFant = StringRegExpReplace($sHTML, '(?si).*"/img/icons/money.png"></A>((?-s).*?)</span><.*', '$1')
$Fant = $sFant - 1000
_IENavigate ($oIE, "http://wkids.mobi/clan/trmoney") ; казна
_IELoadWait ($oIE)
$sInputMoney =_IEGetObjByName($oIE,"money")
_IEFormElementSetValue ($sInputMoney, $Fant)
Sleep(1500)
$oInputs = _IETagnameGetCollection($oIE, "input")
For $oInput in $oInputs
    If String($oInput.Value) = "пополнить" Then
        _IEAction($oInput, "click")
        ExitLoop
    EndIf
Next
Sleep(1000)

Заход на улицы. Зайдет в первую улицу-бой за территорию:

_IENavigate ($oIE, "http://wkids.mobi/clan/conqlist")
$oLinks = _IELinkGetCollection($oIE)
 For $oLink In $oLinks
 If StringInStr($oLink.href, "http://wkids.mobi/city/") Then
  _IEAction($oLink, "click")
ExitLoop
Endif
Next
Sleep(3000)
_IELinkClickByText ($oIE, 'вступить')
_IELoadWait ($oIE)
Sleep(500)

Дополнительные ссылки

_IENavigate ($oIE, "http://wkids.mobi/user/closenotice") ; закрыть верхний фрейм
_IENavigate ($oIE, "http://wkids.mobi/home/takebrothermoney") ; отобрать фантики у братика
_IENavigate ($oIE, "http://wkids.mobi/pets/feed/111/1/yes") ; кормить пета 111
_IENavigate ($oIE, "http://wkids.mobi/pets/train/111/4") ; тренировать пета 111 8 часов
_IENavigate ($oIE, "http://wkids.mobi/pets/train/111/3") ; тренировать пета 111 8 часов
_IENavigate ($oIE, "http://wkids.mobi/clan/regfight") ; зайти в бой между бандами
_IENavigate ($oIE, "http://wkids.mgates.ru/workshop/sellalldrafts/yes") ; продать чертежи
_IENavigate ($oIE, "http://wkids.mgates.ru/user/takedgift"); получить награду 
_IENavigate ($oIE, "http://wkids.mobi/home/takebrothermoney") ; отобрать фантики у братика