[Pytanie] Pierwszy Bot

Adrian77 · 22 Listopada 2010

Witam

Jest to mój pierwszy post na forum.

Chciałbym napisać pierwszego bota. Ma on działać w tle, zalogować się do gry napisanej w php (jeśli chcecie link to napiszcie), co 5 minut wykonać określone akcje na stronie (np. kliknąć w jakiś przycisk). W jakim języku najlepiej go napisać? Chciałbym uzyskać wskazówki jak się za to zabrać. Dopiero zaczynam zabawę z tym. Dodam, że zhakowałem Icy Tower na nk. Proszę o odpowiedź.

Kulfix · 22 Listopada 2010

No Autoit sie do tego nada jak najbardziej. Ale tego mogles sie dowiedziec bez pisania nowego tematu (wystarczy rzucic okiem na dzial zeby sie zorientowac do czego nada sie autoit).

Do gier przegladarkowych wystarczy ie.au3 lub ff.au3... Polecam to 1 ze wzgledu na ladnie opracowany help (a takze z sentymentu). :P

4ggr35510n · 22 Listopada 2010

Polecam IE.au3 ze względu na interfejs COM.

jackraymund · 22 Listopada 2010

tu masz do logowania tuta w ff

http://www.mpcforum.pl/topic/168651-tutfirefox-autologin-ffau3/

Adrian77 · 22 Listopada 2010

Zrobiłem według tego poradnika logowanie w FF.au3. Przechodzi mi w firefoxie na tą stronę, ale nie loguje. Ta strona to uliczne-wyscigi.pl. W polach login i password jest domyślnie wpisany tekst. Może trzeba go najpierw usunąć? Moża mam użyć funkcji loadwait?

Kulfix · 22 Listopada 2010

mozliwe ze zle okresliles nazwy pol etc... daj kod ktorym chciales sie zalogowac.

Adrian77 · 22 Listopada 2010

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FF.au3>

GUICreate("Uliczne wyscigi - AutoLogin", 200, 90)
$login_input = GUICtrlCreateInput("", 5, 5, 100)
$haslo_input = GUICtrlCreateInput("", 5, 30, 100)
GUICtrlCreateLabel("Login", 108, 8)
GUICtrlCreateLabel("Hasło", 108, 32)
$loguj = GUICtrlCreateButton("Loguj", 140, 5, 55, 40)
GUISetState()

While 1
       $msg = GUIGetMsg()
       Switch $msg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $loguj
                       login()
       EndSwitch
WEnd

Func login() ;tworzymy funkcję login()
       If _FFConnect() Then
               _FFTabAdd("http://uliczne-wyscigi.pl")
       Else
               _FFStart("http://uliczne-wyscigi.pl")
       EndIf
EndFunc

	$login = GUICtrlRead($login_input)
       $password = GUICtrlRead($haslo_input)
	_FFLoadWait()
	_FFClick("name", "login")
	_FFClick("name", "password")
	_FFClick("name", "haslo")
       $username = _FFObjGet("login", "name")
       _FFObj($username, "value", $login)
       $pass = _FFObjGet("password", "name")
       _FFObj($pass, "value", $password)
	_FFFormSubmit("logowanie", "name")

Dodałem jeszcze funkcję loadwait i click, ale też nie działa.

Kulfix · 23 Listopada 2010

To moze tak... ze wzgledu na to ze nie lubie FF.au3 podam Ci rozwiazanie w IE.au3.... Ty sobie tylko podmien ospowiednie funkcje ;>

#include <Ie.au3>
$oIE = _IECreate ("http://uliczne-wyscigi.pl/")
$oForm = _IEFormGetObjByName ($oIE,"logowanie")
$Login = _IEFormElementGetObjByName ($oForm,"login")
$Pass = _IEFormElementGetObjByName ($oForm,"pass")
_IEFormElementSetValue ($Login, "Twoj_login")
_IEFormElementSetValue ($Pass, "Twoje_haslo")
   Sleep(1000)
_IEFormSubmit ($oForm)

Wydaje mi sie ze zgubiles gdzies po drodze funkcje _FFObjGet :rolleyes:

A poza tym jak ty chcesz zeby logowanie sie wykonywalo skoro to:

               $login = GUICtrlRead($login_input)
       $password = GUICtrlRead($haslo_input)
               _FFLoadWait()
               _FFClick("name", "login")
               _FFClick("name", "password")
               _FFClick("name", "haslo")
       $username = _FFObjGet("login", "name")
       _FFObj($username, "value", $login)
       $pass = _FFObjGet("password", "name")
       _FFObj($pass, "value", $password)
               _FFFormSubmit("logowanie", "name")

Wrzuciles po Endfunc ?

Adrian77 · 23 Listopada 2010

Dodałem to logowanie przed endfunc oraz zmieniłem nazwę pola. Zadziałało logowanie.

Adrian77 · 23 Listopada 2010

A jak zrobić, żeby bot wykonywał jakąś funkcję co 5 minut? Czy do tego trzeba użyć pętli while?

lokuxd · 23 Listopada 2010

while 1
sleep(300000)
wend

albo zrob sobie timera:D

$x=1
while1
sleep(1000)
$x=$x+1
if $x=300 then 
tu funkcja()
$x=1
endif
wend

zeby bylo weselej:D

4ggr35510n · 24 Listopada 2010

Multipost!

Namieszał ci zapewne tym ''timerem''...

Tak, trzeba użyć pętli while.

Adrian77 · 24 Listopada 2010

Z timerem nie namieszał. Jeśli odliczy 300 sekund to będzie na nowo liczył.

Używałem funkcji _FFImageClick. Nie chce ona kliknąć na obrazek np. wyloguj. Zwraca, że nic nie pasuje. Już na kilka sposobów próbowałem. Ale nic.

Kulfix · 24 Listopada 2010

Z timerem nie namieszał. Jeśli odliczy 300 sekund to będzie na nowo liczył.

Używałem funkcji _FFImageClick. Nie chce ona kliknąć na obrazek np. wyloguj. Zwraca, że nic nie pasuje. Już na kilka sposobów próbowałem. Ale nic.

Nie musisz uzywac imageclick...

_FFOpenURL("http://uliczne-wyscigi.pl/wyloguj.php")

lokuxd · 24 Listopada 2010

i odlicza 300sek ale napisalem while zwykle i "zeby bylo weselej" timera:)

Adrian77 · 24 Listopada 2010

A jak zrobić, żeby po naciśnięciu buttonu otwierała się druga forma?

Jak wyświetlić obrazek w formie?

Jak zrobić, żeby po naciśnięciu przycisku logowania zniknę forma logowanie, a pojawiła się druga forma?

hfaua · 24 Listopada 2010

$GUI1 = GUICreate("gui 1", 100, 100)
$Show = GUICtrlCreateButton("Pokaz 2. forme", 10, 10, 80, 80)
GUISetState(@SW_SHOW, $GUI1)
$GUI2 = GUICreate("gui 2", 100, 100)

While 1
$msg = GUIGetMsg()
Switch $msg
Case $Show
	GUISetState(@SW_SHOW, $GUI2)
	GUISetState(@SW_HIDE, $GUI1); Jesli chcesz schowac poprzednia to to zostaw
Case -3
	 Exit
 EndSwitch
WEnd

GUICtrlCreatePic();<--- tworzy obrazek

Adrian77 · 27 Listopada 2010

Jak zrobić, że, gdy bot działa to mogę korzystać z normalnie z przeglądarki, aby nie zakłócać pracy bota?

4ggr35510n · 27 Listopada 2010

Odpalić nowe okno przeglądarki...? <.<

lokuxd · 27 Listopada 2010

dodaj sobie do bota zeby dzialal w jednym oknie:) albo jesli dziala w ff to uzywaj ie:P

Adrian77 · 27 Listopada 2010

No tak. Zapomniałem o tej możliwości.

Próbuję zrobić pętlę for, ale coś mi nie wychodzi. Chcę zrobić:

	For $i = 1 To 30
	$b = 'c'.$i
Next

Mam takie coś:

	$c1 = GUICtrlRead($Checkbox1)
$c2 = GUICtrlRead($Checkbox2)
If $c1 = 1 Then
	_FFFormCheckBox(1, True, 0, "value", "lotekk", "name")
EndIf

Ta zmienna c ma być od c1 do c30. Potem warunek też bym w pętli zrobić. Aby nie pisać tego 30 razy. Czy trzeba użyć zmiennych tablicowych?

Adrian77 · 27 Listopada 2010

Udało mi się. Oto część kodu:

	For $h = 0 To 29
	$c[$h] = $h
	If $c[$h] = $h Then
	$c[$h] = GUICtrlRead($Checkbox[$h])
EndIf
Next
For $i = 0 To 29
	$z = $i + 1
If $c[$i] = 1 Then
	_FFFormCheckBox($z, True, 0, "value", "lotekk", "name")
EndIf
Next

Adrian77 · 29 Listopada 2010

Jak zrobić, aby przerwała się pętla z timerem? Używałem ExitLoop, ale coś mi nie wychodzi.

#include <FF.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Local $Checkbox[30]
Local $c[30]
$Form1 = GUICreate("Autologowanie", 177, 98, 380, 250)
$Label1 = GUICtrlCreateLabel("Login", 7, 12, 30, 17)
$Label2 = GUICtrlCreateLabel("Hasło", 6, 38, 33, 17)
$login_input = GUICtrlCreateInput("", 50, 9, 121, 21)
$haslo_input = GUICtrlCreateInput("", 50, 33, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$loguj = GUICtrlCreateButton("Zaloguj się", 56, 64, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW, $Form1)
$Form2 = GUICreate("Ustawienia - Uliczne-Wyscigi.pl", 512, 215, 192, 124)
$Label3 = GUICtrlCreateLabel("Wybierz stawkę", 16, 24, 79, 17)
$Label4 = GUICtrlCreateLabel("Wybierz ślimaka", 16, 56, 80, 17)
$Combo1 = GUICtrlCreateCombo("", 112, 24, 145, 25)
GUICtrlSetData(-1, "1000|2000|5000|10000|50000|100000|200000|500000|1000000|5000000", "1000")
$Combo2 = GUICtrlCreateCombo("1", 112, 56, 145, 25)
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8")
$Label5 = GUICtrlCreateLabel("Lotek", 16, 104, 31, 17)
$Checkbox[0] = GUICtrlCreateCheckbox("1", 112, 104, 25, 17)
$Checkbox[1] = GUICtrlCreateCheckbox("2", 152, 104, 25, 17)
$Checkbox[2] = GUICtrlCreateCheckbox("3", 192, 104, 25, 17)
$Checkbox[3] = GUICtrlCreateCheckbox("4", 232, 104, 25, 17)
$Checkbox[4] = GUICtrlCreateCheckbox("5", 272, 104, 25, 17)
$Checkbox[5] = GUICtrlCreateCheckbox("6", 312, 104, 25, 17)
$Checkbox[6] = GUICtrlCreateCheckbox("7", 352, 104, 25, 17)
$Checkbox[7] = GUICtrlCreateCheckbox("8", 392, 104, 25, 17)
$Checkbox[8] = GUICtrlCreateCheckbox("9", 432, 104, 25, 17)
$Checkbox[9] = GUICtrlCreateCheckbox("10", 472, 104, 33, 17)
$Checkbox[10] = GUICtrlCreateCheckbox("11", 112, 128, 33, 17)
$Checkbox[11] = GUICtrlCreateCheckbox("12", 152, 128, 33, 17)
$Checkbox[12] = GUICtrlCreateCheckbox("13", 192, 128, 33, 17)
$Checkbox[13] = GUICtrlCreateCheckbox("14", 232, 128, 33, 17)
$Checkbox[14] = GUICtrlCreateCheckbox("15", 272, 128, 33, 17)
$Checkbox[15] = GUICtrlCreateCheckbox("16", 312, 128, 33, 17)
$Checkbox[16] = GUICtrlCreateCheckbox("17", 352, 128, 33, 17)
$Checkbox[17] = GUICtrlCreateCheckbox("18", 392, 128, 33, 17)
$Checkbox[18] = GUICtrlCreateCheckbox("19", 432, 128, 33, 17)
$Checkbox[19] = GUICtrlCreateCheckbox("20", 472, 128, 33, 17)
$Checkbox[20] = GUICtrlCreateCheckbox("21", 112, 152, 33, 17)
$Checkbox[21] = GUICtrlCreateCheckbox("22", 152, 152, 33, 17)
$Checkbox[22] = GUICtrlCreateCheckbox("23", 192, 152, 33, 17)
$Checkbox[23] = GUICtrlCreateCheckbox("24", 232, 152, 33, 17)
$Checkbox[24] = GUICtrlCreateCheckbox("25", 272, 152, 33, 17)
$Checkbox[25] = GUICtrlCreateCheckbox("26", 312, 152, 33, 17)
$Checkbox[26] = GUICtrlCreateCheckbox("27", 352, 152, 33, 17)
$Checkbox[27] = GUICtrlCreateCheckbox("28", 392, 152, 33, 17)
$Checkbox[28] = GUICtrlCreateCheckbox("29", 432, 152, 33, 17)
$Checkbox[29] = GUICtrlCreateCheckbox("30", 472, 152, 33, 17)
$legenda = GUICtrlCreateButton("Info o stawkach", 288, 40, 91, 25, $WS_GROUP)
$uruchom = GUICtrlCreateButton("Uruchom", 175, 176, 75, 25, $WS_GROUP)
$wyloguj = GUICtrlCreateButton("Wyloguj się", 261, 176, 75, 25, $WS_GROUP)
;$uruchom = GUICtrlCreateButton("Uruchom", 129, 176, 75, 25, $WS_GROUP)
;$wyloguj = GUICtrlCreateButton("Wyloguj się", 215, 176, 75, 25, $WS_GROUP)
;$stopbot = GUICtrlCreateButton("Przerwij pracę", 306, 176, 75, 25, $WS_GROUP)

$Form3 = GUICreate("Legenda", 154, 181, 204, 186)
$Label11 = GUICtrlCreateLabel("Ślimak 8", 16, 128, 44, 17)
$Label12 = GUICtrlCreateLabel("Ślimak 4", 16, 64, 41, 17)
$Label13 = GUICtrlCreateLabel("Ślimak 2", 16, 32, 44, 17)
$Label14 = GUICtrlCreateLabel("Stawka: 1:1,5", 80, 16, 70, 17)
$Label15 = GUICtrlCreateLabel("Ślimak 5", 16, 80, 44, 17)
$Label16 = GUICtrlCreateLabel("Ślimak 7", 16, 112, 44, 17)
$Label17 = GUICtrlCreateLabel("Ślimak 6", 16, 96, 44, 17)
$Label18 = GUICtrlCreateLabel("Stawka: 1:1,8", 80, 32, 70, 17)
$Label19 = GUICtrlCreateLabel("Stawka: 1:3,5", 80, 80, 70, 17)
$Label10 = GUICtrlCreateLabel("Stawka: 1:4", 80, 96, 61, 17)
$Label111 = GUICtrlCreateLabel("Stawka: 1:8", 80, 128, 61, 17)
$Label112 = GUICtrlCreateLabel("Stawka: 1:6", 80, 112, 61, 17)
$Label113 = GUICtrlCreateLabel("Ślimak 1", 16, 16, 44, 17)
$Label114 = GUICtrlCreateLabel("Stawka: 1:2,3", 80, 48, 70, 17)
$Label115 = GUICtrlCreateLabel("Ślimak 3", 16, 48, 44, 17)
$Label116 = GUICtrlCreateLabel("Stawka: 1:3", 80, 64, 61, 17)
$zamknij = GUICtrlCreateButton("Zamknij", 39, 152, 75, 25, $WS_GROUP)

$Form4 = GUICreate("Bot Uliczne-Wyscigi.pl", 133, 40, 432, 293)
$botstop = GUICtrlCreateButton("Przerwij pracę", 29, 7, 75, 25, $WS_GROUP)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $botstop
		ExitLoop
		GUISetState(@SW_HIDE, $Form4)
		GUISetState(@SW_SHOW, $Form2)
	Case $loguj
		login()
		GUISetState(@SW_HIDE, $Form1)
		GUISetState(@SW_SHOW, $Form2)
	Case $legenda
		GUISetState(@SW_SHOW, $Form3)
	Case $zamknij
		GUISetState(@SW_HIDE, $Form3)
	Case $wyloguj
		_FFOpenUrl("http://uliczne-wyscigi.pl/wyloguj.php")
		_FFDisConnect()
		Exit
	Case $uruchom
		GUISetState(@SW_HIDE, $Form2)
		GUISetState(@SW_SHOW, $Form4)
		$f = 0
		While 1 ;pętla z timerem
			If $nMsg = $botspot Then
			ExitLoop
			GUISetState(@SW_HIDE, $Form4)
			GUISetState(@SW_SHOW, $Form2)
			EndIf
			sleep(1000)
			$f = $f + 1
			For $u = 0 To 3600 Step 300
				If $f=$u Then
				;MsgBox(0, "slimak", "slimak")
				slimak()
			EndIf
		Next
			If $f = 3600 Then
			lotto()
			;MsgBox(0, "lotto", "lotto")
			$f = 0
			EndIF
		WEnd
EndSwitch
WEnd
Func login()
If _FFConnect() Then
	_FFTabAdd("http://uliczne-wyscigi.pl")
	$login = GUICtrlRead($login_input)
	$password = GuiCtrlRead($haslo_input)
	$username = _FFObjGet("login", "name")
	_FFObj($username, "value", $login)
	$pass = _FFObjget("pass", "name")
	_FFObj($pass, "value", $password)
	_FFFormSubmit("logowanie", "name")
Else
	_FFStart("http://uliczne-wyscigi.pl")
EndIf
EndFunc
Func lotto()
_FFOpenUrl("http://uliczne-wyscigi.pl/lotek.php")
For $h = 0 To 29
	$c[$h] = $h
	If $c[$h] = $h Then
	$c[$h] = GUICtrlRead($Checkbox[$h])
EndIf
Next
For $i = 0 To 29
	$z = $i + 1
If $c[$i] = 1 Then
	_FFFormCheckBox($z, True, 0, "value", "lotekk", "name")
EndIf
Next
_FFFormSubmit("lotekk", "name")
EndFunc
Func slimak()
$stawka = GUICtrlRead($Combo1)
$nr = GUICtrlRead($Combo2)
;MsgBox(0, "bum", $stawka & $nr)
_FFOpenUrl("http://uliczne-wyscigi.pl/slimak.php")
_FFFormOptionSelect("siano", "name", $stawka, "text", "start", "name")
_FFFormOptionSelect("nrslimaka", "name", $nr, "text", "start", "name")
_FFFormSubmit("start", "name")
EndFunc

4ggr35510n · 30 Listopada 2010

1. SPOILER!!!

2. 3x post = report

3. Ja tu żadnego timera ani ExitLoop'a nie widzę.

Adrian77 · 30 Listopada 2010

Ok już poprawiłem. Tutaj zaznaczyłem, gdzie jest timer. Oraz dorobiłem ExitLoop'a. To jak przerwać pętlę? Mi to nie działa.

#include <FF.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Local $Checkbox[30]
Local $c[30]
$Form1 = GUICreate("Autologowanie", 177, 98, 380, 250)
$Label1 = GUICtrlCreateLabel("Login", 7, 12, 30, 17)
$Label2 = GUICtrlCreateLabel("Hasło", 6, 38, 33, 17)
$login_input = GUICtrlCreateInput("", 50, 9, 121, 21)
$haslo_input = GUICtrlCreateInput("", 50, 33, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$loguj = GUICtrlCreateButton("Zaloguj się", 56, 64, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW, $Form1)
$Form2 = GUICreate("Ustawienia - Uliczne-Wyscigi.pl", 512, 215, 192, 124)
$Label3 = GUICtrlCreateLabel("Wybierz stawkę", 16, 24, 79, 17)
$Label4 = GUICtrlCreateLabel("Wybierz ślimaka", 16, 56, 80, 17)
$Combo1 = GUICtrlCreateCombo("", 112, 24, 145, 25)
GUICtrlSetData(-1, "1000|2000|5000|10000|50000|100000|200000|500000|1000000|5000000", "1000")
$Combo2 = GUICtrlCreateCombo("1", 112, 56, 145, 25)
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8")
$Label5 = GUICtrlCreateLabel("Lotek", 16, 104, 31, 17)
$Checkbox[0] = GUICtrlCreateCheckbox("1", 112, 104, 25, 17)
$Checkbox[1] = GUICtrlCreateCheckbox("2", 152, 104, 25, 17)
$Checkbox[2] = GUICtrlCreateCheckbox("3", 192, 104, 25, 17)
$Checkbox[3] = GUICtrlCreateCheckbox("4", 232, 104, 25, 17)
$Checkbox[4] = GUICtrlCreateCheckbox("5", 272, 104, 25, 17)
$Checkbox[5] = GUICtrlCreateCheckbox("6", 312, 104, 25, 17)
$Checkbox[6] = GUICtrlCreateCheckbox("7", 352, 104, 25, 17)
$Checkbox[7] = GUICtrlCreateCheckbox("8", 392, 104, 25, 17)
$Checkbox[8] = GUICtrlCreateCheckbox("9", 432, 104, 25, 17)
$Checkbox[9] = GUICtrlCreateCheckbox("10", 472, 104, 33, 17)
$Checkbox[10] = GUICtrlCreateCheckbox("11", 112, 128, 33, 17)
$Checkbox[11] = GUICtrlCreateCheckbox("12", 152, 128, 33, 17)
$Checkbox[12] = GUICtrlCreateCheckbox("13", 192, 128, 33, 17)
$Checkbox[13] = GUICtrlCreateCheckbox("14", 232, 128, 33, 17)
$Checkbox[14] = GUICtrlCreateCheckbox("15", 272, 128, 33, 17)
$Checkbox[15] = GUICtrlCreateCheckbox("16", 312, 128, 33, 17)
$Checkbox[16] = GUICtrlCreateCheckbox("17", 352, 128, 33, 17)
$Checkbox[17] = GUICtrlCreateCheckbox("18", 392, 128, 33, 17)
$Checkbox[18] = GUICtrlCreateCheckbox("19", 432, 128, 33, 17)
$Checkbox[19] = GUICtrlCreateCheckbox("20", 472, 128, 33, 17)
$Checkbox[20] = GUICtrlCreateCheckbox("21", 112, 152, 33, 17)
$Checkbox[21] = GUICtrlCreateCheckbox("22", 152, 152, 33, 17)
$Checkbox[22] = GUICtrlCreateCheckbox("23", 192, 152, 33, 17)
$Checkbox[23] = GUICtrlCreateCheckbox("24", 232, 152, 33, 17)
$Checkbox[24] = GUICtrlCreateCheckbox("25", 272, 152, 33, 17)
$Checkbox[25] = GUICtrlCreateCheckbox("26", 312, 152, 33, 17)
$Checkbox[26] = GUICtrlCreateCheckbox("27", 352, 152, 33, 17)
$Checkbox[27] = GUICtrlCreateCheckbox("28", 392, 152, 33, 17)
$Checkbox[28] = GUICtrlCreateCheckbox("29", 432, 152, 33, 17)
$Checkbox[29] = GUICtrlCreateCheckbox("30", 472, 152, 33, 17)
$legenda = GUICtrlCreateButton("Info o stawkach", 288, 40, 91, 25, $WS_GROUP)
$uruchom = GUICtrlCreateButton("Uruchom", 175, 176, 75, 25, $WS_GROUP)
$wyloguj = GUICtrlCreateButton("Wyloguj się", 261, 176, 75, 25, $WS_GROUP)
;$uruchom = GUICtrlCreateButton("Uruchom", 129, 176, 75, 25, $WS_GROUP)
;$wyloguj = GUICtrlCreateButton("Wyloguj się", 215, 176, 75, 25, $WS_GROUP)
;$stopbot = GUICtrlCreateButton("Przerwij pracę", 306, 176, 75, 25, $WS_GROUP)

$Form3 = GUICreate("Legenda", 154, 181, 204, 186)
$Label11 = GUICtrlCreateLabel("Ślimak 8", 16, 128, 44, 17)
$Label12 = GUICtrlCreateLabel("Ślimak 4", 16, 64, 41, 17)
$Label13 = GUICtrlCreateLabel("Ślimak 2", 16, 32, 44, 17)
$Label14 = GUICtrlCreateLabel("Stawka: 1:1,5", 80, 16, 70, 17)
$Label15 = GUICtrlCreateLabel("Ślimak 5", 16, 80, 44, 17)
$Label16 = GUICtrlCreateLabel("Ślimak 7", 16, 112, 44, 17)
$Label17 = GUICtrlCreateLabel("Ślimak 6", 16, 96, 44, 17)
$Label18 = GUICtrlCreateLabel("Stawka: 1:1,8", 80, 32, 70, 17)
$Label19 = GUICtrlCreateLabel("Stawka: 1:3,5", 80, 80, 70, 17)
$Label10 = GUICtrlCreateLabel("Stawka: 1:4", 80, 96, 61, 17)
$Label111 = GUICtrlCreateLabel("Stawka: 1:8", 80, 128, 61, 17)
$Label112 = GUICtrlCreateLabel("Stawka: 1:6", 80, 112, 61, 17)
$Label113 = GUICtrlCreateLabel("Ślimak 1", 16, 16, 44, 17)
$Label114 = GUICtrlCreateLabel("Stawka: 1:2,3", 80, 48, 70, 17)
$Label115 = GUICtrlCreateLabel("Ślimak 3", 16, 48, 44, 17)
$Label116 = GUICtrlCreateLabel("Stawka: 1:3", 80, 64, 61, 17)
$zamknij = GUICtrlCreateButton("Zamknij", 39, 152, 75, 25, $WS_GROUP)

$Form4 = GUICreate("Bot Uliczne-Wyscigi.pl", 133, 40, 432, 293)
$botstop = GUICtrlCreateButton("Przerwij pracę", 29, 7, 75, 25, $WS_GROUP)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $botstop
		ExitLoop
		GUISetState(@SW_HIDE, $Form4)
		GUISetState(@SW_SHOW, $Form2)
	Case $loguj
		login()
		GUISetState(@SW_HIDE, $Form1)
		GUISetState(@SW_SHOW, $Form2)
	Case $legenda
		GUISetState(@SW_SHOW, $Form3)
	Case $zamknij
		GUISetState(@SW_HIDE, $Form3)
	Case $wyloguj
		_FFOpenUrl("http://uliczne-wyscigi.pl/wyloguj.php")
		_FFDisConnect()
		Exit
	Case $uruchom
		GUISetState(@SW_HIDE, $Form2)
		GUISetState(@SW_SHOW, $Form4)
		$f = 0
		While 1 ;pętla z timerem
			If $nMsg = $botspot Then
			ExitLoop
			GUISetState(@SW_HIDE, $Form4)
			GUISetState(@SW_SHOW, $Form2)
			EndIf
			sleep(1000)
			$f = $f + 1
			For $u = 0 To 3600 Step 300
				If $f=$u Then
				;MsgBox(0, "slimak", "slimak")
				slimak()
			EndIf
		Next
			If $f = 3600 Then
			lotto()
			;MsgBox(0, "lotto", "lotto")
			$f = 0
			EndIF
		WEnd
EndSwitch
WEnd
Func login()
If _FFConnect() Then
	_FFTabAdd("http://uliczne-wyscigi.pl")
	$login = GUICtrlRead($login_input)
	$password = GuiCtrlRead($haslo_input)
	$username = _FFObjGet("login", "name")
	_FFObj($username, "value", $login)
	$pass = _FFObjget("pass", "name")
	_FFObj($pass, "value", $password)
	_FFFormSubmit("logowanie", "name")
Else
	_FFStart("http://uliczne-wyscigi.pl")
EndIf
EndFunc
Func lotto()
_FFOpenUrl("http://uliczne-wyscigi.pl/lotek.php")
For $h = 0 To 29
	$c[$h] = $h
	If $c[$h] = $h Then
	$c[$h] = GUICtrlRead($Checkbox[$h])
EndIf
Next
For $i = 0 To 29
	$z = $i + 1
If $c[$i] = 1 Then
	_FFFormCheckBox($z, True, 0, "value", "lotekk", "name")
EndIf
Next
_FFFormSubmit("lotekk", "name")
EndFunc
Func slimak()
$stawka = GUICtrlRead($Combo1)
$nr = GUICtrlRead($Combo2)
;MsgBox(0, "bum", $stawka & $nr)
_FFOpenUrl("http://uliczne-wyscigi.pl/slimak.php")
_FFFormOptionSelect("siano", "name", $stawka, "text", "start", "name")
_FFFormOptionSelect("nrslimaka", "name", $nr, "text", "start", "name")
_FFFormSubmit("start", "name")
EndFunc

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Pierwszy Bot

Rekomendowane odpowiedzi

Zarchiwizowany