blauwiggle's Bot + Tool Sammlung

Hallo und Herzlich Willkommen in meiner Tool Sammlung, die ich hin und wieder erweitere :)

Tool #1 - Grasdackel Bot

Der "Grasdackel Bot" ist ein Programm f�r Powerleveler. Wenn ihr wollt, dass euch eure Leecher Accounts hinterherlaufen, dann ist diese Tool wom�glich Ideal f�r euch. W�hrend ihr im original Guild Wars Fenster die Accounts rusht, werden euch im Guild Wars Fenster 1-4 die Accounts hinterher laufen. Das ganze nat�rlich im Hintergrund und mit HotKeys :)

Anleitung

1. Vorzugsweise mit dem Multi Client entsprechend viele Guild Wars Fenster �ffnen.
2. "Guild Wars" ist euer Fenster in dem ihr spielen werdet!
3. In den Steuerungsoptionen bei den Kopien "Anw�hlen: Gruppenmitglied 1 - T" um�ndern.
4. Programm �ffnen und die Anzahl ausw�hlen
5. Fertig :)

HotKeybelegung

HOME/POS1 - Bot starten
PAUSE - Bot pausieren
ENDE - Bot beenden

Code:

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Grasdackel Bot - by blauwiggle.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

; Grasdackel Bot - by blauwiggle --> http://www.epvp.de

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

$grasdackel = GUICreate("Grasdackel Bot - by blauwiggle", 308, 158, 216, 160)
$start = GUICtrlCreateButton("Start", 168, 16, 123, 25, 0)
$break = GUICtrlCreateButton("Pause", 168, 56, 123, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$end = GUICtrlCreateButton("Beenden", 168, 96, 123, 25, 0)
$r1 = GUICtrlCreateRadio("1 Account - GW1", 24, 32, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$r2 = GUICtrlCreateRadio("2 Accounts - GW2", 24, 56, 113, 17)
$r3 = GUICtrlCreateRadio("3 Accounts - GW3", 24, 80, 113, 17)
$r4 = GUICtrlCreateRadio("4 Accounts - GW4", 24, 104, 113, 17)
$Group1 = GUICtrlCreateGroup(" Wieviele Accounts? ", 8, 8, 145, 121)
$Label1 = GUICtrlCreateLabel("(c) blauwiggle", 224, 128, 69, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

Global $Paused

HotKeySet("{HOME}", "go")
HotKeySet("{PAUSE}", "pause")
HotKeySet("{END}", "exitit")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            exitit()
        Case $start
            go()
        Case $break
            pause()
        Case $end
            exitit()
    EndSwitch
WEnd

Func go()
    While 1
        If GUICtrlRead($r1) = 1 Then
            ControlSend("Guild Wars1", "", "", "{T}")
            Sleep(200)
            ControlSend("Guild Wars1", "", "", "{SPACE}")
            Sleep(5000)
        ElseIf GUICtrlRead($r2) = 1 Then
            ControlSend("Guild Wars1", "", "", "{T}")
            ControlSend("Guild Wars2", "", "", "{T}")
            Sleep(200)
            ControlSend("Guild Wars1", "", "", "{SPACE}")
            ControlSend("Guild Wars2", "", "", "{SPACE}")
            Sleep(5000)
        ElseIf GUICtrlRead($r3) = 1 Then
            ControlSend("Guild Wars1", "", "", "{T}")
            ControlSend("Guild Wars2", "", "", "{T}")
            ControlSend("Guild Wars3", "", "", "{T}")
            Sleep(200)
            ControlSend("Guild Wars1", "", "", "{SPACE}")
            ControlSend("Guild Wars2", "", "", "{SPACE}")
            ControlSend("Guild Wars3", "", "", "{SPACE}")
            Sleep(5000)
        ElseIf GUICtrlRead($r4) = 1 Then
            ControlSend("Guild Wars1", "", "", "{T}")
            ControlSend("Guild Wars2", "", "", "{T}")
            ControlSend("Guild Wars3", "", "", "{T}")
            ControlSend("Guild Wars4", "", "", "{T}")
            Sleep(200)
            ControlSend("Guild Wars1", "", "", "{SPACE}")
            ControlSend("Guild Wars2", "", "", "{SPACE}")
            ControlSend("Guild Wars3", "", "", "{SPACE}")
            ControlSend("Guild Wars4", "", "", "{SPACE}")
            Sleep(5000)
        EndIf
    WEnd
EndFunc   ;==>go

Func pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip("Der Bot wurde pausiert!", 0, 0, "Hinweis", 1)
    WEnd
    ToolTip("Der Bot ist nun wieder aktiviert!")
EndFunc   ;==>pause

Func exitit()
    Exit
EndFunc   ;==>exitit

Antivir: Nothing found
ArcaVir: Nothing found
Avast: Nothing found
AVG: Nothing found
BitDefender: Nothing found
F-Prot: Nothing found
Norman: Nothing found
Rising: Nothing found
VirusBlokAda32: Nothing found
VirusBuster: Nothing found

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

Tool #2 - Eins, zwei, drei, vier Eckstein, alles muss versteckt sein.

Dieser Bot hilft euch im Kampf gegen die Fenster in der Taskleiste. Es war eine Idee einer meiner Kunden, der sich daran st�rte, dass beim 4er HFFF Bot 5 Fenster (wegen dem Bot) zus�tzlich auf sind. Mit diesem Tool k�nnen die Fenster ganz einfach aus der Taskleiste entfernt werden und wieder eingeblendet werden :)

Anleitung
1. Die Programme m�ssen bereits laufen die ihr verstecken wollt, denn sonst kann er nichts verstecken ;)
2. Im "Eckstein Bot" m�sst ihr die Namen der Fenster eintragen, die ihr verstecken wollt.
3. Mit den Buttons "Stealth ON" und "Stealth OFF" k�nnt ihr die Fenster unsichtbar und wieder sichtbar machen.
4. Fertig :)

Hotkeybelegung

BILD HOCH - Unsichtbar machen
BILD RUNTER - Sichtbar machen
ENDE - Bot beenden

Code:

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Eckstein Bot - by blauwiggle.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

; Eckstein Bot - by blauwiggle --> http://www.epvp.de

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

$eckstein = GUICreate("Eckstein Bot - by blauwiggle", 294, 226, 525, 539)
$soff = GUICtrlCreateButton("Stealth OFF", 184, 96, 91, 41, 0)
$son = GUICtrlCreateButton("Stealth ON", 184, 48, 91, 41, 0)
$end = GUICtrlCreateButton("Beenden", 184, 144, 91, 41, 0)
$Input = GUICtrlCreateInput("Wie hei�t der Bot?", 32, 40, 121, 21)
$Input1 = GUICtrlCreateInput("Guild Wars1", 32, 72, 121, 21)
$Input2 = GUICtrlCreateInput("Guild Wars2", 32, 104, 121, 21)
$Input3 = GUICtrlCreateInput("Guild Wars3", 32, 136, 121, 21)
$Input4 = GUICtrlCreateInput("Guild Wars4", 32, 168, 121, 21)
$Group1 = GUICtrlCreateGroup(" Wie hei�en die Fenster? ", 16, 16, 153, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("(c) blauwiggle", 208, 192, 69, 17)
GUISetState(@SW_SHOW)

HotKeySet("{PGUP}", "stealth_on")
HotKeySet("{PGDN}", "stealth_off")
HotKeySet("{END}", "exitit")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $end
            Exit
        Case $son
            stealth_on()
        Case $soff
            stealth_off()
    EndSwitch
WEnd

Func stealth_on()
    WinSetState(GUICtrlRead($Input),"",@SW_HIDE)
    WinSetState(GUICtrlRead($Input1),"",@SW_HIDE)
    WinSetState(GUICtrlRead($Input2),"",@SW_HIDE)
    WinSetState(GUICtrlRead($Input3),"",@SW_HIDE)
    WinSetState(GUICtrlRead($Input4),"",@SW_HIDE)
EndFunc

Func stealth_off()
    WinSetState(GUICtrlRead($Input),"",@SW_SHOW)
    WinSetState(GUICtrlRead($Input1),"",@SW_SHOW)
    WinSetState(GUICtrlRead($Input2),"",@SW_SHOW)
    WinSetState(GUICtrlRead($Input3),"",@SW_SHOW)
    WinSetState(GUICtrlRead($Input4),"",@SW_SHOW)
EndFunc
    
Func exitit()
    Exit
EndFunc

Antivir: Nichts gefunden
ArcaVir: Nichts gefunden
Avast: Nichts gefunden
AVG: Nichts gefunden
BitDefender: Nichts gefunden
F-Prot: Nichts gefunden
Norman: Nichts gefunden
Rising: Nichts gefunden
VirusBlokAda32: Nichts gefunden
VirusBuster: Nichts gefunden

[Only registered and activated users can see links. Click Here To Register...]
�berpr�ft von [Only registered and activated users can see links. Click Here To Register...]

Tool #3 - Spambot

Anleitung

HotKeybelegung

Code:

Tool #4 - Panzerknacker

Anleitung f�r Cheat Engine 5.3
1. Den entsprechenden Bot starten
2. Cheat Engine 5.3 starten und den Prozess vom Bot laden (zu finden unter Additional Software)
3. Den Value Type auf 'Text' umstellen und rechts daneben das H�kchen bei Unicode setzten!
4. Nach der bekannten ID, welche fest im Bot eingebaut ist, suchen. Es sollte nur eine einzige Adresse gefunden werden. Mit einem Doppelklick die Adresse unten hinzuf�gen lassen.
5. In der Spalte 'Value' einen Doppelklick auf die Adresse machen und das Tool zum generieren der ID starten.
6. Die ID aus dem Key Gen mit der ID in Cheat Engine ersetzten.
7. OK klicken und den freigeschaltenen Bot in seinem vollen Umfang benutzen :)

Anleitung f�r den Panzerknacker

HotKeybelegung

Code:

Tool #5 - Spawnpoint + MoveTo
Diese Tool hat zwei Funktionen. Die erste ist die, dass man seinen aktuellen Spawnpunkt ermitteln kann und diese in eine Textdatei schreibt. Der Syntax ist hier fest vorgegeben.

Die zweite ist die, dass man einen variablen Syntax einer MoveTo Funktion eingeben kann. Die Werte werden alle 50ms neu generiert und k�nnen auf Wunsch gerundet werden.

Anleitung
Spawnpoint ermitteln
- Den Anweisungen auf dem Bildschirm folge leisten ;)

MoveTo Syntax
- An die Position gehen wo man mit dem Bot sp�ter hinlaufen m�chte und auf den Button klicken. Der Button kann nacheinader selbstverst�ndlich gedr�ckt werden. Es wird jeweils eine neue Zeile in der Textdatei geschrieben.

HotKeybelegung
ENDE - Programm beenden

Code:

#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#include <GUIConstants.au3>
#include <nomadmemory.au3>
#include <INet.au3>

; Spawnpoint + MoveTo - by blauwiggle --> http://www.epvp.de

$PID = ProcessExists("Gw.exe")
$handle = _MemoryOpen($PID)

InetGet("http://www.xtc-software.eu/filez/eXtreme/memory.ini", @TempDir & "\memory.ini", 1, 0)

#Region
$tool = GUICreate("Spawnpoint + MoveTo - by blauwiggle", 370, 377, -1, -1)
WinSetOnTop($tool, "", 1)
GUICtrlCreateGroup(" Wo stehe ich? ", 40, 8, 289, 241)
$PosX = GUICtrlCreateInput(IniRead(@TempDir & "\memory.ini", "SECTION-D", "PosX", "Fehler!"), 56, 32, 121, 21)
$PosY = GUICtrlCreateInput(IniRead(@TempDir & "\memory.ini", "SECTION-D", "PosY", "Fehler!"), 192, 32, 121, 21)
$b1 = GUICtrlCreateButton("OBEN LINKS", 56, 88, 259, 25, 0)
$i1 = GUICtrlCreateInput("", 56, 120, 121, 21)
$i2 = GUICtrlCreateInput("", 192, 120, 121, 21)
$b2 = GUICtrlCreateButton("UNTEN RECHTS", 56, 152, 259, 25, 0)
$i3 = GUICtrlCreateInput("", 56, 184, 121, 21)
$i4 = GUICtrlCreateInput("", 192, 184, 121, 21)
$b3 = GUICtrlCreateButton("SCHREIBE WERTE", 56, 216, 259, 25, 0)
GUICtrlCreateLabel("Nach Norden ausrichten!!", 128, 64, 126, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup(" Syntax - MoveTo", 8, 256, 353, 113)
$c1 = GUICtrlCreateCheckbox("Soll gerundet werden?", 24, 280, 129, 17)
$moveto = GUICtrlCreateInput("MoveTo($hwnd", 24, 304, 97, 21)
$x = GUICtrlCreateInput("", 136, 304, 105, 21)
$y = GUICtrlCreateInput("", 248, 304, 105, 21)
$b4 = GUICtrlCreateButton("SCHREIBE SYNTAX", 24, 336, 323, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion

HotKeySet("{END}", "end")

While 1
    $nMsg = GUIGetMsg()
    
    If GUICtrlRead($c1) = 1 Then
        GUICtrlSetData($x, (Round(_MemoryRead(GUICtrlRead($PosX), $handle, 'float'), 0)))
        GUICtrlSetData($y, (Round(_MemoryRead(GUICtrlRead($PosY), $handle, 'float'), 0)))
    Else
        GUICtrlSetData($x, _MemoryRead(GUICtrlRead($PosX), $handle, 'float'))
        GUICtrlSetData($y, _MemoryRead(GUICtrlRead($PosY), $handle, 'float'))
    EndIf

    Sleep(50)
    
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $b1
            GUICtrlSetData($i1, _MemoryRead(GUICtrlRead($PosX), $handle))
            GUICtrlSetData($i2, _MemoryRead(GUICtrlRead($PosY), $handle))
        Case $b2
            GUICtrlSetData($i3, _MemoryRead(GUICtrlRead($PosX), $handle))
            GUICtrlSetData($i4, _MemoryRead(GUICtrlRead($PosY), $handle))
        Case $b3
            FileWriteLine('Spawnpoint.txt', '($CurrentPosX <= ' & GUICtrlRead($i1) & ') And ($CurrentPosX >= ' & GUICtrlRead($i3) & ') And ($CurrentPosY <= ' & GUICtrlRead($i4) & ') And ($CurrentPosY >= ' & GUICtrlRead($i2) & ')')
        Case $b4
            If GUICtrlRead($c1) = 1 Then
                FileWriteLine('MoveTo.txt', GUICtrlRead($moveto) & ', ' & (Round(_MemoryRead(GUICtrlRead($PosX), $handle, 'float'), 0)) & ', ' & (Round(_MemoryRead(GUICtrlRead($PosY), $handle, 'float'), 0)) & ')')
            Else
                FileWriteLine('MoveTo.txt', GUICtrlRead($moveto) & ', ' & (_MemoryRead(GUICtrlRead($PosX), $handle, 'float')) & ', ' & (_MemoryRead(GUICtrlRead($PosY), $handle, 'float')) & ')')
            EndIf
    EndSwitch
WEnd

Func end()
    Exit
EndFunc

nagut dann poste ich meinen auch mal, und wo ich grad dabei bin noch meinen waypointer.

renamer

Code:

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

Opt("WinTitleMatchMode", 3) 

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("kknb�s window renamer", 254, 174, 192, 124)
$Group1 = GUICtrlCreateGroup("name vorher", 10, 8, 233, 53)
$Input1 = GUICtrlCreateInput("Guild Wars", 20, 28, 213, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("name nachher", 10, 74, 233, 53)
$Input2 = GUICtrlCreateInput("Guild Wars1", 20, 94, 213, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("lets do it", 42, 138, 161, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

go()

func go()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            rename()
    EndSwitch
WEnd
endfunc

func rename()
        $vorher=GUICtrlRead($Input1)
        $nachher= GUICtrlRead($Input2)
    if $vorher = "" Then
        MsgBox(0,"achtung","es wurde kein name zum �ndern angegeben!")
        go()
    EndIf
    if not WinExists($vorher) Then
        MsgBox(0,"achtung","diese fenster gibt es nicht! bitte genaue rechtschreibung beachten!")
        go()
    EndIf    
        WinSetTitle ( $vorher, "", $nachher)
        go()
EndFunc

waypointer(tt6)

Code:

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

#Region ### START Koda GUI section ### Form=d:\program files\autoit3\scite\koda\forms\waypointer.kxf
$Form1_1 = GUICreate("kknb�s waypointer", 258, 320, 462, 403)
$Group1 = GUICtrlCreateGroup("memorys", 10, 6, 235, 79)
$input1 = GUICtrlCreateInput("0xd28c54", 112, 32, 121, 21)
$input2 = GUICtrlCreateInput("0xd28c58", 112, 56, 121, 21)
$Label1 = GUICtrlCreateLabel("x coord :", 30, 32, 54, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("y coord :", 30, 56, 54, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("action", 10, 216, 235, 65)
$read = GUICtrlCreateButton("read", 26, 238, 91, 25, 0)
$save = GUICtrlCreateButton("save [F1]", 138, 238, 91, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("name of your Guild Wars client", 10, 92, 235, 49)
$Label3 = GUICtrlCreateLabel("Guild Wars", 30, 114, 66, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$input3 = GUICtrlCreateInput("", 128, 112, 17, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$input4 = GUICtrlCreateInput("", 10, 288, 235, 21)
$Group4 = GUICtrlCreateGroup("mode", 12, 146, 233, 51)
$Radio1 = GUICtrlCreateRadio("mode1", 20, 164, 53, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio2 = GUICtrlCreateRadio("mode2", 96, 164, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio3 = GUICtrlCreateRadio("mode3", 170, 164, 65, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$PID  = WinGetProcess("Guild Wars" & GUICtrlRead($Input3))
$hprocess  = _MemoryOpen($PID)
dim $xerg, $yerg, $x, $y, $mode
HotKeySet("{F1}", "save")

go()

func go()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $read
            $x = GUICtrlRead($Input1)
            $y = GUICtrlRead($Input2)
            auslesen()
    EndSwitch
WEnd
EndFunc

Opt("WinTitleMatchMode", 3) 

func auslesen()
    if not WinExists("Guild Wars" & GUICtrlRead($Input3)) then 
        MsgBox(0,"achtung!", "erst gw starten dann auf read klicken...oder richtigen namen in den optionen angeben")
        guictrlsetdata($Input4, "name angeben, modus ausw�hlen, read klicken, ist das so schwer?")
        go()
    endif        
    while 1
            $mode = 0
            $mode1 = $Radio1 And BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED
            $mode2 = $Radio2 And BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED
            $mode3 = $Radio3 And BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED
        If $mode1 = 1 Then
            $mode = 1
        ElseIf $mode2 = 1 Then
            $mode = 2
        elseif $mode3 = 1 Then
            $mode = 3
        endif    
        if $mode <> 1 and $mode <> 2 and $mode <> 3 then
            MsgBox(0,"achtung", " es wurde kein modus f�r die wegpunkte ausgew�hlt!")
            guictrlsetdata($Input4, "modus ausw�hlen und erneut auf read klicken....")
            go()
        EndIf        
            sleep(50)
            $Xerg1 = _MEMORYREAD($X, $hprocess , "int")
            $Yerg1 = _MEMORYREAD($Y, $hprocess , "int")
            $xerg = Round($Xerg1)
            $yerg = Round($Yerg1)
            guictrlsetdata($Input4, "moveto("& $mode & "," & $Xerg & "," & $Yerg & ")")
            GUICtrlSetData($read,"stop")
            $nMsg = GUIGetMsg()
        if $nMsg = $read then 
            GUICtrlSetData($read,"read")    
            go()
        endif
        if $nMsg = $save then save()
        if $nMsg = $GUI_EVENT_CLOSE then exit
    WEnd
EndFunc

func save()
    FileWrite("koords.txt", "moveto("& $mode & "," & $Xerg & "," & $Yerg & ")" & @crlf)
EndFunc

viel spass!