PawBear Posted February 13, 2007 Share Posted February 13, 2007 I have the basic autoit file. for it if you need refernce. it works on a game. and i have all that you need to look at it. and basicly as of now the autoit can only click rightclick and i dont know how to make it send shift key and click left at same time. if someone could help me. pm me or post here and ill post the code for the original file thne you can maybey edit it. Link to comment Share on other sites More sharing options...
Paulie Posted February 13, 2007 Share Posted February 13, 2007 I have the basic autoit file. for it if you need refernce. it works on a game. and i have all that you need to look at it. and basicly as of now the autoit can only click rightclick and i dont know how to make it send shift key and click left at same time. if someone could help me. pm me or post here and ill post the code for the original file thne you can maybey edit it.Code = helpNo code = no helpPost code please Link to comment Share on other sites More sharing options...
jjldj Posted February 13, 2007 Share Posted February 13, 2007 MouseClick("left", 100, 100) Send("{SHIFTDOWN}") MouseClick("left", 200, 200) Send("{SHIFTUP}") Link to comment Share on other sites More sharing options...
PawBear Posted February 13, 2007 Author Share Posted February 13, 2007 This is what i have so far. Lmk if any1 can help make it do the opposite of right click expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.2.0 Author: daddz Name: DupeHelper Version: 0.7 Script Function: Helps you to create lags easily. #ce ---------------------------------------------------------------------------- HotKeySet("{End}", "ExitFunction") HotKeySet("{Ins}", "ReloadFunction") HotKeySet("{Home}", "PauseFunction") AutoItSetOption ("PixelCoordMode", 0) AutoItSetOption("MouseCoordMode", 0) Global $CheckIfInGame Global $CheckIfInGameDelay Global $CheckIfInGameTime Global $Checksum Global $ConfigFile = "DupeHelper.ini" Global $CastDelay Global $WinTitle Global $SpreadSpells = "" Global $Notify Global $NotifyDelay Global $NotifyTime Global $Paused = 0 Global $_X Global $_Y Global $Time If initialize() Then start_game() Else Exit EndIf Func start_game() set_spread_spells() $CheckIfInGameTime = TimerInit() $NotifyTime = TimerInit() While Not $Paused If $SpreadSpells = "On" Then set_coords_random() EndIf If $CheckIfInGame <> "Off" Then If time_over($CheckIfInGameTime, $CheckIfInGameDelay) Then check_if_in_game() $CheckIfInGameTime = TimerInit() EndIf EndIf If $Notify <> "Off" Then If time_over($NotifyTime, $NotifyDelay) Then notify() $NotifyTime = TimerInit() EndIf EndIf _ControlMouseClick($WinTitle, "Right", $_X, $_Y) Sleep($CastDelay) WEnd EndFunc;==>start_game Func initialize() If Not FileExists($ConfigFile) Then MsgBox(4096, "DupeHelper - Info", "No configuration found!" & @LF & _ "Attemping to create one!") If Not generate_config($ConfigFile) Then MsgBox(4096, "DupeHelper - Error", "Creating config file failed!") Return False EndIf EndIf Local $general = IniReadSection($ConfigFile, "General") If @error Then MsgBox(4096, "", "Error occurred, probably no INI file.") Return False EndIf If is_valid_input($general[1][1], "text") Then $WinTitle = $general[1][1] Else MsgBox(4096, "DupeHelper - Error", "Wrong config: " & $general[1][0]) Return False EndIf If is_valid_input($general[2][1], "case") Then $CheckIfInGame = $general[2][1] Else MsgBox(4096, "DupeHelper - Error", "Wrong config: " & $general[2][0]) Return False EndIf If is_valid_input($general[3][1], "number") Then $CheckIfInGameDelay = $general[3][1] Else MsgBox(4096, "DupeHelper - Error", "Wrong config: " & $general[3][0]) Return False EndIf If is_valid_input($general[4][1], "case") Then $Notify = $general[4][1] Else MsgBox(4096, "DupeHelper - Error", "Wrong config: " & $general[4][0]) Return False EndIf If is_valid_input($general[5][1], "number") Then $NotifyDelay = $general[5][1] Else MsgBox(4096, "DupeHelper - Error", "Wrong config: " & $general[5][0]) Return False EndIf If Not WinExists($WinTitle) Then MsgBox(4096, "DupeHelper - Error", "No Diablo II window found with title " & $general[1][1] & "!") Return False EndIf Local $extended = IniReadSection($ConfigFile, "Extended") If @error Then MsgBox(4096, "", "Error occurred, probably no INI file.") Return False EndIf If is_valid_input($extended[1][1], "number") Then $CastDelay = Int($extended[1][1]) Else MsgBox(4096, "DupeHelper - Error", "Wrong config: " & $extended[1][0]) Return False EndIf $Checksum = get_checksum_from_game() Return True EndFunc;==>initialize Func notify() If $Notify == "Force" Then MsgBox(4096, "DupeHelper - Info", "You should check your game now!") Else ToolTip("DupeHelper - Info: You should check your game now!", 0, 0) Sleep(2000) ToolTip("") EndIf EndFunc;==>notify Func set_coords() Select Case $SpreadSpells == "TL" $_X = 25 $_Y = 25 Case $SpreadSpells == "TR" $_X = 775 $_Y = 25 Case $SpreadSpells == "C" $_X = 400 $_Y = 300 Case $SpreadSpells == "BL" $_X = 25 $_Y = 500 Case $SpreadSpells == "BR" $_X = 775 $_Y = 500 Case Else $_X = 400 $_Y = 300 EndSelect EndFunc;==>set_coords Func set_coords_random() $_X = Abs(Random(150, 800 - 100, 1)) $_Y = Abs(Random(150, 600 - 100, 1)) EndFunc;==>set_coords_random Func generate_config($ConfigFile) Local $inWindowTitle = "" While Not is_valid_input($inWindowTitle, "text") $inWindowTitle = InputBox("DupeHelper - Config", "Enter your Diablo II window title:") If @error == 1 Then Exit EndIf WEnd Local $inCheckIfInGame = "" While Not is_valid_input($inCheckIfInGame, "case") $inCheckIfInGame = InputBox("DupeHelper - Config", "Check if you got kicked?" & @LF & _ "[On] = Will show a small tooltip in the upper left corner" & @LF & _ "[Force] = Will popup a message window" & @LF & _ "[Off] = Deactivated", "On", "", 300, 170) If @error == 1 Then Exit EndIf WEnd If $inCheckIfInGame <> "Off" Then Local $inCheckIfInGameDelay = "" While Not is_valid_input($inCheckIfInGameDelay, "number") $inCheckIfInGameDelay = InputBox("DupeHelper - Config", "What should the timeout be to check if you´re still in game?" & @LF & _ "[0] = Will permanently check if you´re in game(Can´t be run minimized)" & @LF & _ "[300] = Will check every 5 minutes(Game will pop up every 5 minutes)" & @LF & _ "[xxx] = You can use any other number! Delay is in seconds", "300", "", 375, 170) If @error == 1 Then Exit EndIf WEnd Else $inCheckIfInGameDelay = 0 EndIf Local $inNotify = "" While Not is_valid_input($inNotify, "case") $inNotify = InputBox("DupeHelper - Config", "You want to be notified after a certain time? (to check if you´re desynched)" & @LF & _ "[On] = Will show a small tooltip in the upper left corner" & @LF & _ "[Force] = Will popup a message window" & @LF & _ "[Off] = Deactivated", "On", "", 400, 160) If @error == 1 Then Exit EndIf WEnd Local $inNotifyDelay = "" If $inNotify <> "Off" Then While Not is_valid_input($inNotifyDelay, "number") $inNotifyDelay = InputBox("DupeHelper - Config", "How long you want to wait to be notified?" & @LF & _ "[0] = Not recommended! Will spam your ass off!" & @LF & _ "[300] = Will notify you every 5 minutes(Game will pop up every 5 minutes)" & @LF & _ "[xxx] = You can use any other number! Delay is in seconds", "300", "", 375, 170) If @error == 1 Then Exit EndIf WEnd Else $inNotifyDelay = 0 EndIf Local $general = "WinTitle=" & $inWindowTitle & @LF & _ "CheckIfInGame=" & $inCheckIfInGame & @LF & _ "CheckIfInGameDelay=" & $inCheckIfInGameDelay & "000" & @LF & _ "Notify=" & $inNotify & @LF & _ "NotifyDelay=" & $inNotifyDelay & "000" & @LF Local $extended = "CastDelay=500" & @LF & _ "Checksum=0" & @LF If IniWriteSection($ConfigFile, "General", $general) And _ IniWriteSection($ConfigFile, "Extended", $extended) Then Return True Else Return False EndIf EndFunc;==>generate_config Func get_checksum_from_game() If Not WinActive($WinTitle) Then WinActivate($WinTitle) EndIf Return PixelChecksum(10, 600, 20, 600) EndFunc;==>get_checksum_from_game Func set_spread_spells() While Not is_valid_input($SpreadSpells, "place") $SpreadSpells = InputBox("DupeHelper - Config", "Where to spam your spell?" & @LF & _ "[On] = Spam randomly over the screen" & @LF & _ "[TL] = Spam at top left" & @LF & _ "[TR] = Spam at top right" & @LF & _ "[C] = Spam at center" & @LF & _ "[BL] = Spam at bottom left" & @LF & _ "[BR] = Spam at bottom right", "On", "", 265, 200) If @error == 1 Then Exit EndIf WEnd If $SpreadSpells <> "On" Then set_coords() EndIf EndFunc;==>set_spell_mode() Func time_over($time, $delay) If TimerDiff($time) > $delay Then Return True Else Return False EndIf EndFunc;==>time_over Func check_if_in_game() MsgBox(0, "", "hooo") Local $Checksum_now = get_checksum_from_game() If $Checksum_now == $Checksum Then Return True Else If $CheckIfInGame == "Force" Then MsgBox(4096, "DupeHelper - Error", "You possibly got disconnected!") Exit Else ToolTip("DupeHelper - Error: You possibly got disconnected!", 0, 0) Sleep(2000) ToolTip("") Exit EndIf EndIf EndFunc;==>check_if_in_game Func is_valid_input($input, $type) If $type == "text" Then If $input <> "" Then Return True Else Return False EndIf ElseIf $type == "number" Then If StringIsInt($input) Then Return True Else Return False EndIf ElseIf $type == "case" Then If $input == "On" Or $input == "Off" Or $input == "Force" Then Return True Else Return False EndIf ElseIf $type == "char" Then If $input == "Sorc" Or $input == "Nec" Then Return True Else Return False EndIf ElseIf $type == "place" Then If $input == "On" Or $input == "TL" Or $input == "TR" Or _ $input == "C" Or $input == "BL" Or $input == "BR" Then Return True Else Return False EndIf Else Return False EndIf EndFunc;==>is_valid_input Func _ControlMouseClick($Window, $Button = "Left", $X = "", $Y = "", $Clicks = 1) Local $MK_LBUTTON = 0x0001 Local $WM_LBUTTONDOWN = 0x0201 Local $WM_LBUTTONUP = 0x0202 Local $MK_RBUTTON = 0x0002 Local $WM_RBUTTONDOWN = 0x0204 Local $WM_RBUTTONUP = 0x0205 Local $WM_MOUSEMOVE = 0x0200 Local $i = 0 Select Case $Button = "Left" $Button = $MK_LBUTTON $ButtonDown = $WM_LBUTTONDOWN $ButtonUp = $WM_LBUTTONUP Case $Button = "Right" $Button = $MK_RBUTTON $ButtonDown = $WM_RBUTTONDOWN $ButtonUp = $WM_RBUTTONUP EndSelect If $X = "" Or $Y = "" Then $MouseCoord = MouseGetPos() $X = $MouseCoord[0] $Y = $MouseCoord[1] EndIf For $i = 1 To $Clicks DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle($Window), _ "int", $WM_MOUSEMOVE, _ "int", 0, _ "long", _MakeLong($X, $Y)) DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle($Window), _ "int", $ButtonDown, _ "int", $Button, _ "long", _MakeLong($X, $Y)) DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle($Window), _ "int", $ButtonUp, _ "int", $Button, _ "long", _MakeLong($X, $Y)) Next EndFunc ;==>_ControlMouseClick Func _MakeLong($LoWord, $HiWord) Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF)) EndFunc ;==>_MakeLong Func ExitFunction() Exit EndFunc;==>ExitFunction Func ReloadFunction() $Paused = 1 initialize() $Paused = 0 EndFunc;==>ReloadFunction Func PauseFunction() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc;==>PauseFunction Link to comment Share on other sites More sharing options...
Aquaphire Posted February 13, 2007 Share Posted February 13, 2007 wow thats intense... Link to comment Share on other sites More sharing options...
Dragosani Posted February 13, 2007 Share Posted February 13, 2007 It always amazes me how much time (of their own and others ) people will waste to cheat at video games Link to comment Share on other sites More sharing options...
Aquaphire Posted February 13, 2007 Share Posted February 13, 2007 It always amazes me how much time (of their own and others ) people will waste to cheat at video gameswho said it was a cheat? Link to comment Share on other sites More sharing options...
PawBear Posted February 13, 2007 Author Share Posted February 13, 2007 WOO WOO GO AQUA PK THEM. And now you c why im haveing trouble? Link to comment Share on other sites More sharing options...
Dragosani Posted February 13, 2007 Share Posted February 13, 2007 who said it was a cheat?"Dupehelper""Helps you create lags"Duping in video games is a process of tricking the remote server into allowing the user to create an identical item. This is always against the EULA. Many times lagging the server is a easy way to fool the server into creating a duplicate item.I don't know what game this "Dupehelper" is for. After reading the title I didn't bother even looking at the code at all.If it is a single player only game then best of luck!If it is a online multiplayer game then I hope he gets banned. Duping can and does ruin other peoples enjoyment of the game. Link to comment Share on other sites More sharing options...
PawBear Posted February 13, 2007 Author Share Posted February 13, 2007 Umm ok noob. S/e off this forum now. You know nothing about this. this is a basic idea of a program that im looking for that i wrote along time ago. now plz shh. its the same idea as i want. i just need to get the shift,left mousclick snycronised ans such. Link to comment Share on other sites More sharing options...
Bert Posted February 13, 2007 Share Posted February 13, 2007 looks like you got this code from someone else, and you want to make it work for you. I looked at it, and it is a game cheat. No 2 ways about it. Can't you be a man and paly without cheating? The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
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