2024年4月4日发(作者：)
按键精灵9得到鼠标指向的窗口句柄
//得到鼠标指向的窗口句柄
Hwnd = oint()
//得到窗口句柄的客户区大小
sRect = entRect(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
发布评论