Scripting Problems

[AgentSmith15]

I'm trying to make a script that sends back what people spam on a instant messaging tool called Xfire. Everyday I get someone that sends a message like rent a server for blah blah a month and I keep asking he/she to stop. But they don't, so that is why I am trying to make this script.

There are a few problems with the script and I can't find the reason why. Does anyone see what is wrong?

expandcollapse popup

#include <GUIConstants.au3>
$Form1 = GUICreate("Xfire Spammer", 406, 322, 203, 125)
GUICtrlCreateLabel("Hit Start and then as quickly as possible click in the Xfire Send message box.", 16, 8, 376, 17)
$Button1 = GUICtrlCreateButton("&Start", 16, 32, 89, 25)
$Button2 = GUICtrlCreateButton("&About", 304, 32, 89, 25)
$Input1 = GUICtrlCreateEdit("Delete this message and replace it with the spammers message." & @CRLF & "Press the End key to stop spamming.", 8, 72, 385, 237, -1)
GUISetState(@SW_SHOW)

$var1 = 1
Dim $message
HotKeySet("{DELETE}","Xfire")
HotKeySet("{END}","Stop")

While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
        Case $Button1
            Xfire()
        Case $Button2
        WEnd
        Exit


Func Xfire()
Sleep (6000)
Do
    ClipPut("$message")
    send("{enter}")
    Sleep (10)
    Until $var1 = 0
    EndFunc

Func Stop()
    $var1 = 0
EndFunc

[jinxter]

try this for a select...case... function

While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button1
            Xfire()
    Case $msg = $Button2
           msgbox(0,"About","about")
    Case Else
         ;;;;
   EndSelect
WEnd
Exit

Edited October 24, 2006 by jinxter

[AgentSmith15]

Wow I see what I did wrong

I've tried searching but I couldn't find a answer on how to create another window when the about button is pressed. What would be the best way doing this?

[jinxter]

the easiest way is to make a msgbox(). plain and simple.

another way is to use GUISetState() to show or hide the various windows. In which case it could be wise to use GUIOnEventMode() like this... (not the prettiest of code, but you should get the general idea)

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$MainWindow = GUICreate("Xfire Spammer", 406, 322, 203, 125)
GUICtrlCreateLabel("Hit Start and then as quickly as possible click in the Xfire Send message box.", 16, 8, 376, 17)
$Button1 = GUICtrlCreateButton("&Start", 16, 32, 89, 25)
$Button2 = GUICtrlCreateButton("&About", 304, 32, 89, 25)
$Input1 = GUICtrlCreateEdit("Delete this message and replace it with the spammers message." & @CRLF & "Press the End key to stop spamming.", 8, 72, 385, 237, -1)
GUICtrlSetOnEvent($Button1, "_start")
GUICtrlSetOnEvent($Button2, "_about")
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

$AboutWindow = GUICreate("about", 100, 100)
$AboutOKButton = GUICtrlCreateButton("&Ok", 16, 32, 89, 25)
GUICtrlSetOnEvent($AboutOKButton, "_exitabout")

GUISwitch($mainwindow)
GUISetState(@SW_SHOW)

While 1
    sleep(1000)
WEnd

func _about()
    GUISwitch($AboutWindow)
    GUISetState(@SW_SHOW)
EndFunc

func _start()
    ;;;
EndFunc

func _exitabout()
    GUISetState(@SW_HIDE)
    GUISwitch($mainwindow)
EndFunc
    
func _exit()
    Exit
EndFunc

Edited October 25, 2006 by jinxter