I need someone to help me make this program

PawBear · 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.

Paulie · 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 = help

No code = no help

Post code please

jjldj · February 13, 2007

MouseClick("left", 100, 100)

Send("{SHIFTDOWN}")

MouseClick("left", 200, 200)

Send("{SHIFTUP}")

PawBear · February 13, 2007

This is what i have so far. Lmk if any1 can help make it do the opposite of right click

#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

Aquaphire · February 13, 2007

wow thats intense...

Dragosani · February 13, 2007

It always amazes me how much time (of their own and others ) people will waste to cheat at video games

Aquaphire · February 13, 2007

It always amazes me how much time (of their own and others ) people will waste to cheat at video games

who said it was a cheat?

PawBear · February 13, 2007

WOO WOO GO AQUA PK THEM. And now you c why im haveing trouble?

Dragosani · 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.

PawBear · 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.

Bert · 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?

I need someone to help me make this program

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members