Tailor Made Tools/Programs for You - AHK

09/11/2009 19:11 Evan Lim#781
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
09/11/2009 21:24 Unforgiveable#782
Quote:
Originally Posted by Evan Lim View Post
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 :) .
09/11/2009 23:04 Matic^#783
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
09/12/2009 01:33 Evan Lim#784
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
09/12/2009 17:52 evozhu#785
is it possible for you to create speedhack /aimbot for chinese private server. [Only registered and activated users can see links. Click Here To Register...]
09/12/2009 17:59 Evan Lim#786
evozhu@
i dont know how to create those kind of things, u need to provide with the method
09/15/2009 21:19 ShadowTro#787
i want an undetectable background autoclicker that right clicks at point XY with 1 second in between
09/15/2009 22:51 Evan Lim#788
ShadowTro@
Code:
x=123
y=123
WinGet, id, id, [C
loop
{
ControlClick, x%x% y%y%,ahk_id %id%,,right
sleep 1000
}
return
09/16/2009 16:35 Acidburncx#789
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?
09/16/2009 21:32 Evan Lim#790
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
09/17/2009 19:40 Wh1teL0tus#791
Quote:
Originally Posted by Evan Lim View Post
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 ^^
09/17/2009 23:34 Evan Lim#792
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
09/19/2009 07:38 Acidburncx#793
EVan Lim does this works on multiclient?
09/19/2009 08:02 Evan Lim#794
vegetasupersaiyan6@
only if the Org_name matches, and activate the desire client to the top most and press the hotkey Ctrl+R
09/23/2009 15:53 love_learn#795
Quote:
Originally Posted by Evan Lim View Post
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