|
You last visited: Today at 00:59
Advertisement
Hilfe bei msgbox ausgabe
Discussion on Hilfe bei msgbox ausgabe within the AutoIt forum part of the Coders Den category.
08/25/2010, 19:58
|
#1
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Hilfe bei msgbox ausgabe
Hallo,
ich bin derzeit dabei einen kleinen Bot für Dekaron zu schreiben, der mir das spielen sehr vereinfacht
Die Funktionen gehen auch alle... Nun wollte ich eine "Helpbox" mit den ganzen befehlen erstellen.
Hier der Code:
PHP Code:
[...] Func _help() Beep(480,300) MsgBox(0, "Helpbox", "Autoclicker-Helpbox" & @CR & _ " " & @CR & _ $start &" -> Autoclick" & @CR & _ $walk &" -> Auto-W (Autolaufen)" & @CR & _ $pause &" -> Alles Stoppen" & @CR & _ $help &" -> Helpbox" & @CR & _ " " & @CR & _ $ende &" -> Tool Beenden" & @CR & _ " " & @CR & _ "AutoClick-Tool by Mozo") EndFunc [...]
Nun mein Fehler, wenn ich das Tool starte und ich die "Helpbox" öffenen möchte, funktioniert soweit alles, ausser das bei:
$walk und $pause jeweils 1 und bei $ende 18 steht.
Ich habe schon einige sachen getesten aber den Fehler nie erfolgreich behoben bekommen.
Falls einer einen Fehler erkennt, bitte melden und eventuell einen verbesserten Code posten, Danke.
Mit freundlichen Gruß
|
|
|
08/25/2010, 20:41
|
#2
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
aus den schnipsel kann man nichst erkennen.
zeig mal den part wo die variablen deklariert werden, oder halt einfach alles falls nicht zu lang wird...
|
|
|
08/25/2010, 21:54
|
#3
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Variablen:
PHP Code:
$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}")
Config.ini:
PHP Code:
[hotkeys] Click=up Walk=left Help=right Pause=down End=F11 Login=F10
Es funktioniert ja auch alles, wenn ich die jeweiligen hotkeys drücke... Nur in der Helpbox werden die Variablen nicht richtig angezeigt.
|
|
|
08/26/2010, 21:14
|
#4
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
PUSH #
Brauche noch Hilfe <.<
|
|
|
08/26/2010, 21:34
|
#5
|
elite*gold: 206
Join Date: Mar 2010
Posts: 1,622
Received Thanks: 426
|
Hier:
PHP Code:
$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}") 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")
Bitte das Thanks nicht vergessen
|
|
|
08/26/2010, 23:26
|
#6
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Danke, aber es funktioniert immernoch nicht...
Bild:
|
|
|
08/26/2010, 23:39
|
#7
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
hast du vllt irgendwo ne zuweisung der buttons in der gui verbaut?
|
|
|
08/26/2010, 23:43
|
#8
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Nicht das ich wüsste...
BTW, erkennt AutoIT $help und $Help als eine oder zwei verschiedene variablen?
EDIT//
Soll ich eventuell mal den kompletten Code zeigen?
Dann könntet ihr ja auch mal drübergucken und mir sagen was ich verbessern könnte
|
|
|
08/27/2010, 00:03
|
#9
|
elite*gold: 206
Join Date: Mar 2010
Posts: 1,622
Received Thanks: 426
|
Da du mir nicht mal für meinen letzen "Versuch" ein Thanks gegeben hats werde ich dich hierzu nichtmehr utnerstützen..
Ahja und bei mir klappt es.. ALso hast du irgendmo mist gebaut
EDIT:
Was funkt eigentliuchnicht? Sehe kein Problem auf dem Bild..
|
|
|
08/27/2010, 00:20
|
#10
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Das problem ist, das bei der Helpbox anstatt den tasten Zahlen drinne stehen..
Und da sollten dann eigentlich auch wie bei "autoclick" die Taste stehen.
Habe doch in dem Post danach Danke geschrieben =/
|
|
|
08/27/2010, 00:56
|
#11
|
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
|
Quote:
Originally Posted by hallopla
Das problem ist, das bei der Helpbox anstatt den tasten Zahlen drinne stehen..
Und da sollten dann eigentlich auch wie bei "autoclick" die Taste stehen.
Habe doch in dem Post danach Danke geschrieben =/
|
Wir brauchen schon das ganze Skript, ohne lässt sich nur wild spekulieren und dazu haben die wenigsten hier Lust...
Btw. benutzt duch auch immer GuictrlRead?
|
|
|
08/27/2010, 01:00
|
#12
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Okay, hier ist mal der komplette Code..
Soweit ich weis brauche ich für das script kein guictrlread, oder nicht?
Kannst ja mal ein blick drüber werfen..
(ist mein 3. richtiges 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 $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 &" - "& $zeit, 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 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, 07:24
|
#13
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
Quote:
Originally Posted by TechnoMan
Da du mir nicht mal für meinen letzen "Versuch" ein Thanks gegeben hats werde ich dich hierzu nichtmehr utnerstützen..
|
omfg
thx-geil ja?
gehst du nach jedem thx ins badezimmer
und kommst nach 10min wieder raus ja?
|
|
|
08/27/2010, 13:41
|
#14
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
in zeile 11 hast du
Code:
$walk = IniRead("Config.ini","hotkeys","Walk","{left}")
in Zeile 24 überschreibst du dann wieder $walk
Mit $pause das gleiche
Bei $help deklarierst du zuerst die variable in Zeile 12 und dann überschreibst du sie wieder in Zeile 44 mit GUICtrlCreateMenuItem.
Ansonsten hab ich noch nen par logik bugs gesehen, aber die lass ich dich selber suchen
|
|
|
08/27/2010, 15:09
|
#15
|
elite*gold: 0
Join Date: Sep 2008
Posts: 526
Received Thanks: 82
|
Ou man, so blöde fehler
Und da saß ich knapp 2 Tage dran die Fehler zu suchen wie peinlich^^
(is ja erst mein 3. richtiges script^^... hab mit normalen autoclicker angefangen und immer weiter ausgebaut :P )
Naja was verstehst du unter Logikbugs?
|
|
|
|
|
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 00:59.
|
|