blauwiggle's Bot + Tool Sammlung

blauwiggle · 10/20/2008, 17:03

Keine Entwicklung im Moment

blauwiggle · 10/20/2008, 21:30

blauwiggle · 10/23/2008, 16:42

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

Scanned by

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

Überprüft von

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

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

Scanned by

Tool #6 - Nameless Window

Anleitung

HotKeybelegung

Additional Software

_revo · 12/24/2008, 05:24

s Tools:

Spawnpoint Definer
Mit dem "Spawnpoint Definer" kann man die maximalen, und minimalen Werte
für die X und Y Position eines bestimmten (Spawn-)Bereich bestimmen.
Dazu muss man ein Viereck um den Punkt ablaufen und an jeder Ecke den gewählten
Hotkey betätigen.

Waypointer
Der "Waypointer" bestimmt auf Knopfdruck die aktuelle Position des Spielers und
speichert diese in einem Textfeld. Auf Wunsch kann er auch den Source zum callen einer
MoveTo Funktion mit den verschiedensten Syntaxen ausgeben. Außerdem kann die Zeit
zwischen den einzelnen Aufrufen gemessen werden, und als Sleeptime mit im Code
angegeben werden.
Eine eigenständige MoveTo Funktion muss vorhanden sein !

~~kknb~~ · 03/02/2009, 17:26

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!