WFAbriss - szybkie czyszczenie pola

[kolo12311]

Witam,

tak na szybko stworzyłem bota, który oczyszcza pole z chwastów. Dzięki niemu oszczędzimy na 1 monecie i na rączka sobie odpocznie.

 

Download:

https://mega.co.nz/#!9ZNDHAgA!e2GMbDZPJWLBWhxtfanW6l7hfEIzUzg2zoaDeT3gkxA

 

Skan: (8 / 49) [16%] :huh:

https://www.virustotal.com/pl/file/506ea2b7ed156825012a85e851af31142198c45243c1236121aec8ca982faec5/analysis/1387472194/

 

Wprowadzenie:

1. Pobieramy bota
2. Uruchamiamy WFAbriss.exe
3. Logujemy się w nim
4. Wybieramy numer farmy i pozycję (tj. w oknie relokacji)
5. Klikamy "Odchwaszczaj"
6. Czekamy kilka sekund
7. Kooniec.

Screen'y:

 

 

Kod AutoIt (tutaj widać, że nie ma zagrożenia):

 

 

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=favicon.ico
#AutoIt3Wrapper_Outfile=WFAbriss.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <string.au3>

$formMain = GUICreate("WFAbriss", 186, 274 + 32, @DesktopWidth * (3 / 4) - 186 / 2, @DesktopHeight / 2 - 274 / 2)
$cmbServer = GUICtrlCreateCombo("", 16, 8, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
$strList = "Serwer 1"
For $i = 2 To 20
	$strList &= "|Serwer " & $i
Next
GUICtrlSetData(-1, $strList, "Serwer 1")
GUICtrlSetCursor(-1, 0)
$inpUsername = GUICtrlCreateInput("", 16, 36, 153, 21)
GUICtrlSendMsg(-1, 0x1501, 0, "Nazwa użytkownika")
$inpPassword = GUICtrlCreateInput("", 16, 64, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
GUICtrlSendMsg(-1, 0x1501, 0, "Hasło")
$btnLogin = GUICtrlCreateButton("Zaloguj", 16, 104, 153, 25)
GUICtrlSetCursor(-1, 0)
$hr = GUICtrlCreateGroup("", 16, 144, 153, 9)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cmbFarm = GUICtrlCreateCombo("", 16, 168, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Farma 1|Farma 2|Farma 3", "Farma 1")
GUICtrlSetCursor(-1, 0)
GUICtrlSetState(-1, 0x80)
$cmbPos = GUICtrlCreateCombo("", 16, 196, 153, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Pozycja 1|Pozycja 2|Pozycja 3|Pozycja 4|Pozycja 5|Pozycja 6", "Pozycja 1")
GUICtrlSetCursor(-1, 0)
GUICtrlSetState(-1, 0x80)
$prgBar = GUICtrlCreateProgress(17, 230, 151, 9)
GUICtrlSetState(-1, 0x80)
$btnClear = GUICtrlCreateButton("Odchwaszczaj", 16, 240, 153, 25)
GUICtrlSetCursor(-1, 0)
GUICtrlSetState(-1, 0x80)
$btnClose = GUICtrlCreateButton("Zamknij", 16, 275, 153, 25)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)
Global $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Global $strRID
Global $intState = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $btnClose
			Exit
		Case $btnLogin
			If $intState = 1 Then
				GUICtrlSetState($cmbServer, 0x40)
				GUICtrlSetState($inpUsername, 0x40)
				GUICtrlSetState($inpPassword, 0x40)
				GUICtrlSetState($btnLogin, 0x40)
				GUICtrlSetData($btnLogin, "Zaloguj")
				$intState = 0
				GUICtrlSetState($cmbFarm, 0x80)
				GUICtrlSetState($cmbPos, 0x80)
				GUICtrlSetState($prgBar, 0x80)
				GUICtrlSetState($btnClear, 0x80)
			Else
				GUICtrlSetState($cmbServer, 0x80)
				GUICtrlSetState($inpUsername, 0x80)
				GUICtrlSetState($inpPassword, 0x80)
				GUICtrlSetState($btnLogin, 0x80)
				GUICtrlSetData($btnLogin, "Logowanie...")
				$oHTTP.Open("POST", "http://www.wolnifarmerzy.pl/ajax/createtoken.php")
				$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8")
				$oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20100101 Firefox/20.0")
				$oHTTP.Send("server=" & StringTrimLeft(GUICtrlRead($cmbServer), 7) & "&username=" & GUICtrlRead($inpUsername) & "&password=" & GUICtrlRead($inpPassword) & "&ref=gomffpl&retid=")
				$strRefLink = StringReplace(StringTrimRight(StringTrimLeft($oHTTP.ResponseText, 4), 2), "\/", "/")
				$bStatus = StringRight(StringLeft($oHTTP.ResponseText, 2), 1)
				If $bStatus <> "0" Then
					$oHTTP.Open("GET", $strRefLink)
					$oHTTP.SetRequestHeader("Content-Type", "text/html")
					$oHTTP.Send()
					$aResultsRID = _StringBetween($oHTTP.ResponseText, "var rid = '", "'")
					$strRID = $aResultsRID[0]
					GUICtrlSetData($btnLogin, "Zalogowano")
					Sleep(1000)
					GUICtrlSetState($btnLogin, 0x40)
					GUICtrlSetData($btnLogin, "Wyloguj")
					$intState = 1
					GUICtrlSetState($cmbFarm, 0x40)
					GUICtrlSetState($cmbPos, 0x40)
					GUICtrlSetState($prgBar, 0x40)
					GUICtrlSetState($btnClear, 0x40)
				Else
					GUICtrlSetData($btnLogin, "Błąd")
					Sleep(1000)
					GUICtrlSetState($cmbServer, 0x40)
					GUICtrlSetState($inpUsername, 0x40)
					GUICtrlSetState($inpPassword, 0x40)
					GUICtrlSetState($btnLogin, 0x40)
					GUICtrlSetData($btnLogin, "Zaloguj")
					$intState = 0
				EndIf
			EndIf
		Case $btnClear
			GUICtrlSetState($btnLogin, 0x80)
			GUICtrlSetState($cmbFarm, 0x80)
			GUICtrlSetState($cmbPos, 0x80)
			GUICtrlSetState($prgBar, 0x80)
			GUICtrlSetState($btnClear, 0x80)
			GUICtrlSetState($btnClose, 0x80)
			GUICtrlSetData($btnClear, "Odchwaszczanie...")
			For $i = 1 To 120
				$oHTTP.Open("GET", "http://s" & StringTrimLeft(GUICtrlRead($cmbServer), 7) & ".wolnifarmerzy.pl/save/abriss.php?rid=" & $strRID & "&tile=" & $i & "&position=" & StringTrimLeft(GUICtrlRead($cmbPos), 8) & "&farm=" & StringTrimLeft(GUICtrlRead($cmbFarm), 6))
				$oHTTP.Send()
				GUICtrlSetData($prgBar, ($i / 120) * 100)
			Next
			Sleep(1000)
			GUICtrlSetData($prgBar, 100)
			GUICtrlSetState($cmbFarm, 0x40)
			GUICtrlSetState($cmbPos, 0x40)
			GUICtrlSetState($prgBar, 0x40)
			GUICtrlSetData($btnClear, "Odchwaszczaj")
			GUICtrlSetState($btnClear, 0x40)
			GUICtrlSetState($btnLogin, 0x40)
			GUICtrlSetState($btnClose, 0x40)
	EndSwitch
WEnd

 

 

[bocian23xd]

Dziala to?

[kolo12311]

A czemu ma nie działać?

[AreLLeN]

Proszę autora o poprawienie programiku, bo nie działa na nowo założonych kontach.