|
You last visited: Today at 14:32
Advertisement
Hilfe bei msgbox ausgabe
Discussion on Hilfe bei msgbox ausgabe within the AutoIt forum part of the Coders Den category.
08/27/2010, 15:56
|
#16
|
elite*gold: 0 
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
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
|
#17
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
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. -> 
usw...
|
|
|
|
|
08/27/2010, 16:27
|
#18
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Schalter sind z.B.:
$running = 1
$pause = 1
$walk = 1
$login = 1
Hier is das datum gefixt:
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
|
#19
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
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
|
#20
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
poste mal dein derzeitigen code, dann schaunmer mal...
|
|
|
|
|
08/27/2010, 21:30
|
#21
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Alter Script:
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
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
|
#22
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
#Push
|
|
|
|
 |
|
Similar Threads
|
5.Stunde – Einlesen und Ausgabe
07/20/2011 - Coding Tutorials - 4 Replies
5.Stunde – Einlesen und Ausgabe
Guten Abend,
kommen wir zu Stunde 5 ;D
Dem Einlesen von Daten bzw. deren Ausgabe aus Dateien.
Dafür brauchen wir erstmal eine neue Bibliothek <fstream> und 2 Neue Variablen
ifstream fürs einlesen und ofstream für die ausgabe also:
ifstream dat_ein;
|
Login Sie nehmen Ausgabe !!
05/30/2010 - Metin2 Private Server - 3 Replies
Of course,
My problem is this:
We are open server. We pull start. Şekilkde normally enters the game, try to enter again after 10 minutes when you take input remains. How can I solve this always the case.
thanks
|
D2NT - Ausgabe formatieren
04/20/2010 - Diablo 2 Programming - 2 Replies
Heyho, ich wollte mal die Ausgabe des ntbots ein bisschen formatieren und zwar das angezeigt wird, welches item wo mit welchem ilvl gefunden wurde.
Ich bräuchte allerdings Hilfe bei den if-Abfragen denn irgendwie will der bot nicht so wie ich will:
if(_item.quality > 4 && _checkeditem.Status < 2 && _item.itemtype != 4 && (_item.itemtype < 76 || _item.itemtype > 81))
NTC_SendLogToOOG(NTC_LOG_ITEM, "(" + _area.name + ")" + " Aufgehoben: " + NTC_ItemQualityToMGRColor +...
|
[Suche] Kurz Hilfe via Teamviewer bei Autoit, Msgbox.
02/01/2010 - Metin2 Private Server - 0 Replies
Siehe Titel.
Icq 397995956, gibt ein paar Thx als Belohung. :b
Ich weiß nicht wohin ich posten soll, da es ja eigentlich nichts mit Metin2 zu tun hat, kann mir jemand richtige Section sagen ?
|
[FRAGE]AutoIt Gui ausgabe
12/27/2009 - AutoIt - 0 Replies
Hi,
Ich hab mir mal was Programmiert, mein erster verushc.
GUi hab ich geaschafft, ich will, dass man festlegen kann, was gesendet wird.
Aber wenn ich nun aufm Numpad2 drücke sendet er immer 1, obwohl ich in mein FEld vorher in der Gui 5 eingetragen habe, an was liegt das?
Dankeschön :D
|
All times are GMT +2. The time now is 14:32.
|
|
