[Auto It] Interface Problem

[slyzer]

Heyho,

Ich habe nen Problem bei meinem kleinen lvl Bot :D

Wenn ich das Script starte und auf einen Button klicke kommt immer eine Fehlermedlung die ich nichtsoganz verstehe.

Ich poste ma den Quellcode wäre cool wenn ihr mir helfen könntet aber bitte sagt mir auch wo der Fehler lag und korrigiert es nicht einfach damit ich lernen kann :)


; Script Start - Add your code below here
GuiCreate("Fiesta Online PickUp Bot",400,400,400,400)
$Button1=GuiCtrlCreateButton("Aufsammeln starten (F1)",10,15,120,20)
$Button2=GuiCtrlCreateButton(" Pausieren (Pause)",10,40,120,20)
$Button10=GuiCtrlCreateButton("Beenden)" ,20,340,360,50)
GuiSetState()

Global $Paused
HotKeySet ("{F1}" , "StartScript")
HotKeySet ("{PAUSE}", "TogglePause")
HotKeySet ("{ESC}", "Terminate")

While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$Button1 Then "StartScript"
If $msg=$Button2 Then "TogglePause"
IF $msg=$Button10 Then "Terminate"
Wend


Func StartScript ()
SoundPlay(@WindowsDir & "\media\tada.wav",0)
While 1
Sleep (500)
Send ( "{2}")
Wend
EndFunc


Func TogglePause ()
$Paused = NOT $Paused
$Paused = SoundPlay(@WindowsDir & "\media\chimes.wav",0)
While $Paused
WEnd
EndFunc


Func Terminate ()
Exit 0
EndFunc

[garwga]

; Script Start - Add your code below here

#include <Sound.au3>
Opt("GUIOnEventMode", 1)

GuiCreate("Fiesta Online PickUp Bot",400,400,400,400)
$Button1=GuiCtrlCreateButton("Aufsammeln starten (F1)",10,15,120,20)
GUICtrlSetOnEvent($Button1, "StartScript")
$Button2=GuiCtrlCreateButton(" Pausieren (Pause)",10,40,120,20)
GUICtrlSetOnEvent($Button2, "TogglePause")
$Button10=GuiCtrlCreateButton("Beenden)" ,20,340,360,50)
GUICtrlSetOnEvent($Button10, "Terminate")
GuiSetState()


Global $Paused
HotKeySet ("{F1}" , "StartScript")
HotKeySet ("{PAUSE}", "TogglePause")
HotKeySet ("{ESC}", "Terminate")

While 1
sleep(100)
Wend


Func StartScript ()
SoundPlay(@WindowsDir & "\media\tada.wav",0)
While 1
Sleep (500)
Send ( "{2}")
Wend
EndFunc


Func TogglePause ()
$Paused = NOT $Paused
$Paused = SoundPlay(@WindowsDir & "\media\chimes.wav",0)
While $Paused
WEnd
EndFunc


Func Terminate ()
Exit 0
EndFunc


Buttons...

MfG,
garwga