BlackKluster Posted November 25, 2009 Share Posted November 25, 2009 (edited) expandcollapse popup#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 November 25, 2009 by BlackKluster Link to comment Share on other sites More sharing options...
L3viathan2142 Posted November 25, 2009 Share Posted November 25, 2009 Wrong sub-forum, isn't it? Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted November 25, 2009 Share Posted November 25, 2009 Wrong sub-forum, isn't it?What, like he has a choice? .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface 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