Jump to content

Help with code

leevi

By leevi,
in AutoIt General Help and Support

 Share

Recommended Posts

leevi Seeker

leevi

Posted
Posted (edited)

I need help in this. I got script wich takes mouse to selected cordinates on screen that i have to set up. It has now only 2 points where it takes the mouse, so I need to have 4. This is not my own script just found it somewhere and edited a bit. :o

This is my current. I just added the box for you what kinda it should be like. But I have to get the rest of those buttons to work. Only the first one works on this. Also theres only binded f3 and f4 i need to get f5 and f6 binded for the 2 other aimspots.

iRlesa Aimbot [kiG edition]
; by iRlesa
; The script could be much better
; but I didn't have time
; but it does the job :)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
HotKeySet("{esc}","_Exit")
Global $upper[2] = [0,0]
Global $lower[2] = [0, 0]
Global $setl = 0, $setu = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kiekko.tk AIMBOT", 139, 200, 200, 200)
$setupper = GUICtrlCreateButton("Aimspot 1", 0, 8, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Aimspot 2", 0, 40, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Aimspot 3", 0, 72, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Aimspot 4", 0, 104, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$start = GUICtrlCreateButton("START!", 32, 136, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Made by iRlesa", 0, 168, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$dll = DllOpen("user32.dll")
While 1
    Sleep(40)
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $setupper
            MsgBox(0, "", "Drag the mouse to the upper pillar and press f3")
            While $setu = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $upper[0]=$pos[0]  
                     $upper[1]=$pos[1] 
                    $setu = 1
                    MsgBox(0,":D","Upper pillar pos has been set!!")
                EndIf
            WEnd
        Case $setlower
            MsgBox(0, "", "Drag the mouse to the lower pillar and press f3")
            While $setl = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                     $lower[0] =$pos[0]
                      $lower[1]=$pos[1]
                    $setl = 1
                    MsgBox(0,":D","Lower pillar pos has been set!!")
                EndIf
            WEnd
        Case $start
            MsgBox(0,":)","Press f3 to aim at the upper pillar and f4 for the lower pillar.  To exit the program press ESC")
            While 1
                Sleep(40)
                If _IsPressed("72", $dll) Then; f3
                    MouseMove($upper[0],$upper[1],0)
                EndIf
                If _IsPressed("73", $dll) Then; f4
                    MouseMove($lower[0],$lower[1],0)
                EndIf
            WEnd
    EndSwitch
WEnd

DllClose($dll)
Exit


Func _Exit()
DllClose($dll)
Exit
EndFunc

Then the original code where two boxes work where i have just added the other boxes.

; iRlesa Aimbot [kiG edition]
; by iRlesa
; The script could be much better
; but I didn't have time
; but it does the job :)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
HotKeySet("{esc}","_Exit")
Global $upper[2] = [0,0]
Global $lower[2] = [0, 0]
Global $setl = 0, $setu = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kiekko.tk AIMBOT", 139, 200, 200, 200)
$setupper = GUICtrlCreateButton("Aimspot 1", 0, 8, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Aimspot 2", 0, 40, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Aimspot 3", 0, 72, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Aimspot 4", 0, 104, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$start = GUICtrlCreateButton("START!", 32, 136, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlower = GUICtrlCreateButton("Made by iRlesa", 0, 168, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$dll = DllOpen("user32.dll")
While 1
    Sleep(40)
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $setupper
            MsgBox(0, "", "Drag the mouse to the upper pillar and press f3")
            While $setu = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $upper[0]=$pos[0]  
                     $upper[1]=$pos[1] 
                    $setu = 1
                    MsgBox(0,":D","Upper pillar pos has been set!!")
                EndIf
            WEnd
        Case $setlower
            MsgBox(0, "", "Drag the mouse to the lower pillar and press f3")
            While $setl = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                     $lower[0] =$pos[0]
                      $lower[1]=$pos[1]
                    $setl = 1
                    MsgBox(0,":D","Lower pillar pos has been set!!")
                EndIf
            WEnd
        Case $start
            MsgBox(0,":)","Press f3 to aim at the upper pillar and f4 for the lower pillar.  To exit the program press ESC")
            While 1
                Sleep(40)
                If _IsPressed("72", $dll) Then; f3
                    MouseMove($upper[0],$upper[1],0)
                EndIf
                If _IsPressed("73", $dll) Then; f4
                    MouseMove($lower[0],$lower[1],0)
                EndIf
            WEnd
    EndSwitch
WEnd

DllClose($dll)
Exit


Func _Exit()
DllClose($dll)
Exit
EndFunc

Help please. Thx :D

If you dont get what i want to do with program i try to explain it on this. I open program , press set aimspot or whatever there reads and i select the place where i want to bind my mouse onto. It has originally 2 spots so I want to make 4 spots. Then i press start and press f3 f4 f5 f6 to make the mouse go into the spots.

Edited by leevi
Link to comment
Share on other sites
nitekram Universalist

nitekram

Posted
Posted

Try this code - it works for the first two buttons

;iRlesa Aimbot [kiG edition]
; by iRlesa
; The script could be much better
; but I didn't have time
; but it does the job :)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
HotKeySet("{esc}", "_Exit")
Global $upper[2] = [0, 0]
Global $lower[2] = [0, 0]
Global $setl1 = 0, $setu1 = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kiekko.tk AIMBOT", 139, 200, 200, 200)
$setupperone = GUICtrlCreateButton("Aimspot 1", 0, 8, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlowerone = GUICtrlCreateButton("Aimspot 2", 0, 40, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setuppertwo = GUICtrlCreateButton("Aimspot 3", 0, 72, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlowertwo = GUICtrlCreateButton("Aimspot 4", 0, 104, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$start = GUICtrlCreateButton("START!", 32, 136, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$restart = GUICtrlCreateButton("Restart", 0, 168, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$dll = DllOpen("user32.dll")
While 1
    Sleep(10)
    $guimsg = GUIGetMsg()
    Select
        Case $GUI_EVENT_CLOSE = $guimsg
            Exit
        Case $setupperone = $guimsg
            MsgBox(0, "", "Drag the mouse to the upper pillar and press f3")
            While $setu1 = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $upper[0] = $pos[0]
                    $upper[1] = $pos[1]
                    $setu1 = 1
                    MsgBox(0, ":D", "Upper pillar pos has been set!!")
                EndIf
            WEnd
        Case $setlowerone = $guimsg
            MsgBox(0, "", "Drag the mouse to the lower pillar and press f3")
            While $setl1 = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $lower[0] = $pos[0]
                    $lower[1] = $pos[1]
                    $setl1 = 1
                    MsgBox(0, ":D", "Lower pillar pos has been set!!")
                EndIf
            WEnd
        Case $start = $guimsg
            MsgBox(0, ":)", "Press f3 to aim at the upper pillar and f4 for the lower pillar.  To exit the program press ESC")
            While $guimsg <> $restart
                $guimsg = GUIGetMsg()
                Sleep(40)
                If _IsPressed("72", $dll) Then; f3
                    MouseMove($upper[0], $upper[1], 0)
                EndIf
                If _IsPressed("73", $dll) Then; f4
                    MouseMove($lower[0], $lower[1], 0)
                EndIf
            WEnd
            MsgBox('','RESTART','')
            $setu1 = 0
            $setl1 = 0

    EndSelect
WEnd

DllClose($dll)
Exit


Func _Exit()
    DllClose($dll)
    Exit
EndFunc   ;==>_Exit

2¢

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Link to comment
Share on other sites
  • 7 months later...
BlackKluster Seeker

BlackKluster

Posted
Posted

Made it for you :)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
HotKeySet("{esc}", "_Exit")
Global $upper[2] = [0, 0]
Global $lower[2] = [0, 0]
Global $uppertwo[2] = [0, 0]
Global $lowertwo[2] = [0, 0]
Global $setl1 = 0, $setu1 = 0, $setu2 = 0, $setl2 = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hockey.tk/Kiekko.tk aimbot", 139, 200, 200, 200)
$setupperone = GUICtrlCreateButton("LeftUpper", 0, 8, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlowerone = GUICtrlCreateButton("LeftLower", 0, 40, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setuppertwo = GUICtrlCreateButton("RightUpper", 0, 72, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setlowertwo = GUICtrlCreateButton("RightLower", 0, 104, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$start = GUICtrlCreateButton("START!", 32, 136, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$restart = GUICtrlCreateButton("Restart", 0, 168, 139, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$dll = DllOpen("user32.dll")
While 1
    Sleep(10)
    $guimsg = GUIGetMsg()
    Select
        Case $GUI_EVENT_CLOSE = $guimsg
            Exit
        Case $setupperone = $guimsg
            MsgBox(0, "", "Drag the mouse to the Left upper pillar and press f3")
            While $setu1 = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $upper[0] = $pos[0]
                    $upper[1] = $pos[1]
                    $setu1 = 1
                    MsgBox(0, " :D ", "Left Upper pillar pos has been set!!")
                EndIf
            WEnd
        Case $setlowerone = $guimsg
            MsgBox(0, "", "Drag the mouse to the Left lower pillar and press f3")
            While $setl1 = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $lower[0] = $pos[0]
                    $lower[1] = $pos[1]
                    $setl1 = 1
                    MsgBox(0, " :D ", "Left Lower pillar pos has been set!!")
                EndIf
            WEnd
        Case $setuppertwo = $guimsg
            MsgBox(0, "", "Drag the mouse to the Right upper pillar and press f3")
            While $setu2 = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $uppertwo[0] = $pos[0]
                    $uppertwo[1] = $pos[1]
                    $setu2 = 1
                    MsgBox(0, " :D ", "Right Upper pillar pos has been set!!")
                EndIf
            WEnd
        Case $setlowertwo = $guimsg
            MsgBox(0, "", "Drag the mouse to the Right lower pillar and press f3")
            While $setl2 = 0
                Sleep(40)
                If _IsPressed("72", $dll) Then
                    $pos = MouseGetPos()
                    $lowertwo[0] = $pos[0]
                    $lowertwo[1] = $pos[1]
                    $setl2 = 1
                    MsgBox(0, " :D ", "Right Lower pillar pos has been set!!")
                EndIf
            WEnd
        Case $start = $guimsg
            MsgBox(0, " :) ", "Press f3 = left upper-, Press f4 = left lower-, Press f5 = right upper-, Press f6 = right lowerpillar.  To exit the program press ESC")
            While $guimsg <> $restart
                $guimsg = GUIGetMsg()
                Sleep(40)
                If _IsPressed("72", $dll) Then; f3
                    MouseMove($upper[0], $upper[1], 0)
                EndIf
                If _IsPressed("73", $dll) Then; f4
                    MouseMove($lower[0], $lower[1], 0)
                EndIf
                If _IsPressed("74", $dll) Then; f5
                    MouseMove($uppertwo[0], $uppertwo[1], 0)
                EndIf
                If _IsPressed("75", $dll) Then; f6
                    MouseMove($lowertwo[0], $lowertwo[1], 0)
                EndIf
            WEnd
            MsgBox('','RESTART','')
            $setu1 = 0
            $setl1 = 0
            $setu2 = 0
            $setl2 = 0

    EndSelect
WEnd

DllClose($dll)
Exit


Func _Exit()
    DllClose($dll)
    Exit
EndFunc   ;==>_Exit

You weren't far from solution ;)

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...