//

得到鼠标指向的窗口句柄

Hwnd = Plugin.Window.MousePoint()

//

得到窗口句柄的客户区大小

sRect = Plugin.Window.GetClientRect(Hwnd)

Dim MyArray

MyArray=Split(sRect,"|")

Ux=MyArray(0)

Uy=MyArray(1)

MoveTo ux,uy

//MessageBox "

游戏窗口左上角的坐标

:"&Vbcrlf&Ux&","&Uy&Vbcrlf&"

句柄是

:"&Hwnd '&

是字符串连接符，

Vbcrlf

是换行符

//

坐标定位

Hx=Ux+756

//

好友菜单

Hy=Uy+277

Hx1=Ux+640

//

第一位好友

Hy1=Uy+170

Jlx=Ux+380

//

确定获得奖励

Jly=Uy+395

Scx1=Ux+483

//

与他赛车

Scy1=Uy+577

Scx2=Ux+315

//

赛一场

Scy2=Uy+503

Gtx=Ux+55

//

快速过图

Gty=Uy+481

Cjx=Ux+380

//

去抽奖

Cjy=Uy+422

Cjx1=Ux+272

//

抽奖一

Cjy1=Uy+467

Cjqx=Ux+313

//

抽奖确认

Cjqy=Uy+348

Cjjsx=Ux+377

//

抽奖结束

Cjjsy=Uy+547

'==========

传说中的分割线

==========

'=====

打开好友菜单

For 8

MoveTo hx, hy

Delay 500

MoveTo hx1, hy1

Delay 40

LeftClick 1

Delay 400