85问答库 > 按键精灵下面是3个脚本，分别做的，功能可以使用，但是每次都要开3个脚本，比较繁琐，请高手帮忙合并下。

按键精灵下面是3个脚本，分别做的，功能可以使用，但是每次都要开3个脚本，比较繁琐，请高手帮忙合并下。

2025-04-16 13:39:58

推荐回答（1个）

回答1：

奇怪，怎么那么多人喜欢这样写
i=0
While i=0
为什么不直接写Do Until intX > 0 And intY > 0
而且很多不改图片坐标，实在误导初学者。

修改后的源码如下：

Rem q
Delay 500
FindPic 0,0,1024,768,"Attachment:\登陆画面.bmp",0.9,intX1,intY1
FindPic 0,0,1024,768,"Attachment:\通用.bmp",0.9,intX2,intY2
FindPic 0,0,1024,768,"Attachment:\真错误.bmp",0.9,intX3,intY3
If intX1 > 0 And intY1 > 0 Then
ElseIf intX2 > 0 And intY2 > 0 Then
ElseIf intX3 > 0 And intY3 > 0 Then
Else
Goto q
End If
Call Plugin.Media.Play("G:\音乐\爱你.mp3")
Msgbox "现在播放音乐!!"
Delay 500
Goto q

按键精灵 下面是3个脚本，分别做的，功能可以使用，但是每次都要开3个脚本，比较繁琐，请高手帮忙合并下。

按键精灵下面是3个脚本，分别做的，功能可以使用，但是每次都要开3个脚本，比较繁琐，请高手帮忙合并下。