Tailor Made Tools/Programs for You - AHK

Evan Lim · 09/11/2009, 19:11

Unforgiveable@

Code:

msgbox, Ctrl+Q to pause

winget, id, id, [C
X=380
Y=301
loop
{
gosub, rc
sleep 2000
ControlClick, x123 y739,ahk_id %id%,,right
sleep 2000
ControlClick, x152 y746,ahk_id %id%,,right
sleep 2000
}

^q::pause


rc:

    hwnd := ControlFromPoint(X, Y, "ahk_id " id,"", cX, cY)
    PostMessage, 0x204, 0x8 | 0x1, cX & 0xFFFF | (cY & 0xFFFF) << 16,, ahk_id %hwnd%
    PostMessage, 0x205, 0x8      , cX & 0xFFFF | (cY & 0xFFFF) << 16,, ahk_id %hwnd%
return

ControlFromPoint(X, Y, WinTitle="", WinText="", ByRef cX="", ByRef cY="", ExcludeTitle="", ExcludeText="")
{
    if !(hwnd := WinExist(WinTitle, WinText, ExcludeTitle, ExcludeText))
        return false
    
    VarSetCapacity(pt,8)

    VarSetCapacity(wi,60), NumPut(60,wi)
    DllCall("GetWindowInfo","uint",hwnd,"uint",&wi)
    NumPut(X + (w:=NumGet(wi,4,"int")) - (cw:=NumGet(wi,20,"int")), pt,0)
    NumPut(Y + (h:=NumGet(wi,8,"int")) - (ch:=NumGet(wi,24,"int")), pt,4)
    
    Loop {
        child := DllCall("ChildWindowFromPointEx","uint",hwnd,"int64",NumGet(pt,0,"int64"),"uint",0x5)
        if !child or child=hwnd
            break
      
        DllCall("MapWindowPoints","uint",hwnd,"uint",child,"uint",&pt,"uint",1)
        hwnd := child
    }
    cX := NumGet(pt,0,"int")
    cY := NumGet(pt,4,"int")
    return hwnd
}

return

Unforgiveable · 09/11/2009, 21:24

Quote:

Originally Posted by Evan Lim

Unforgiveable@

Code:

msgbox, Ctrl+Q to pause

winget, id, id, [C
X=380
Y=301
loop
{
gosub, rc
sleep 2000
ControlClick, x123 y739,ahk_id %id%,,right
sleep 2000
ControlClick, x152 y746,ahk_id %id%,,right
sleep 2000
}

^q::pause


rc:

    hwnd := ControlFromPoint(X, Y, "ahk_id " id,"", cX, cY)
    PostMessage, 0x204, 0x8 | 0x1, cX & 0xFFFF | (cY & 0xFFFF) << 16,, ahk_id %hwnd%
    PostMessage, 0x205, 0x8      , cX & 0xFFFF | (cY & 0xFFFF) << 16,, ahk_id %hwnd%
return

ControlFromPoint(X, Y, WinTitle="", WinText="", ByRef cX="", ByRef cY="", ExcludeTitle="", ExcludeText="")
{
    if !(hwnd := WinExist(WinTitle, WinText, ExcludeTitle, ExcludeText))
        return false
    
    VarSetCapacity(pt,8)

    VarSetCapacity(wi,60), NumPut(60,wi)
    DllCall("GetWindowInfo","uint",hwnd,"uint",&wi)
    NumPut(X + (w:=NumGet(wi,4,"int")) - (cw:=NumGet(wi,20,"int")), pt,0)
    NumPut(Y + (h:=NumGet(wi,8,"int")) - (ch:=NumGet(wi,24,"int")), pt,4)
    
    Loop {
        child := DllCall("ChildWindowFromPointEx","uint",hwnd,"int64",NumGet(pt,0,"int64"),"uint",0x5)
        if !child or child=hwnd
            break
      
        DllCall("MapWindowPoints","uint",hwnd,"uint",child,"uint",&pt,"uint",1)
        hwnd := child
    }
    cX := NumGet(pt,0,"int")
    cY := NumGet(pt,4,"int")
    return hwnd
}

return

Thanks a lot

.

Matic^ · 09/11/2009, 23:04

Hello again Evan, am interesting how to make jump or click in specific coordinates in co game, and that clicks looks conquer online coordinates not me screen coordinates, and always jump or click in the same place, also how to make to push on NPC and talk whit it. Thnx

Evan Lim · 09/12/2009, 01:33

Matic^@
going to a specific coordinates, as mention before, it can be done in proxy
or using the CO path function
not possible with standard macros, as they dont send packets to what coordinate, but only click on the screen to output the coordinate
so what it meant is, sure it can click at a specific coordinate on the client to move, but the character wont go to a specific coordinate

evozhu · 09/12/2009, 17:52

is it possible for you to create speedhack /aimbot for chinese private server.

Evan Lim · 09/12/2009, 17:59

evozhu@
i dont know how to create those kind of things, u need to provide with the method

ShadowTro · 09/15/2009, 21:19

i want an undetectable background autoclicker that right clicks at point XY with 1 second in between

Evan Lim · 09/15/2009, 22:51

ShadowTro@

Code:

x=123
y=123
WinGet, id, id, [C
loop
{
ControlClick, x%x% y%y%,ahk_id %id%,,right
sleep 1000
}
return

Acidburncx · 09/16/2009, 16:35

Evan Lim can you make taskbar renamer for co and also undo the rename and also saves the rename the taskbar that you renamed on the next of open the program?

Evan Lim · 09/16/2009, 21:32

vegetasupersaiyan6@
dont understand ur last part
press Ctrl+R to rename win titles, press again to revert back to original

Code:

Org_name = [Co
New_name = Test

^r::
WinGetActiveTitle, Current_title 

IfNotInString, Current_title, %Org_name%
WinSetTitle, %New_name%,,%Org_name%
else
WinSetTitle, %Org_name%,,%New_name%
return

Wh1teL0tus · 09/17/2009, 19:40

Quote:
Originally Posted by Evan Lim
vegetasupersaiyan6@
if it doesnt sell, what does the program do?
did it not detect the images?

stickray@
Code:
msgbox, Ctrl + Q to pause
settimer, checkhp, 500

checkhp:
IfWinActive, [Conq
{
PixelSearch, , , 10, 720, 60, 720, 0x0B098F, 10, Fast
if ErrorLevel
{
send {F1}
sleep 1000
}
}
return
^q::pause

is there also an exe program for this .. handy thingy at GW ^^

Evan Lim · 09/17/2009, 23:34

Wh1teL0tus@
u have to compile the script urself, and edit minor things to suit ur own needs
thats the only requirement i ask ppl to do

Acidburncx · 09/19/2009, 07:38

EVan Lim does this works on multiclient?

Evan Lim · 09/19/2009, 08:02

vegetasupersaiyan6@
only if the Org_name matches, and activate the desire client to the top most and press the hotkey Ctrl+R

love_learn · 09/23/2009, 15:53

Quote:
Originally Posted by Evan Lim
vegetasupersaiyan6@
if it doesnt sell, what does the program do?
did it not detect the images?

stickray@
Code:
msgbox, Ctrl + Q to pause
settimer, checkhp, 500

checkhp:
IfWinActive, [Conq
{
PixelSearch, , , 10, 720, 60, 720, 0x0B098F, 10, Fast
if ErrorLevel
{
send {F1}
sleep 1000
}
}
return
^q::pause

may be i do wrong can learn me i change y points to make it heal before reach to 50% and result same what i do to make this