ASB - Pierwszy Polski bot do gry HeroZero

Konrado28 · 7 Lutego 2016

Chcemy grać z botem, tylko coś niestety nie działa

czapla112 · 7 Lutego 2016

Poco komuś bot do HeroZero uszanujcie chociaż gry przeglondarkowe gra jest poto żeby grać i rozwijać grę i postać a nie żeby ściągać bota i grać na botak to bez sensu... ja nie gram na botach i dobrze mam rozwiniętą postkę sami zdecydujcie czy chcecie grac na botach czy nie...

Nikt Ci nie każe używać bota.. Jeśli Cię to nie interesuje to po co tu zaglądasz? Ja lubię organizować sobie czas i wiele rzeczy automatyzować więc mnie to interesuje

Chris. · 10 Lutego 2016

Kiedy będzie dostępna wersja bota pracującego w tle? Nawet płatna

SK4Z4NI3C · 23 Lutego 2016

Jak to pobrać ??

Ozzzj · 24 Lutego 2016

Nowa strona: http://www.e-smolinski.pl

Wchodzimy w zakładkę z Boty i pobieramy.

Nie długo będzie v1 :P

Kiedy będzie dostępna wersja bota pracującego w tle? Nawet płatna

Planuje napisać wersję pod Linuxa i napisać poradnik jak stawiać Bota pod VPS.

Musiałbyś wtedy płacić mniej więcej, około 12 zł czy coś tego typu za 1 mieś ciągłego expienia bota dzień w dzień.

Płaciłbyś tylko za poradnik i wersje linux u mnie jeden raz, załóżmy 20 zł a potem już tylko bezpośrednio u dostawcy VPS.

Poradnik możesz też zobaczyć na necie, ale ja pokaże Ci bezpośrednio pod bota.

Sorry że tak długo odpowiadałem ale nie zaglądałem tutaj wieki :P

Ozzzj · 25 Lutego 2016

@Edit
USUNIĘTO REFY, I LECI HEJT NA DOSTAWCE REFÓW:

TYP ZMIENIA CO CHWILE LINKA PRZEZ CO BOT WARIUJE BO NIE WIE KTO ROBIL A KTO NIE.

USUWAM JE DO ODWOŁANIA

TERAZ MOŻNA GENEROWAĆ TO BEZ KLIKANIA SKIP AD :P

HyperLogic · 29 Lutego 2016

Nie działa :/

Działa tylko pomijanie walk, a wszystko zrobiłem tak jak w poradniku...

Ozzzj · 29 Lutego 2016

Nie działa :/

Działa tylko pomijanie walk, a wszystko zrobiłem tak jak w poradniku...

Podałeś prawidłowy czas? (+ 1 od maksymalnego czasu walki rękawicy)

Masz res 1,3k? bo jeżeli wyższa lub niżą może nie działać aż do v1 (która będzie nie długo)

HyperLogic · 1 Marca 2016

No tak mam rozdzielczość full HD :/ i tak podałem +1 min . Dzięki za udzielenie odpowiedzi, a więc spokojnie poczekam do wersji v1

edit. a tak w przybliżeniu możesz powiedzieć kiedy będzie wersja V1 ?

nevil112 · 2 Kwietnia 2016

nie ogarniam jak to skonfigurowac /dziala w tle ?

Ozzzj · 5 Kwietnia 2016

nie ogarniam jak to skonfigurowac /dziala w tle ?

W tle bedzie dzialala wersja premium ktora prawdopodobnie nigdy nie powstanie bo nawet v1.0 nie chce mi sie robic. :P

Opis jak to skonfigurować jest na youtube, wpisz asb bot

Ozzzj · 6 Maja 2016

Chyba nie długo skończę v1!

Pozostało czekać

pomocyomg · 14 Maja 2016

Witam nie mam instalki po kliknięciu aktualizuj

Ozzzj · 15 Maja 2016

może jest w folderze download? jeżeli nie, to stwórz folder download i zobacz czy się pojawi tam.
A jeżeli dalej nie będzie, to po prostu masz najnowszą wersje bota.

Ozzzj · 3 Sierpnia 2016

Nie chce mi się robić tego bota, wyszło tyle aktualizacji itp w herozero że nie mam chęci.
Zająłem się czym innym, porzucam projekt. Kod źródłowy daje niżej + pliki w których jest kod, oraz wygląd, itp.
Kod tragiczny, wiem, wiem. Zrzekam się praw można robić z tym (o ile sie da) co chcecie.

EDIT: Oczywiście bot niżej nie jest skończony.

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.12.0
 Author:         Oskar Smoliński

 Script Function:
	HeroZero BOT

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <file.au3>
#include <SkinCrafter.au3>
#include <Misc.au3>

_loadskincrafter("GUI/GUI.dll")

$GUI = GUICreate("HeroZeroBOT v1.0 - By Oskar Smoliński", 801, 418, 218, 130)
_initializeskincrafter($GUI, "GUI/GUI.skf")

#Region ### CONNECT GUI ###
; INTERNET CONNECT FTP BASE 'CO NOWEGO & WERSJA & CHAT'
ProgressOn("Loading..", "Wait for 100%", "0%")
  ProgressSet(10, "Creating...", "Creating News...")
       Local $Nowosci = _IECreate("http://www.bluepower.y0.pl/news/conowego.txt", 0, 0, 1)
        $i = _IEAction($Nowosci, 'refresh')
         $i += 1
  ProgressSet(20, "Creating.", "Creating new version.")
	Local $Wersja = _IECreate("http://www.bluepower.y0.pl/news/najnowszawersja.txt", 0, 0, 1)
	   $i = _IEAction($Wersja, 'refresh')
         $i += 1
  ProgressSet(40, "Creating..", "Creating ID and CODES...")
		 Local $Ref = _IECreate("http://www.bluepower.y0.pl/news/Ref.txt", 0, 0, 1)
	   $i = _IEAction($Ref, 'refresh')
         $i += 1
  ProgressSet(50, "Creating...", "Creating Chat...")
		 Local $chat = _IECreate("http://www.bluepower.y0.pl/chat/sss.txt", 0, 0, 1)
	   $i = _IEAction($Chat, 'refresh')
         $i += 1
  ProgressSet(60, "Loading.", "Loading News.")
       Local $Nowosci_Read = _IEBodyReadText($Nowosci)
  ProgressSet(70, "Loadning..", "Loadning new version..")
	   Local $Wersja_Read = _IEBodyReadText($Wersja)
  ProgressSet(83, "Loadning...", "Loading ID and CODES...")
	  Local $Ref_Read = _IEBodyReadText($Ref)
  ProgressSet(100, "Loading.", "Loading Chat.")
	  Local $Chat_Read = _IEBodyReadText($chat)
	  _IEQuit($Nowosci)
	  _IEQuit($Wersja)
	  _IEQuit($Ref)
	  ; Stworzenie pliku odnosnikowego do refow
	  	    Local Const $BAT_REF = FileOpen(@ScriptDir&"\BAT\REF.txt", 2)
		FileWrite($BAT_REF,$Ref_Read)
	  ProcessClose("iexplore.exe")
	    ProgressOff()
#EndRegion ### CONNECT GUI ###

#Region ### JEZYK ###
$Group2 = GUICtrlCreateGroup("", 5, 0, 495, 415, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup(" Language ", 270, 100, 110, 75, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
Global $C_Jezyk = GUICtrlCreateCombo("", 275, 120, 100, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Polish")
GUICtrlSetData(-1, "English")
$B_ZmienJezyk = GUICtrlCreateButton("Change", 278, 150, 95, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### JEZYK ###

#Region ### KOMPUTER ###
; INFORMACJE O KOMPUTERZE
$Group1 = GUICtrlCreateGroup(" Informacje ", 385, 10, 110, 85, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$Label1 = GUICtrlCreateLabel("System "&@OSType, 390, 25)
$Label2 = GUICtrlCreateLabel("X - "&@DesktopWidth, 390, 50)
$Label3 = GUICtrlCreateLabel("Y - "&@DesktopHeight, 445, 50)
$Label12 = GUICtrlCreateLabel("Nazwa", 392, 72)
GUICtrlCreateLabel(@UserName, 432, 72)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### KOMPUTER ###

#Region ### MISJE BOT ###
; MISJE BOT
$Group3 = GUICtrlCreateGroup(" Misje ", 10, 10, 255, 260, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$Label4 = GUICtrlCreateLabel("Najwiekszy czas Misji z rekawicą", 55, 28)
Global $C_Czas = GUICtrlCreateCombo("4", 20, 25, 30, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "6")
Global $I_EnergiaX = GUICtrlCreateInput("X", 20, 50, 31, 21)
Global $I_EnergiaY = GUICtrlCreateInput("Y", 55, 50, 31, 21)
$Label5 = GUICtrlCreateLabel("Kordy przycisku Energii*", 90, 55)
Global $I_WalkaX = GUICtrlCreateInput("X", 20, 75, 31, 21)
Global $I_WalkaY = GUICtrlCreateInput("Y", 55, 75, 31, 21)
$Label6 = GUICtrlCreateLabel("Kordy guzika do pominiecia walki", 90, 80)
Global $I_PrzyciskX = GUICtrlCreateInput("X", 20, 100, 31, 21)
Global $I_PrzyciskY = GUICtrlCreateInput("Y", 55, 100, 31, 21)
$Label7 = GUICtrlCreateLabel("Kordy srodkowego przycisku*", 90, 105)
Global $I_Odstep = GUICtrlCreateInput("3000", 20, 150, 66, 21)
$Label8 = GUICtrlCreateLabel("Odstęp pomiędzy przejsciami", 90, 155)
Global $I_Kolor = GUICtrlCreateInput("0xCC0A0D", 20, 175, 66, 21)
$Label9 = GUICtrlCreateLabel("Czerwony kolor rękawicy", 90, 180)
$B_MZapisz = GUICtrlCreateButton("Zapisz", 20, 200, 75, 20)
$B_MOtworz = GUICtrlCreateButton("Otworz", 100, 200, 75, 20)
$B_MStart = GUICtrlCreateButton("Start", 180, 200, 75, 20)
Global $I_MenuX = GUICtrlCreateInput("X", 20, 125, 31, 21)
Global $I_MenuY = GUICtrlCreateInput("Y", 55, 125, 31, 21)
$Label10 = GUICtrlCreateLabel("Kordy menu Misji*", 90, 130)
#EndRegion ### MISJE BOT ###

#Region ### PORADNIK MISJE ###
; PORADNIK MISJE
$Label11 = GUICtrlCreateLabel("* - Obejrzyj poradnik by wiedzieć jak to ustawić", 25, 225, 224, 17)
$przegladarka = GUICtrlCreateCombo("Explorer", 60, 245, 75, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Main")
$M_Ogladaj = GUICtrlCreateButton("Oglądaj", 140, 245, 75, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### PORADNIK MISJE ###

#Region ### TRENINGI BOT ###
; TRENINGI BOT
$Group4 = GUICtrlCreateGroup(" Treningi ", 10, 270, 255, 140, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
Global $I_TreningX = GUICtrlCreateInput("X", 20, 285, 31, 21)
Global $I_TreningY = GUICtrlCreateInput("Y", 55, 285, 31, 21)
$Label13 = GUICtrlCreateLabel("Kordy obrazka z treningiem*", 90, 290)
Global $I_Ile = GUICtrlCreateInput("10", 20, 310, 66, 21)
$Label14 = GUICtrlCreateLabel("Ile treningów zrobić", 90, 315)
$B_TZapisz = GUICtrlCreateButton("Zapisz", 19, 338, 75, 20)
$B_TOtworz = GUICtrlCreateButton("Otworz", 99, 338, 75, 20)
$B_TStart = GUICtrlCreateButton("Start", 179, 338, 75, 20)
#EndRegion ### TRENINGI BOT ###

#Region ### PORADNIK TRENINGI ###
; PORADNIK TRENINGI
$Label15 = GUICtrlCreateLabel("* - Obejrzyj poradnik by wiedzieć jak to ustawić", 17, 365, 224, 17)
$Combo2 = GUICtrlCreateCombo("Explorer", 52, 385, 75, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Main")
$T_Ogladaj = GUICtrlCreateButton("Oglądaj", 132, 385, 75, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### PORADNIK TRENINGI ###

#Region ### POBIERACZ KORDOW ###
; POBIERACZ KORDOW
$Group5 = GUICtrlCreateGroup(" Kordy ", 270, 10, 110, 85, BitOR($WS_GROUP,$BS_CENTER))
$Input14 = GUICtrlCreateInput("", 286, 46, 31, 21)
$Label16 = GUICtrlCreateLabel("Y", 325, 50, 11, 17)
$Label17 = GUICtrlCreateLabel("X", 275, 50, 11, 17)
$Input15 = GUICtrlCreateInput("", 336, 46, 31, 21)
$Label18 = GUICtrlCreateLabel("Zaznaczone kordy", 280, 25)
$B_Corrds = GUICtrlCreateButton("Pobierz kordy", 275, 70,100,20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### POBIERACZ KORDOW ###

#Region ### WERSJA + AKTUALIZACJA ###
; WERSJA + AKTUALIZACJA
$Group6 = GUICtrlCreateGroup(" Wersja ", 385, 100, 110, 75, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$Label19 = GUICtrlCreateLabel("Posiadasz: 1.0", 390, 115)
$Label20 = GUICtrlCreateLabel("Najnowsza: "&$Wersja_Read, 390, 130)
$Aktualizuj = GUICtrlCreateButton("Aktualizuj", 390, 150, 100, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### WERSJA + AKTUALIZACJA ###

#Region ### NEWSY ###
; CO NOWEGO NEWSY
$Group7 = GUICtrlCreateGroup(" Co nowego? ", 270, 175, 225, 235, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$Edit1 = GUICtrlCreateEdit($Nowosci_Read, 275, 190, 215, 214, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### NEWSY ###

#Region ### ID ORAZ KOD ###
; ID ORAZ KOD
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup(" ID oraz KOD ", 505, 0, 290, 65, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$ID = GUICtrlCreateInput("ID", 510, 15, 136, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$KOD = GUICtrlCreateInput("KOD", 650, 15, 141, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$IDCODE_Sprawdz = GUICtrlCreateButton("Zatwierdź", 510, 40, 280, 20)
#EndRegion ### NEWSY ###

#Region ### CHAT ###
; CHAT
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup(" Chat ", 505, 65, 290, 350, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$ChatBox = GUICtrlCreateEdit($Chat_Read, 510, 80, 280, 309, BitOR($ES_AUTOVSCROLL + $WS_VSCROLL,$ES_READONLY,$ES_WANTRETURN))
$Nick = GUICtrlCreateInput("User", 510, 390, 46, 21)
$Tresc = GUICtrlCreateInput("", 560, 390, 121, 21)
$Wyslij = GUICtrlCreateButton("Wyslij", 685, 390, 50, 20)
$Odswiez = GUICtrlCreateButton("Odswiez", 735, 390, 55, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### CHAT ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
	        WinSetTrans( $gui, '', 240 )
			Sleep(100)
	   		WinSetTrans( $gui, '', 220 )
			Sleep(100)
			WinSetTrans( $gui, '', 200 )
			Sleep(100)
			WinSetTrans( $gui, '', 180 )
			Sleep(100)
			WinSetTrans( $gui, '', 160 )
			Sleep(100)
			WinSetTrans( $gui, '', 120 )
			Sleep(100)
			WinSetTrans( $gui, '', 80 )
			Sleep(100)
			Exit
		 Case $B_MZapisz
			IniWrite("OPTIONS.ini","MISSION","TIME",GUICtrlRead($C_Czas))
			IniWrite("OPTIONS.ini","MISSION","ENERGYX",GUICtrlRead($I_EnergiaX))
			IniWrite("OPTIONS.ini","MISSION","ENERGYY",GUICtrlRead($I_EnergiaY))
			IniWrite("OPTIONS.ini","MISSION","FIGHTX",GUICtrlRead($I_WalkaX))
			IniWrite("OPTIONS.ini","MISSION","FIGHTY",GUICtrlRead($I_WalkaY))
			IniWrite("OPTIONS.ini","MISSION","BUTTONX",GUICtrlRead($I_PrzyciskX))
			IniWrite("OPTIONS.ini","MISSION","BUTTONY",GUICtrlRead($I_PrzyciskY))
			IniWrite("OPTIONS.ini","MISSION","MENUX",GUICtrlRead($I_MenuX))
			IniWrite("OPTIONS.ini","MISSION","MENUY",GUICtrlRead($I_MenuY))
			IniWrite("OPTIONS.ini","MISSION","SPACE",GUICtrlRead($I_Odstep))
			IniWrite("OPTIONS.ini","MISSION","COLOR",GUICtrlRead($I_Kolor))
			if not @ then MsgBox(0,"Zapisano / Saved","Zapisano pod nazwa OPTIONS.ini / Saved as name OPTIONS.ini")
			   if @ then MsgBox(0,"Error","Nie można zapisać / Program can't save file")
		 Case $B_MOtworz
			$plik_m = FileOpenDialog("Wskaż lokalizacje pliku / Select file dir", @ScriptDir & "\","ini (*.ini*)",$FD_FILEMUSTEXIST)
			; zapisywanie ich do kontrolek
			GUICtrlSetData($C_Czas, IniRead($plik_m,"MISSION","TIME",""))
			GUICtrlSetData($I_EnergiaX, IniRead($plik_m,"MISSION","ENERGYX",""))
			GUICtrlSetData($I_EnergiaY, IniRead($plik_m,"MISSION","ENERGYY",""))
			GUICtrlSetData($I_WalkaX, IniRead($plik_m,"MISSION","FIGHTX",""))
			GUICtrlSetData($I_WalkaY, IniRead($plik_m,"MISSION","FIGHTY",""))
			GUICtrlSetData($I_PrzyciskX, IniRead($plik_m,"MISSION","BUTTONX",""))
			GUICtrlSetData($I_PrzyciskY, IniRead($plik_m,"MISSION","BUTTONY",""))
			GUICtrlSetData($I_MenuX, IniRead($plik_m,"MISSION","MENUX",""))
			GUICtrlSetData($I_MenuY, IniRead($plik_m,"MISSION","MENUY",""))
			GUICtrlSetData($I_Odstep, IniRead($plik_m,"MISSION","SPACE",""))
			GUICtrlSetData($I_Kolor, IniRead($plik_m,"MISSION","COLOR",""))
			if not @ then MsgBox(0,"Załadowano / Loaded","Załadowano / Loaded")
		 Case $B_MStart
			  ProgressOn("Loading", "", "")
	          $ID_R = GUICtrlRead($ID)
			  $KOD_R = GUICtrlRead($KOD)
			  ProgressSet (70, "Read GUI Controls","70%")

			  $IE = _IECreate("http://www.bluepower.y0.pl/Uzytkownicy/"&$ID_R&".txt", 0, 0, 1)
			  $IE_R = _IEBodyReadText($IE)

			  ProgressSet (100, "Read text from Base","100%")
			  ProgressOff()
			  if $KOD_R = $IE_R Then
			GUISetState(@SW_MINIMIZE, $GUI)
		    $ESC = GUICreate("ESC",50,50,0,0,$WS_POPUP)
			  WinSetOnTop("ESC", "", 1)
			GUICtrlCreatePic("GUI\IMG\ESC.bmp",0,0,50,50)
			GUISetState(@SW_SHOW)
			HotKeySet("{ESC}","ESC")
	        ProcessClose("iexplore.exe")
		    Local $Odstep = GUICtrlRead($I_Odstep)
		    Local $Kolor = GUICtrlRead($I_Kolor)
			Local $Czas = GUICtrlRead($C_Czas)
		    Local $EnergiaX = GUICtrlRead($I_EnergiaX)
			Local $EnergiaY = GUICtrlRead($I_EnergiaY)
			Local $WalkaX = GUICtrlRead($I_WalkaX)
			Local $WalkaY = GUICtrlRead($I_WalkaY)
			Local $MenuX = GUICtrlRead($I_MenuX)
			Local $MenuY = GUICtrlRead($I_MenuY)
			Local $PrzyciskX = GUICtrlRead($I_PrzyciskX)
			Local $PrzyciskY = GUICtrlRead($I_PrzyciskY)

			Dim $iler


			if $Czas < 5 Then $iler = "100"
			If $Czas > 5 Then $iler = "75"
            MsgBox(0,"","Przygotuj się! Łącznie zostanie zrobionych: "&$iler&" Misji")

			Send("{ENTER}")

			MouseMove($PrzyciskX,$PrzyciskY)
			MouseClick("")

			Sleep($Odstep)
            MouseMove($MenuX,$MenuY)
			MouseClick("")
			Send("{ENTER}")
			Sleep($Odstep)
            MouseMove($WalkaX,$WalkaY)
			MouseClick("")
            for $i = 0 to $iler Step +1
	        Local $pixel = PixelSearch(0,0 , @DesktopWidth, @DesktopHeight, $Kolor,1)
			if Not @ Then
			Send("{ENTER}")
			MouseMove($pixel[0],$pixel[1])
			MouseClick("")
			Send("{ENTER}")
			Sleep($Odstep)
            MouseMove($EnergiaX,$EnergiaY)
			MouseClick("")
			Sleep($Odstep)
			Sleep($Czas*60000)
			MouseMove($WalkaX,$WalkaY)
			MouseClick("")
			Send("{ENTER}")
			Sleep($Odstep)
            MouseMove($WalkaX,$WalkaY)
			MouseClick("")
			Send("{ENTER}")
			MouseMove($MenuX,$MenuY)
			MouseClick("")
			Sleep($Odstep)
			Send("{ENTER}")
			MouseMove($EnergiaX,$EnergiaY)
			if @ Then
			MouseMove($PrzyciskX,$PrzyciskY)
			MouseClick("")
			Sleep($Odstep)
            MouseMove($MenuX,$MenuY)
			MouseClick("")
			Send("{ENTER}")
			Sleep($Odstep)
            MouseMove($WalkaX,$WalkaY)
			MouseClick("")
			Return 0;
	     EndIf
		 EndIf
			Next
     		 Else
		    	MsgBox(0,"Error","Nie można odczytać ID oraz KODU."&@CRLF&"Can't read ID and CODE.")
			   ProcessClose("iexplore.exe")
			EndIf
		 Case $B_TZapisz
			IniWrite("OPTIONS.ini","TRAINING","HOW_MUCH",GUICtrlRead($I_Ile))
			IniWrite("OPTIONS.ini","TRAINING","IMGX",GUICtrlRead($I_TreningX))
			IniWrite("OPTIONS.ini","TRAINING","IMGY",GUICtrlRead($I_TreningY))
						if not @ then MsgBox(0,"Zapisano / Saved","Zapisano pod nazwa OPTIONS.ini / Saved as name OPTIONS.ini")
			   if @ then MsgBox(0,"Error","Nie można zapisać / Program can't save file")
		 Case $B_TOtworz
			$plik_m = FileOpenDialog("Wskaż lokalizacje pliku / Select file dir", @ScriptDir & "\","ini (*.ini*)",$FD_FILEMUSTEXIST)
			GUICtrlSetData($I_Ile, IniRead($plik_m,"TRAINING","HOW_MUCH",""))
			GUICtrlSetData($I_TreningX, IniRead($plik_m,"TRAINING","IMGX",""))
			GUICtrlSetData($I_TreningY, IniRead($plik_m,"TRAINING","IMGY",""))
			   if not @ then MsgBox(0,"Załadowano / Loaded","Załadowano / Loaded")
		 Case $B_TStart
              ProgressOn("Loading", "", "")
	          $ID_R = GUICtrlRead($ID)
			  $KOD_R = GUICtrlRead($KOD)
			  ProgressSet (70, "Read GUI Controls","70%")
			  $IE = _IECreate("http://www.bluepower.y0.pl/Uzytkownicy/"&$ID_R&".txt", 0, 0, 1)
			  $IE_R = _IEBodyReadText($IE)
			  ProgressSet (100, "Read text from Base","100%")
			  ProgressOff()
			  if $KOD_R = $IE_R Then
			GUISetState(@SW_MINIMIZE, $GUI)
		    $ESC = GUICreate("ESC",50,50,0,0,$WS_POPUP)
			  WinSetOnTop("ESC", "", 1)
			GUICtrlCreatePic("GUI\IMG\ESC.bmp",0,0,50,50)
			GUISetState(@SW_SHOW)
			HotKeySet("{ESC}","ESC")
	        ProcessClose("iexplore.exe")
			$ile = GUICtrlRead($I_Ile)
			$TreningX = GUICtrlRead($I_TreningX)
			$TreningY = GUICtrlRead($I_TreningY)

			for $i = 0 to $ile Step +1
			   Sleep(2000)
			   MouseMove($TreningX,$TreningY)
			   MouseClick("")
			   Send("{ENTER}")
			   Send("{ENTER}")
			   Sleep(1000*360)
			   Sleep(5000)
			   Send("{ENTER}")
			   Sleep(100)
			   Send("{ENTER}")
			Next

			Else
		    	MsgBox(0,"Error","Nie można odczytać ID oraz KODU."&@CRLF&"Can't read ID and CODE.")
			   ProcessClose("iexplore.exe")
			EndIf
		 Case $B_ZmienJezyk
	  #Region LANG
	  Global $ini_file = "LANG\"&GUICtrlRead($C_Jezyk)&".ini"
	  ; [COMPUTER]
	  GUICtrlSetData($Group1, IniRead($ini_file, "COMPUTER", "1", ""))
	  GUICtrlSetData($Label12, IniRead($ini_file, "COMPUTER", "2", ""))
	  ; [MISSION]
	  GUICtrlSetData($Group3, IniRead($ini_file, "MISSION", "1", ""))
	  GUICtrlSetData($Label4, IniRead($ini_file, "MISSION", "2", ""))
	  GUICtrlSetData($Label5, IniRead($ini_file, "MISSION", "3", ""))
	  GUICtrlSetData($Label6, IniRead($ini_file, "MISSION", "4", ""))
	  GUICtrlSetData($Label7, IniRead($ini_file, "MISSION", "5", ""))
	  GUICtrlSetData($Label10, IniRead($ini_file,"MISSION", "6", ""))
	  GUICtrlSetData($Label8, IniRead($ini_file, "MISSION", "7", ""))
	  GUICtrlSetData($Label9, IniRead($ini_file, "MISSION", "8", ""))
	  ; [TRENING]
	  GUICtrlSetData($Group4, IniRead($ini_file, "TRENING", "1", ""))
	  GUICtrlSetData($Label13, IniRead($ini_file, "TRENING", "2", ""))
	  GUICtrlSetData($Label14, IniRead($ini_file, "TRENING", "3", ""))
	  ; [CORRDS]
	  GUICtrlSetData($Group5, IniRead($ini_file, "CORRDS", "1", ""))
	  GUICtrlSetData($Label18, IniRead($ini_file, "CORRDS", "2", ""))
	  GUICtrlSetData($B_Corrds, IniRead($ini_file, "CORRDS", "3", ""))
	  ; [VERSION]
	  GUICtrlSetData($Group6, IniRead($ini_file, "VERSION", "1", ""))
	  GUICtrlSetData($Label19, IniRead($ini_file, "VERSION", "2", ""))
	  GUICtrlSetData($Label20, IniRead($ini_file, "VERSION", "3",""))
	  GUICtrlSetData($Aktualizuj, IniRead($ini_file, "VERSION", "4",""))
	  ; [NEWS]
	  GUICtrlSetData($Group7, IniRead($ini_file, "NEWS", "1", ""))
	  ; [IDCODE]
	  GUICtrlSetData($Group8, IniRead($ini_file, "IDCODE", "1", ""))
	  GUICtrlSetData($IDCODE_Sprawdz, IniRead($ini_file, "IDCODE", "2", ""))
	  ; [CHAT]
	  GUICtrlSetData($Wyslij, IniRead($ini_file, "CHAT", "1", ""))
	  GUICtrlSetData($Odswiez, IniRead($ini_file, "CHAT", "2", ""))
	  ; [BUTTON]
	  GUICtrlSetData($B_MZapisz, IniRead($ini_file, "BUTTON", "3", ""))
	  GUICtrlSetData($B_MOtworz, IniRead($ini_file, "BUTTON", "2", ""))
	  GUICtrlSetData($B_MStart, IniRead($ini_file, "BUTTON", "1", ""))
	  GUICtrlSetData($B_TStart, IniRead($ini_file, "BUTTON", "1", ""))
	  GUICtrlSetData($B_TOtworz, IniRead($ini_file, "BUTTON", "2", ""))
	  GUICtrlSetData($B_TZapisz, IniRead($ini_file, "BUTTON", "3", ""))
	  ; [TUT]
	  GUICtrlSetData($Label11, IniRead($ini_file, "TUT", "1", ""))
	  GUICtrlSetData($Label15, IniRead($ini_file, "TUT", "1", ""))
	  GUICtrlSetData($M_Ogladaj, IniRead($ini_file, "TUT", "2", ""))
	  GUICtrlSetData($T_Ogladaj, IniRead($ini_file, "TUT", "2", ""))
    #EndRegion LANG
         Case $Wyslij
      	ProgressOn("Wysyłanie wiadomości / Message was sending", "Proszę czekać aż będzie 100% / Wait for 100%", "0%")
	    ProgressSet(10, "Wysyłanie / Sending", "Sending message")
	    $Nick_W = GUICtrlRead($Nick)
	    $Tresc_W = GUICtrlRead($Tresc)
		; POBRANIE WLASCIWOSCI ZE STR
        Local $oIE = _IECreate("www.bluepower.y0.pl/chat/chat.php",1,0,1)
        Local $oForm = _IEFormGetObjByName($oIE, "chat")
        Local $oText = _IEFormElementGetObjByName($oForm, "nick")
        Local $oText2 = _IEFormElementGetObjByName($oForm, "message")
		; WPISANIE WARTOSCI Z CHATA W WARTOSCI ZE STR I WYSLANIE
        _IEFormElementSetValue($oText, $Nick_W)
        _IEFormElementSetValue($oText2, $Tresc_W)
        _IEFormSubmit($oForm)

        ProgressSet(46, "Ładowanie / Loading", "Ładowanie nowych wiadomości / Loading new messages")
	    $Chat_I_WIAD = _IECreate("http://www.bluepower.y0.pl/chat/sss.txt", 0, 0, 1)
	    $i = _IEAction($Chat_I_WIAD, "refresh")
	         $i += 1
	    Global $Read_Chat = _IEBodyReadText($Chat_I_WIAD)
        GUICtrlDelete($ChatBox)
        GUICtrlDelete($Tresc)
        GUICtrlDelete($Nick)
        $ChatBox = GUICtrlCreateEdit($Read_Chat, 510, 80, 280, 309, BitOR($ES_AUTOVSCROLL + $WS_VSCROLL,$ES_READONLY,$ES_WANTRETURN))
        $Tresc = GUICtrlCreateInput("", 560, 390, 121, 21)
        $Nick = GUICtrlCreateInput($Nick_W, 510, 390, 46, 21)
        _IEQuit($oIE)
        _IEQuit($Chat_I_WIAD)
        ProgressSet(100, "OK", "Wysłano wiadomość / Message send!")
        ProgressOff()
	     Case $Odswiez
			$Nick_W = GUICtrlRead($Nick)
	  	    $Chat_I_WIAD = _IECreate("http://www.bluepower.y0.pl/chat/sss.txt", 0, 0, 1)
	    $i = _IEAction($Chat_I_WIAD, "refresh")
	         $i += 1
	    Global $Read_Chat = _IEBodyReadText($Chat_I_WIAD)
        GUICtrlDelete($ChatBox)
        GUICtrlDelete($Tresc)
        GUICtrlDelete($Nick)
        $ChatBox = GUICtrlCreateEdit($Read_Chat, 510, 80, 280, 309, BitOR($ES_AUTOVSCROLL + $WS_VSCROLL,$ES_READONLY,$ES_WANTRETURN))
        $Tresc = GUICtrlCreateInput("", 560, 390, 121, 21)
        $Nick = GUICtrlCreateInput($Nick_W, 510, 390, 46, 21)
        _IEQuit($Chat_I_WIAD)
	     Case $IDCODE_Sprawdz
    ProgressOn("Loading base", "Wait", "0%")
    ProgressSet(0, "Reading base", "Reading ID and CODE")
	$ID_R = GUICtrlRead($ID)
    $IE = _IECreate("http://www.bluepower.y0.pl/Uzytkownicy/"&$ID_R&".txt", 0, 0, 1)
    ProgressSet(100, "OK", "Complete")
    ProgressOff()
    $KOD_R = GUICtrlRead($KOD)
    $IE_R = _IEBodyReadText($IE)
    if $KOD_R = $IE_R Then
    $unkodak = _IECreate("http://www.bluepower.y0.pl/unkodak.php", 0, 0, 1)
	_IELoadWait($unkodak)
	ProcessClose("iexplore.exe")
	GUICtrlSetData($IDCODE_Sprawdz,"OK")
    GUICtrlSetState($IDCODE_Sprawdz, $GUI_DISABLE )
	    GUICtrlSetState($KOD, $GUI_DISABLE )
		    GUICtrlSetState($ID, $GUI_DISABLE )
	 Else
	$msg = MsgBox(0,"Error","Złe ID/KOD. Próbuj dalej, pamiętaj że wielkość znaków czy też spacje mają znaczenie!"&@CRLF&"Bad ID/CODE! Good luck next time, don't paste .txt and remove spaces.")
 EndIf
		 Case $B_Corrds
			GUISetState(@SW_HIDE, $GUI)
	    $invisible = GUICreate("InVisible",@desktopwidth,@desktopheight,0,0,$WS_POPUP)
	$x = GUICtrlCreateInput("", 5, 200, 50, 20, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $y = GUICtrlCreateInput("", 5, 222, 50, 20, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
	GUICtrlCreatePic("GUI\IMG\frame.bmp",5,196,50,50)
		 GUISetCursor(3)
		WinSetTrans( $invisible, '', 100 )
	    WinSetOnTop("InVisible", "", 1)
			GUISetState(@SW_SHOW, $invisible)
			 $dll = DllOpen("user32.dll")
            While 1
			$Pos =	MouseGetPos()
             sleep(10)
            GUICtrlSetData($x,$Pos[0])
            GUICtrlSetData($y,$Pos[1])
           If _IsPressed("01", $dll) Then
			  pobranie()
            ExitLoop
			EndIf
               WEnd
	EndSwitch
WEnd

Func pobranie()
   $Pos =	MouseGetPos()
			GUICtrlSetData($input14,$Pos[0])
			GUICtrlSetData($input15,$Pos[1])
			Sleep(100)
			GUIDelete($invisible)
			DllClose($dll)
			GUISetState(@SW_SHOW,$GUI)
   EndFunc

Func ESC()
Exit
   EndFunc

pliki do źródłowe do pobrania tutaj
http://www.wyslij-plik.pl/pokaz/871908---2j7b.html

Ozzzj · 8 Sierpnia 2016

#MałyEdit

Bot może zostanie wznowiony, ale w c++.
Będzie działał w tle, lecz będzie płatny co miesiąc.

mafovsky · 21 Sierpnia 2016

Działa ten bot jeszcze i jest darmowy ?

froso · 6 Listopada 2016

Świetna strona z pobraniem

MagicOfAntek · 10 Grudnia 2016

Witam, po uruchomieniu, skonfigurowaniu i wystartowaniu bota pyta się o jakieś ID i KOD. Skąd można to zdobyć? Dziękuję i pozdrawiam.

Ozzzj · 30 Stycznia 2017

Ten bot to już legenda, nie ma co go pobierać... Jak już tak bardzo się napaliliście to zapraszam tutaj do kolegi, jego w dodatku działa w tle:
mpcforum.pl/topic/1592912-bot-hero-zero

ProZiomek331 · 1 Lutego 2017

Ten bot to już legenda, nie ma co go pobierać... Jak już tak bardzo się napaliliście to zapraszam tutaj do kolegi, jego w dodatku działa w tle:

mpcforum.pl/topic/1592912-bot-hero-zero

Chyba jeszcze nie dziala

CycekTeam · 6 Lutego 2017

slabo to wyglada takie dobre 2/10

D4w · 11 Lutego 2017

Działa nadal ten bot? Jak tak,to czy działa również na serwery zagraniczne,czy tylko na polskie?

MozYYY · 11 Lutego 2017

Działa nadal ten bot? Jak tak,to czy działa również na serwery zagraniczne,czy tylko na polskie?

Ten bot to już legenda, nie ma co go pobierać... Jak już tak bardzo się napaliliście to zapraszam tutaj do kolegi, jego w dodatku działa w tle:

mpcforum.pl/topic/1592912-bot-hero-zero

Czego w tym nie rozumiesz?

Issia · 11 Lutego 2017

Skoro bot nie działa to zamykam temat i przenoszę do kosza.

Zaloguj się

👋 Witaj na MPCForum!

ASB - Pierwszy Polski bot do gry HeroZero

Rekomendowane odpowiedzi

Zarchiwizowany