|
You last visited: Today at 13:57
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,878
|
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,255
|
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 +1. The time now is 13:58.
|
|
