Jump to content

ODPOA

Members
  • Posts

    9
  • Joined

  • Last visited

Everything posted by ODPOA

  1. I know this is possible because anti virus applications do it all the time. Can anyone tell me how to hide or lock a process so that the user cant close it or see it?
  2. ok for example if i put in 200 it would scan 200.0.0.0-200.225.225.225 The only problem it it takes 20 seconds per ip address. I have tried to edit tcp timeout but it does not help. Is there any way to make tcp stop attempting a connection and set the the socket to -1 after maybe 200ms? instead of 20 seconds? code: AutoItSetOption("TCPTimeout", "1") radmin("200") func radmin($startip, $endip="225.225.225.225") TCPStartup() for $x=0 to 225 $timer = TimerInit() $ip = $startIP&"."&$x&".0.0" Consolewrite($ip&@CRLF) $socket = TCPConnect($ip,"4899") If $socket = -1 Then ConsoleWrite($ip&" - NO - "&timerdiff($timer)&@CRLF) Else ConsoleWrite($ip&" - YES - "&timerdiff($timer)&@CRLF) EndIf Next TCPShutdown() EndFunc
  3. For some reason it will not exit process when done so must close with task manager. Works best with low detail Will work with high detail if pixel search locations are changed. have found way to exit for sure. replace old code for _exit() with this Func _Exit() ProcessClose(@AutoItPID) Exit EndFunc ;==>_Exit
  4. Here is a working bot, modified from this original bot at top of post. Auto login not quite right. AutoScape ; *** Start added by AutoIt3Wrapper *** #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> ; *** End added by AutoIt3Wrapper *** #NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Add_Constants=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;Made by Generator in AutoIt Forums ;UDF by Developers of AutoIt #include<Constants.au3> #include<windowsConstants.au3> #include<GUIConstants.au3> #include<IE.au3> #include<Misc.au3> #include<GuiComboBox.au3> #include<string.au3> #include<inet.au3> $abcdefg = 0 Opt("GUIOnEventMode", 1) Opt("GUICloseOnESC", 0) Dim $mode = 0, $version = "", $start = 0 Dim $DataClt[4], $Color[2] $DataClt[0] = "Number of tree/rock(s) to find before dropping inventory,2,28,16" $DataClt[1] = "Number of second(s) to wait before next tree/rock,2,60,7" $DataClt[2] = "Number of second(s) delay after right click dropping,1,5,1" $DataClt[3] = "Number of second(s) delay after each drop,1,5,1" HotKeySet("{ESC}", "_StopBot") HotKeySet("{insert}", "_insertBot") HotKeySet("{home}", "help") HotKeySet("{end}", "hidehelp") HotKeySet("+!o", "randoff") _Singleton("Autoscape") _IEErrorHandlerRegister() #Region Welcome GUI If FileExists("set.rs") Then $user1 = IniRead("set.rs", "login", "user", "") $pass1 = IniRead("set.rs", "login", "pass", "") $wrl1 = IniRead("set.rs", "world", "type", "") $user1 = _StringEncrypt(0, $user1, "rsuser", 5) $pass1 = _StringEncrypt(0, $pass1, "rspass", 5) Else $user1 = "" $pass1 = "" $wrl1 = "" EndIf $user = InputBox("Username", "Username, Used For Relogging In and Auto Logging in (required for autominer to work) [will be saved in an ecrypted file in " & @ScriptDir & " for future use]", $user1) $pass = InputBox("Password", "Password, Used For Relogging In and Auto Logging in (required for autominer to work)[will be saved in an ecrypted file in " & @ScriptDir & " for future use]", $pass1, "#") $wrl = InputBox("Members or non members", "A0 = Random non members world" & @CRLF & "A1 = Random members world" & @CRLF & "", $wrl1) IniDelete("set.rs", "login") IniDelete("set.rs", "world") IniWrite("Set.rs", "login", "user", _StringEncrypt(1, $user, "rsuser", 5)) IniWrite("Set.rs", "login", "pass", _StringEncrypt(1, $pass, "rspass", 5)) IniWrite("Set.rs", "world", "type", $wrl) UDPStartup() $helpmsg = "This is an undetectable 'Power Leveler'. It can be used on trees and ore. If set up right, it can even mine and drop Rune Essence. This program auto-mines and auto-drops, and drops only the item you select. (To disable use none.)" & @CRLF $helpmsg &= "1. (PRESS THE INSERT BUTTON TO AUTO-LOGIN YOU DON'T NEED TO PRESS ANYTHING ELSE, PRESS INSERT WHEN RUNESCAPE LOADS)." & @CRLF $helpmsg &= "2. Wait to log in." & @CRLF $helpmsg &= "3. Go to a mining/tree area and mine/cut one of the item you wish to train on, then click down on the 'Tree/Rock Color' button and hold down the mouse button and drag it over the color of ore/wood you wish to collect. Drag the 'Log/Ore Color' crosshair over a part of the wood/ore that is a different color than any other item in your inventory. " & @CRLF $helpmsg &= "4. Adjust the settings such as ore to mine, and time to wait for action by clicking the drop down box, selecting the setting and moving the slider." & @CRLF ;$helpmsg &= "5. Click Start and you will be asked if you wish to randomly talk every so often, if you click yes you need to format your sayings like this-" & @CRLF ;$helpmsg &= "6. (E.g.)flash1:My Name Is Zach / This is saying number two / This is sentance number three. You will need to use a '/' to seperate lines." & @CRLF $helpmsg &= "5. At any given time press the 'Home' key to see this information. (press end to hide it)" $NEWS = _INetGetSource("http://zachandlindsey.com/newnews.txt") $NEWS = StringRegExpReplace($NEWS, "<br />", @CRLF) $NEWS = StringRegExpReplace($NEWS, "&gt;", ">") $newsgui = GUICreate("news and Info", 700, 500) GUICtrlCreateEdit($NEWS, -1, -1, 350, 500) GUICtrlCreateLabel($helpmsg, 350, -1, 350, 500) GUISetState() WinSetState("news and Info", "", @SW_LOCK) WinSetOnTop("news and Info", "", 1) WinSetState("Autoscape", "", @SW_LOCK) $form0 = GUICreate("Autoscape", 400, 70, -1, -1, $WS_CAPTION, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) $label0 = GUICtrlCreateLabel("Welcome to Autoscape...Please wait for vertification....", 10, 5, 390, 20, -1) $progress0 = GUICtrlCreateProgress(10, 25, 240, 20, $PBS_SMOOTH) $label1 = GUICtrlCreateLabel("Looking for Java plug-in....", 10, 50, 240, 20, -1) GUISetState(@SW_SHOW, $form0) For $i = 0 To 100 Step 10 GUICtrlSetData($progress0, $i) Sleep(1) Next If Not _CheckJava() Then $label3 = GUICtrlCreateLabel("Get the latest Java", 260, 25, 140, 20, -1) GUICtrlSetData($label1, "Please install Java before continuing...") _HyperLink($label3) Else GUICtrlCreateLabel("Version: " & $version, 260, 25, 140, 20, -1) $label4 = GUICtrlCreateLabel("Start", 370, 50, 30, 20, -1) _HyperLink($label4) EndIf While Not $mode $Info0 = GUIGetCursorInfo($form0) If $version == "" Then If $Info0[2] And $Info0[4] = $label3 Then While _IsPressed("01") Sleep(1) WEnd _GetJava() Exit EndIf ElseIf $Info0[2] And $Info0[4] = $label4 Then While _IsPressed("01") Sleep(1) WEnd $mode = 1 GUIDelete($form0) EndIf Sleep(1) WEnd #EndRegion Welcome GUI #Region Main GUI $form1 = GUICreate("Autoscape", 830, 600, -1, -1, -1, $WS_EX_CLIENTEDGE) $oIE = _IECreateEmbedded() $guiactivex = GUICtrlCreateObj($oIE, 20, 10, 790, 513) If $wrl = "A0" Then _IENavigate($oIE, "http://www.runescape.com/game.ws?m=0&j=1", 0) ElseIf $wrl = "A1" Then _IENavigate($oIE, "http://www.runescape.com/game.ws?m=1&j=1", 0) Else _IENavigate($oIE, "http://www.runescape.com/game.ws?m=1&j=1", 0) EndIf $combo0 = GUICtrlCreateCombo("", 20, 530, 400, 20, $CBS_DROPDOWNLIST) GUICtrlSetData($combo0, String(_GetComboTxt())) GUICtrlSetFont($combo0, 9, 400, 0, "Tahoma") _GUICtrlComboBox_SetCurSel($combo0, 0) $slider0 = GUICtrlCreateSlider(20, 555, 400, 20, $TBS_NOTICKS) $label2 = GUICtrlCreateLabel("", 20, 575, 20, 20, -1) $label5 = GUICtrlCreateLabel("", 400, 575, 25, 20, -1) $label6 = GUICtrlCreateLabel("", 160, 575, 200, 20, -1) GUICtrlSetFont($label6, 9.5, 400, 0, "Tahoma") _SelectCombo($label2, $label5, $label6, $slider0, $DataClt, _GUICtrlComboBox_GetCurSel($combo0)) GUICtrlSetCursor($slider0, 0) $button0 = GUICtrlCreateButton("+", 430, 555, 100, 40, -1) GUICtrlSetFont(-1, 30, 400) GUICtrlSetCursor(-1, 3) $button1 = GUICtrlCreateButton("+", 535, 555, 100, 40, -1) GUICtrlSetCursor(-1, 3) GUICtrlSetFont(-1, 30, 400) $label7 = GUICtrlCreateLabel("Tree/Rock Color", 430, 530, 100, 20, $SS_CENTER) GUICtrlSetFont(-1, 9.5, 400, 0, "Tahoma") $label8 = GUICtrlCreateLabel("Log/Ore Color", 535, 530, 100, 20, $SS_CENTER) GUICtrlSetFont(-1, 9.5, 400, 0, "Tahoma") $button2 = GUICtrlCreateButton("Start Training", 640, 530, 170, 65, -1) GUICtrlSetFont(-1, 16, 400, 0, "Century Gothic") GUICtrlSetOnEvent($button2, "_Start") GUICtrlSetOnEvent($slider0, "_UpdateSlider") GUICtrlSetOnEvent($combo0, "_Combo") GUISetOnEvent($GUI_EVENT_MINIMIZE, "_StopBot") GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") GUISetState(@SW_SHOW, $form1) While 1 $Info1 = GUIGetCursorInfo($form1) If $Info1[2] And $Info1[4] = $button0 Then While _IsPressed("01") Sleep(1) WEnd _GetColor(0) ElseIf $Info1[2] And $Info1[4] = $button1 Then While _IsPressed("01") Sleep(1) WEnd _GetColor(1) EndIf While $start $amount0 = StringSplit($DataClt[0], ",", 1) For $i = 1 To $amount0[4] If $start = 0 Then ExitLoop $Winpos = WinGetPos($form1, "") $Search0 = PixelSearch($Winpos[0]+20, $Winpos[1]+10, $Winpos[0] + 780, $Winpos[1] + 523, $Color[0], 0, 1) If Not @error Then Mousemove( $Search0[0]+2, $Search0[1]+2,2) Sleep(Random(900,1500,1)) MouseClick("Left") Sleep(Random(900,1500,1)) send("{left down}") Sleep(Random(200,500,1)) send("{left up}") send("{up down}") Sleep(Random(200,500,1)) send("{up up}") send("{right down}") Sleep(Random(200,500,1)) send("{right up}") send("{down down}") Sleep(Random(200,500,1)) send("{down up}") $amount1 = StringSplit($DataClt[1], ",", 1) $Timer = TimerInit() Do Sleep(1) If $start = 0 Then ExitLoop Until TimerDiff($Timer) > Number($amount1[4] * 1000) EndIf Sleep(1) Next $amount2 = StringSplit($DataClt[2], ",", 1) $amount3 = StringSplit($DataClt[3], ",", 1) For $ii = 1 To 28 If $start = 0 Then ExitLoop $WinPos0 = WinGetPos($form1, "") $Search1 = PixelSearch($Winpos0[0]+20 + 545, $Winpos0[1]+10 + 205, $Winpos0[0] + 810, $Winpos0[1] + 523, $Color[1], 0, 1) If Not @error Then MouseMove($Search1[0]+2, $Search1[1]+2,2) Sleep(Random(900,1500,1)) MouseClick("Right") Sleep($amount2[4] * 1000) MouseMove($Search1[0]+2,$Search1[1]+35+3,2) MouseClick("Left") Sleep($amount3[4] * 1000) EndIf Sleep(1) Next Sleep(1) WEnd Sleep(1) WEnd #EndRegion Main GUI Func _HyperLink($label) GUICtrlSetColor($label, 0x1B2392) GUICtrlSetFont($label, 8.5, 400, 4, "Arial") GUICtrlSetCursor($label, 0) EndFunc ;==>_HyperLink Func _CheckJava() $regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Web Start", "CurrentVersion") $version = String($regread) If Not @error Then Return $version And 1 Else Return 0 EndIf EndFunc ;==>_CheckJava Func _GetJava() _IECreate("www.java.com/getjava/", 0, 1, 0, 0) EndFunc ;==>_GetJava Func _Exit() Exit EndFunc ;==>_Exit Func _GetComboTxt() Local $split, $combotxt = "" For $i = 0 To UBound($DataClt, 1) - 1 $split = StringSplit($DataClt[$i], ",", 1) $combotxt = $combotxt & $split[1] & "|" If $i = UBound($DataClt, 1) - 1 Then StringTrimRight($combotxt, 1) Next Return $combotxt EndFunc ;==>_GetComboTxt Func _SelectCombo($min, $max, $current, $slider, $array, $index) Local $split $split = StringSplit($array[$index], ",", 1) GUICtrlSetData($min, $split[2]) GUICtrlSetData($max, $split[3]) GUICtrlSetData($current, "Current Value: " & $split[4]) GUICtrlSetLimit($slider, $split[3], $split[2]) GUICtrlSetData($slider, $split[4]) EndFunc ;==>_SelectCombo Func _Combo() _SelectCombo($label2, $label5, $label6, $slider0, $DataClt, _GUICtrlComboBox_GetCurSel($combo0)) EndFunc ;==>_Combo Func _UpdateSlider() Local $split, $trimright $split = StringSplit($DataClt[_GUICtrlComboBox_GetCurSel($combo0)], ",", 1) $trimright = String(StringTrimRight($DataClt[_GUICtrlComboBox_GetCurSel($combo0)], StringLen($split[4])) & GUICtrlRead($slider0)) $DataClt[_GUICtrlComboBox_GetCurSel($combo0)] = $trimright GUICtrlSetData($label6, "Current Value: " & GUICtrlRead($slider0)) EndFunc ;==>_UpdateSlider Func _GetColor($number) Local $Colordata $Colordata = PixelGetColor(MouseGetPos(0), MouseGetPos(1)) $Color[$number] = $Colordata EndFunc ;==>_GetColor Func _Start() GUICtrlSetState($button0, $GUI_DISABLE) GUICtrlSetState($button1, $GUI_DISABLE) GUICtrlSetState($button2, $GUI_DISABLE) GUICtrlSetState($slider0, $GUI_DISABLE) GUICtrlSetState($combo0, $GUI_DISABLE) $start = 1 EndFunc ;==>_Start Func _StopBot() WinSetState("Autoscape", "", @SW_UNLOCK) If $start Then $start = 0 GUICtrlSetState($button0, $GUI_ENABLE) GUICtrlSetState($button1, $GUI_ENABLE) GUICtrlSetState($button2, $GUI_ENABLE) GUICtrlSetState($slider0, $GUI_ENABLE) GUICtrlSetState($combo0, $GUI_ENABLE) $abcdefg = 0 EndIf EndFunc ;==>_StopBot Func _insertBot() $Winpos = WinGetPos($form1, "") MouseMove($Winpos[0] + 805, $Winpos[1] + 547) MouseDown("left") Sleep("1000") MouseUp("left") MouseMove($Winpos[0] + 600, $Winpos[1] + 547) MouseClick("left") Sleep(500) Send("{ENTER}", 0) Sleep(1000) Send($user & "{ENTER}" & $pass, 0) Sleep(500) Send("{ENTER}", 0) Sleep(6000) MouseMove($Winpos[0] + 450, $Winpos[1] + 380) MouseClick("Left") EndFunc ;==>_insertBot Func help() WinSetState("news and Info", "", @SW_SHOW) EndFunc ;==>help Func hidehelp() WinSetState("news and Info", "", @SW_HIDE) EndFunc ;==>hidehelp Func randoff() MsgBox(64, "Anti Randoms", "'Anti Randoms' is now off") EndFunc ;==>randoff
  5. Is there any way to inject a process into another process? For example to hack games people inject .dll files which have some sort of end effect (i would assume this is like multi-threading however giving the DLL access to the inter workings of the game allowing for wall hacks, and other such effects) So is there anyway to inject and executable the way you would a DLL??
  6. Great to see that the concerns of mine have been addressed, and it looks like I can begin development of an simple little FPS using the Irrlicht3D wrapper thanks
  7. Hello, I was simply wondering if there was a way to run an executable this way. So instead of using file install simple use this method to include an executable(or its binary data as a string) and then run the application without ever writing it to a file. I was just wondering if it was possible. And if so, hwo would one go about doing so. Thanks
  8. to the developer of this project: device.CursorControl.Visible = false; needs to be included in the DLL.
  9. The engine supports GL & D3D. It runs off Irrlicht. It's basically an wrapper for AutoIT. To exit out of the mouse problem ALT-F4 it, Cuase I couldn't taskmanage it as my mouse was locked. Btw. Darth Vader is not supposed to appear white. I think something is wrong with your graphics card, or maybe even quite possibly - your monitor. There are different graphic modes to pick, So I suggest you pick up a copy of the Irrlicht3D Manual and look through that.
×
×
  • Create New...