这样的IF怎么写？ - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
n	整数型
i	整数型
命令	文本型
k	整数型
参数1	文本型
参数2	文本型
参数3	文本型
次数	整数型

n ＝超级列表框1.取表项数 ()
i ＝ 1

判断循环首 (i ＜ n)

命令＝超级列表框1.取标题 (i － 1, 0)

判断 (命令＝ “REPEAT”)

k ＝ 0

次数＝到整数 (超级列表框1.取标题 (i － 1, 1))

计次循环首 (次数, )

循环判断首 ()

命令＝超级列表框1.取标题 (i ＋ k, 0)

参数1 ＝超级列表框1.取标题 (i ＋ k, 1)

参数2 ＝超级列表框1.取标题 (i ＋ k, 2)

参数3 ＝超级列表框1.取标题 (i ＋ k, 3)

判断 (命令＝ “MOUSE”)

鼠标点击 (参数1, 参数2, 参数3)

判断 (命令＝ “DELAY”)

程序延时 (参数1)

判断 (命令＝ “TYPE TEXT”)

投送文本 (参数1)

判断 (命令＝ “END PEPEAT”)

k ＝ -1

k ＝ k ＋ 1

循环判断尾 (k ≠ 0)

计次循环尾 ()

i ＝超级列表框1.查找表项 (“END PEPEAT”, i, , 0) ＋ 1

调试输出 (i)

判断循环尾 ()

子程序名	返回值类型	公开	备注
鼠标点击
参数名	类型	参考	可空	数组	备注
参1	文本型
参2	文本型
参3	文本型

调试输出 (参1, 参2, 参3)

子程序名	返回值类型	公开	备注
程序延时
参数名	类型	参考	可空	数组	备注
参1	文本型

调试输出 (“延时”, 参1)

子程序名	返回值类型	公开	备注
投送文本
参数名	类型	参考	可空	数组	备注
参1	文本型

调试输出 (“投送文本”, 参1)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br />
.支持库 iext<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 n, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 命令, 文本型<br />
.局部变量 k, 整数型<br />
.局部变量 参数1, 文本型<br />
.局部变量 参数2, 文本型<br />
.局部变量 参数3, 文本型<br />
.局部变量 次数, 整数型<br />
<br />
n ＝ 超级列表框1.取表项数 ()<br />
i ＝ 1<br />
.判断循环首 (i ＜ n)<br />
    命令 ＝ 超级列表框1.取标题 (i － 1, 0)<br />
    .判断开始 (命令 ＝ “REPEAT”)<br />
        k ＝ 0<br />
        次数 ＝ 到整数 (超级列表框1.取标题 (i － 1, 1))<br />
        .计次循环首 (次数, )<br />
            .循环判断首 ()<br />
                命令 ＝ 超级列表框1.取标题 (i ＋ k, 0)<br />
                参数1 ＝ 超级列表框1.取标题 (i ＋ k, 1)<br />
                参数2 ＝ 超级列表框1.取标题 (i ＋ k, 2)<br />
                参数3 ＝ 超级列表框1.取标题 (i ＋ k, 3)<br />
                .判断开始 (命令 ＝ “MOUSE”)<br />
                    鼠标点击 (参数1, 参数2, 参数3)<br />
                .判断 (命令 ＝ “DELAY”)<br />
                    程序延时 (参数1)<br />
                .判断 (命令 ＝ “TYPE TEXT”)<br />
                    投送文本 (参数1)<br />
                .判断 (命令 ＝ “END PEPEAT”)<br />
                    k ＝ -1<br />
                .默认<br />
<br />
                .判断结束<br />
                k ＝ k ＋ 1<br />
            .循环判断尾 (k ≠ 0)<br />
        .计次循环尾 ()<br />
        i ＝ 超级列表框1.查找表项 (“END PEPEAT”, i, , 0) ＋ 1<br />
    .默认<br />
<br />
    .判断结束<br />
    调试输出 (i)<br />
.判断循环尾 ()<br />
<br />
<br />
.子程序 鼠标点击<br />
.参数 参1, 文本型<br />
.参数 参2, 文本型<br />
.参数 参3, 文本型<br />
<br />
调试输出 (参1, 参2, 参3)<br />
<br />
<br />
.子程序 程序延时<br />
.参数 参1, 文本型<br />
<br />
调试输出 (“延时”, 参1)<br />
<br />
<br />
.子程序 投送文本<br />
.参数 参1, 文本型<br />
<br />
调试输出 (“投送文本”, 参1)

变量名	类型	静态	数组	备注
变量1	逻辑型
窗口句柄	整数型

' 变量1=
窗口句柄＝取窗口句柄 () ' 目标窗口的句柄

计次循环首 (9999, )

如果真 (变量1)

鼠标_单击 (窗口句柄, 0, 0, 1) ' 精易模块鼠标单击命令

延时 (2)

鼠标_单击 (窗口句柄, 1083, 683, 1)

计次循环尾 ()