资源描述
//得到鼠标指向的窗口句柄
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
'=====单击 获得奖励
MoveTo JLx, JLy
Delay 5000
LeftClick 1
Delay 400
'=====单击 与他比赛
MoveTo Scx1, Scy1
Delay 400
LeftClick 1
Delay 400
'=====单击赛一场,开始比赛
MoveTo Scx2, Scy2
Delay 400
LeftClick 1
Delay 400
'=====快速跳过比赛
MoveTo Gtx, Gty
Delay 1000
LeftClick 1
Delay 400
'=====单击 开始抽奖
MoveTo Cjx, Cjy
Delay 3000
LeftClick 1
Delay 400
MoveTo Cjx1, Cjy1
Delay 200
LeftClick 1
Delay 400
For 2
Cjx1= Cjx1+110
MoveTo Cjx1, Cjy1
Delay 200
LeftClick 1
Delay 400
MoveTo Cjqx, Cjqy
Delay 200
LeftClick 1
Delay 400
Next
'=====比赛结束单击确定
For 2
MoveTo 711, 740
Delay 400
LeftClick 1
Delay 400
Next
Next
'==========以下是按键精灵录制的内容==========
'==========开始执行比赛
Delay 7
MoveTo 699, 614
Delay 100
LeftClick 1
Delay 400
'==========赛一场选择
Delay 7
MoveTo 319, 533
Delay 1000
LeftClick 1
Delay 400
GetColor=GetPixelColor(22,279)
While GetColor = 000000
MoveTo 740, 319
Delay 100
LeftClick 1
Delay 10
GetColor=GetPixelColor(22,279)
Wend
GetColor=GetPixelColor(22,249)
While GetColor = 000000
MoveTo 741, 390
Delay 100
LeftClick 1
Delay 10
GetColor=GetPixelColor(22,249)
Wend
GetColor=GetPixelColor(22,230)
While GetColor = 000000
MoveTo 742, 461
Delay 100
LeftClick 1
Delay 10
GetColor=GetPixelColor(22,230)
Wend
'==========跳过动画
Delay 7
MoveTo 64, 511
Delay 1000
LeftClick 1
Delay 400
'==========确定输赢
Delay 7
MoveTo 388, 451
Delay 2500
LeftClick 1
Delay 400
展开阅读全文