Bot do gry przeglądarkowej KW

[Czervik19]

Witam poszukuję aktualizacji lub próby stworzenia nowego bota do gry kosmiczni.pl

Głównie w bocie chciałbym żeby chodził i zabijał potworki.

Tutaj podaje link bo kiedyś pewna osoba zrobiła bota i widziałem po postach , że działał :-)

http://www.mpcforum....czni-wojownicy/

[jackraymund]

to bardziej do autoita, spytaj autora czy ci da source

[M4niak]

Source tego sh1tu powyżej..

 

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
$wys = @DesktopHeight / 2
$szer = @DesktopWidth / 2
HotKeySet("{ESC}", "ext")
$Form1 = GUICreate("Expbot v 2.0 Made by Kulfix", 279, 177, 192, 124)
$wyj = GUICtrlCreateButton("Wyjscie", 152, 136, 113, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ext")
$start = GUICtrlCreateButton("Start!", 8, 136, 113, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "start")
$Label1 = GUICtrlCreateLabel("Kilka opcji:", 16, 24, 55, 17)
$Radio1 = GUICtrlCreateRadio("Symyluj gracza", 8, 48, 113, 17)
$Radio2 = GUICtrlCreateRadio("Szybki exp", 8, 64, 113, 17)
$Radio3 = GUICtrlCreateRadio("Wolniej (słabszy net)", 8, 80, 121, 17)
$Radio4 = GUICtrlCreateRadio("Prędkosc swiatła ;-)", 8, 96, 121, 17)
GUICtrlSetState($Radio2, $GUI_CHECKED)
GUISetState(@SW_SHOW)
Func ext()
exit 0
endfunc
Func start()
    $r1 = GUICtrlRead($Radio1)
    $r2 = GUICtrlRead($Radio2)
    $r3 = GUICtrlRead($Radio3)
    $r4 = GUICtrlRead($Radio4)
    If $r1 = 1 Then
		    $sl = Random(700, 3200, 1)
    EndIf
    If $r2 = 1 Then
		    $sl = Random(200, 400, 1)
    EndIf
    If $r3 = 1 Then
		    $sl = Random(500, 1000, 1)
    EndIf
    If $r4 = 1 Then
		    $sl = Random(90, 150, 1)
    EndIf
    $oIE = _IECreate("http://kosmiczni.pl/")
    $logina = IniRead("Config.ini", "DANE", "login", "wpisz login")
    $passwd = IniRead("Config.ini", "DANE", "haslo", "wpisz haslo")
    $serw = IniRead("Config.ini", "DANE", "serwer", "0")
    If $serw = "Serwer 1" Then
		    $s = ""
    ElseIf $serw = "Serwer 2" Then
		    $s = "2"
    ElseIf $serw = "Serwer 3" Then
		    $s = "3"
    ElseIf $serw = "Serwer 4" Then
		    $s = "4"
    EndIf
    $oForm = _IEFormGetCollection($oIE, 0)
    $Login = _IEFormElementGetObjByName($oForm, "login")
    $Pass = _IEFormElementGetObjByName($oForm, "pass")
    _IEFormElementSetValue($Login, $logina)
    _IEFormElementSetValue($Pass, $passwd)
    $oSelect = _IEFormElementGetObjByName($oForm, "serw")
    _IEFormElementOptionSelect($oSelect, $serw, 1, "byText")
    Sleep(1000)
    _IEFormSubmit($oForm)
    _IELoadWait($oIE)
    Sleep(1000)
    $oFrame = _IEFrameGetObjByName($oIE, "okno")
    _IENavigate($oFrame, "http://kosmiczni.pl/game" & $s & "/game.php?a=mapa")
    _IELoadWait($oIE)
    Sleep(6000)
    ;sprawdzanie Poziomu (jak narazie kompletnie niepotrzebna rzecz...)
    $sHTML = _IEBodyReadHTML($oFrame)
    $poziom = _StringBetween($sHTML, '(Poziom', ')')
    $poziom = _ArrayToString($poziom, "", 0, 0)
    ;po sprawdzaniu
    $random = 1
    $i = 0
    While 1
		    if $random = 1 then
		    sleep($sl)
		    _IEIMPClick ($oFrame, "down.png", "src")
		    sleep(300)
		    Do
				    sleep($sl)
				    $click = _IEIMPClick ($oFrame, "attack2.png", "src")
				    if $click = 0 Then
				    $random = random(1,4,1)
				    endif
				    sleep(300)
		    until $click = 0
		    ElseIf $random = 2 then
				    sleep($sl)
		    _IEIMPClick ($oFrame, "up.png", "src")
		    sleep(300)
		    Do
				    $click = _IEIMPClick ($oFrame, "attack2.png", "src")
				    if $click = 0 Then
				    $random = random(1,4,1)
				    endif
				    sleep($sl)
		    until $click = 0
		    Elseif $random = 3 then
		    sleep($sl)
		    _IEIMPClick ($oFrame, "left.png", "src")
		    sleep(300)
		    Do
				    $click = _IEIMPClick ($oFrame, "attack2.png", "src")
				    if $click = 0 Then
				    $random = random(1,4,1)
				    endif
				    sleep($sl)
		    until $click = 0
		    Elseif $random = 4 then
		    sleep($sl)
		    _IEIMPClick ($oFrame, "right.png", "src")
		    sleep(300)
		    Do
				    $click = _IEIMPClick ($oFrame, "attack2.png", "src")
				    if $click = 0 Then
				    $random = random(1,4,1)
				    endif
				    sleep($sl)
				    until $click = 0
		    endif
		    if $click = 0 Then
				    $random = random(1,4,1)
				    endif
    wend
EndFunc
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
		    Case $GUI_EVENT_CLOSE
				    exit 0
		    Case $wyj
						    exit 0
    EndSwitch
WEnd

 

 

[Czervik19]

Dobra dzięki teraz powiedz co mam z tym zrobić

[Czervik19]

Refresh

[KingSP1MPC]

pobierasz autoit v3 i ten kod wklejsza do SCITE i F5 odpalisz skrypt.

http://www.autoitscript.com/site/autoit/downloads/

[Czervik19]

Wszystko idzie ładne ale zatrzymuję się w momencie wyboru postaci i wyskakuje okienko:

http://i49.tinypic.com/20ij24x.jpg

[Czervik19]

Refresh

[adx52x]

Najlepiej naucz się języka AutoIT , na MPC Forum jest taki dział , tam coś na pewno znajdziesz i napisz własnego bota , co najwyżej wzorując się na tamtym kodzie , a nie kopiujesz czyjąś pracę nad którą się ta osoba męczyła .

[NOVIRAME]

koduj w autoit - program do tego stworzony.