Shakes&Fidget hazard bot

[Fli_PL]

Cześć, chciałbym wrzucić source mojego bota do gry flash Shakes&Fidget, napisanego pół roku temu

 

Robię to, ponieważ już nie będe nad nim pracował w żaden sposób, leń i te sprawy a nie widzę tutaj żadnych przykładów cywilizowanego bota pracującego z flashem, napisanego w AutoIt Mam nadzieję, że wyciągniecie z tego kodu coś przydatnego Prosiłbym tylko o nie przywłaszczanie sobie praw autorskich, choć w sumie on już jest w sieci i nie ma co przywłaszczać :P

 

Standardowo podziękowania dla mojego mistrza i mentora Agreszyn za to, że podsunął mi pomysł z requestami, podrzucił trochę teorii na ten temat i udowodnił mi, że to co ja szukałem 3 dni w 30tys linijek kodu on potrafi znaleźć w 5 minut

 

Przejdxmy do konkretów:

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ikona2.ico
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <WinHttp.au3>
#include <GUIListView.au3>
#include <GUIListBox.au3>

Opt("GUIOnEventMode", 1)
Global $FORM1, $FORM2
Global $HELP_ID, $NAME, $LINE[8], $SGUI
Global $CRELOG, $IMING, $IMINM, $CGO[2], $ISTAWKAG, $ISTAWKAM, $SDATA[7]
Global $LIST1, $TEXT
Global $INPUT1, $INPUT2
Global $CWRLD
Global $HOPEN, $HCONNECT, $URL
Global $SESSIONID
Global $ZLOTO, $GRZYBY, $LABEL60, $LABEL70, $LABEL80, $LABEL90
Global $GO = True
Global $DATA[7]
If LOAD_FILES() = False Then
MsgBox(16, "Niepowodzenie", "Brak pliku. Koniec pracy.")
Exit
EndIf

Dircheck()

#Region ### START Koda GUI section ### Form=
$FORM1 = GUICreate(FileReadLine(@ScriptDir & "/data/text/gui.txt", 1), 458, 470, 192, 124)
$GROUP1 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 2), 8, 8, 177, 129)
$LABEL1 = GUICtrlCreateLabel("Login", 16, 32, 30, 17)
$INPUT1 = GUICtrlCreateInput("", 56, 28, 121, 21)
$LABEL2 = GUICtrlCreateLabel(FileReadLine(@ScriptDir & "/data/text/gui.txt", 3), 16, 56, 31, 17)
$INPUT2 = GUICtrlCreateInput("", 56, 52, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$LABEL3 = GUICtrlCreateLabel(FileReadLine(@ScriptDir & "/data/text/gui.txt", 4), 16, 80, 30, 17)
$CWRLD = GUICtrlCreateCombo("", 56, 76, 121, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($CWRLD, "Swiat 1|Swiat 2|Swiat 3|Swiat 4|Swiat 5|Swiat 6|Swiat 7|Swiat 8|Swiat 9|Swiat 10|Swiat 11|Swiat 12|Swiat 13|Swiat 14|Swiat 15", "Swiat 1")
$BUTTON1 = GUICtrlCreateButton("Zapisz", 16, 104, 65, 25)
GUICtrlSetState($BUTTON1, $GUI_DISABLE)
$ICON1 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 160, 112, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$BUTTON2 = GUICtrlCreateButton("Start", 192, 16, 75, 49)
$BUTTON3 = GUICtrlCreateButton("Stop = [END]", 192, 72, 73, 25)
$BUTTON4 = GUICtrlCreateButton("Opcje ( ! )", 192, 112, 73, 25)
$GROUP2 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 5), 272, 8, 177, 129)
$PIC1 = GUICtrlCreatePic(@ScriptDir & "\data\img\gold.jpg", 280, 32, 29, 20)
$PIC2 = GUICtrlCreatePic(@ScriptDir & "\data\img\mushroom.jpg", 280, 64, 31, 29)
$ZLOTO = GUICtrlCreateLabel("0", 320, 32, 104, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$GRZYBY = GUICtrlCreateLabel("0", 320, 72, 104, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$ICON2 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 424, 112, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP3 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 6), 8, 144, 441, 209)
$LIST1 = GUICtrlCreateListView("Czas |Akcja", 16, 160, 425, 162)
_GUICTRLLISTVIEW_SETCOLUMNWIDTH($LIST1, 1, 340)
$ICON3 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 424, 328, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP4 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 7), 8, 360, 441, 105)
$PIC3 = GUICtrlCreatePic(@ScriptDir & "\data\img\by.jpg", 20, 376, 417, 57)
$ICON4 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 424, 440, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($BUTTON3, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{END}", "STOP")
GUISetOnEvent(-3, "end", $FORM1)
GUICtrlSetOnEvent($ICON1, "help1")
GUICtrlSetOnEvent($ICON2, "help2")
GUICtrlSetOnEvent($ICON3, "help3")
GUICtrlSetOnEvent($ICON4, "help4")
GUICtrlSetOnEvent($BUTTON4, "_OptionCreate")
GUICtrlSetOnEvent($BUTTON3, "stop")
GUICtrlSetOnEvent($BUTTON2, "main")
GUICtrlSetOnEvent($PIC3, "profile")
While 1
Sleep(1000)
WEnd
Func END()
DirRemove(@ScriptDir & "\temponary", 1)
Exit
EndFunc
Func LOAD_FILES()
Local $ISFILES = True
If FileExists(@ScriptDir & "/data/text/gui.txt") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/text/1.txt") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/text/2.txt") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/text/3.txt") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/text/4.txt") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/img/by.jpg") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/img/gold.jpg") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/img/mushroom.jpg") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/img/help_smile.jpg") = 0 Then
Return 0
ElseIf FileExists(@ScriptDir & "/data/img/help_sad.jpg") = 0 Then
Return 0
Else
Return 1
EndIf
Return $ISFILES
EndFunc
Func HELP1()
_HELPCREATE(1, "Logowanie")
EndFunc
Func HELP2()
_HELPCREATE(2, "Twoje dobra")
EndFunc
Func HELP3()
_HELPCREATE(3, "Konsola")
EndFunc
Func HELP4()
_HELPCREATE(4, "Reklama i autor")
EndFunc
Func MAIN()
$REPEAT = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 1))
If $REPEAT = "Nie reloguj" Then
$REPEAT = -2
EndIf
$X = 1
$POCZATKOWE_ZLOTO = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 6))
$POCZATKOWE_GRZYBY = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 7))
$MINIMUM_ZLOTA = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 2))
$MINIMUM_GRZYBOW = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 3))
$GO = True
$start = 1
LOG_IN()
SLD("Rozpoczynam za 5 sekund...")
Sleep(5000)
While 1
If $GO = False Then
ExitLoop
EndIf
$OBSTAWIAJZ = OBSTAWIAJ_ZLOTO(Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 4)), $POCZATKOWE_ZLOTO, $MINIMUM_ZLOTA, $start)
If $OBSTAWIAJZ = 0 Then
$POCZATKOWE_ZLOTO *= 2 ;Jesli nie chcesz aby zloto bylo podwajane to usuwasz tą linijkę, albo całkowicie instrukcję warunkową######################################
Else
$POCZATKOWE_ZLOTO = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 6))
EndIf
$start += 1
$OBSTAWIAJG = OBSTAWIAJ_GRZYBY(Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 5)), $POCZATKOWE_GRZYBY, $MINIMUM_GRZYBOW)
If $OBSTAWIAJG = 0 Then
$POCZATKOWE_GRZYBY *= 2
Else
$POCZATKOWE_GRZYBY = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 7))
EndIf
$X += 1
If $X = $REPEAT Then
If ($OBSTAWIAJG = 1) And ($OBSTAWIAJZ = 1) Then
WYLOGUJ()
$X = 1
SLD("Ponowne zalogowanie za 3 sekundy...")
Sleep(3000)
$POCZATKOWE_ZLOTO = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 6))
LOG_IN()
Else
SLD("Nie znaleziono kulki, aby nie stracic")
SLD("Zlota/Grzybow kontynuuje bez relogu.")
$X -= 1
EndIf
EndIf
Sleep(1500)
WEnd
EndFunc
Func LOG_IN()
$INICK = GUICtrlRead($INPUT1)
$VAR1 = GUICtrlRead($INPUT2)
$VAR2 = _CRYPT_HASHDATA($VAR1, $CALG_MD5)
$VAR3 = StringSplit($VAR2, "x")
$IPASSWORD = StringLower($VAR3[2])
$URL = String("s" & GET_URL() & ".sfgame.pl")
$HOPEN = _WINHTTPOPEN("User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:10.0.2) Gecko/20100101 Firefox/10.0.2")
$HCONNECT = _WINHTTPCONNECT($HOPEN, $URL)
$SEND = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=00000000000000000000000000000000002" & $INICK & "%3B" & $IPASSWORD & "%3Bv1.60&random=%2&rnd=" & RND() & " HTTP/1.1", $URL)
SLD("Zalogowano jako " & $INICK & " na swiecie S" & GET_URL() & ".")
GET_SESSION($SEND)
UPDATE_GODS($SEND)
Return $HCONNECT
EndFunc
Func OBSTAWIAJ_ZLOTO($CG, $ILOSC, $MINZ, $start)
If $CG = 1 Then
$STARE = GUICtrlRead($ZLOTO)
If (Number($STARE) - $ILOSC) < 0 Then
SLD("Akcja niedozwolona, przerywam prace.")
$GO = False
Return 0
ElseIf (Number($STARE) - $ILOSC) < $MINZ Then
SLD("Nie mozna zejsc ponizej " & $MINZ & " zlota.")
SLD("Przerywam prace.")
$GO = False
Return 0
Else
SLD("Stawiam " & $ILOSC & " zlota...")
$STAWIAM1 = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=" & $SESSIONID & "022" & $ILOSC & "00%3B0&random=%2&rnd=6229530581330859562631 HTTP/1.1", $URL)
EndIf
$REQUESTGOLD = StringSplit($STAWIAM1, "/")
GUICtrlSetData($ZLOTO, Floor($REQUESTGOLD[14] / 100))
If Number($STARE) < Number(Floor($REQUESTGOLD[14] / 100)) Then
SLD("Pod kubkiem znalazla sie kuleczka!")
Return 1
Else
Return 0
EndIf
Else
Return 1
EndIf

EndFunc
Func OBSTAWIAJ_GRZYBY($CM, $ILOSC, $MING)
If $CM = 1 Then
$STARE = GUICtrlRead($GRZYBY)
If (Number($STARE) - $ILOSC) < 0 Then
SLD("Akcja niedozwolona, przerywam prace.")
$GO = False
Return 0
ElseIf (Number($STARE) - $ILOSC) < $MING Then
SLD("Nie mozna zejsc ponizej " & $MING & " grzybkow.")
SLD("Przerywam prace.")
$GO = False
Return 0
Else
SLD("Stawiam " & $ILOSC & " grzybkow...")
$STAWIAM2 = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=" & $SESSIONID & "0220%3B" & $ILOSC & "&random=%2&rnd=1269602791330859372546 HTTP/1.1", $URL)
EndIf
$REQUESTGOLD = StringSplit($STAWIAM2, "/")
GUICtrlSetData($GRZYBY, $REQUESTGOLD[15])
If Number($STARE) < Number($REQUESTGOLD[15]) Then
SLD("Pod kubkiem znalazla sie kuleczka!")
Return 1
Else
Return 0
EndIf
Else
Return 1
EndIf
EndFunc
Func WYLOGUJ()
$LOGOUT = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=" & $SESSIONID & "535&random=%2&rnd=" & RND() & " HTTP/1.1", $URL)
SLD("Wylogowano...")
EndFunc
Func GET_SESSION($REQUEST)
$VAR1 = StringSplit($REQUEST, "/")
$VAR2 = StringSplit($VAR1[512], ";")
$SESSIONID = $VAR2[3]
Return $SESSIONID
EndFunc
Func UPDATE_GODS($REQUEST)
$VAR1 = StringSplit($REQUEST, "/")
GUICtrlSetData($ZLOTO, Floor($VAR1[14] / 100))
GUICtrlSetData($GRZYBY, $VAR1[15])
EndFunc
Func RND()
Local $ROUND
$ROUND = Random(1, 9, 1)
For $I = 1 To 22
$ROUND &= Random(1, 9, 1)
Next
$RNDLENGHT = StringLen($ROUND)
Return $ROUND
EndFunc
Func GET_URL()
Local $ADRESS
$SWITCH = GUICtrlRead($CWRLD)
Switch $SWITCH
Case "Swiat 1"
$ADRESS = 1
Case "Swiat 2"
$ADRESS = 2
Case "Swiat 3"
$ADRESS = 3
Case "Swiat 4"
$ADRESS = 4
Case "Swiat 5"
$ADRESS = 5
Case "Swiat 6"
$ADRESS = 6
Case "Swiat 7"
$ADRESS = 7
Case "Swiat 8"
$ADRESS = 8
Case "Swiat 9"
$ADRESS = 9
Case "Swiat 10"
$ADRESS = 10
Case "Swiat 11"
$ADRESS = 11
Case "Swiat 12"
$ADRESS = 12
Case "Swiat 13"
$ADRESS = 13
Case "Swiat 14"
$ADRESS = 14
Case "Swiat 15"
$ADRESS = 15
EndSwitch
Return $ADRESS
EndFunc
Func _HELPCREATE($HELP_ID, $NAME)
If @HOUR = 19 Or @HOUR = 20 Or @HOUR = 21 Or @HOUR = 22 Or @HOUR = 23 Or @HOUR = 0 Or @HOUR = 1 Or @HOUR = 2 Or @HOUR = 3 Or @HOUR = 4 Or @HOUR = 5 Or @HOUR = 6 Or @HOUR = 7 Then
$PWIDTH = 100
$PHEIGHT = 57
$PATH = "sad.jpg"
Else
$PWIDTH = 100
$PHEIGHT = 88
$PATH = "smile.jpg"
EndIf
$SGUI = GUICreate($NAME, 257, 202, 192, 124)
$PICTURE = GUICtrlCreatePic(@ScriptDir & "\data\img\help_" & $PATH, 144, 106, $PWIDTH, $PHEIGHT)
$LINE[0] = GUICtrlCreateLabel("", 8, 8, 238, 17)
$LINE[1] = GUICtrlCreateLabel("", 8, 24, 238, 17)
$LINE[2] = GUICtrlCreateLabel("", 8, 40, 238, 17)
$LINE[3] = GUICtrlCreateLabel("", 8, 56, 238, 17)
$LINE[4] = GUICtrlCreateLabel("", 8, 72, 238, 17)
$LINE[5] = GUICtrlCreateLabel("", 8, 88, 238, 17)
$LINE[6] = GUICtrlCreateLabel("", 8, 104, 130, 17)
$LINE[7] = GUICtrlCreateLabel("", 8, 120, 130, 17)
GUISetState(@SW_SHOW)
GUISetOnEvent(-3, "_HelpEnd", $SGUI)
_ROTATEREAD($HELP_ID)
EndFunc
Func _ROTATEREAD($HELP_ID)
Local $COUNT
For $COUNT = 1 To 8 Step +1
GUICtrlSetData($LINE[$COUNT - 1], FileReadLine(@ScriptDir & "/data/text/" & $HELP_ID & ".txt", $COUNT))
Next
EndFunc
Func _HELPEND()
GUIDelete($SGUI)
EndFunc
Func _OPTIONCREATE()
$FORM2 = GUICreate("Opcje", 219, 297, 665, 124)
$GROUP1 = GUICtrlCreateGroup("Podstawowe", 8, 8, 201, 129)
$LABEL1 = GUICtrlCreateLabel("Reloguj po", 16, 32, 55, 17)
$CRELOG = GUICtrlCreateCombo("", 72, 28, 49, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Nie reloguj|5|10|15|25|50|100|200", "15")
$LABEL2 = GUICtrlCreateLabel("obstawieniach.", 128, 32, 75, 17)
$LABEL3 = GUICtrlCreateLabel("Zakoncz jezeli pozostalo", 16, 56, 120, 17)
$IMING = GUICtrlCreateInput("0", 72, 76, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$LABEL4 = GUICtrlCreateLabel("zlota.", 128, 80, 29, 17)
$IMINM = GUICtrlCreateInput("0", 72, 100, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$LABEL5 = GUICtrlCreateLabel("grzybkow.", 128, 104, 52, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP2 = GUICtrlCreateGroup("Ilosc", 8, 144, 201, 113)
$CGO[0] = GUICtrlCreateCheckbox("Obstawiaj zloto", 16, 160, 97, 17)
$ISTAWKAG = GUICtrlCreateInput("", 112, 180, 41, 21)
$LABEL60 = GUICtrlCreateLabel("Zaczynaj od stawki", 16, 184, 95, 17)
$LABEL70 = GUICtrlCreateLabel("zlota.", 160, 184, 29, 17)
$CGO[1] = GUICtrlCreateCheckbox("Obstawiaj grzyby", 16, 208, 97, 17)
$LABEL80 = GUICtrlCreateLabel("Zaczynaj od stawki", 16, 232, 95, 17)
$ISTAWKAM = GUICtrlCreateInput("", 112, 228, 41, 21)
$LABEL90 = GUICtrlCreateLabel("grzybow.", 160, 232, 46, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$BSAVE = GUICtrlCreateButton("Zapisz", 8, 264, 75, 25)
GUICtrlSetState($LABEL60, $GUI_DISABLE)
GUICtrlSetState($LABEL70, $GUI_DISABLE)
GUICtrlSetState($ISTAWKAG, $GUI_DISABLE)
GUICtrlSetState($LABEL80, $GUI_DISABLE)
GUICtrlSetState($LABEL90, $GUI_DISABLE)
GUICtrlSetState($ISTAWKAM, $GUI_DISABLE)
GUISetState(@SW_SHOW)
GUISetOnEvent(-3, "_OptionsDestroy", $FORM2)
GUICtrlSetOnEvent($BSAVE, "_OptionsSave")
GUICtrlSetOnEvent($CGO[0], "checked")
GUICtrlSetOnEvent($CGO[1], "checked")
EndFunc
Func _OPTIONSSAVE()
$SDATA[0] = GUICtrlRead($CRELOG)
$SDATA[1] = GUICtrlRead($IMING)
$SDATA[2] = GUICtrlRead($IMINM)
$SDATA[3] = GUICtrlRead($CGO[0])
$SDATA[4] = GUICtrlRead($CGO[1])
$SDATA[5] = GUICtrlRead($ISTAWKAG)
$SDATA[6] = GUICtrlRead($ISTAWKAM)
DirCreate(@ScriptDir & "\temponary")
For $I = 0 To 6
$TEMP = FileWrite(@ScriptDir & "\temponary\options.txt", $SDATA[$I] & @CRLF)
ConsoleWrite($TEMP)
Next
_OPTIONSDESTROY()
SLD("Dane zapisane...")
EndFunc
Func _OPTIONSDESTROY()
GUIDelete($FORM2)
EndFunc
Func SLD($TEXT)
GUICtrlCreateListViewItem(@HOUR & ":" & @MIN & ":" & @SEC & "|" & $TEXT, $LIST1)
_GUICTRLLISTVIEW_SCROLL($LIST1, 0, 90)
EndFunc
Func STOP()
$GO = Not $GO
Return $GO
EndFunc
Func CHECKED()
$UNO = GUICtrlRead($CGO[0])
If $UNO = 1 Then
GUICtrlSetState($LABEL60, $GUI_ENABLE)
GUICtrlSetState($LABEL70, $GUI_ENABLE)
GUICtrlSetState($ISTAWKAG, $GUI_ENABLE)
Else
GUICtrlSetState($LABEL60, $GUI_DISABLE)
GUICtrlSetState($LABEL70, $GUI_DISABLE)
GUICtrlSetState($ISTAWKAG, $GUI_DISABLE)
EndIf
$DOS = GUICtrlRead($CGO[1])
If $DOS = 1 Then
GUICtrlSetState($LABEL90, $GUI_ENABLE)
GUICtrlSetState($LABEL80, $GUI_ENABLE)
GUICtrlSetState($ISTAWKAM, $GUI_ENABLE)
Else
GUICtrlSetState($ISTAWKAM, $GUI_DISABLE)
GUICtrlSetState($LABEL80, $GUI_DISABLE)
GUICtrlSetState($LABEL90, $GUI_DISABLE)
EndIf
EndFunc

Func profile()
ShellExecute("http://www.mpcforum.pl/user/256508-fli-pl/")
EndFunc

Func Dircheck()
If DirGetSize(@ScriptDir & "\temponary") >= 0 Then
DirRemove(@ScriptDir & "\temponary", 1)
EndIf
EndFunc
; DeTokenise by myAut2Exe >The Open Source AutoIT/AutoHotKey script decompiler< 2.11 build(180)

 

 

Jedyny mankament jest taki, że bot nie podnosi jednego kubeczka a losowy, ponieważ ma to coś wspólnego z parametrem rnd, który zostawiony jako stała nie zmienia nic a nic w działaniu bota.

 

Dodatkowo dorzucam paczuszkę zbędnych grafik i tekstów do GUI i pomocy (zrobiłem to w ten sposób aby cos przetestować )

 

http://speedy.sh/89Ge2/Shakes-Fidget-HazardBot-beta.7z

https://www.virustotal.com/file/bd3576e9528a8df2dee0a2fc11b71a90d6cf184a78ad66ce696e12855877447d/analysis/1350821521/

 

Pozdrawiam, licze na opinie :]

[jogi997]

Fajny bocik

Jedynie bym grafike zmienił trochę

10/10

[Syndicate]

@Up spam.

przenosi na główną stronę yt

[miejscowy]

Pytanie, jak wyciągałeś dane do _WINHTTPSIMPLEREQUEST ?

[Fli_PL]

Za pomocą dodatku do mozilli firefox Live http headers monitorowałem przepływ pakietów na drodze mój komputer - serwer gry, i z nich odczytałem informacje, polecam poczytac na temat HTTP Request.

[rambow]

Zrób Tutorial

[rambow]

Niestety twój "bot" nie działa, żadnych porad, tutoriali .

Temat off?

[waiktor]

niedziała

[rambow]

Pewnie jakiś wirus, którego antivirus nie wyszukuje

Bo dziwnym trafem wydajność internetu spadła mi 40 krotnie

 

 

TROLL

[rambow]

Ładny bot ;]

Trojan niewykryty

 

Zróbcie coś z tym i nie ściągajcie tego!!!

Przez to ktoś używa mojego IP

I nic przez moje IP nie działa / muszę zmienić

 

żałosne

 

 

 

i takie coś dla kozaków administratorów

 

Double post hahahahah

Piszę co myślę a wy mi tu za jakieś gówno punkty dajecie

Jakby bym to pisał po minucie 1 post

 

żałosne 2x

 

 

//Też jestem wdzięczny administracji za cały wolny czas który wkładają w forum.

//Niestety, ale nie mam nic lepszego do roboty od dawania warnów za dbl posty, nawet pomimo tego że wszystko jest w regulaminie.

//Xau

[Fli_PL]

lol człowieku na koncercie byłem, ogarnij spam co ty pierdolisz, żeby nie pobierać masz cały kod, przeanalizuj. Jest w tym jakiś syf? Teraz już wiem czemu net zamula, a TROLL to robi spam bo nie umie się zaobsłuzyć lekko skomplikowanym kodem programu czytaj ty.

 

P.S. rozwaliłes mnie tym "ktoś mojego IP teraz używa" haha ;D żałosne.

[rambow]

Skomplikowane jest wpisanie loginu hasło serwera i od czego zacząć, tak masz racje ;]

Ten twój program zawierał jakieś katastroficzne błędy, ponieważ wydajność internetu jak też już napisałem dokladnie spadła 40 razy(ponad) dowód; ściąganie pliku muzycznego przed: ok. 500mb/s teraz : do 15mb/s

Na youtube przed oglądałem bez problemu 1080p, 720p teraz ledwo 240p

 

Dopatrz się błędów i napisz

[Fli_PL]

katastroficzne błędy to ty masz w głowie, trzeba pozamykać każdą otwartą operację Winhttp i cyli raptem kilka _WinHttpClose czy jak to leciało i całe KATASTROFICZNE BŁĘDY POWODUJĄCE KONIEC ŚWIATA znikają.

 

Ja tego nie zrobię, bo mi się nie chce.

[rambow]

Takie rzeczy mówi się na wstępie,

podałeś? no raczej nie

 

Zamiast normalnie napisać/rozwiązać problem robisz niepotrzebne posty

 

Zamknąłem w procesach win , nie jestem amatorem

 

;]

[KAMIKADZEKKS]

up.

Raport za dublowanie - masz takie coś jak edit

 

Co do kodu - dobry, działa. Sprawdzałem.

[rambow]

Jakie dublowanie noobie?

Wiesz co to k* dublowanie?

1 post pod 2 w krótkim czasie

nie znasz się to się k* nie odzywaj

 

Sorki za ***, ale jak widze taki spam/gówno to już nie wytrzymuję

A co robię niby?nie edytuję? popatrz się

 

Raport za spam

 

 

 

 

 

Winlog mam zostawić nie ???

 

Edytuje żeby nie było durnych postów, że spamuje

[hfaua]

Winlog mam zostawić nie ???

A podobno nie jesteś amatorem...

[rambow]

Kolejny nap?

Pytam się tylko, bo piszę, że to jest aplikacja logowania systemu windows, więc się chce upewnić.

 

Spam

 

 

@1up Nie jestem amatoren

 

Hm bo wiem , że to kurde jest w menedżerze zadań !

Zawsze musi być jakiś głupi komentarz

[hfaua]

Tu jest takich aż 8 i wszystkie Twoje.

[rambow]

Moje z sensem a twoje bez

Ja już sobie wyjaśniłem co i jak.

[Loude]

Kurwa czlowieku co ty wypisujesz? *Nothing to do here*

 

@Topic

Bardzo fajny bocik

[dominikczek]

Bocik jest spoko dobrze działa prawie cały czas znajduje kulkę pod kubeczkiem. Tylko była by taka sprawa czy mógł byś go tak przerobić żeby obstawiał tylko wyznaczoną ilośc kasy bo jak wpisuje 2 to on potem 4,8,16 i tak dalej zaczyna obstawiać A ja mam chyba 16 poziom więc nie mam strasznie dużo kasy

[Fli_PL]

@up edytowałem kod w pierwszym poście, przeczytaj komentarz w linijce 151.

[ignorehax]

Odkąd ucze się AutoIt zauwazam, że kod bardzo prosty. Ale bocik fajny . Masz Like It!!

[sek125]

Super Leci +