How to make a multi bot!

[Scorekeeper]

I am trying to make a multi bot but i do not know how.

here is an image for a auto program someone made.

http://img256.echo.cx/my.php?image=image8ff.png

I dont know how to make those tabs.... plz help.

also how do you make the close and minimze bit diffrent like in this prog.

Thanks a lot if anyone has any info.

Edited June 10, 2005 by Scorekeeper

[MHz]

Have a look in the AutoIt Help file for GUICtrlCreateTab.

Nice example on the page...

Come back, if you have problems.

[Scorekeeper]

K thanks, but i can not find anything on changing the bar at the top.

[MHz]

K thanks, but i can not find anything on changing the bar at the top.

<{POST_SNAPBACK}>

What bar?

You create your Tab, on the GUI, then you add your TabItems. The TabItems, like you see in the picture, are added, with the each TabItem.

[Scorekeeper]

Its the bar that says pbp evolution.

I dont know how to make that.

[JSThePatriot]

Here is the code to make a dialog box. (No buttons on title bar)

$maingui = GUICreate("pbp evolution", 145, 220, (@DesktopWidth - 145) / 2, (@DesktopHeight - 200) / 2, $WS_DLGFRAME)

Hope that helps,

JS

[Scorekeeper]

this will help a lot thanks.

[Scorekeeper]

This is what i have came up with.

But i do not k now how to make.

I tab x is pressed then show this script.

I thought if you put your script under the tab the the tab would send that script but it does not.

Heres a quick thing.... but the tabs dont apear.

expandcollapse popup

#include <GUIConstants.au3>

GUICreate("Test"); will create a dialog box that when displayed is centered

GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)

$tab=GUICtrlCreateTab (10,10, 200,100)

$tab0=GUICtrlCreateTabitem ("tab0")
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")
FileInstall("C:\Program Files\RoseBots\Images\SKILL BOT.bmp", "C:\Program Files\RoseBots\Images\SKILL BOT.bmp")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
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)
$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, 170, 15)
$3 = GUICtrlCreateLabel("2. Select desired Spam Text and time.", 20, 85, 180, 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)
GUICtrlCreatePic("C:\Program Files\RoseBots\Images\SKILL BOT.bmp",315,250,85,85,0,$WS_EX_STATICEDGE)




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

$text = GUICtrlCreateInput ( "Please Input Text.", 40, 30, 250, 20)
GUICtrlSetOnEvent($text, "Send_Message")


GUISetState(@SW_SHOW)

While 1
   Sleep(100)
Wend

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


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

Func Send_Message() 
While 1
    $msg = GUIGetMsg()
    Select
                Case $msg = $GUI_EVENT_CLOSE
            Send("{ESC}")
                    Case    GUICtrlRead ($text)
            ConsoleWrite(GUICtrlRead($text) & @LF)
            Send(GUICtrlRead ($text))
            Send("{ENTER}")
 EndSelect
    _Sleep()
WEnd
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 TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc


$tab1=GUICtrlCreateTabitem ( "tab----1")


$tab2=GUICtrlCreateTabitem ("tab2")


GUICtrlCreateTabitem ("")  ; end tabitem definition



GUISetState ()

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

I could not show the whole script as it is 1500 lines long.

I also knowi probally have a simple error but i have never made a multi bot and it confuses me.

Edited June 10, 2005 by Scorekeeper