Multi script program.

[Scorekeeper]

I want to make a script to send text.

For example:

if F1 is pressed send message 1.

So is Fx button is pressed Send Message x and so on.

Here is the script.

The other problem is the bot starts before entering the program.

Thanks a lot.

expandcollapse popup

Dim $spam, $Runbot, $about, $variable
$currentColor = 0
$count = 0


#include <GUIConstants.au3>
FileInstall("C:\Program Files\RoseBots\Images\Background.jpg", "C:\Program Files\RoseBots\Images\Background.jpg")
Global $Paused
HotKeySet("{ESC}", "EndScript")
opt("GUIOnEventMode", 1)
GUICreate("Spam Bot© By ScoreKeeper", 400, 335)
GUISetBkColor(6119597)
GUICtrlCreatePic("C:\Program Files\RoseBots\Images\Background.jpg", 0, 0, 400, 335, $WS_EX_TRANSPARENT)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$10 = GUICtrlCreateLabel("1. Login to ROSE and Alt-Tab back here.", 20, 70, 195, 15)
$1 = GUICtrlCreateLabel("This is a Spam Bot for Rose Online.", 40, 10, 180, 15)
$3 = GUICtrlCreateLabel("2. Select desired Spam Text.", 20, 85, 210, 15)
$4 = GUICtrlCreateLabel("4. Click Run Bot.", 20, 145, 90, 15)
$6 = GUICtrlCreateLabel("The Esc button will exit the script.", 20, 250, 160, 15)
$7 = GUICtrlCreateLabel("The Pause button will pause the script.", 20, 265, 185, 15)
$8 = GUICtrlCreateLabel("Spam Bot by ScoreKeeper AKA Darren Willows !", 20, 295, 230, 15)
$9 = GUICtrlCreateLabel("www.GamerzPlanet.net Copyright© 2005", 20, 310, 200, 15)
GUICtrlSetColor($10, 16768341)
GUICtrlSetColor($1, 16768341)
GUICtrlSetColor($3, 16768341)
GUICtrlSetColor($4, 16768341)
GUICtrlSetColor($6, 16768341)
GUICtrlSetColor($7, 16768341)
GUICtrlSetColor($8, 16768341)
GUICtrlSetColor($9, 16768341)
$button = GUICtrlCreateCombo( "F1", 20, 120, 100)
GUICtrlSetData(-1, "F2")
GUICtrlSetData(-2, "F3")
GUICtrlSetData(-3, "F4")
GUICtrlSetData(-4, "F5")
GUICtrlSetData(-5, "F6")
GUICtrlSetData(-6, "F7")
GUICtrlSetData(-7, "F8")

$sleep = GUICtrlCreateCombo( "0.2 second", 150, 120, 80)
GUICtrlSetData(-1, "0.5 seconds")
GUICtrlSetData(-2, "1 seconds")
GUICtrlSetData(-3, "2 seconds")
GUICtrlSetData(-4, "4 seconds")
GUICtrlSetData(-5, "6 seconds")
GUICtrlSetData(-6, "8 seconds")
GUICtrlSetData(-7, "10 seconds")
GUICtrlSetData(-8, "12 seconds")
GUICtrlSetData(-9, "14 seconds")

GUISetState(@SW_SHOW)


$Runbot = GUICtrlCreateButton("Run bot", 20, 180, 75)
GUICtrlSetOnEvent($Runbot, "Runbot")

$about = GUICtrlCreateButton ( "About", 315, 220, 75)
GUICtrlSetOnEvent($about, "Onabout")

$text = GUICtrlCreateInput ( "Please Input Text.", 40, 30, 250, 20)
While 1
    $msg = GUIGetMsg()
    
    Select
                Case $msg = $GUI_EVENT_CLOSE
            Send("{ESC}")              
                   Case GUICtrlRead ($text)
            Send (GUICtrlRead($text)& "{ENTER}")
            _Sleep()
        EndSelect


WEnd

Func Runbot()
    WinActivate("ROSE online")
    $Size = WinGetPos("ROSE online")
    $Width = $Size[2]
    $Height = $Size[3]
EndFunc ;==>Runbot

Func Onabout()
MsgBox(48,"Spam Bot© ", "Created by ScoreKeeper" & @CRLF & "Copyright© 2005.") 
EndFunc




Func _Sleep()
    Select
              Case GUICtrlRead($sleep) = "0.2 second"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(200)
        Case GUICtrlRead($sleep) = "0.5 second"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(500)          
        Case GUICtrlRead($sleep) = "1 second"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(1000)
        Case GUICtrlRead($sleep) = "2 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(2000)
        Case GUICtrlRead($sleep) = "4 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(4000)
        Case GUICtrlRead($sleep) = "6 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(6000)
        Case GUICtrlRead($sleep) = "8 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(8000)
        Case GUICtrlRead($sleep) = "10 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(10000)
        Case GUICtrlRead($sleep) = "12 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(12000)
        Case GUICtrlRead($sleep) = "14 seconds"
            ConsoleWrite(GUICtrlRead($sleep) & @LF)
            Sleep(14000)
    EndSelect
EndFunc  


Func Pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(1)
        ToolTip(' Bot is "Paused"', 0, 0)
    WEnd
    ToolTip("")

    While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Send("{ESC}")
        Case    GUICtrlRead ($button) = "F1"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F1}")
        Case    GUICtrlRead ($button) = "F2"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F2}")
        Case    GUICtrlRead ($button) = "F3"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F3}")
        Case    GUICtrlRead ($button) = "F4"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F4}")
        Case    GUICtrlRead ($button) = "F5"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F5}")
        Case    GUICtrlRead ($button) = "F6"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F6}")
        Case    GUICtrlRead ($button) = "F7"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F7}")
        Case    GUICtrlRead ($button) = "F8"
            ConsoleWrite(GUICtrlRead($button) & @LF)
            Send("{F8}")
    EndSelect
WEnd

    
EndFunc ;==>Pause



Func CLOSEClicked()
    Exit
EndFunc ;==>CLOSEClicked
Func EndScript()
    Exit
EndFunc

Any modifications would help.

I am making a multi bot and have probles with this and another part of the bot.

this script is a mess cos i do not know what to do.

Edited June 6, 2005 by Scorekeeper