[Bot]Kosmiczni Wojownicy

Projektant · 6 Lipca 2010

Jeśli autor tematu nie pojawi się i nie rozwiąże tych wszystkich problemów w ciągu 48h, temat zamknę by uniknąć spamu.

Pozdrawiam

Kordikk · 6 Lipca 2010

a moze by mi ktos powidzial czego ten bot chodzi mi tylko w dol???

poszukaj wyzej... tam koles dostal wersje po calej mapce "Dora_nie" (Doraźnie)

link:

speedyshare.com/files/23244233/Dora_nie.rar

gufczi112 · 8 Lipca 2010

i jak to działa dałem szybkie expienie i włączył MI SIE STRONA KOSMICZNYCH PODAŁEM PASSY i weszło i nie expi

cross3005 · 8 Lipca 2010

Ja nie wiem co Wam się dzieje ja expie na bocie który jest w pierwszym poście (wersja 2.0) od ponad 2 miesięcy i wszystko ładnie działa (tylko czasem marnuje trochę za dużo PA).

Wiatrak149 · 8 Lipca 2010

Ja nie wiem co Wam się dzieje ja expie na bocie który jest w pierwszym poście (wersja 2.0) od ponad 2 miesięcy i wszystko ładnie działa (tylko czasem marnuje trochę za dużo PA).

O to że na s4 nie działa.

Projektant · 8 Lipca 2010

Ok, macie bota, działa wam na określone serwery, zero kontaktu od autora więc zamykam.

D&G · 10 Lipca 2010

Niech sobie leży otwarty, po co mają tworzyć kolejne.

Kulfix · 15 Lipca 2010

Przepraszam, ale nie wyrabiam z czasem. Zamieszczam kompletny kod bota - niestety kod wymaga kilku poprawek (ale dziala).

Po kompilacji bedzie chodzil na s4...


#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)
	_IEImgClick ($oFrame, "down.png", "src")
	sleep(300)
	Do
		sleep($sl)
		$click = _IEImgClick ($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)
	_IEImgClick ($oFrame, "up.png", "src")
	sleep(300)
	Do
		$click = _IEImgClick ($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)
	_IEImgClick ($oFrame, "left.png", "src")
	sleep(300)
	Do
		$click = _IEImgClick ($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)
	_IEImgClick ($oFrame, "right.png", "src")
	sleep(300)
	Do
		$click = _IEImgClick ($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

bartoszx · 15 Lipca 2010

Gdzie mam ten kod umieścić ?:>

Sconit · 15 Lipca 2010

Dołączam się do pytania kolegi wyżej

Kulfix · 16 Lipca 2010

Dołączam się do pytania kolegi wyżej

Trzeba to wkleic do Scite i skompilowac. Zaraz wrzuce .exe

Exe:

http://www.megaupload.com/?d=4JBPUVTC

Knypekk · 16 Lipca 2010

Niestety postać za pomocą bota dalej chodzi jak chce tracąc bezsensownie PA.

Forest122 · 16 Lipca 2010

Zauważyłem mały problem gdy wchodzimy do nowej lokalizacji trzeba nacisnąć OK. U mnie Bot nie potrafi nacisnąć OK i blokuje się. Trzeba to dopisać do skryptu.

Kulfix · 16 Lipca 2010

Niestety postać za pomocą bota dalej chodzi jak chce tracąc bezsensownie PA.

niestety w najblizszym czasie nie przewiduje udoskonalen. "wyprodukowalem" pare nowych, funkcji ale na dzien dzisiejszy nie mam czasu na konczenie bota. moze ktos zaznajomkony z autoit podejmie sie poprawy tego skryptu...

Kordikk · 17 Lipca 2010

a ja nie moge skompilowac tego kodu :/ Compile w Tools mi nie dziala -,-

badowski · 18 Lipca 2010

Administracja kosmicznych dodała coś na anty bota aby nie można było expić normalnie trzeba wpisywać kody takie jak do treningu morzna by było coś z tym zrobić aby bot to też pisał??

Kordikk · 19 Lipca 2010

ja nie mam zadnych kodow a bocik fajniutki na lokacje bez przejsc ;p

rzeczek94 · 20 Lipca 2010

Mam pytanie czy wam także ten "bot" idzie tylko w dół w żadne inne kierunki?

r3edss · 20 Lipca 2010

Mam pytanie czy wam także ten "bot" idzie tylko w dół w żadne inne kierunki?

taa u mnie tak chodzi .. cały czas w dół, zeby przesunac go gdzie indziej cza pause włączyć przestawić posatc i wtedy właczyc bota

kristof954xxx · 24 Lipca 2010

Mi wszystko działa ładnie pięknie ale jak mi char dojedzie do końca mapki na sam dół to nie idzie w inne miejsca tzn nie expi cały czas chce iść w dół ?;/ wtf?

nieweglo · 31 Lipca 2010

Nie działa Mi w ogóle ;( biorę start i nic...

kalipl · 3 Sierpnia 2010

właśnie co z tym botem na trening ?? odpisz przynajmniej że nie i juz skaczmy na tym

Projektant · 3 Sierpnia 2010

właśnie co z tym botem na trening ?? odpisz przynajmniej że nie i juz skaczmy na tym

10% za spam, każdy kolejny post związany z pytaniem czy będzie bot na trening będzie tak samo nagradzany.

Rodimop · 3 Sierpnia 2010

właśnie co z tym botem na trening ?? odpisz przynajmniej że nie i juz skaczmy na tym

Warn

Jak będzie to będzie.

D&G · 7 Sierpnia 2010

Tak, bot już nawala i praktycznie nie działa, na pocieszenie wprowadzili że co jakiś czas trzeba wprowadzać kod captcha.

Zaloguj się

👋 Witaj na MPCForum!

[Bot]Kosmiczni Wojownicy

Rekomendowane odpowiedzi

Zarchiwizowany