Nostale Text Sender [Kleiner Bug]

bozkurt29 · 01/20/2010, 19:57

Halle alle zusammen ich habe mir in 5 min soo ein Text Sender zusammen gebastelt!
Aber der hat irgendwie ein Fehler !
kann ihn jemand korriegieren !

Code:

Global $Paused
$running = false
HotKeySet("{PAUSE}","TogglePause")
HotKeySet("{ESC}","Terminate")
HotKeySet("!s","start")
HotKeySet("!a","andern")
HotKeySet("!b","abandern")
$text=InputBox("Frage?","Welcher Text soll gesendet werden ?")
$sendeabstand=InputBox("Frage?","In welchem Abstand soll der Text gesendet werden(in Millisek)?")
$windowname=InputBox("Frage?","Wie lautet der Fenstername von NosTale? Wenn unverändert ist dann leer lassen!")

If ($windowname=0)Then
	$windowname="NosTale"
EndIf


While 1
	ControlSend($windowname,"","","{ENTER}")
	Sleep (1000)
	ControlSend($windowname,"","",$text)
	Sleep (1000)
	ControlSend($windowname,"","","{ENTER}")
	Sleep($sendeabstand)
WEnd

Func andern ()
	$text=InputBox("Frage?","Welcher Text soll gesendet werden ?")
EndFunc

Func abandern()
	$sendeabstand=InputBox("Frage?","In welchem Abstand soll der Text gesendet werden ?")
EndFunc

Func TogglePause()
	        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
EndFunc

Func Terminate()
	Exit 0
EndFunc

func start()
	$running = NOT $running
EndFunc

PS: Arbeite immer noch am Nosbot