Scorekeeper Posted June 10, 2005 Posted June 10, 2005 (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.pngI 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 Fou-Lu - Bof4 "...Wouldst thou fight a god?"
MHz Posted June 10, 2005 Posted June 10, 2005 Have a look in the AutoIt Help file for GUICtrlCreateTab. Nice example on the page... Come back, if you have problems.
Scorekeeper Posted June 10, 2005 Author Posted June 10, 2005 K thanks, but i can not find anything on changing the bar at the top. Fou-Lu - Bof4 "...Wouldst thou fight a god?"
MHz Posted June 10, 2005 Posted June 10, 2005 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 Posted June 10, 2005 Author Posted June 10, 2005 Its the bar that says pbp evolution. I dont know how to make that. Fou-Lu - Bof4 "...Wouldst thou fight a god?"
JSThePatriot Posted June 10, 2005 Posted June 10, 2005 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)
Scorekeeper Posted June 10, 2005 Author Posted June 10, 2005 this will help a lot thanks. Fou-Lu - Bof4 "...Wouldst thou fight a god?"
Scorekeeper Posted June 10, 2005 Author Posted June 10, 2005 (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. 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 Fou-Lu - Bof4 "...Wouldst thou fight a god?"
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now