The713

Alright, Im making a simple aimbot for a net game, then Im gonna see if I can get a better score personally than my bot. My bot is not working well with arrays for some reason. help me out please. ;controls for my bot HotKeySet("{ESC}", "_Exit") HotKeySet("{f1}", "_Start") HotKeySet("{f2}", "_Pause") ;start program in paused state _Pause() Func _Start() While True $coord = PixelSearch(59, 61, 825, 541, 0xB58054) ;Find the pixel Im looking for MouseMove( $coord[0], $coord[1], 10) ;Move To Spot MouseClick("left") :click left mouse button to fire on spot Sleep(50) WEnd EndFunc Func _Pause() While True Sleep(250) WEnd EndFunc Func _Exit() Exit EndFunc Program starts up into Pause function fine, but when F1 is pressed I get this error: Please help me. I must be missing something.

Currently I am just messing around with my scripts and learning the tcp/ip function and getting to know how to make em cooperate with my scripts. I was wondering if there was a way for me to send AutoIT functionality to another computer on my home network without previously installing any client or server scripts to them. My Current Server and Client Script are below. test_Server.au3 CODE ;server #include <GUIConstants.au3> ; Set Some reusable info ; Set your Public IP address (@IPAddress1) here. Dim $szIPADDRESS = @IPAddress1 Dim $nPORT = 33891 ; Start The TCP Services ;============================================== TCPStartUp() ; Create a Listening "SOCKET". ; Using your IP Address and Port 33891. ;============================================== $MainSocket = TCPListen($szIPADDRESS, $nPORT) ; If the Socket creation fails, exit. If $MainSocket = -1 Then Exit ; Create a GUI for messages ;============================================== Dim $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")",300,200) Dim $edit = GUICtrlCreateEdit("",10,10,280,180) GUISetState() ; Initialize a variable to represent a connection ;============================================== Dim $ConnectedSocket = -1 ;Wait for and Accept a connection ;============================================== Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> -1 ; Get IP of client connecting Dim $szIP_Accepted = SocketToIP($ConnectedSocket) Dim $msg, $recv ; GUI Message Loop ;============================================== While 1 $msg = GUIGetMsg() ; GUI Closed ;-------------------- If $msg = $GUI_EVENT_CLOSE Then ExitLoop ; Try to receive (up to) 2048 bytes ;---------------------------------------------------------------- $recv = TCPRecv( $ConnectedSocket, 2048 ) ; If the receive failed with @error then the socket has disconnected ;---------------------------------------------------------------- If @error Then ExitLoop ; Update the edit control with what we have received ;---------------------------------------------------------------- If $recv <> "" Then _Command($recv) GUICtrlSetData($edit, $szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit)) EndIf WEnd If $ConnectedSocket <> -1 Then TCPCloseSocket( $ConnectedSocket ) TCPShutDown() ; Function to return IP Address from a connected socket. ;---------------------------------------------------------------------- Func SocketToIP($SHOCKET) Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]") Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _ "ptr",DLLStructGetPtr($sockaddr),"int_ptr",DLLStructGetSize($sockaddr)) If Not @error And $aRet[0] = 0 Then $aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($sockaddr,3)) If Not @error Then $aRet = $aRet[0] Else $aRet = 0 EndIf $sockaddr = 0 Return $aRet EndFunc ;Function To Determine Commands ;--------------------------------------------------------------------- Func _Command($string) $cmdparams = StringSplit($string, ".") If $cmdparams[1] = "beep" Then _Beep($cmdparams[2], $cmdparams[3], $cmdparams[4]) ElseIf $cmdparams[1] = "msg" Then _Msg($cmdparams[2], $cmdparams[3], $cmdparams[4], $cmdparams[5]) ElseIf $cmdparams[1] = "mouse" Then _Mouse($cmdparams[2], $cmdparams[3], $cmdparams[4], $cmdparams[5]) ElseIf $cmdparams[1] = "tooltip" Then _ToolTip($cmdparams[2], $cmdparams[3], $cmdparams[4]) ElseIf $cmdparams[1] = "speak" Then _Speak($cmdparams[2]) EndIf EndFunc Func _Beep($freq, $time, $looped) $x = 0 While $x < $looped Beep($freq, $time) $x = $x + 1 WEnd EndFunc Func _Msg($string, $flag, $title, $looped) $x = 0 While $x < $looped MsgBox($flag, $title, $string) $x = $x + 1 WEnd EndFunc Func _Mouse($x, $y, $looped, $wait) $a = 0 While $a < $looped MouseMove($x, $y) Sleep($wait) $a = $a + 1 WEnd EndFunc Func _ToolTip($string, $x, $y) ToolTip($string, $x, $y) EndFunc Func _Speak($text) Dim $voice = ObjCreate("Sapi.SpVoice") $voice.Speak($text) EndFunc test_Client.au3 CODE;client ;CLIENT! Start Me after starting the SERVER!!!!!!!!!!!!!!! ; see TCPRecv example #include <GUIConstants.au3> ; Start The TCP Services ;============================================== TCPStartUp() ; Set Some reusable info ;-------------------------- Dim $szIP = InputBox("Connecting", "Enter I.P. To Connect To", "") ; Set $szIPADDRESS to wherever the SERVER is. We will change a PC name into an IP Address Dim $szIPADDRESS = $szIP Dim $nPORT = 33891 ; Initialize a variable to represent a connection ;============================================== Dim $ConnectedSocket = -1 ;Attempt to connect to SERVER at its IP and PORT 33891 ;======================================================= $ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT) Dim $szData ; If there is an error... show it If @error Then MsgBox(4112,"Error","TCPConnect failed with WSA error: " & @error) ; If there is no error loop an inputbox for data ; to send to the SERVER. Else ;Loop forever asking for data to send to the SERVER While 1 ; InputBox for data to transmit $szData = InputBox("Data for Server",@LF & @LF & "Enter data to transmit to the SERVER:") ; If they cancel the InputBox or leave it blank we exit our forever loop If @error Or $szData = "" Then ExitLoop ; We should have data in $szData... lets attempt to send it through our connected socket. TCPSend($ConnectedSocket,$szData) ; If the send failed with @error then the socket has disconnected ;---------------------------------------------------------------- If @error Then ExitLoop WEnd EndIf I realize that they are pretty much ripped right from the Help file it's self but I havn't really started messing with changing things up to much. These scripts work fine as long as I put the server script on another computer and make it run. I can use the client script to connect and use any of the function of the server script thanks to the String functions. I would like to be able to use the functions of the server script without the need of the server script. (i.e. I could use the _Speak function, type in what I would like to say from my computer and a computer at another IP would say it without having the server script or any other script on it.) I know this sounds rather devious but what learning without a little fun. Plus it would really freak my brother out when he is up at night playing games and his computer starts talking to him. xD any help would be much appreciated with this, clues, or points in the right direction. Even if its not possible, someone please inform me. Thanks. P.S. I realize I am rather terrible at commenting my programs. I really must work on getting in the habit of commenting functions I create and such.

I do realize there already are programs that do as such but instead of just taking someone else stuff, I would much rather enjoy learning how to creat my own means of performing my task. Thanks for the help attempts people.

Here is what I would like to be able to do, something so ver simple. So simple it is even an example in the help file. However, I cannot even get the example to work, with the correct changes. I would like to run a script on my laptop that will start windows media player on my desktop PC. However, it will not work. There is no password or user name entry to put in an I made the change only where it need the name of the computer. I would like to do this without server/client scripts and just make one script on my computer. I could make the server/client, and perhaps that would be easier, but I don't know how to do this and would like to know how. Any suggestions or tips or corrections in my errors, please do let me know. The Example Code From The Help File On The Topic Of ObjCreate: CODE$oRemoteMedia = ObjCreate("MediaPlayer.MediaPlayer.1","name-of-computer) If not @error then Msgbox(0,"Remote ObjCreate Test","ObjCreate() of a remote Mediaplayer Object successful !") $oRemoteMedia.Open( @WindowsDir & "\media\Windows XP Startup.wav") ; Play sound if file is present Else Msgbox(0,"Remote ObjCreate Test","Failed to open remote Object. Error code: " & hex(@error,8)) Endif I'm not sure but maybe I misused the function. I guess not all functions are created as equal. Much appreciated, -The713

You may have bypassed the gameguard but gameguard would still be running. If GameGuard detects any change to files within the maplestory directory as well as any third party programs trying to attahc to maplestory it will exit maplestory.. I just read this today while looking for a bypass for gameguard..

Hello everyone, just thought I would drop a small brick on my foot here. I have plans to start designing a chat programming thank to inspiration from all of the various chatting programs I've found on the forums. Then I stumbled upon the database capabilities and such, thanks to a project I was givin in my programming class. So I have now planned to make some kind of interesting chat client and server, and give the server databasing capabilities, so one can log in and not worry about people stealing names or such. I think this should be quite fun, however I keep having issues with the SQLite trying to work. I cannot seem to read from my test.db file. So, I really don't know if I'm even writing to the created table or even if the table itself has been created. So much fun indeed. Well, the point of this thread was to warn newbies to programming to stay away from awesomely fun programs, at least until you know a bit more what you are doing. Don't be like me and get ahead of yourself. As for me, back to the basics. Gonna have to create a chat server without databasing as well as a seperate program to test out databasing. Back to the drawing board In over his head, The 713

Alright, things are working for me now, lol, thanks for the help you two

Now I keep getting "The requested action with this object has failed." error when I run

I would simply like to control the speed withint the TalkOBJ function, I tried to mod something thinking, who knows maybe it will work. Here is what I did. _TalkOBJ("I Hope This Works", 60) _TalkOBJ("I Hope This Works Again", 40) Func _TalkOBJ($s_text, $s_speed) Local $o_speech = ObjCreate("SAPI.SpVoice") $o_speech.Speak($s_text) $o_speech.Speed($s_speed) ; modded part which doesnt work $o_speech = "" EndFunc

I have some friends that wanted a bot for a game called Scions of Fate, Taking screen shots gave me a strange problem, no matter how many I take it always gives me the save color reading.. black.. solid black.. stupid games and their hack free systems..

this is actually something quite simple, you should attempt to work on things yourself more. Throwing everyone's little scripts into a multi tasking program, still isn't you mkaing them yourself. I just typed this up, I can't test it on my laptop becuase it is running Windows XP Media Center and for some reason the tray tip function doesnt work for me. Remember to use the help file more often. CODE;if you want the coordinates relative to the GUI set to 0, set to 1 if you want absolute screen coordinates. Opt("MouseCoordMode", 0) ;to close the script HotKeySet("{F5}", "Close") While 1 ;get the position of the mouse $pos = MouseGetPos() ;display the position of the mouse using tray tip, ensures that its isplayed above everything else TrayTip("Mouse Pos:", " X: "& $pos[0] &" Y: "& $pos[1], 1000) Wend Func Close() Exit EndFunc

Alright Thanks,

My program is pretty much a macro for a text based IE game, so far everything is running smoothly, but it you click to fast it will send an error messege to you. My gui coords are based off the GUI in focus. when the messege pops up it takes focus off the gui thus messing with my scripts coordinates, I need a way to fix this by either detecting the messege box and send enter or someother way, any snippets that may help? Much Appreciated - Andrew (The713)

By chance is the game your trying to bot involve Game Guard in anyway? I've had problems with game gaurd making it quite hard for me to run my scripts. It seems once Game Guard starts that my background script become null and void. Which is what made it hard for me to bot a game called Maple Story, or mkae imple scripts to help with key combos for other games such as Gunz. I am currently working on a botting system for RaceWarKingdoms. I'm curious as to what game you are hoping to bot, there are multiple WoW scripts on here so it must me something different. Well, I'm not sure how much help I can be, I may be back to post a small script I've just thought up which will give you the mouse position and hex code for the pixel at that coord. But first I have to ask, do you want the coordinates relitive to the application or absolute to the entire sceen?

The creator of racewarkingdoms, Jeff, did a very good job at hiding a lot of his code. As far a I know, there has not been a macro or botting program capable of bottin through this game. Good job, indeed, Jeff. However he never expected a dedicated learner to test is skills and knowledge against his game and actually suceed. (Sorta) I have already made a script that kills things for this and levels you, however, its all mousemove meaning it controls your computer leaving you unable to use it while itsrunning. I also came acrossed another problem, I have a few friends that want the scripts all with different screen resolutions. I set mine up specifically for my screen. So I've started my newest project in my box of stuff to do. RwK Smart Clicker 3.0 runs using an embedded IE with easy to use instructions to the side. So far all I have is the prototype outlined and the previous scripts to go from. It doesn't look bad, and I have set the GUi to be 600x800 so most screens should run without any problem. This thing runs through a series of checks of priority. It will even pass security checks once its fully functional. Priotity list. Checks For Error Messege If True Then Close It Checks For Security Checks If True Then Passes It Checks For Delay Bar When Empty Continue Checks For Stats Train If True Then Train Stats If All False Then Attack Monster I'm running a lot of pixilgetcolor functions in key location to do all this of course. version 1 was a simple mapped out script that just ran straight version 2 was running though a series of checks and behaviors based on those (sort of an AI system) version 3 will be compatable on all screen resolutions and pass security checks completly, virtually fool proof Only down fall is I cant run it in the background, It's a more primitive means of getting the same product though. but perhaps I will save this for version 4? lol, email me at trighap@hotmail.com and I will get back to you when I finish this if you would like to look though the code or use it.

Ha ha, I completly overlooked that... Already started on another version of the script... good thing I saved the old one. Thanks, Dale. I feel ignorant.. ha ha.. but my script works now..

Never mind, turns out that the site I connected to is streaming the top banner. For some reason I can't activate GUI until the entire thing is loaded.. Since it takes a while for the banner to play, I'm just gonna find a way to bypass it.

Everything was working then I added a few things and it stopped working. It's failry Simply thus far. But When The ControlPanel() loads the embedded IE works fune, but no other object will work such as the buttons or even exiting out the window, even though I have the GuiGetMsg() loop set up. Alright here is my code, someone tell me whats wrong with it, please. CODE#include <GuiConstants.au3> #include <IE.au3> HotKeySet("{ESC}", "ExitApp") ;If you can't close, hit ESC to close MsgBox(48, "IMPORTANT!!", "Read The Following Messege Then Close It To Begin.") StartUp() ControlPanel() Func StartUp() GuiCreate("RwK Smart Clicker v-3.0 Beta", 300, 300) GUICtrlCreateEdit( _ " RaceWarKingdoms Smart Clicker v-3.0 Beta Release" & @CRLF & _ " " & @CRLF & _ " - RwK Smart Clicker 3.0 works by taking control of " & @CRLF & _ " your mouse and running through a serious of set " & @CRLF & _ " behaviors. These 'behaviors' are run through " & @CRLF & _ " a priority check, thus being very effective while " & @CRLF & _ " training. You could virtually play for hours while" & @CRLF & _ " you worked on other things. " & @CRLF & _ " " & @CRLF & _ " - Set Up To Help You Play Without Doing Any Real Work"& @CRLF & _ " " & @CRLF & _ " - Just Choose Your Monster And Click The 'Go' Button" & @CRLF & _ " " & @CRLF & _ " - WARNING: Security Checks Currently Do NOT Pass " & @CRLF & _ " themselves. You must pause the script by pressing " & @CRLF & _ " F5, then pass the check yourself, then resume by " & @CRLF & _ " pressing the 'Go' Button again. " & @CRLF & _ " *** I AM NOT RESPONSIBLE FOR ANY ACCOUNTS BANNED ***" & @CRLF _ , 0, 0, 300, 300, $ES_READONLY) GuiSetState(@SW_SHOW) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop EndIf WEnd GuiDelete() EndFunc Func ControlPanel() _IEErrorHandlerDeRegister() $objIE = _IECreateEmbedded() ;$objIE will be an embedded IE window object $controlPanel = GuiCreate("RwK Smart Clicker v-3.0", 900, 550, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj($objIE, 100, 0, 800, 550) ;embedded IE window $btnTrain = GuiCtrlCreateButton("GO", 5, 5, 90, 30) GuiSetState(@SW_SHOW, $controlPanel) ; Show Gui _IENavigate($objIE, "rwk2.racewarkingdoms.com") ;navigate the window to RwK server 2 ;keep aplication running until "x"d out While 1 $guiMsg = GUIGetMsg() Select Case $guiMsg = $GUI_EVENT_CLOSE Exit Case $btnTrain $TrainConfirm = MsgBox(4, "Start Training??", "The Script Will Now Take Control of Your Mouse Until You Press F5, Continue?") If $TrainConfirm = 6 Then Test() EndIf EndSelect WEnd EndFunc ;temporary filler function for testing Func Test() MsgBox(0, "Test", "Test Successfull") EndFunc Func ExitApp() Exit EndFunc

I am reading the file names with the _FileListToArray but I would like the Menu length to change with the amount of files so that all files are listed. Rather tricky for me actually. Im sure the solution will seem simple of only I could figure out what it might look like. So far I can set it up alright but I have to edit the code whenever I want to read more files. GuiCreateMenuItem() for each file. I'm not sure how to set up a dynamic menu. Anymore help?

Thank for the help, Im going to work on this right away. Much appreciative for the replies. Thank cjconstantine and 4gotn1 for the suggestions.

My Project: I am working on a basic text based game, I like to call the arena, where two character (player versus computer) enter the arena and battle to the death. Its failt basic rules, not much graphics to it yet, but we all have to start with a basic concept before developing details right? the player will be able to choose opponents, gain money, gain eperience, level up, buy better equipment, the basics for now. My Problem: I am working at the beginning and have come acrossed something I cannot figure out, and I have put several hours already into this. The basic File menu I have has three menu items, New Character, Load Character, and exit. I would like the Load Character item to branch out into all the character files found in the Character Library folder. My code so far: CODE; Include Files #include <GUIConstants.au3> #include <File.au3> #include <Array.au3> ; Call For Start Menu Functions To Start The Program SM_Start() Func SM_Start() $StartMenu = GuiCreate("Areana", 640, 500) GuiSetState(@SW_SHOW, $StartMenu) $background = GuiCtrlCreatePic("../MediaLibrary/ArenaBGImage.jpg", 0,0, 640, 480) ;set the image to the background so controls overlap it GuiCtrlSetState(-1, $GUI_DISABLE) $FileMenu = GuiCtrlCreateMenu(" &File ") $FileMenu_Opt1 = GuiCtrlCreateMenuItem("&New Character", $FileMenu, 1) $FileMenu_Opt2 = GuiCtrlCreateMenuItem("&Load Character", $FileMenu, 2) $FileMenu_null = GuiCtrlCreateMenuItem("", $FileMenu, 3) $FileMenu_Opt3 = GuiCtrlCreateMenuItem("E&xit", $FileMenu, 4) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $FileMenu_Opt1 NeedsWork() Case $msg = $FileMenu_Opt2 LoadCharMenu() Case $msg = $FileMenu_Opt3 Exit EndSelect WEnd EndFunc ;filler function for areas that need work or have not been completed Func NeedsWork() MsgBox(48, "Guess What", "This Function Is Still Under Construction.") EndFunc Func LoadCharMenu() $characters = _FileListToArray("../CharacterLibrary", "*") ;testing to see if $counter = 0 While $counter <> _ArrayMax($characters) + 1 MsgBox(0, "Character", $characters[$counter]) $counter = $counter + 1 WEnd EndFunc The characters are reading to the messege box fine, so far everything works as it should, except I would like to get the Load Character menu item to list all avialable characters, even if new ones are created later. Any help is greatly appreciated.

Anyone else? I really need some direction here, planning to browse the furoms some more for similar projects, perhaps find some code that can show me something.

I'm not a full newb, and I get sick of "hello world"s rather fast, i pick things up rather quickly, after all all that ever changes is the language the concet is always the same. Thanks though, I am currently looking through some of the helpfile and examples. I'm not sure I know where to start though. Hence the need in help.

Hello everyone, first of all thank you for taking the time to view this. I would hate to be a hassel but this is going to sound like multiple topics I have been looking through lately. I am not all that new to AutoIt though I am very new to scripting and programming. I have dabbled in a few languages sush as Java and C++, now currently working on Visual Basic .NET at my Tech School program. And where I understand the extreme basics of programming, I am a bit lost and lacking on direction. I have been messing around with AutoIt for a little over a year now and I regret to say it is ridiculus how much I don't knowabout this language. I havn't even been through all the help files. I know that the help files alone can help a great deal but it is all a matter of how you combine what you learn and put it to use. Introduction over, heres my point: I am planning a project and have a few at least layed out a few objectivesbefore I start planning a structure for it. I would like to create a botting program for a 2D side scroller game. Objectives: -Search For Monsters (Pixel Search Function For This) -Auto Move To Within Attacking Range (Coordinate System) -Auto Loot The Body (Also Coordinate System I Think) -Auto Potions When Needed (Not sure how to read an in game bar, yet) -Auto Responses To Chat (Not sure how to read an in game chat box, yet) -Game Runs Within A GUI (IF this is possible, and wiht Auto It, there are seemingly limitless possibilities) Those are the primary Objectives, but I'd like to do this one bit at a time, as I am in no hurry. I know how to send input and I know im gonna have to look into PixelSearch functions. But I would like any direction to this that may help me, tips or anything, all is appreciated. By the way, the game I've chosen to test my scripts already has extensive problems with hackers, so I know that the system is easy to get through, and it will seem like I myself am sending the input commands anyways. Again, any tips are much appreciated in guiding me to learn more on this. Thanks for your time. - The713