按键精灵一边看视频一边写word的代码

不知道有没有人需要，姑且把源码放上

Do
Rem 开始
a = WaitKey()
If a = 35 Then 	//当按下 END 键
FindPic 0,0,1920,1080,"Attachment:\暂停.bmp",0.9,intX,intY	//找暂停键
If intX > 0 And intY > 0 Then 
 TracePrint "找到暂停"
MoveTo intX+20, intY+20
LeftClick 1
TracePrint"已点击暂停"
End If
Delay 200
FindPic 0,0,1920,1080,"Attachment:\word 标识.bmp",0.9,intX,intY	//回到 word
If intX > 0 And intY > 0 Then 
 TracePrint "找到 word 标识"
MoveTo intX+100, intY
LeftClick 1
TracePrint"已回到 word"
End If

ElseIf a = 19 Then	//	当按下 PB 键
FindPic 0,0,1920,1080,"Attachment:\播放.bmp",0.9,intX,intY	//找播放键
If intX > 0 And intY > 0 Then 
 TracePrint "找到播放"
MoveTo intX+20, intY+20
LeftClick 1
TracePrint"已点击播放"
End If
FindPic 0,0,1920,1080,"Attachment:\word 标识.bmp",0.9,intX,intY	//回到 word
If intX > 0 And intY > 0 Then 
 TracePrint "找到 word 标识"
MoveTo intX+100, intY
LeftClick 1
TracePrint"已回到 word"
End If
End If

Loop

下面是用到的附件图片，仅供参考

暂停.bmp

播放.bmp

word 标识.bmp

有什么问题可以在评论区交流

喜欢 (1)赏

[]

分享 (0)