Input text box into game.

[Scorekeeper]

Im trying to make a gui where you can make a input bot on the gui.

Like say input "how are you" every x seconds for a game.

All i have is this and its crap.

Thanks a lot.

Is this possible?

Also do not say use clipput ..... it does not work in the game.

expandcollapse popup

Dim $spam, $Runbot, $about
$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)

GUISetState(@SW_SHOW)

$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")

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

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



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("")
EndFunc;==>Pause

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

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

Edited June 5, 2005 by Scorekeeper