Question

按键精灵sub过程的参数问题和FindPic找图功能的参数问题

Rem 调出按键
FindPic 0,0,1366,768,"Attachment:\桌面右下角.bmp",0.95,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+55, intY+5
Delay 300
LeftClick 1
Delay 1500
Else
Delay 300
Goto 调出按键
End If
//上面运行正常，可以找到图片

//要写一个通用的找图和找到后点击的过程（带参数），结果运行后找不到图片，请各位指点

Sub 找图功能找到为止(a)
// Chr(34) vb里面用Chr(34)或者两个连续的引号代表一个引号

pica = Chr(34)&"Attachment:\" & a & Chr(34) //图片路径
MsgBox pica //看看图片路径是否正确
Rem 找图功能找到为止
FindPic 0,0,1366,768,pica,0.95,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+55, intY+5
Delay 300
LeftClick 1
Delay 1500
Else
Delay 300
Goto 找图功能找到为止
End If
End Sub

Call 找图功能找到为止("桌面右下角.bmp")
//sub过程运行后找不到图片，q请各位指点。
找到问题的答案了
图片路径改为下面这样就好了
pica = Attachment:\" & a //图片路径

Answer 1

Sub 前台找图(图片参数)
 
 图片参数 = "Attachment:\" & 图片参数  '这个这样赋值就行了，别想复杂了，哪来那么多引号，用不着，概念别混淆了！
 Do  
    FindPic 0,0,1366,768,图片参数,0.95,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX + 55, intY + 5 : LeftClick 1
        Delay 1500
    End If
    Delay 300
Loop Until IntX > 0
 
End Sub

你初学就有写成子程序的概念，挺好，你的思路肯定会比较清晰；不过 在这个子程序里的循环直到找到图为止最好不要 最好放在主程序里，子程序最好通用一点，尽量不要一调用若找不到就死循环这样的情况，它就完成它找图的使命，要循环要判断就根据它的结果来处理，这样的话可以在更多地方适合调用这个子程序更灵活...

'如果一个子程序不能被多个地方调用 那么它就失去了存在的意义了！！。

Sub 前台找图(图片参数)
 图片参数 = "Attachment:\" & 图片参数  
    FindPic 0,0,1366,768,图片参数,0.95,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX + 55, intY + 5 : LeftClick 1
        Delay 1500
    End If
    Delay 300
End Sub

Answer 2

画蛇添足
pica = "Attachment:\"&a