Krillr Posted January 28, 2009 Posted January 28, 2009 (edited) Ok, im kinda making a new bot AFK bot, but i got a few problems. expandcollapse popup#include <GUIConstantsEx.au3> Example() Func Example() Local $msg GUICreate("Krilleres AFK Bot", 341, 164, 328, 163) $Data1=GUICtrlCreateCombo("", 162, 58, 145, 25) GUICtrlSetData(-1, "Choose one!|Jump|Whisper|Emote|Walk around", "Choose one!") $Label1 = GUICtrlCreateLabel("Krilleres Anti AFK Bot", 24, 16, 301, 29) GUICtrlSetFont(-1, 12, 800, 2, "Kredit") $Input1 = GUICtrlCreateInput("", 162, 96, 145, 21) $Label2 = GUICtrlCreateLabel("Choose what kind", 8, 64, 89, 17) $Label3 = GUICtrlCreateLabel("Choose time interval", 8, 96, 99, 17) $Button1 = GUICtrlCreateButton("Anti Afk", 136, 128, 75, 25, 0) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $Button1 Then Select Case GUICtrlRead($Data1) = "Choose one!" $Event = "" Case GUICtrlRead($Data1) = "Jump" $Event = "" Case GUICtrlRead($Data1) = "Whisper" $Event = "" Case GUICtrlRead($Data1) = "Emote" $Event = "" Case GUICtrlRead($Data1) = "Walk around" $Event = "" WEnd EndFuncoÝ÷ ÙaÞ*îØb²è¶¦Û^[&zØZµa'uÚ²{aj÷Z¥zËZµéÒÊ-®'©"æÂÊÌçbØ^ ¡º1nëbvíz0øÂä±·jëܳ^&uçm«ij»m«fÊÇ+l¶iyÜ(®H§§¶+m¢·vØ^¶§*.r(±è§¶¢fènZ×h²¶§X¤zØZ´¸¤zØb±«¢+Ù ÍU% ÑɱI ÀÌØíÑĤôÅÕ½Ðí]±¬É½Õ¹ÅÕ½Ðì)5ͽà À°ÅÕ½ÐíQÍÐÅÕ½Ðì°ÅÕ½Ðí!±±¼°å½Ô¡½½Í]±¬É½Õ¹¸!Ùո贤ÅÕ½Ðì Or something like that, i dont know if that would work .-) Please help me, i really wanna make this bot work! Edited January 28, 2009 by Krillr
Moderators Melba23 Posted January 28, 2009 Moderators Posted January 28, 2009 Krillr,Try adding an EndSelect, it should solve the first problem!M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Krillr Posted January 28, 2009 Author Posted January 28, 2009 OK Done. But i still get the While 1 - WEnd Error :S
MyName Posted January 28, 2009 Posted January 28, 2009 Krillr 1st If $msg = $Button1 Then ;eXit Function ? EndIf 2nd Case GUICtrlRead($Data1) = "Walk around" $Event = "" EndSelect It will work -= [font="Verdana"]A Men Who believes in himself and not circumstances is the real Winner =-[/font]
Krillr Posted January 28, 2009 Author Posted January 28, 2009 Yay! it works Thanks. Now i just need to try the Case GUICtrlRead($Data1) = "Emote" MsgBox(64, "Emote", "You choosed Emote. Have fun") Thingy. Any easy way i can do this. And thanks again .-)
Krillr Posted January 28, 2009 Author Posted January 28, 2009 Wait, i think i might have something here :-) Thanks for all the help, ill tag this thread [solved] THANKS! Once again AutoIt nab Krillr gets help here ^^
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