天堂腳本研究分享

e3479293

Rem start
Hwnd = Plugin.Window.Find(0,"Lineage")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray = Split(sRect, "|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
FindCenterColor 72+Ux,33+Uy,789+Ux,475+Uy,"F8F0D8,F8F0A8,F8C0B0,E8D8A0,2880B0,2090C8,898F8,50A8D8",intX,intY
If intX > 0 And intY > 0 Then

Qx=intX
Qy = intY

MoveTo Qx, Qy

LeftClick 1
Delay 500
LeftClick 1
Delay 500

RightClick 1
KeyPress "F5", 1
Delay 500

LeftClick 1
Delay 500


LeftDown 1
Delay 8000

End If
Goto start

Unfair

你最內行 選你了

750724

回復賺錢
謝謝大大

qq314008

謝謝大大

hq27676996

賺錢專用帖 金錢+2威望+1 回復就有囉!
也來賺賺錢！
這樣真的能賺錢嗎？
試看看！

str769769

看得懂得就是內行人!!!!