Lottobot

[matiszon]

Tut namęczyłem się jak na mnie

 

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

Include: są one niezbędne do funkcjonowania bota.

 

Opt("OnExitFunc", "exitx")

Ustawienia autoita: to ustawienie określa nazwę funkcji jaka ma być wykonywana po wyłączeniu skryptu.

 

Global $thanx, $wiezienie

Definiuje zmienne nie wszystkie.

 

$Form1 = GUICreate("Lotto", 162, 130, 192, 124)
$Label1 = GUICtrlCreateLabel("Login:", 4, 4, 33, 17)
$Input1 = GUICtrlCreateInput("Input1", 40, 4, 81, 21)
$Label2 = GUICtrlCreateLabel("Hasło", 4, 28, 33, 17)
$Input2 = GUICtrlCreateInput("Input2", 40, 28, 81, 21)
$Label3 = GUICtrlCreateLabel("Ilosc:", 4, 52, 29, 17)
$Input3 = GUICtrlCreateInput("Input3", 40, 52, 81, 21)
$Button1 = GUICtrlCreateButton("Start", 4, 80, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Dziekuje", 80, 80, 75, 25, 0)
$Label4 = GUICtrlCreateLabel("Losy:", 8, 108, 29, 17)
$Label5 = GUICtrlCreateLabel("X", 44, 108, 111, 17)
GUISetState(@SW_SHOW)

 

 

GUI(Graphical User Interface): czyli graficzna oprawa skromna ale zawsze. :unsure:

 

While 1
$nMsg = GUIGetMsg() ; pobiera komunikat GUI i zapisuje w zmiennej
Switch $nMsg funkcja podobna do select odczytuje komunikat ze zmiennej, na razie
	Case $GUI_EVENT_CLOSE ; case sprawdza czy switch = $GUI_EVENT_CLOSE (zmienna zdeklarowana w inkludzie) jeśli się zgadza wykonuje Exit jeżeli nie leci dalej.
		Exit
	Case $Button1; jak wyzej
		$loging = GUICtrlRead($Input1) ;zapisuje do zmiennej wartość z $input1
		$haslog = GUICtrlRead($Input2) ;j/w
		$ile = GUICtrlRead($Input3) ;j/w
		;GUIDelete($Form1)
		GUICtrlSetState($Button1, $GUI_DISABLE)
		GUICtrlSetState($Button2, $GUI_DISABLE)
		GUICtrlSetState($Input1, $GUI_DISABLE)
		GUICtrlSetState($Input2, $GUI_DISABLE)
		GUICtrlSetState($Input3, $GUI_DISABLE)
		start()
	Case $Button2 ;jak wyzej
		$thanx = 1
		GUICtrlSetState($Button2, $GUI_DISABLE)
EndSwitch
WEnd

 

Pętelka while: zawiera różne elementy opisane wyżej :rolleyes: i wykonuje to w nieskończoną ilość razy.

 

 

Func start() ;start funkcji
$wiezienie = "bialoleka" ;deklaruje zmienna
Global $IE = _IECreate("http://www.prisonwars.pl/", 0, 0) ;odpalam przegladarke
$html = _IEDocReadHTML($IE) ;odczytuje cały kod html strony
$s = StringInStr($html, "http://www." & $wiezienie & ".prisonwars.pl/bank/") ;sprawdza czy w zmiennej x jest wartosc y
If $s = 0 Then ;warunek jezeli $s = 0 to...
	$login = _IETagNameGetCollection($IE, "input", 1) ;pobiera pole do wpisania Textu pierwszy parametr uchwyt przeglądarki drugi nazwa tagu trzeci numer tagu od 0
	$haslo = _IETagNameGetCollection($IE, "input", 2) ;j/w
	$form = _IETagNameGetCollection($IE, "form", 0) ;j/w
	_IEFormElementSetValue($login, $loging) ;ustawia wartość pola, pierwszy parametr uchwyt pola drugi zmienna w której jest wartość
	_IEFormElementSetValue($haslo, $haslog) ;j/w
	$form.submit ;i tu chyba bug auutoita ale support mnie nie słucha normalnie uzyl bym _IEFormSubmit($form) ale jak uzyje to zawiesza sie
	_IELoadWait($IE) ; czeka na załadowanie strony.
EndIf ;koniec warunku
If StringInStr($html, "bialoleka.prison") <> 0 Then $wiezienie = "bialoleka" sprawdza czy w zmiennej x jest wartosc y jezeli tak ustawia zmienna.
If StringInStr($html, "alcatraz.prison") <> 0 Then $wiezienie = "alcatraz" ;j/w
thanx() ; wywołuję funkcje
loteria() ;j/w
EndFunc   ; koniec funkcji

 

funkcja

 

Func loteria()
_IENavigate($IE, "http://www." & $wiezienie & ".prisonwars.pl/lottery/") ;przechodzi do innej strony
For $s = 1 To $ile ;pętla for
	$form = _IETagNameGetCollection($IE, "form", 5)
	_IEFormSubmit($form)
	GUICtrlSetData($Label5, $s)
Next
;	Shutdown(1) ;mozna to dodac i po zakonczeniu petli komputer sie wyłączy
EndFunc   ;==>loteria

Func thanx()
If $thanx = 1 Then
	_IENavigate($IE, "http://www.bialoleka.prisonwars.pl/userprofile/62884/")
	$formm = _IETagNameGetCollection($IE, "form", 10)
	$d = _IEFormElementGetObjByName($formm, "points")
	_IEFormElementSetValue($d, "1")
	_IEFormSubmit($formm)
EndIf
EndFunc   ;==>thanx

 

Dwie funkcje których nie chce mi się tłumaczyć ponieważ wyjaśniłem ocb z tymi funkcjami.

 

Func exitx()
_IEQuit($IE) ;zamyka IE
EndFunc

 

Więcej informacji na temat poszczególnych elementów znajdziecie na www.autoitscript.com/autoit3/

[jackraymund]

Automatyczna wiadomość.

 

Ten temat został przeniesiony z forum:

"Niezbędnik Cheatera -> AutoIT"

do:

"Niezbędnik Cheatera -> AutoIT -> Gotowe skrypty i biblioteki".