按键精灵编程中子程序中多个if else 嵌套后 找图失灵 170
Sub确定签到(成功账号路径,资料)D2=Plugin.Sys.GetTimeWhiletrueD3=Plugin.Sys.GetTimeIfD3>D2+18000The...
Sub 确定签到(成功账号路径, 资料)
D2 = Plugin.Sys.GetTime
While true
D3 = Plugin.Sys.GetTime
If D3 > D2 + 18000 Then
If 新建角色 = 1 Then
Call 拦截器()
Else
Call 拦截器1()
End If
End If
FindPic 0,0,1024,768,"Attachment:\周.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 日期x, intY + 日期y
Delay 200
LeftClick 1
J = Plugin.Sys.GetTime
While true
J1 = Plugin.Sys.GetTime
If J1 > J + 20000 Then
If 新建 = 1 Then
Call 拦截器()
Else
Call 拦截器1()
End If
End If
FindPic 565, 353, 684, 449,"Attachment:\成功.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
MessageBox "成功"
Else
Call 错误确定框()
End If
Delay 200
Wend
Else
Delay 200
Call 找标签()
End If
Delay 200
Wend
Rem 签到完成
End Sub
下面是调用的子程序
Sub 错误确定框()
FindPic 0,0,1024,768,"Attachment:\确定.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
Delay 200
KeyPress "Esc", 1
Delay 300
Jx = Plugin.Sys.GetTime
If Jx - 全局时间 > 20000 Then
Call 拦截器1()
End If
Goto 标签G1
Else
Jx1 = Plugin.Sys.GetTime
Delay 200
If Jx1 - 全局时间 > 20000 Then
Call 拦截器1()
End If
Goto 标签G1
End If
End Sub
遇到一个问题 上面 代码有点乱,我来描述下 ,是这样的
我的编写逻辑如下
for x
各种if else控制子程序调用
next
sub 各种功能子程序
,.....
大概就是上面的样子。。。
问题是:
我在我的for中 调用一个 子程序实现具体功能
在子程序中 需要找图 ,如上面那个子程序,我套了2个if else
但是 内层的if 只要加上else 找图成功.bmp就找不到了 ,单独拿出来 100%能找到
意思就是
if xx then
if ss then
else
yy
end if
else
xx
end if
其中 只要上面个 yy 的位置 有东西 那么ss就找图失败了
上面都是 找图的if语句。。。
我不知道哪里出错了,我没学过VB,看的按键视频 ,是不是 规范写错了 ,求教啊 ,在线等
2013年8月12日3:50:05
补充字体有限,而且 这个问题描述不清,我又新开了一个问题 ↓
http://zhidao.baidu.com/question/579880577.html
若能解决问题 双最佳哦 展开
D2 = Plugin.Sys.GetTime
While true
D3 = Plugin.Sys.GetTime
If D3 > D2 + 18000 Then
If 新建角色 = 1 Then
Call 拦截器()
Else
Call 拦截器1()
End If
End If
FindPic 0,0,1024,768,"Attachment:\周.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 日期x, intY + 日期y
Delay 200
LeftClick 1
J = Plugin.Sys.GetTime
While true
J1 = Plugin.Sys.GetTime
If J1 > J + 20000 Then
If 新建 = 1 Then
Call 拦截器()
Else
Call 拦截器1()
End If
End If
FindPic 565, 353, 684, 449,"Attachment:\成功.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
MessageBox "成功"
Else
Call 错误确定框()
End If
Delay 200
Wend
Else
Delay 200
Call 找标签()
End If
Delay 200
Wend
Rem 签到完成
End Sub
下面是调用的子程序
Sub 错误确定框()
FindPic 0,0,1024,768,"Attachment:\确定.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
Delay 200
KeyPress "Esc", 1
Delay 300
Jx = Plugin.Sys.GetTime
If Jx - 全局时间 > 20000 Then
Call 拦截器1()
End If
Goto 标签G1
Else
Jx1 = Plugin.Sys.GetTime
Delay 200
If Jx1 - 全局时间 > 20000 Then
Call 拦截器1()
End If
Goto 标签G1
End If
End Sub
遇到一个问题 上面 代码有点乱,我来描述下 ,是这样的
我的编写逻辑如下
for x
各种if else控制子程序调用
next
sub 各种功能子程序
,.....
大概就是上面的样子。。。
问题是:
我在我的for中 调用一个 子程序实现具体功能
在子程序中 需要找图 ,如上面那个子程序,我套了2个if else
但是 内层的if 只要加上else 找图成功.bmp就找不到了 ,单独拿出来 100%能找到
意思就是
if xx then
if ss then
else
yy
end if
else
xx
end if
其中 只要上面个 yy 的位置 有东西 那么ss就找图失败了
上面都是 找图的if语句。。。
我不知道哪里出错了,我没学过VB,看的按键视频 ,是不是 规范写错了 ,求教啊 ,在线等
2013年8月12日3:50:05
补充字体有限,而且 这个问题描述不清,我又新开了一个问题 ↓
http://zhidao.baidu.com/question/579880577.html
若能解决问题 双最佳哦 展开
展开全部
if xx then
if ss then
'ss 为真,执行这里,只有ss为假才执行yy
else
yy
end if
else
xx
end if
2.
for x '这里x应该是个区间吧?例如:x=0 to 10
各种if else控制子程序调用
next
sub 各种功能子程序
追问
我问题表达的不够清楚 ,新开的问题上 我描述的比较清楚 麻烦看看吧
我又新开了一个问题 ↓
http://zhidao.baidu.com/question/579880577.html
若能解决问题 双最佳哦
追答
问题失效!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询