关于循环

qi13678274649

[e=0]


.子程序 _按钮1_被单击
.参数 aaa, 文本型
.参数 x, 整数型
.参数 y, 整数型
.参数 i, 整数型

.判断循环首 (真)

    运行子 子程序2   ’用于刷新
    aaa ＝ cor数字版 (830, 351, 945, 368)
    调试输出 (aaa)
    .如果 (aaa ≠ “” 且 到整数 (aaa) ≤ 到整数 (编辑框2.内容))
        运行 子程序1  ‘用于点击购买，刷新


    .否则

    .如果结束

.判断循环尾 ()


.子程序 子程序1

大漠.MoveTo (949, 528)
延迟 (50)
大漠.LeftClick ()
延迟 (1000)
大漠.MoveTo (518, 442)
延迟 (50)
大漠.LeftClick ()
延迟 (1000)


.子程序 子程序2


大漠.MoveTo (411, 196)
延迟 (50)
大漠.LeftClick ()





想问问大佬们   点击按钮1以后怎么无限循环下面的内容    然后当子程序1  成功次数等于编辑框输入的次数就停止整个脚本
感谢各位大佬

guowei0422

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
成功次数	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击
参数名	类 型	参考	可空	数组	备 注
aaa	文本型
x	整数型
y	整数型
i	整数型

判断循环首 (真)
子程序2 ()  ' 用于刷新
aaa ＝ cor数字版 (830, 351, 945, 368)
调试输出 (aaa)
如果 (aaa ≠ “” 且 到整数 (aaa) ≤ 到整数 (编辑框2.内容))
子程序1 ()  ' 用于点击购买，刷新



如果真 (成功次数 ≥ 到整数 (编辑框_目的次数.内容))
跳出循环 ()

判断循环尾 ()

子程序名	返回值类型	公开	备 注
子程序1

大漠.MoveTo (949, 528)
延迟 (50)
大漠.LeftClick ()
延迟 (1000)
大漠.MoveTo (518, 442)
延迟 (50)
大漠.LeftClick ()
延迟 (1000)
成功次数 ＝ 成功次数 ＋ 1

子程序名	返回值类型	公开	备 注
子程序2

大漠.MoveTo (411, 196)
延迟 (50)
大漠.LeftClick ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 成功次数, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .参数 aaa, 文本型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 i, 整数型<br /> <br /> .判断循环首 (真)<br />     子程序2 ()  ' 用于刷新<br />     aaa ＝ cor数字版 (830, 351, 945, 368)<br />     调试输出 (aaa)<br />     .如果 (aaa ≠ “” 且 到整数 (aaa) ≤ 到整数 (编辑框2.内容))<br />         子程序1 ()  ' 用于点击购买，刷新<br />     .否则<br /> <br />     .如果结束<br /> <br />     .如果真 (成功次数 ≥ 到整数 (编辑框_目的次数.内容))<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 子程序1<br /> <br /> 大漠.MoveTo (949, 528)<br /> 延迟 (50)<br /> 大漠.LeftClick ()<br /> 延迟 (1000)<br /> 大漠.MoveTo (518, 442)<br /> 延迟 (50)<br /> 大漠.LeftClick ()<br /> 延迟 (1000)<br /> 成功次数 ＝ 成功次数 ＋ 1<br /> <br /> .子程序 子程序2<br /> <br /> 大漠.MoveTo (411, 196)<br /> 延迟 (50)<br /> 大漠.LeftClick ()

补充内容 (2024-4-17 01:51):
成功次数 ＝ 0

补充内容 (2024-4-17 01:52):
把成功次数=0 放到判断循环首的上面一行

暗影网络科技

跳出循环()

暗影网络科技

如果(成功次数 = 编辑框输入的次数)

暗影网络科技

  

如果 (成功次数 = 编辑框输入的次数)
跳出循环 ()

.版本 2<br /> <br /> .如果(成功次数 = 编辑框输入的次数)<br />     跳出循环 ()

515889127

.版本 2

.子程序 _按钮1_被单击
.参数 aaa, 文本型
.参数 x, 整数型
.参数 y, 整数型
.参数 i, 整数型

.判断循环首 (真)
    运行子 子程序2   ’用于刷新
    aaa ＝ cor数字版 (830, 351, 945, 368)
    调试输出 (aaa)
    .如果 (aaa ≠ “” 且 到整数 (aaa) ≤ 到整数 (编辑框2.内容))
        运行 子程序1  ‘用于点击购买，刷新
    .否则
        跳出循环 ()
    .如果结束

.判断循环尾 ()

aaa520qqa

你这写的太拉了。。。不要写死循环

aaa520qqa

参数 aaa, 文本型
.参数 x, 整数型
.参数 y, 整数型
.参数 i, 整数型
‘设置一个全局变量Q，整数型
‘设置一个全局变量i，整数型
Q=1
.判断循环首 (Q=1)

    运行子 子程序2   ’用于刷新
    aaa ＝ cor数字版 (830, 351, 945, 368)
    调试输出 (aaa)
    .如果 (aaa ≠ “” 且 到整数 (aaa) ≤ 到整数 (编辑框2.内容))
        运行 子程序1  ‘用于点击购买，刷新


    .否则

    .如果结束

.判断循环尾 ()


.子程序 子程序1

大漠.MoveTo (949, 528)
延迟 (50)
大漠.LeftClick ()
延迟 (1000)
大漠.MoveTo (518, 442)
延迟 (50)
大漠.LeftClick ()
延迟 (1000)
i=i+1
如果真（i=到整数（编辑框1.内容））
Q=1
.子程序 子程序2


大漠.MoveTo (411, 196)
延迟 (50)
大漠.LeftClick ()


补充内容 (2024-4-17 10:37):
如果真（i=到整数（编辑框1.内容））
Q=0  这样写