Question

求解按键精灵源码有没有错误 为什么 总运行不了

UserVar Var1=DropList{"选项1":"1"|"选项2":"2"|"选项3":"3"|"选项4":"4"|"选项5":"5"}=0 "renwu"
If Var1 = 1 Then
FindPic 0,0,1024,768,"Attachment:\周泰.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 200
MoveTo intX, intY
Delay 200
LeftClick 1
Goto f
elseIf Var1 = 4 Then
FindPic 0,0,1024,768,"Attachment:\文央.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 200
MoveTo intX, intY
Delay 200
LeftClick 1
Goto f
ElseIf Var1=5 Then
FindPic 0,0,1024,768,"Attachment:\狮子.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 200
MoveTo intX, intY
Delay 200
LeftClick 1
Goto f
ElseIf Var1 = 2 Then
FindPic 0,0,1024,768,"Attachment:\黄忠.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 200
MoveTo intX, intY
Delay 200
LeftClick 1
Goto f
ElseIf Var1=3 Then
FindPic 0,0,1024,768,"Attachment:\蒲元.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
Delay 200
MoveTo intX, intY
Delay 200
LeftClick 1
End If
Rem f

Answer 1

你的逻辑有错：
FindPic 0,0,1024,768,"Attachment:\周泰.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
End If
你看按键精灵例子，人家那个End If 放在哪了。根据你写的代码，我也明白你想做什么，不过我想你应该是循环找图才对，由于你没有循环找图，我就根据你代码逻辑修改。代码实际不用写那么多，只要写一次找图就行了，代码如下：
UserVar i=DropList{"周泰":"1"|"黄忠":"2"|"蒲元":"3"|"文央":"4"|"狮子":"5"}=0 "renwu"
Dim Pics(5)
Pics(1) = "周泰.bmp"
Pics(2) = "黄忠.bmp"
Pics(3) = "蒲元.bmp"
Pics(4) = "文央.bmp"
Pics(5) = "狮子.bmp"
FindPic 0, 0, 1024, 768, "Attachment:\" & Pics(i), 0.9, intX, intY
If intX > 0 Then
Delay 200
MoveTo intX, intY
Delay 200
LeftClick 1
End If

Answer 2

你把标记F 弄到下面干什么 那不直接就跳到结束了吗？ 把标记F 弄到第二段代码，就是第一个变量后面

追问

下面还有程序 写不下了 标记您帮我看看我这个实现选择选图之后单机了吗

追答

怎么会写不下啊 你写20篇都没问题 我也在写梦三国的本子要不加QQ聊455619333

追问

没qq 等我申请一个你有yy吗 咱上那个 好聊