线程子程序下不能运行DLL 编辑好的命令

kyym01

.版本 2
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 句柄线程1, 整数型
.程序集变量 句柄线程2, 整数型
.程序集变量 端口句柄, 整数型
.程序集变量 返回长度, 整数型
.程序集变量 命令, 字节型, , "64"
.程序集变量 返回数据, 字节型, , "64"
.程序集变量 命令长度, 整数型
.程序集变量 超时时间, 整数型
.程序集变量 按键值, 整数型
.程序集变量 次数, 整数型
.程序集变量 鼠标坐标X, 整数型
.程序集变量 鼠标坐标Y, 整数型
.程序集变量 设备序列号, 字节型, , "64"
.程序集变量 设备序列号字符串, 文本型

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

启动线程 (&子程序1, , 句柄线程1)


.子程序 子程序1
.局部变量 a, 逻辑型

a ＝ 假
.判断循环首 (a ＝ 假)
    编辑框1.内容 ＝ “开始”
    按下按键 (端口句柄, #HID_键盘q)  ' 使用USB HID按键值，在本例程的常量数据表中有定义
    在最小最大值之间延时随机时间 (100, 1000)  ' 这个只是为了调试用，实际程序根据需要来延时

    弹起按键 (端口句柄, #HID_键盘q)  ' 使用USB HID按键值，在本例程的常量数据表中有定义
    在最小最大值之间延时随机时间 (500, 1000)  ' 这个只是为了调试用，实际程序根据需要来延时

    按下按键 (端口句柄, #HID_键盘q)  ' 使用USB HID按键值，在本例程的常量数据表中有定义
    在最小最大值之间延时随机时间 (100, 1000)  ' 这个只是为了调试用，实际程序根据需要来延时

    弹起按键 (端口句柄, #HID_键盘q)  ' 使用USB HID按键值，在本例程的常量数据表中有定义
    在最小最大值之间延时随机时间 (500, 1500)  ' 这个只是为了调试用，实际程序根据需要来延时
    处理事件 ()

    按下按键 (端口句柄, #HID_键盘向右箭头)  ' 使用USB HID按键值，在本例程的常量数据表中有定义
    在最小最大值之间延时随机时间 (80, 700)  ' 这个只是为了调试用，实际程序根据需要来延时

    弹起按键 (端口句柄, #HID_键盘向右箭头)  ' 使用USB HID按键值，在本例程的常量数据表中有定义
    在最小最大值之间延时随机时间 (500, 1000)  ' 这个只是为了调试用，实际程序根据需要来延时
    处理事件 ()

    ' 弹起所有按键 (端口句柄)
    输出调试文本 (端口句柄)

    编辑框1.内容 ＝ “结束”
    延时 (1000)

.判断循环尾 ()

循环内的DLL命令不能在子程序线程下运行，放在按钮1_被单击下就可以正常运行！ 求大神解决 ~

阿顺

写个判断循环首就好了

补充内容 (2021-12-16 15:54):
每个任务里面再加一个小判断

kyym01

阿顺 发表于 2021-12-16 15:52
写个判断循环首就好了

补充内容 (2021-12-16 15:54):

能说得详细点吗

rectdbszy

可以运行的，你哪没写对吧。