|
You last visited: Today at 04:31
Advertisement
Startbutton funktioniert nicht
Discussion on Startbutton funktioniert nicht within the AutoIt forum part of the Coders Den category.
11/21/2010, 11:48
|
#1
|
elite*gold: 0 
Join Date: Apr 2010
Posts: 431
Received Thanks: 138
|
Startbutton funktioniert nicht
Hallo,
ich habe hier einen kleinen NosTale Bot gescriptet.
Alles klappt perfekt, bis auf das, dass der Startbutton nicht funktioniert.
Ich schreibe Euch mal den Source rein, hoffe ihr könnt mir helfen.
PHP Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $StartButton1
_Func1 ()
Case $ExitButton2
_Func2()
EndSwitch
WEnd
;==> Button
Func _Func1 ()
Run ("Nostale.exe")
EndFunc
Func _Func2 ()
Exit
EndFunc
;==> Easy Botting
$OnlySpace = Controlsend("NosTale","","","{Space}")
$SpaceX = Controlsend("NosTale","","","{Space}","{X}"),
$OnlyZ = Controlsend("NosTale","","","{Z}")
$ZX = Controlsend("NosTale","","","{Z}"),"{X}")
;==> Lvl Mode
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceRedLive = Controlsend("NosTale","","","{Space}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceXOrangeLive = Controlsend("NosTale","","","{Space}","{X}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceXRedLive = Controlsend("NosTale","","","{Space}","{X}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZOrangeLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZRedLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZXOrangeLive = Controlsend("NosTale","","","{Z}","{X}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZXRedLive = Controlsend("NosTale","","","{Z}","{X}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$YourHp =
$HpInput =
$YourMp =
$MpInput =
SchonmalDanke im Vorraus.
Mit freundlichen Grüßen,
B-O
|
|
|
|
11/21/2010, 11:54
|
#2
|
elite*gold: 0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
|
funktionen schreibt man ohne ein leerzeichen also
_Func1()
anstatt run solltest du mal shellexecute probieren:
Code:
ShellExecute(@ScriptDir & "\Nostale.exe")
|
|
|
|
|
11/21/2010, 11:58
|
#3
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
was heiißt den bitte:
Quote:
|
Alles klappt perfekt, bis auf das, dass der Startbutton nicht funktioniert.
|
anstelle des
Run ("Nostale.exe")
machste einfach mal
ShellExecute("C:\Games\Nostale\Nostale.exe") ;also den pfad an passen..
und was ist das?
Controlsend("NosTale","","","{Space}", "{X}") ,
ControlSend ( "title", "text", controlID, "string" [, flag] )
@vorposter:
es geht auch mit leerzeichen
btw
Quote:
|
ich habe hier einen kleinen NosTale Bot gescriptet.
|
eher C&P 
|
|
|
|
|
11/21/2010, 12:04
|
#4
|
elite*gold: 0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
|
Quote:
Originally Posted by omer36
@vorposter:
es geht auch mit leerzeichen
|
habe nicht gesagt, dass es nicht geht aber das ist kein guter stil ;-)
|
|
|
|
|
11/21/2010, 12:06
|
#5
|
elite*gold: 0
Join Date: Apr 2010
Posts: 431
Received Thanks: 138
|
Oh habe da einen Fehler gemacht, er soll nicht Nostale starten, sonern die ausgewählten Funktionen ausführen.
Wenn ich es aber so mache, müssen doch alle, die diesen Bot benutzen den gleichen Pfad haben?
Sehe ich das so richtig, oder ist dies falsch?
|
|
|
|
|
11/21/2010, 12:13
|
#6
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
Quote:
Originally Posted by B-O
Oh habe da einen Fehler gemacht, er soll nicht Nostale starten, sonern die ausgewählten Funktionen ausführen.
Wenn ich es aber so mache, müssen doch alle, die diesen Bot benutzen den gleichen Pfad haben?
Sehe ich das so richtig, oder ist dies falsch?
|
könnteste zb so lösen:
PHP Code:
;am anfang deiner source das,
$spiel = FileOpenDialog("Bitte NoStale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)
case $button
ShellExecute($spiel)
aber halt noch die restlichen fehler beseitigen ^^
|
|
|
|
|
11/21/2010, 12:30
|
#7
|
elite*gold: 0
Join Date: Apr 2010
Posts: 431
Received Thanks: 138
|
An welche Stelle muss ich dies einfügen?
Tut mir leid, bin momentan ein bisschen veriwrrt. o.o
|
|
|
|
|
11/21/2010, 12:49
|
#8
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
einfach an oberster stelle
$spiel = FileOpenDialog("Bitte NoStale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)
dann halt
Func _Func1 ()
ShellExecute($spiel)
EndFunc
|
|
|
|
|
11/21/2010, 12:56
|
#9
|
elite*gold: 0
Join Date: Apr 2010
Posts: 431
Received Thanks: 138
|
Mach ich es so, kommt dieser Fehler:
Momentaner Code:
PHP Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $StartButton1
_Func1 ()
Case $ExitButton2
_Func2()
EndSwitch
WEnd
;==> Button
$spiel = FileOpenDialog("Bitte Nostale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)
Func _Func1 ()
ShellExecute($spiel)
EndFunc
Func _Func2 ()
Exit
EndFunc
;==> Easy Botting
$OnlySpace = Controlsend("NosTale","","","{Space}")
$SpaceX = Controlsend("NosTale","","","{Space}","{X}"),
$OnlyZ = Controlsend("NosTale","","","{Z}")
$ZX = Controlsend("NosTale","","","{Z}"),"{X}")
;==> Lvl Mode
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceRedLive = Controlsend("NosTale","","","{Space}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceXOrangeLive = Controlsend("NosTale","","","{Space}","{X}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceXRedLive = Controlsend("NosTale","","","{Space}","{X}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZOrangeLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZRedLive = Controlsend("NosTale","","","{Z}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZXOrangeLive = Controlsend("NosTale","","","{Z}","{X}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZXRedLive = Controlsend("NosTale","","","{Z}","{X}"),
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$YourHp =
$HpInput =
$YourMp =
$MpInput =
|
|
|
|
|
11/21/2010, 12:59
|
#10
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
was verstehst du wenn ich schreibe: "an oberster stelle deiner source" ?
2.schau doch mal meine erste antwort oben, du hast mehr fehler drinne -.-
3. um es zu starten kannste auch einfach F5 drücken, und musst es nicht jedemal complieren.
btw, wenn du schon dein name im bild zensierst, währe es auch von vorteil es auch hier zu machen:
#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
|
|
|
|
|
11/21/2010, 13:00
|
#11
|
elite*gold: 0
Join Date: Jan 2010
Posts: 1,385
Received Thanks: 1,006
|
dein ganzes skript ist voller syntaxfehler.
$SpaceX = Controlsend("NosTale","","","{Space}","{X}"),
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}"),
und natürlich auch unten die lehren felder#
$MpInput =
usw
edit: und wie omer shcon sagt du musst die variable am besten nach den includes declarieren
|
|
|
|
|
11/21/2010, 13:07
|
#12
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
bitte schön:
wobei du gleich wieder kommst und frast, warum nichts von den radiobutton gehen...
PHP Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$spiel = FileOpenDialog("Bitte Nostale auswählen", @ProgramsDir, "All (*.*)" ,1 + 4)
#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $StartButton1
_Func1()
Case $ExitButton2
_Func2()
EndSwitch
WEnd
Func _Func1 ()
ShellExecute($spiel)
EndFunc
Func _Func2 ()
Exit
EndFunc
;==> Easy Botting
$OnlySpace = Controlsend("NosTale","","","{Space}")
$SpaceX = Controlsend("NosTale","","","{Space}x")
$OnlyZ = Controlsend("NosTale","","","{Z}")
$ZX = Controlsend("NosTale","","","zx")
;==> Lvl Mode
$SpaceOrangeLive = Controlsend("NosTale","","","{Space}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceRedLive = Controlsend("NosTale","","","{Space}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceXOrangeLive = Controlsend("NosTale","","","{Space}x")
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$SpaceXRedLive = Controlsend("NosTale","","","{Space}x")
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZOrangeLive = Controlsend("NosTale","","","{Z}")
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZRedLive = Controlsend("NosTale","","","{Z}")
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZXOrangeLive = Controlsend("NosTale","","","zx")
If PixelGetcolor (123,55) <> 0xFCC000 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
$ZXRedLive = Controlsend("NosTale","","","zx")
If PixelGetcolor (123,55) <> 0xFF3100 Then
Sleep ("10000")
Controlsend("NosTale","","","{C}")
EndIf
|
|
|
|
|
11/21/2010, 13:18
|
#13
|
elite*gold: 0
Join Date: Apr 2010
Posts: 431
Received Thanks: 138
|
Stimmt das frage ich, der Startbutton soll nicht den prozess öffnen sonder nur z.B. Leertaste oder X drücken.
bekommst trz. immer Thanks. 
|
|
|
|
|
11/21/2010, 13:29
|
#14
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
sei froh, dass ich grade nichts besseres zu tun habe...
PHP Code:
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\Dokumente und Einstellungen\Ralf-HH\Desktop\Death~Light AfK Bot 2.kxf
$Form1 = GUICreate("NosTale AfK-Bot 2.0 By B-O", 633, 368, 191, 122)
$EasyBotting = GUICtrlCreateGroup("Easy Botting", 16, 8, 281, 121)
$OnlySpace = GUICtrlCreateRadio("Press only Space", 32, 32, 249, 17)
$SpaceX = GUICtrlCreateRadio("Press Space and X", 32, 56, 249, 17)
$OnlyZ = GUICtrlCreateRadio("Press only Z", 32, 80, 249, 17)
$ZX = GUICtrlCreateRadio("Press Z and X", 32, 104, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeSit = GUICtrlCreateGroup("Lvl Mode (Sitting)", 16, 136, 281, 225)
$SpaceOrangeLive = GUICtrlCreateRadio("Press only Space and sitting By Orange Live", 32, 160, 249, 17)
$SpaceRedLive = GUICtrlCreateRadio("Press only Space and sitting By Red Live", 32, 184, 249, 17)
$SpaceXOrangeLive = GUICtrlCreateRadio("Press Space+X and sitting By Orange Live", 32, 208, 249, 17)
$SpaceXRedLive = GUICtrlCreateRadio("Press Space+X and sitting By Red Live", 32, 232, 249, 17)
$ZOrangeLive = GUICtrlCreateRadio("Press only Z and sitting By Orange Live", 32, 256, 249, 17)
$ZRedLive = GUICtrlCreateRadio("Press only Z and sitting By Red Live", 32, 280, 249, 17)
$ZXOrangeLive = GUICtrlCreateRadio("Press Z+X and sitting By Orange Live", 32, 304, 249, 17)
$ZXRedLive = GUICtrlCreateRadio("Press Z+X and sitting By Red Live", 32, 328, 249, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LvlModeDrink = GUICtrlCreateGroup("Lvl Mode (Drink a Pott)", 312, 8, 305, 121)
$HpBy = GUICtrlCreateLabel("If Hp By:", 328, 40, 45, 17)
$YourHp = GUICtrlCreateInput("", 384, 40, 73, 21)
$ThenHp = GUICtrlCreateLabel("Then press:", 472, 40, 60, 17)
$HpInput = GUICtrlCreateInput("", 544, 40, 57, 21)
$MpBy = GUICtrlCreateLabel("If Mp By:", 328, 80, 46, 17)
$YourMp = GUICtrlCreateInput("", 384, 80, 73, 21)
$ThenMp = GUICtrlCreateLabel("Then press:", 472, 80, 60, 17)
$MpInput = GUICtrlCreateInput("", 544, 80, 57, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StartButton1 = GUICtrlCreateButton("Starting (F1)", 320, 144, 297, 81, 0)
$ExitButton2 = GUICtrlCreateButton("Exit", 320, 240, 297, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $StartButton1
start()
Case $ExitButton2
Exit
EndSwitch
WEnd
Func start()
If GUICtrlRead($OnlySpace) = 1 Then
ControlSend("NosTale", "", "", "{Space}")
ElseIf GUICtrlRead($SpaceX) = 1 Then
ControlSend("NosTale", "", "", "{Space}x")
ElseIf GUICtrlRead($OnlyZ) = 1 Then
ControlSend("NosTale", "", "", "{Z}")
ElseIf GUICtrlRead($ZX) = 1 Then
ControlSend("NosTale", "", "", "zx")
EndIf
If GUICtrlRead($SpaceOrangeLive) = 1 Then
ControlSend("NosTale", "", "", "{Space}")
If PixelGetColor(123, 55) <> 0xFCC000 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($SpaceRedLive) = 1 Then
ControlSend("NosTale", "", "", "{Space}")
If PixelGetColor(123, 55) <> 0xFF3100 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($SpaceXOrangeLive) = 1 Then
ControlSend("NosTale", "", "", "{Space}x")
If PixelGetColor(123, 55) <> 0xFCC000 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($SpaceXRedLive) = 1 Then
ControlSend("NosTale", "", "", "{Space}x")
If PixelGetColor(123, 55) <> 0xFF3100 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($ZOrangeLive) = 1 Then
ControlSend("NosTale", "", "", "{Z}")
If PixelGetColor(123, 55) <> 0xFCC000 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($ZRedLive) = 1 Then
ControlSend("NosTale", "", "", "{Z}")
If PixelGetColor(123, 55) <> 0xFF3100 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($ZXOrangeLive) = 1 Then
ControlSend("NosTale", "", "", "zx")
If PixelGetColor(123, 55) <> 0xFCC000 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
ElseIf GUICtrlRead($ZXRedLive) = 1 Then
ControlSend("NosTale", "", "", "zx")
If PixelGetColor(123, 55) <> 0xFF3100 Then
Sleep("10000")
ControlSend("NosTale", "", "", "{C}")
EndIf
EndIf
EndFunc
aber PixelGetColor wird kaum hidden gehen
(denk ich mal, habs noch nie benutz)
|
|
|
|
|
11/21/2010, 13:36
|
#15
|
elite*gold: 0
Join Date: Apr 2010
Posts: 431
Received Thanks: 138
|
Danke, dass du mir hilfst, bin ein ziemlicher Neuling in AutoIt.
Naja, nächstes Problem, wenn ich z.B. das 1. auswähle auf Start drücke, drückt er einmal leertaste.
Nun will ich aber, dass der Bot dies nicht einmal tut, sonder z.B. jede 300ms?
|
|
|
|
 |
|
Similar Threads
|
Warock funktioniert nicht! (Login nicht sichtbar)
07/23/2010 - WarRock - 5 Replies
Hallo zusammen,
Seit dem Update startet Warrock nur noch bis zu Werbung(get Prem).
Wenn ich diese wegklicke sieht man kein Login(Bildschirm schwarz).
Ich habe Windows Vista Home, 32Bit und kein Antivir.
Woran liegt das, hat jmd dasselbe Problem?
--Danke--
|
Dorfplatzwächter anklicken geht nicht - Entbuggen nicht funktioniert.
03/23/2010 - Metin2 Private Server - 0 Replies
Huhu, bei mir hat das entbuggen des Dorfplatzwächtes nicht geklappt, ich hab diese Guildmanage_Quest oder wie sie heißt eingepackt, ich hab danach sogar ALLE Questen reingepackt. Ging alles nicht, brauche umbedingt Hilfe. Will nämlich den Clienten von NeonBlue benutzen, oder muss ich dazu noch ne Mob_Proto + Item_Proto (übersetzt) haben?
bitte um Hilfe.
MfG
P.S. SuFu und Google haben beide nichts ausgespuckt. -.-"
|
Bei mir funktioniert das Löschcode nicht. Er hat mal funktioniert
01/07/2010 - Metin2 Private Server - 0 Replies
Hi. Also auf mienem PServer geht das mit dem Löschcode nicht. Kann mir jemand sagen warum? Ich weiß noch das es mal ging.
Aber den Spieler in der Datenbank löschen geht nicht weil da diser lvl 0 charackter bleibt und ich nciht weiß wie man den weg kriegt
Bitte kan mir jemand helfen.
|
Metin2 als Startbutton
08/18/2009 - Metin2 Guides & Templates - 5 Replies
Euch nervt der Startbutton von Windows??
Ihr hättet da gerne das Windowszeichen??
Lösung
|
|_Was braucht ihr??
--|
--|_ Diese Dateien!
--|_ Windows XP
|
Mhs funktioniert nicht mehr auch nicht mit metin programm!
10/05/2008 - Metin2 - 8 Replies
Metin programm funktioniert bei mir nicht seit gestern
|
All times are GMT +2. The time now is 04:31.
|
|
