BotLoader (by NBA)

12/28/2008 23:06 NBA#1
So,
da ich Blauwiggles thread nicht allzu sehr mit updates verwischen will, werde ich meinen BotLoader kuenftig hier posten.
Es wird so schnell wie moeglich ein neuer bot/ein neues tool eingebunden.
Auf Anfrage mach ich den Source OpenSource, aber wehe es haut mir dann einer eine runter weil es "unsauber geschrieben" ist...

Heute ist der Offizielle start vom BotLoader Projekt, mit v.1.2 (1.0 und 1.1 waren betas, hab ich vergessen es dazuzuschreiben...)

Konstruktive Kritik ist auch gefragt!

Verbesserungsvorschlaege werden umgesetzt sofern es fuer mich moeglich ist.

Die Bots werden auf nbarena.bplaced.net hochgeladen, wer etwas dagegen hat das sein bot dort hochgeladen wird, soll es in diesem thread sagen!

Dann loesche ich den Bot natuerlich, bzw. lade ihn gar nicht erst hoch.


Aktuelle Version:

[Only registered and activated users can see links. Click Here To Register...]

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ftp.ico
#AutoIt3Wrapper_Res_Fileversion=1.2.1.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.2.12.1
	Author:         NBArena alias NBA
	
	Script Function:
	Template AutoIt script.
	
#ce ----------------------------------------------------------------------------
#include <GuiConstants.au3>
#include <Array.au3>
; Script Start - Add your code below here

GUICreate("MultiLoader v" & FileGetVersion(@ScriptFullPath), 400, 270)
GUISetState(@SW_SHOW)

Global $Balken = 0
$IniRead = IniReadSection("MuliLoader.ini", "Links")
$BotLst = GUICtrlCreateList("", 10, 10, 375)
$Menu = GUICtrlCreateMenu("Menu")
$Update = GUICtrlCreateMenuItem("Update", $Menu)
$Exit = GUICtrlCreateMenuItem("Exit", $Menu)
$UpdateRead = IniRead("MultiLoader.ini", "Update", "Update", "Not Found")
$Array = IniReadSection("MultiLoader.ini", "Links")
$Status = GUICtrlCreateProgress(10, 180, 281, 17)
$Download = GUICtrlCreateButton("Get It!", 10, 210, 281, 25, 0)
For $i = 1 To $Array[0][0]
	GUICtrlSetData($BotLst, $Array[$i][0])
Next

While 1
	Switch GUIGetMsg()
		Case $Exit
			_exit()
		Case $GUI_EVENT_CLOSE
			_exit()
		Case $Update 
			InetGet($UpdateRead, "MultiLoader.ini")
		Case $Download
			$Array = IniReadSection("MultiLoader.ini", "Links")
			$WantedBot = GUICtrlRead($BotLst)
			For $i = 1 To $Array[0][0]
				If $WantedBot = $Array[$i][0] Then
					$WantedBot = $Array[$i][1]
					ExitLoop
				EndIf
			Next
			$size = InetGetSize($Array[$i][1])
			$Link = StringSplit($WantedBot, "/")
			$var = FileSaveDialog("Choose a name.", "None", "All (*.rar ; *.*)", 2, $Link[$Link[0]])
			If Not @error Then
				InetGet($WantedBot, $var)
				While $Balken < 99
					GUICtrlSetData($Status, 100 / ($size / FileGetSize($var)))
					Exitloop
				WEnd
				sleep(1000)
				GuiCtrlSetData($Balken, 0)
				GuiCtrlSetData($Status, 0)
			EndIf
	EndSwitch
WEnd
Func _exit()
	Exit
EndFunc   ;==>_exit
MfG,
NBA
12/28/2008 23:26 xSharkoonX#2
die idee ist wirklich gut aber du musst am besten noch eine autoupdater func reinbauen oder im botloader noch im mittleren fenster "Botloader update" reinstellen

wenn dein sourcecode funktioniert kannst du ihn auch posten ;) vllt bekommste dann ein paar verbesserungstipps oder ähnliches
12/28/2008 23:27 NBA#3
Ok, ich poste mal den Source...vom AutoUpdater hab ich so ueberhaupt keine ahnung...

Hier der aktuelle code:

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Earth-Download.ico
#Obfuscator_Parameters=/cs 1/cn 1/sci 1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.2.12.1
	Author:         NBA
	
	Script Function:
	Downloaden erleichtern.
	
	
#ce ----------------------------------------------------------------------------
#include <GuiConstants.au3>
; Script Start - Add your code below here

;Das GUI

GUICreate("BotLoader v.1.2 by NBA",350,270)
GUISetState(@SW_SHOW)

$botlist = GUICtrlCreateList("", 10, 10, 300)


GUICtrlSetData($botlist, "DrunkenMaster (by Anthrax)")
GUICtrlSetData($botlist, "Eckstein Bot (by Blauwiggle)")
GUICtrlSetData($botlist, "Grasdackel Bot (by Blauwiggle)")
GUICtrlSetData($botlist, "Waypointer v1.1 (by _revo)")
GUICtrlSetData($botlist, "SpawnPoint Definer v1.0 (by _revo)")
GUICtrlSetData($botlist, "MoMe_A New Escort - mane bot (by _revo)")
GUICtrlSetData($botlist, "Memory Tool (by _wadim)")
GUICtrlSetData($botlist, "GW Multiclient")
GUICtrlSetData($botlist, "CrackIT (by Azunai)")
GUICtrlSetData($botlist, "X-Mas bot (by Anthrax)")
GUICtrlSetData($botlist, "Ele Elona Bot (by Anthrax)")
GUICtrlSetData($botlist, "GUI Builder (by Anthrax)")
GuiCtrlSetData($botlist, "WindowRenamer (by NBA)")
GuiCtrlSetData($botlist, "Spawnpoint Definer + MoveTo (by Blauwiggle)")

GuiCtrlCreateLabel("Wie soll der Bot/das Tool heissen, wenn du ihn/es gedownloadet hast?",10,160)


$beenden = GuiCtrlCreateButton("Beenden",240,210,55,22)

$Download = GUICtrlCreateButton("Download", 10, 210, 55, 22)
$Name = GUICtrlCreateInput("", 10, 180, 300)

GUICtrlCreateLabel("Achtung! Wegen Betriebsgefahren das Handbuch lesen!", 10, 250)
While 1
	$msg = GUIGetMsg()
	$ReadList = GUICtrlRead($botlist)
	$ReadName = GUICtrlRead($Name)
	If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	If $msg = $beenden then ExitLoop

	If $msg = $Download And $ReadList = "DrunkenMaster (by Anthrax)" Then
		InetGet("http://www.4n7hr4x.de/DrunkenMaster.exe", $ReadName & ".exe")
	EndIf

	If $msg = $Download And $ReadList = "Grasdackel Bot (by Blauwiggle)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20Blauwiggle/Grasdackel%20Bot.zip", $ReadName & ".zip")
	EndIf

	If $msg = $Download And $ReadList = "Eckstein Bot (by Blauwiggle)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20Blauwiggle/Eckstein%20Bot.zip", $ReadList & ".zip")
	EndIf

	If $msg = $Download And $ReadList = "Waypointer v1.1 (by _revo)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20_revo/Waypointer_v1.1.exe", $ReadName & ".exe")
	EndIf

	If $msg = $Download And $ReadList = "SpawnPoint Definer v1.0 (by _revo)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20_revo/SpawnPoint_Definer_v1.0.exe", $ReadName & ".exe")
	EndIf

	If $msg = $Download And $ReadList = "MoMe_A New Escort - mane bot (by _revo)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20_revo/mane%20bot%20v3.1.rar", $ReadName & ".rar")
	EndIf

	If $msg = $Download And $ReadList = "Memory Tool (by _wadim)" Then
		InetGet("http://wadim.kilu.de/A/update%5BGw.exe%5D/17.12.08/update.rar", $ReadName & ".rar")
	EndIf

	If $msg = $Download And $ReadList = "GW Multiclient" Then
		InetGet("http://nbarena.bplaced.net/tools/GW%20Multiclient/GW_MultiClient_2.1.rar", $ReadName & ".rar")
	EndIf

	If $msg = $Download And $ReadList = "CrackIT (by Azunai)" Then
		InetGet("http://****************/~members/azu/crackit/CrackIT.exe", $ReadName & ".exe")
	EndIf

	If $msg = $Download And $ReadList = "X-Mas bot (by Anthrax)" Then
		InetGet("http://www.4n7hr4x.de/INFINITY%20XMas-Edition.rar", $ReadName & ".rar")
	EndIf

	If $msg = $Download And $ReadList = "Ele Elona Bot (by Anthrax)" Then
		InetGet("http://www.4n7hr4x.de/INFINITY%203.0e.rar", $ReadName & ".rar")
	EndIf

	If $msg = $Download And $ReadList = "GUI Builder (by Anthrax)" Then
		InetGet("http://www.4n7hr4x.de/GuiBuilder.exe", $ReadName & ".exe")
	EndIf

	if $msg = $Download and $ReadList = "WindowRenamer (by NBA)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20NBA/WindowsRenamer.rar",$ReadName&".rar")
	EndIf
	
	if $msg = $Download and $ReadList = "Spawnpoint Definer + MoveTo (by Blauwiggle)" Then
		InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20Blauwiggle/Spawnpoint%20+%20MoveTo.zip",$ReadName&".zip")
	EndIf
	
	WEnd
12/29/2008 13:58 Ganf#4
OK, also ich würde noch:

1. eine ProgressBar hinzufügen (wie weit der download ist usw.). Wies in AutoIt geht weiß ich nicht (hab mich nie mit GUIs beschäftigt), sonst würde ich dir helfen.
2. Außerdem würde ich auch den Speicherort angeben (also ein SaveFileDialog).
3. (eine Kleinigkeit), den FormTitel auf "BotLoader v.1.2 by NBA" umändern xD.
4. (auch eine Nebensache) Das Auge ist auch wichtig. Mache die ganze Form etwas größer (wegen dem Text unter der ListBox) und die ListBox gleichlang wie der Text.


Soda, dass waren die Schönheitsoperationen von mir xD! Super!

MFG
Ganf
12/29/2008 14:41 NBA#5
Das dass da noch v1.1 im gui steht ist ein Fehler von mir , hab vergessen es zu aendern. Im code ist es jedoch richtig.

Werd mal versuchen eure ideen umzusetzen.

Ist toll das es euch gefaellt.

Mfg,
NBA
12/29/2008 15:19 Valvepro#6
Hi NBA wäre es nicht besser, wenn du es aus einer ini lesen lässt, dann kannste immer beliebig neues hinzupacken...
(ohne das die .exe ausgetauscht werden muss...und die ini kannste ja auf deinem FTP packen).


Ups, Source vergessen..

PHP Code:
#include <GUIConstants.au3>
#include <Array.au3>
HotKeySet("{esc}","_exit")
global 
$Balken 0
GUICreate
("Bot Loader by XXXXXXX"297168193125)
$BotLst GUICtrlCreateList(""8828197)
$Status GUICtrlCreateProgress(811228117)
$DownloadGUICtrlCreateButton("Get It!"8136281250)
InetGet("http://XXXXXXXXXXXXX/BotLoader","BotLoader.ini")
$Array IniReadSection("BotLoader.ini","BotLoader")
for 
$i 1 to $Array[0][0]
    
GUICtrlSetData($BotLst,$Array[$i][0])
Next
GUISetState
(@SW_SHOW)
While 
1
    
Switch GUIGetMsg()
        Case 
$GUI_EVENT_CLOSE
            _exit
()
        Case 
$Download
            $Array 
IniReadSection("BotLoader.ini","BotLoader")
            
$WantedBot GUICtrlRead($BotLst)
            for 
$i 1 to $Array[0][0]
                if 
$WantedBot $Array[$i][0then 
                    $WantedBot 
$Array[$i][1
                    
ExitLoop
                
EndIf
            
Next
            $size 
InetGetSize($Array[$i][1])
            
$Link StringSplit($WantedBot,"/")
            
$var FileSaveDialog"Choose a name.""None""All (*.rar ; *.*)",2,$Link[$Link[0]])
            If 
not @error Then
                InetGet
($WantedBot,$var)
                while 
$Balken 99
                    GUICtrlSetData
($Status,100 / ($size FileGetSize($var)))
                
WEnd
            
EndIf
    EndSwitch
WEnd

Func _exit
()
    Exit
EndFunc 
12/29/2008 15:24 exit_Z#7
hier ma von mir, vom design her ein kleiner vorschlag... einzige was noch machen musst die funktionen zu vergeben. kann dir dazu auch die kxf. geben wenn darauf aufbauen willst.
12/30/2008 16:15 NBA#8
Ok, werde ich mir mal ansehen. Iwann wirds schon gut :D

edit: Das mit der Ini sieht gut aus, werde sie auf jeden fall dazupacken, Valvepro..

edit2: Das Layout ist auch nicht schlecht, aber die Credits fehlen, exit_Z.
12/30/2008 19:56 exit_Z#9
Quote:
Originally Posted by NBA View Post
Ok, werde ich mir mal ansehen. Iwann wirds schon gut :D

edit: Das mit der Ini sieht gut aus, werde sie auf jeden fall dazupacken, Valvepro..

edit2: Das Layout ist auch nicht schlecht, aber die Credits fehlen, exit_Z.
Die fehlen nicht die werden dann ausgegeben unter tool info wenn man eines anklickt... bsp. wie man das macht kann ich dir dann zeigen.
12/30/2008 20:25 NBA#10
Ah ok...hab grad einige probs, und ein neues iface...

Neues:
Code:
-Aufteilung zwischen Bot- , Tool- und Collection List
-Collection List("Collection" von Tools der User die mehr als 3 teile gemacht haben)
-Menu, (update und get all muss noch geschrieben werden)
Mein Problem ist derzeit, das ich zwar auswaehlen kann usw, aber nichts passiert wenn ich auf download clicke.

Es muss noch gemacht werden:
Code:
-Get All
-Update
-Progress bar
-Wen man eine andere Liste anclicked muss die erste angeklickte wieder unmakiert werden
Das mit der Progress Bar und der Ini Versteh ich iwie nicht...waere nett wenn wer das machen wuerde.

Derzeitiger Code:
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\Earth-Download.ico
#Obfuscator_Parameters=/cs 1/cn 1/sci 1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
    
    
AutoIt Version3.2.12.1
    Author
:         NBA and the Epvpers Community
    
    Script 
Function:
    
Downloaden erleichtern.
    
    
#ce ----------------------------------------------------------------------------
#include <GuiConstants.au3>
#include <ProgressConstants.au3>
Script Start Add your code below here

;Das GUI

GUICreate
("MultiLoader 1.2.1"650270)
GUISetState(@SW_SHOW)
$botlist GUICtrlCreateList(""1010300)
$toollist GuiCtrlCreateList("",320,10,300)
$collectionlist GuiCtrlCreateList("",320,170,300,59)

;
Tool List
GUICtrlSetData($toollist"Waypointer v1.1 (by _revo)")
GUICtrlSetData($toollist"SpawnPoint Definer v1.0 (by _revo)")
GUICtrlSetData($toollist"Memory Tool (by _wadim)")
GUICtrlSetData($toollist"GW Multiclient (by Barnyhop)")
GUICtrlSetData($toollist"CrackIT (by Azunai)")
GUICtrlSetData($toollist"GUI Builder (by Anthrax)")
GUICtrlSetData($toollist"WindowRenamer (by NBA)")
GUICtrlSetData($toollist"Spawnpoint Definer + MoveTo (by Blauwiggle)")
;
Collection List
GuiCtrlSetData($collectionlist,"Blauwiggle Collection")
GuiCtrlSetData($collectionlist,"_revo Collection")
GuiCtrlSetData($collectionlist,"Anthrax Collection")
;
Bot List
GUICtrlSetData($botlist"DrunkenMaster (by Anthrax)")
GUICtrlSetData($botlist"Eckstein Bot (by Blauwiggle)")
GUICtrlSetData($botlist"Grasdackel Bot (by Blauwiggle)")
GUICtrlSetData($botlist"MoMe_A New Escort - mane bot (by _revo)")
GUICtrlSetData($botlist"X-Mas bot (by Anthrax)")
GUICtrlSetData($botlist"Ele Elona Bot (by Anthrax)")

$Menu GUICtrlCreateMenu("Menu")
$GetAll GuiCtrlCreateMenuItem("Get All",$Menu)
$updateMenu GUICtrlCreateMenuItem("Update",$Menu)
$exit GuiCtrlCreateMenuItem("Exit",$Menu)
$beenden GUICtrlCreateButton("Beenden"255,170,55,22)
$progressbar GUICtrlCreateProgress(10200300)
$Download GUICtrlCreateButton("Download"10170,5522)
$update GUICtrlCreateButton("Update"1301705522)

While 
1
    $msg 
GUIGetMsg()
    
$ReadBotList GUICtrlRead($botlist)
    
$ReadToolList GuiCtrlRead($toollist)
    
$ReadCollectionList GuiCtrlRead($collectionlist)
    If 
$msg $GUI_EVENT_CLOSE Then ExitLoop
    
If $msg $beenden Then ExitLoop
    
If $msg $exit Then ExitLoop

;Bot List Downloads
    
If $msg $Download And $ReadBotList "DrunkenMaster (by Anthrax)" Then
        InetGet
("http://www.4n7hr4x.de/DrunkenMaster.exe")
    EndIf


    If 
$msg $Download And $ReadBotList "Ele Elona Bot (by Anthrax)" Then
        InetGet
("http://www.4n7hr4x.de/INFINITY%203.0e.rar")
    EndIf

    If 
$msg $Download And $ReadBotList "Grasdackel Bot (by Blauwiggle)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20Blauwiggle/Grasdackel%20Bot.zip")
    EndIf


    If 
$msg $Download And $ReadBotList "X-Mas bot (by Anthrax)" Then
        InetGet
("http://www.4n7hr4x.de/INFINITY%20XMas-Edition.rar")
    EndIf
    
    If 
$msg $Download And $ReadBotList "MoMe_A New Escort - mane bot (by _revo)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20_revo/mane%20bot%20v3.1.rar")
    EndIf
;
Tool List Downloads
    
If $msg $Download And $ReadToolList "Eckstein Bot (by Blauwiggle)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20Blauwiggle/Eckstein%20Bot.zip")
    EndIf

    If 
$msg $Download And $ReadToolList "Waypointer v1.1 (by _revo)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20_revo/Waypointer_v1.1.exe")
    EndIf

    If 
$msg $Download And $ReadToolList "SpawnPoint Definer v1.0 (by _revo)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20_revo/SpawnPoint_Definer_v1.0.exe")
    EndIf

    If 
$msg $Download And $ReadToolList "Memory Tool (by _wadim)" Then
        InetGet
("http://wadim.kilu.de/A/update%5BGw.exe%5D/17.12.08/update.rar")
    EndIf

    If 
$msg $Download And $ReadToolList "GW Multiclient (by Barnyhop)" Then
        InetGet
("http://nbarena.bplaced.net/tools/GW%20Multiclient/GW_MultiClient_2.1.rar")
    EndIf

    If 
$msg $Download And $ReadToolList "CrackIT (by Azunai)" Then
        InetGet
("http://****************/~members/azu/crackit/CrackIT.exe")
    EndIf

    If 
$msg $Download And $ReadToolList "GUI Builder (by Anthrax)" Then
        InetGet
("http://www.4n7hr4x.de/GuiBuilder.exe")
    EndIf

    If 
$msg $Download And $ReadToolList "WindowRenamer (by NBA)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20NBA/WindowsRenamer.rar")
    EndIf

    If 
$msg $Download And $ReadToolList "Spawnpoint Definer + MoveTo (by Blauwiggle)" Then
        InetGet
("http://nbarena.bplaced.net/tools/Tools%20von%20Blauwiggle/Spawnpoint%20+%20MoveTo.zip")
    EndIf

;
Collection List Downloads
If $msg $Download And $ReadCollectionList "_revo Collection" Then
    InetGet
("http://nbarena.bplaced.net/tools/OpenSource/_revo%20Collection/_revo%20Collection.exe")
EndIf

If 
$msg $Download And $ReadCollectionList "Blauwiggle Collection" Then
    InetGet
("http://nbarena.bplaced.net/tools/OpenSource/Blauwiggle%20Collection/")
EndIf

If 
$msg $Download And $ReadCollectionList "Anthrax Collection" Then
    InetGet
("http://nbarena.bplaced.net/tools/OpenSource/Anthrax%20Collection/")
EndIf

WEnd 
12/30/2008 20:27 darthwitch#11
Lol wusste garnicht das exit Z blackworxx ist also leutz nix von dem kaufen oder downloaden omg altah^^
12/30/2008 20:45 NBA#12
Welch Gedankenreicher Post-.-
12/30/2008 22:00 exit_Z#13
ja so ist leider das internet ich selbst weiß garnicht wie man darauf kommt das ich blackworkx sein sollte. Würd mich schon interessieren aber nun einer sagt es 1mio glaube es so ist halt das internet. :) Nunja zurück zum thema.

Das mit der progressbar ist recht einfach schau ma in autoit da ist ne hilfe datei mit schönem bsp. dazu. Man versteht es recht schnell wenn man sich den code anschaut.

gruß

*edit: ich habe dir ma die funktionen hinzugefügt damit du weißt wie es aussehen kann bzw. was ich meinte mit der tool info. Und wenn download klickst müsste auch schon die progressbar arbeiten. Wenn willst können wir uns auch drüber unterhalten wenn du da hilfe brauchst. schau mal rein wie du es findest.

Edit2: neu hochgeladen !
12/30/2008 22:48 NBA#14
Ok, werd ich machen. Uebrigens, die BotLoader.ini heisst jezt MultiLoader.ini und wurde geupdated.

edit: Kann man FTP-Server so herrichten, das es mehr als ein Benutzerkonto gibt, damit auch andere von epvpers etwas hochladen koennen? Dann wuerde ich das machen, damit der Loader aktuell bleibt, wenn ich mal nicht da bin...

edit2: habs kapiert, wenn das jetzt noch an mein vorheriges GUI angepasst waere waers :cool: . Am besten mit blauer umrandung der buttons mit schwarzem hintergrund und gruener schrift ;)
12/31/2008 14:45 Azunai#15
Code:
Das dass da noch v1.1 im gui steht ist ein Fehler von mir , hab vergessen es zu aendern. Im code ist es jedoch richtig.
Code:
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

guicreate("BotLoader v"&FileGetVersion(@ScriptFullPath)&" by NBA")