Sign in to follow this  
Followers 0
Scorekeeper

How to make a multi bot!

8 posts in this topic

#1 ·  Posted (edited)

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 by Scorekeeper

Fou-Lu - Bof4 "...Wouldst thou fight a god?"

Share this post


Link to post
Share on other sites



Have a look in the AutoIt Help file for GUICtrlCreateTab.

Nice example on the page...

Come back, if you have problems.

:(

Share this post


Link to post
Share on other sites

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


Fou-Lu - Bof4 "...Wouldst thou fight a god?"

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Its the bar that says pbp evolution.

I dont know how to make that.


Fou-Lu - Bof4 "...Wouldst thou fight a god?"

Share this post


Link to post
Share on other sites

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


AutoIt Links

File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out.

ComputerGetInfo UDF's Updated! 11-23-2006

External Links

Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more)

Share this post


Link to post
Share on other sites

this will help a lot thanks.


Fou-Lu - Bof4 "...Wouldst thou fight a god?"

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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.

#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 by Scorekeeper

Fou-Lu - Bof4 "...Wouldst thou fight a god?"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0