Sign in to follow this  
Followers 0
BlackKluster

Hockey.tk / Kiekko.tk aimbot

3 posts in this topic

#1 ·  Posted (edited)

#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

Many people google that, and here is the best version of it.

Made by BlackKluster.

edit. ps. my first project :)

Edited by BlackKluster

Share this post


Link to post
Share on other sites



Wrong sub-forum, isn't it?

Share this post


Link to post
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
Sign in to follow this  
Followers 0