Jump to content

pixelsearch


Recommended Posts

ok the pixelsearch on this part makes my program and the IE component twitch with lag anyone know how to make this atleast not as laggy?

hotkeyset("!s","stopaimbot")
#include <GUIConstants.au3>
#include <IE.au3>
#Include <A3LScreenCap.au3>
#Include <Misc.au3>
_IEErrorHandlerRegister ()
$go=0
$oIE = _IECreateEmbedded ()
GUICreate("Tank 2007 Hack", 830, 680,-1,-1)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 825, 650)
$aimon = GUICtrlCreateButton("Aimbot on", 0, 660, 100, 20)
$aimoff = GUICtrlCreateButton("Aimbot off", 110, 660, 100, 20)
$aimlab=guictrlcreatelabel("",210,660,200,50)
stopaimbot()
GUISetState()

_IENavigate ($oIE, "http://www.tiofg.logical-host.com/tank2007.htm")


While 1
    if $go=1 then
        $mpos=mousegetpos()
        $spix=pixelsearch($mpos[0]-20,$mpos[1]-20,$mpos[0]+20,$mpos[1]+20,4868426,3)
        if not @error then mouseclick("left",$spix[0],$spix[1])
        if _ispressed(12) and _ispressed(53) then stopaimbot()
    EndIf
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        case $msg=$aimon
            goaimbot()
        case $msg=$aimoff
            stopaimbot()
    EndSelect
WEnd

GUIDelete()

Exit
func stopaimbot()
    $go=0
    guictrlsetdata($aimlab,"Aimbot off")
EndFunc

func goaimbot()
    $go=1
    mouseclick("left",509,367)
    guictrlsetdata($aimlab,"Aimbot on")
EndFunc

[quote name='PsaltyDS' post='635433' date='Jan 27 2009, 07:04 AM']Larry is a mass murderer?! It's always the quiet, clean cut, bald guys... [/quote]

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

  • Recently Browsing   0 members

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