Hilfe bei msgbox ausgabe

Page 2 of 2

08/27/2010 15:56 | Moep |#16

z.B. Dass die Zeit nicht mit l�uft.
Das man aus den Type the path to dekaron loop nicht rauskommt.
wozu menu close wenn man das x benutzen kann?
Die hotkeys funzen net z.b f10.
Die hotkeys werden einmal mit "{" und "}" einmal ohne deklariert.
Vielzuviele Schalter.
usw...

08/27/2010 15:59 Mozo_#17

z.B. Dass die Zeit nicht mit l�uft. --> war nur ein versuch und ich bekomm das nicht hin^^
Das man aus den Type the path to dekaron loop nicht rauskommt. -> Fixed
wozu menu close wenn man das x benutzen kann? -> weil das ohne das iwie nicht ging oO
Die hotkeys funzen net z.b f10. -> bei mir funktionieren die hotkeys
Die hotkeys werden einmal mit "{" und "}" einmal ohne deklariert. -> war ein test, hab vergessen alle zu �ndern
Vielzuviele Schalter. -> :confused:
usw...

08/27/2010 16:27 | Moep |#18

Schalter sind z.B.:
$running = 1
$pause = 1
$walk = 1
$login = 1

Hier is das datum gefixt:

Spoiler

Code:

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <string.au3>
#include <EditConstants.au3>
#include <date.au3>
#include <array.au3>
$Datum = @MDAY&"/" & @MON&"/" & @YEAR&" - "&@HOUR&":" & @MIN &":"& @SEC
$start = IniRead("Config.ini","hotkeys","Click","up")
$walk = IniRead("Config.ini","hotkeys","Walk","{left}")
$help = IniRead("Config.ini","hotkeys","Help","{right}")
$pause = IniRead("Config.ini","hotkeys","Pause","{down}")
$ende = IniRead("Config.ini","hotkeys","End","{F10}")
$login = IniRead("Config.ini","hotkeys","Login","{p}")
$helpbox = 5
HotKeySet("{"&$ende&"}", "_ende")
HotKeySet("{"&$help&"}", "_help")
HotKeySet("{"&$start&"}", "_start")
HotKeySet("{"&$pause&"}", "_pause")
HotKeySet("{"&$walk&"}", "_walk")
HotKeySet("{"&$login&"}", "_login")
$pause = 1
$walk = 1
$running = 0
#Region ### START Koda GUI section ### Form=C:\Users\Mozo\Desktop\Form1.kxf
$Form1 = GUICreate("Dekaron Tool", 248, 202, 193, 125)
$Group2 = GUICtrlCreateGroup("Credits", 136, 0, 105, 97)
$Label2 = GUICtrlCreateLabel("Credits:", 168, 24, 47, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Mozo007", 168, 64, 48, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Change Login", 8, 0, 113, 97)
$Loginname = GUICtrlCreateInput("Loginname", 16, 16, 97, 21)
$Passwort = GUICtrlCreateInput("Passwort", 16, 40, 97, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("�ndern", 16, 64, 97, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Start", 8, 96, 233, 41)
$Button2 = GUICtrlCreateButton("Start", 56, 104, 129, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateMenu("&Menu")
$Close = GUICtrlCreateMenuItem("Close", $Menu)
$MenuItem2 = GUICtrlCreateMenu("?")
$Help = GUICtrlCreateMenuItem("Help", $MenuItem2)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Datum - Uhrzeit", 8, 136, 233, 41)
$Label1 = GUICtrlCreateLabel($Datum, 68, 152, 200, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $AccelKeys[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($AccelKeys)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _ende()
        Case $Button1
            _change()
        Case $Button2
            _startdk()
        Case $Close
            _ende()
        Case $Help
            _help()
    EndSwitch
    If ProcessExists("dekaron.exe") Then
        GUISetState(@SW_HIDE)
        TraySetState(1)
        $running = 1
    Else
        GUISetState(@SW_SHOW)
        TraySetState(0)
        $running = 0
    EndIf
	
	$Datum = @MDAY&"/" & @MON&"/" & @YEAR&" - "&@HOUR&":" & @MIN &":"& @SEC
	If $Datum <> GUICtrlRead($Label1) Then GUICtrlSetData($Label1,$Datum)

    
	

WEnd
Func _startdk()
    $startdk = IniRead("Config.ini","path","Path","path")
    If $running = 0 Then
        If $startdk = "path" Or $startdk = "" Then
            MsgBox(0,"Path","You'll need to set the gamepath!")
            $dkpath = InputBox("Path","Type the path to dekaron.exe please!")
            IniWrite("Config.ini","path","Path",$dkpath)
            _startdk()
        Else
            Run($startdk)
        EndIf
    EndIf
EndFunc
Func _change()
    If GUICtrlRead($Loginname) = "" Or GUICtrlRead($Passwort) = "" Or GUICtrlRead($Loginname) = "Loginname" Or GUICtrlRead($Passwort) = "Passwort" Then
        MsgBox(0,"Daten eingeben", "Es wurden keine Daten eingegeben!")
    Else
        $idch = _StringEncrypt(1,GUICtrlRead($Loginname),"loginid",3)
        $pwch = _StringEncrypt(1,GUICtrlRead($Passwort),"loginpw",3)
        $idold = IniRead("Config.ini","login","Id","NoID")
        $pwold = IniRead("Config.ini","login","Pw","NoPW")
        If $idch <> $idold Then
            IniWrite("Config.ini","login","Id",$idch)
            IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
        EndIf
        If $pwch <> $pwold Then
            IniWrite("Config.ini","login","Pw",$pwch)
            IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
        EndIf
        $grund = InputBox("Grund", "Grund der �nderung:")
        IniWrite("Config.ini","change","Grund",$grund)
        MsgBox(0,"LoginDaten","Logindaten wurden erfolgreich aktuallisiert!")
    EndIf
EndFunc
Func _start()
    If $running = 1 Then
        If $pause = 1 Then
            If $walk = 1 Then
                Beep(480,300)
                $pause = 0
                While $pause = 0
                    MouseClick("left")
                WEnd
            Else
                MsgBox(0,"Walk","Walk ist an")
            EndIf
        Else
            Beep(1568,200)
            MsgBox(0,"An", "Ist an")
        EndIf
    EndIf
EndFunc
Func _walk()
    If $running = 1 Then
        If $walk = 1 Then
            If $pause = 1 Then
                Beep(480,300)
                $walk = 0
                While $walk = 0
                    Send("{w down}")
                WEnd
            Else
                MsgBox(0,"Click","Autoclick ist an")
            EndIf
        Else
            Beep(1568,200)
            MsgBox(0,"An","Walk an")
        EndIf
    EndIf
EndFunc    
Func _help()
    If $helpbox = 5 Then
        $helpbox = 0
        Beep(480,300)
        MsgBox(0,"Helpbox", ""&$start&" -> Autoklick" & @CRLF & @CRLF & ""&$walk&" -> Auto-W (Autolaufen)" & @CRLF & @CRLF & ""&$pause&" -> Alles Stoppen" & @CRLF & @CRLF & ""&$help&" -> Helpbox" & @CRLF & @CRLF & ""&$ende&" -> Tool Beenden")  
        $helpbox = 5
    EndIf
EndFunc
Func _login()
    If $running = 1 Then
        If $login = 0 Then
            $login = 1
            $loginid = IniRead("Config.ini","login","Id","NoID")
            $loginpw = IniRead("Config.ini","login","Pw","NoPW")
            If $loginid = "NoID" Then
                $id = InputBox("Name","Loginname eingeben!")
                $id2 = _StringEncrypt(1,$id,"loginid",3)
                IniWrite("Config.ini","login","Id",$id2)
                IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
                Sleep(500)
                _login()
            ElseIf $loginpw = "NoPW" Then
                $pw = InputBox("Passwort","Passwort eingeben!","","*")
                $pw2 = _StringEncrypt(1,$pw,"loginpw",3)
                IniWrite("Config.ini","login","Pw",$pw2)
                IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
                Sleep(500)
                _login()
            Else
                $loginid2 = _StringEncrypt(0,$loginid,"loginid",3)
                $loginpw2 = _StringEncrypt(0,$loginpw,"loginpw",3)
                Beep(480,400)
                MouseClick("left" , 624, 796, 1)
                Sleep(1000)
                MouseClick("left" , 641, 945, 1)
                Sleep(1000)
                Send($loginid2)
                Send("{TAB}")
                Sleep(100)
                Send($loginpw2)
                Sleep(100)
                Send("{ENTER}")
                Sleep(10000)
                MouseClick("left" , 975, 84, 1)
                MouseClick("left" , 642, 906, 1)
            EndIf
        EndIf
    EndIf
EndFunc
Func _pause()
    If $running = 1 Then
        If $pause = 0 Then
            Beep(480,300)
            $pause = 1
            Sleep(1000)
        ElseIf $walk = 0 Then
            Beep(480,300)
            $walk = 1
            Send("{w up}")
            Sleep(1000)
        ElseIf $login = 1 Then
            Beep(480,300)
            $login = 2
            Sleep(1000)
        Else
            Beep(1568,200)
            MsgBox(0,"Aus","Ist aus")
        EndIf
    EndIf
EndFunc
Func _ende()
    Beep(480,300)
    Exit
EndFunc

08/27/2010 19:17 Mozo_#19

Hey,

danke f�r das datumsfix ;)

kannst du mir tipps geben um eventuell die Schalter zu verringern aber trotzden die funktion beibehalten?

Frage, k�nnte man das machen das ich zb. variable $an nehme und dann wenn walk an ist ist $an auf 1, bei click is $an 2 usw?

Oder w�rde das nicht gehen?

08/27/2010 20:09 | Moep |#20

poste mal dein derzeitigen code, dann schaunmer mal...

08/27/2010 21:30 Mozo_#21

Alter Script:

Spoiler

PHP Code:


			
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <string.au3>
#include <EditConstants.au3>
#include <date.au3>
#include <array.au3>
;~ $Datum = @MDAY&"/" & @MON&"/" & @YEAR
;~ $zeit = @HOUR&":" & @MIN &":"& @SEC
$Datum = @MDAY&"/" & @MON&"/" & @YEAR&" - "&@HOUR&":" & @MIN &":"& @SEC
$start = IniRead("Config.ini","hotkeys","Click","up")
$walk = IniRead("Config.ini","hotkeys","Walk","{left}")
$helpkey = IniRead("Config.ini","hotkeys","Help","{right}")
$pause = IniRead("Config.ini","hotkeys","Pause","{down}")
$ende = IniRead("Config.ini","hotkeys","End","{F10}")
$login = IniRead("Config.ini","hotkeys","Login","{p}")
$beenden = IniRead("Config.ini","hotkeys","Beenden","F9")
$helpbox = 5
HotKeySet("{"&$ende&"}", "_ende")
HotKeySet("{"&$helpkey&"}", "_help")
HotKeySet("{"&$start&"}", "_start")
HotKeySet("{"&$pause&"}", "_pause")
HotKeySet("{"&$walk&"}", "_walk")
HotKeySet("{"&$login&"}", "_login")
HotKeySet("{"&$beenden&"}", "_been")
$pauseon = 1
$walkon = 1
$running = 0
#Region ### START Koda GUI section ### Form=C:\Users\Mozo\Desktop\Form1.kxf
$Form1 = GUICreate("Dekaron Tool", 248, 202, 193, 125)
$Group2 = GUICtrlCreateGroup("Credits", 136, 0, 105, 97)
$Label2 = GUICtrlCreateLabel("Credits:", 168, 24, 47, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Mozo007", 168, 64, 48, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Change Login", 8, 0, 113, 97)
$Loginname = GUICtrlCreateInput("Loginname", 16, 16, 97, 21)
$Passwort = GUICtrlCreateInput("Passwort", 16, 40, 97, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("�ndern", 16, 64, 97, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Start", 8, 96, 233, 41)
$Button2 = GUICtrlCreateButton("Start", 56, 104, 129, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateMenu("&Menu")
$Close = GUICtrlCreateMenuItem("Close", $Menu)
$MenuItem2 = GUICtrlCreateMenu("?")
$Help = GUICtrlCreateMenuItem("Help", $MenuItem2)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Datum - Uhrzeit", 8, 136, 233, 41)
$Label1 = GUICtrlCreateLabel($Datum, 68, 152, 200, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $AccelKeys[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($AccelKeys)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _ende()
        Case $Button1
            _change()
        Case $Button2
            _startdk()
        Case $Close
            _ende()
        Case $Help
            _help()
    EndSwitch
    If ProcessExists("dekaron.exe") Then
        GUISetState(@SW_HIDE)
        TraySetState(1)
        $running = 1
    Else
        GUISetState(@SW_SHOW)
        TraySetState(0)
        $running = 0
    EndIf
    
    $Datum = @MDAY&"/" & @MON&"/" & @YEAR&" - "&@HOUR&":" & @MIN &":"& @SEC
    If $Datum <> GUICtrlRead($Label1) Then GUICtrlSetData($Label1,$Datum)
WEnd
Func _startdk()
    $startdk = IniRead("Config.ini","path","Path","path")
    If $running = 0 Then
        If $startdk = "path" Or $startdk = "" Then
            $pfaddk = FileOpenDialog("Datei suchen..", @ScriptDir, "(*.exe)")
            $pathdk = $pfaddk
            If $pathdk <> "" Then
                IniWrite("Config.ini","path","Path",$pathdk)
                _startdk()
            EndIf
        Else
            Run($startdk)
        EndIf
    EndIf
EndFunc
Func _change()
    If GUICtrlRead($Loginname) = "" Or GUICtrlRead($Passwort) = "" Or GUICtrlRead($Loginname) = "Loginname" Or GUICtrlRead($Passwort) = "Passwort" Then
        MsgBox(0,"Daten eingeben", "Es wurden keine Daten eingegeben!")
    Else
        $idch = _StringEncrypt(1,GUICtrlRead($Loginname),"loginid",3)
        $pwch = _StringEncrypt(1,GUICtrlRead($Passwort),"loginpw",3)
        $idold = IniRead("Config.ini","login","Id","NoID")
        $pwold = IniRead("Config.ini","login","Pw","NoPW")
        If $idch <> $idold Then
            IniWrite("Config.ini","login","Id",$idch)
            IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
        EndIf
        If $pwch <> $pwold Then
            IniWrite("Config.ini","login","Pw",$pwch)
            IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
        EndIf
        $grund = InputBox("Grund", "Grund der �nderung:")
        IniWrite("Config.ini","change","Grund",$grund)
        MsgBox(0,"LoginDaten","Logindaten wurden erfolgreich aktuallisiert!")
    EndIf
EndFunc
Func _start()
    If $running = 1 Then
        If $pauseon = 1 Then
            If $walkon = 1 Then
                Beep(480,300)
                $pauseon = 0
                While $pauseon = 0
                    MouseClick("left")
                WEnd
            Else
                MsgBox(0,"Walk","Walk ist an")
            EndIf
        Else
            Beep(1568,200)
            MsgBox(0,"An", "Ist an")
        EndIf
    EndIf
EndFunc
Func _walk()
    If $running = 1 Then
        If $walkon = 1 Then
            If $pauseon = 1 Then
                Beep(480,300)
                $walkon = 0
                While $walkon = 0
                    Send("{w down}")
                WEnd
            Else
                MsgBox(0,"Click","Autoclick ist an")
            EndIf
        Else
            Beep(1568,200)
            MsgBox(0,"An","Walk an")
        EndIf
    EndIf
EndFunc    
Func _help()
    If $helpbox = 5 Then
        $helpbox = 0
        Beep(480,300)
        MsgBox(0,"Helpbox", ""&$start&" -> Autoklick" & @CRLF & @CRLF & ""&$walk&" -> Auto-W (Autolaufen)" & @CRLF & @CRLF & ""&$pause&" -> Alles Stoppen" & @CRLF & @CRLF & ""&$helpkey&" -> Helpbox" & @CRLF & @CRLF & ""&$ende&" -> Tool Beenden")  
        $helpbox = 5
    EndIf
EndFunc
Func _login()
    If $running = 1 Then
        If $login = 0 Then
            $login = 1
            $loginid = IniRead("Config.ini","login","Id","NoID")
            $loginpw = IniRead("Config.ini","login","Pw","NoPW")
            If $loginid = "NoID" Then
                $id = InputBox("Name","Loginname eingeben!")
                $id2 = _StringEncrypt(1,$id,"loginid",3)
                IniWrite("Config.ini","login","Id",$id2)
                IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
                Sleep(500)
                _login()
            ElseIf $loginpw = "NoPW" Then
                $pw = InputBox("Passwort","Passwort eingeben!","","*")
                $pw2 = _StringEncrypt(1,$pw,"loginpw",3)
                IniWrite("Config.ini","login","Pw",$pw2)
                IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
                Sleep(500)
                _login()
            Else
                $loginid2 = _StringEncrypt(0,$loginid,"loginid",3)
                $loginpw2 = _StringEncrypt(0,$loginpw,"loginpw",3)
                Beep(480,400)
                MouseClick("left" , 624, 796, 1)
                Sleep(1000)
                MouseClick("left" , 641, 945, 1)
                Sleep(1000)
                Send($loginid2)
                Send("{TAB}")
                Sleep(100)
                Send($loginpw2)
                Sleep(100)
                Send("{ENTER}")
                Sleep(10000)
                MouseClick("left" , 975, 84, 1)
                MouseClick("left" , 642, 906, 1)
            EndIf
        EndIf
    EndIf
EndFunc
Func _pause()
    If $running = 1 Then
        If $pauseon = 0 Then
            Beep(480,300)
            $pauseon = 1
            Sleep(1000)
        ElseIf $walkon = 0 Then
            Beep(480,300)
            $walkon = 1
            Send("{w up}")
            Sleep(1000)
        ElseIf $login = 1 Then
            Beep(480,300)
            $login = 2
            Sleep(1000)
        Else
            Beep(1568,200)
            MsgBox(0,"Aus","Ist aus")
        EndIf
    EndIf
EndFunc
Func _been()
    If $running = 1 Then
        Send("{ESC}")
        Sleep(200)
        MouseClick("left" , 630, 429, 1)
    EndIf
EndFunc
Func _ende()
    Beep(480,300)
    Exit
EndFunc

Habe mein Script mal ein wenig �berarbeitet ;)

Spoiler

PHP Code:


			
#cs
#########################
##       Includes      ##
#########################
#ce
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <string.au3>
#include <EditConstants.au3>
#include <date.au3>
#include <array.au3>

#cs
#########################
##      Variablen      ##
#########################
#ce
$Datum = @MDAY&"/" & @MON&"/" & @YEAR&" - "&@HOUR&":" & @MIN &":"& @SEC

$clickkey = IniRead("Config.ini","hotkeys","Click","up")
$walkkey = IniRead("Config.ini","hotkeys","Walk","left")
$helpkey = IniRead("Config.ini","hotkeys","Help","right")
$pausekey = IniRead("Config.ini","hotkeys","Pause","down")
$endekey = IniRead("Config.ini","hotkeys","End","F10")
$loginkey = IniRead("Config.ini","hotkeys","Login","p")
$beendenkey = IniRead("Config.ini","hotkeys","Beenden","F9")

$funcon = 0
$running = 0

#cs
#########################
##       Build GUI     ##
#########################
#ce
$Form1 = GUICreate("Dekaron Tool", 248, 202, 193, 125)
$Group2 = GUICtrlCreateGroup("Credits", 136, 0, 105, 97)
$Label2 = GUICtrlCreateLabel("Credits:", 168, 24, 47, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Mozo007", 168, 64, 48, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Change Login", 8, 0, 113, 97)
$Loginname = GUICtrlCreateInput("Loginname", 16, 16, 97, 21)
$Passwort = GUICtrlCreateInput("Passwort", 16, 40, 97, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("�ndern", 16, 64, 97, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Start", 8, 96, 233, 41)
$Button2 = GUICtrlCreateButton("Start", 56, 104, 129, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateMenu("&Menu")
$Close = GUICtrlCreateMenuItem("Close", $Menu)
$MenuItem2 = GUICtrlCreateMenu("?")
$Help = GUICtrlCreateMenuItem("Help", $MenuItem2)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Datum - Uhrzeit", 8, 136, 233, 41)
$Label1 = GUICtrlCreateLabel($Datum, 68, 152, 200, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $AccelKeys[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($AccelKeys)

#cs
##########################
##    Endlosschleife    ##
##########################
#ce
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _change()
        Case $Button2
            _dkstart()
        Case $Close
            Exit
        Case $Help
            _help()
    EndSwitch
    If ProcessExists("dekaron.exe") Then
        GUISetState(@SW_HIDE)
        TraySetState(1)
        $running = 1
        HotKeySet("{"&$endekey&"}", "_ende")
        HotKeySet("{"&$helpkey&"}", "_help")
        HotKeySet("{"&$clickkey&"}", "_click")
        HotKeySet("{"&$pausekey&"}", "_pause")
        HotKeySet("{"&$walkkey&"}", "_walk")
        HotKeySet("{"&$loginkey&"}", "_login")
        HotKeySet("{"&$beendenkey&"}", "_been")
    Else
        GUISetState(@SW_SHOW)
        TraySetState(0)
        $running = 0
        HotKeySet("{"&$endekey&"}")
        HotKeySet("{"&$helpkey&"}")
        HotKeySet("{"&$clickkey&"}")
        HotKeySet("{"&$pausekey&"}")
        HotKeySet("{"&$walkkey&"}")
        HotKeySet("{"&$loginkey&"}")
        HotKeySet("{"&$beendenkey&"}")
    EndIf
    
    $Datum = @MDAY&"/" & @MON&"/" & @YEAR&" - "&@HOUR&":" & @MIN &":"& @SEC
    If $Datum <> GUICtrlRead($Label1) Then GUICtrlSetData($Label1,$Datum)
WEnd
    

#cs
#########################
##      Funktionen     ##
#########################
#ce
Func _change()
    If GUICtrlRead($Loginname) = "" Or GUICtrlRead($Passwort) = "" Or GUICtrlRead($Loginname) = "Loginname" Or GUICtrlRead($Passwort) = "Passwort" Then
        MsgBox(0,"Daten eingeben", "Es wurden keine Daten eingegeben!")
    Else
        $idch = _StringEncrypt(1,GUICtrlRead($Loginname),"loginid",3)
        $pwch = _StringEncrypt(1,GUICtrlRead($Passwort),"loginpw",3)
        $idold = IniRead("Config.ini","login","Id","NoID")
        $pwold = IniRead("Config.ini","login","Pw","NoPW")
        If $idch = $idold And $pwch = $pwold Then
            MsgBox(0,"Daten","Gleiche Daten!")
        Else
            SplashTextOn("Aktualisierung", ""&@CRLF&@CRLF&@CRLF&"Daten werden aktualisiert",260,202)
            Sleep(600)
            SplashOff()
            If $idch <> $idold Then
                IniWrite("Config.ini","login","Id",$idch)
                IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
            EndIf
            If $pwch <> $pwold Then
                IniWrite("Config.ini","login","Pw",$pwch)
                IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
            EndIf
            $grund = InputBox("Grund", "Grund der �nderung:")
            IniWrite("Config.ini","change","Grund",$grund)
            MsgBox(0,"LoginDaten","Logindaten wurden erfolgreich aktuallisiert!")
        EndIf
    EndIf
EndFunc
Func _click()
    If $running = 1 Then
        If $funcon = 0 Then
            $funcon = 1
            While $funcon = 1
                MouseClick("left")
            WEnd
        Else
            MsgBox(0,"Funktion", "Es wird bereits ein anderer Script ausgef�hrt!")
        EndIf
    EndIf
EndFunc
Func _walk()
    If $running = 1 Then
        If $funcon = 0 Then
            $funcon = 2
            While $funcon = 2
                Send("{W DOWN}")
            WEnd
        Else
            MsgBox(0,"Funktion", "Es wird bereits ein anderer Script ausgef�hrt!")
        EndIf
    EndIf
EndFunc
Func _login()
    If $running = 1 Then
        If $funcon = 0 Then
            $funcon = 3
            While $funcon = 3
                $loginid = IniRead("Config.ini","login","Id","NoID")
                $loginpw = IniRead("Config.ini","login","Pw","NoPW")
                If $loginid = "NoID" Then
                    $id = InputBox("Name","Loginname eingeben!")
                    $id2 = _StringEncrypt(1,$id,"loginid",3)
                    IniWrite("Config.ini","login","Id",$id2)
                    IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
                    Sleep(500)
                    _login()
                ElseIf $loginpw = "NoPW" Then
                    $pw = InputBox("Passwort","Passwort eingeben!","","*")
                    $pw2 = _StringEncrypt(1,$pw,"loginpw",3)
                    IniWrite("Config.ini","login","Pw",$pw2)
                    IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
                    Sleep(500)
                    _login()
                Else
                    $loginid2 = _StringEncrypt(0,$loginid,"loginid",3)
                    $loginpw2 = _StringEncrypt(0,$loginpw,"loginpw",3)
                    Beep(480,400)
                    MouseClick("left" , 624, 796, 1)
                    Sleep(1000)
                    MouseClick("left" , 641, 945, 1)
                    Sleep(1000)
                    Send($loginid2)
                    Send("{TAB}")
                    Sleep(100)
                    Send($loginpw2)
                    Sleep(100)
                    Send("{ENTER}")
                    Sleep(10000)
                    MouseClick("left" , 975, 84, 1)
                    MouseClick("left" , 642, 906, 1)
                EndIf
                $funcon = 0
            WEnd
        Else
            MsgBox(0,"Funktion", "Es wird bereits ein anderer Script ausgef�hrt!")
        EndIf
    EndIf
EndFunc
Func _been()
    If $running = 1 Then
        If $funcon = 0 Then
            $funcon = 4
            Send("{ESC}")
            Sleep(200)
            MouseClick("left" , 630, 429, 1)
            $funcon = 0
        Else
            MsgBox(0,"Funktion", "Es wird bereits ein anderer Script ausgef�hrt!")
        EndIf
    EndIf
EndFunc
Func _help()
    If $funcon = 0 Then
        $funcon = 5
        MsgBox(0,"Helpbox", ""&$clickkey&" -> Autoklick" & @CRLF & ""&$walkkey&" -> Auto-W (Autolaufen)" & @CRLF & ""&$pausekey&" -> Alles Stoppen" & @CRLF & ""&$helpkey&" -> Helpbox" & @CRLF & ""&$loginkey&" -> Autologin" & @CRLF & ""&$beendenkey&" -> Dekaron beenden" & @CRLF & ""&$endekey&" -> Tool Beenden")
    Else
        MsgBox(0,"Funktion", "Es wird bereits ein anderer Script ausgef�hrt!")
    EndIf
EndFunc
Func _pause()
    If $running = 1 Then
        If $funcon > 0 Then
            Send("{W UP}")
            $funcon = 0
        Else
            MsgBox(0,"Funktion", "Es wird bereits ein anderer Script ausgef�hrt!")
        EndIf
    EndIf
EndFunc
Func _dkstart()
    $dkstart = IniRead("Config.ini","path","Path","path")
    If $running = 0 Then
        If $dkstart = "path" Or $dkstart = "" Then
            $dkpfad = FileOpenDialog("Datei suchen..", @ScriptDir, "(*.exe)")
            If $dkpfad <> "" Then
                IniWrite("Config.ini","path","Path",$dkpfad)
                _dkstart()
            EndIf
        Else
            Run($dkstart)
        EndIf
    EndIf
EndFunc
Func _ende()
    Exit
EndFunc

Wollte dann nomma fragen, warum die pfad der dekaron.exe nicht in die ini eingetragen wird... starten tut er aber es wird nicht eingetragen..

08/29/2010 23:28 Mozo_#22

#Push ;)

Page 2 of 2