为什么总是说错误(10066): 用作提供参数数据的子语句未返...

daxia7227

照着一个课程写的大漠多线程，为什么他就能成功运行，我的就总是提示错误(10066): 用作提供参数数据的子语句未返回数据。那个大佬 们帮我分析一下
.版本 2
.支持库 spec
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 ret, 整数型

SetDllPathA (取运行目录 () ＋ “\dm.dll”, 1)
全局大漠.创建 ()
调试输出 (全局大漠.Ver ())

ret ＝ 全局大漠.Reg (“确定不是注册码问题”, “”)
.判断开始 (ret ≠ 1)
    信息框 (“reg注册失败”, 0, , )

.默认
    调试输出 (“注册成功”)

.判断结束


读取账号 ()


.子程序 读取账号
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 c, 文本型, , "0"
.局部变量 j, 整数型

a ＝ 到文本 (读入文件 (取运行目录 () ＋ “config\config.ini”))
b ＝ 分割文本 (a, #换行符, )

.计次循环首 (取数组成员数 (b), i)
    c ＝ 分割文本 (b [i], “|”, )
    超级列表框1.插入表项 (, , , , , )

    .计次循环首 (取数组成员数 (c), j)
        超级列表框1.置标题 (i － 1, j － 1, c [j])

    .计次循环尾 ()
.计次循环尾 ()
批量_单选框_读取配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”)
批量_组合框_读取配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”)
批量_选择框_读取配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”)
批量_编辑框_读取配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”)


.子程序 _组合框1_列表项被选择

列表框1.加入项目 (组合框1.内容, )


.子程序 _按钮_倒入账号_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 I, 整数型
.局部变量 c, 文本型, , "0"

超级列表框1.全部删除 ()

通用对话框1.初始目录 ＝ 取运行目录 ()
.如果真 (通用对话框1.打开 ())
    a ＝ 到文本 (读入文件 (通用对话框1.文件名))
    b ＝ 分割文本 (a, #换行符, )
    调试输出 (b)
    .计次循环首 (取数组成员数 (b), I)
        c ＝ 分割文本 (b [I], “|”, )
        .如果真 (取数组成员数 (c) ≥ 3)
            超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (I － 1, 0, 到文本 (I))
            超级列表框1.置标题 (I － 1, 1, c [1])
            超级列表框1.置标题 (I － 1, 2, c [2])
            超级列表框1.置标题 (I － 1, 3, c [3])
        .如果真结束

    .计次循环尾 ()
.如果真结束


.子程序 _按钮_保存配置_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 a, 文本型

.计次循环首 (超级列表框1.取表项数 (), x)

    .计次循环首 (超级列表框1.取列数 (), y)
        a ＝ a ＋ 超级列表框1.取标题 (x － 1, y － 1) ＋ “|”

    .计次循环尾 ()
    a ＝ a ＋ #换行符

.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\config\congig.ini”, 到字节集 (a))
批量_编辑框_保存配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”, )
批量_组合框_保存配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”, )
批量_单选框_保存配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”, )
批量_选择框_保存配置 (_启动窗口, 取运行目录 () ＋ “\config\kj.ini”, )


.子程序 _按钮_一键启动_被单击

重定义数组 (大漠多线程, 假, 超级列表框1.取表项数 ())

全局主线程句柄 ＝ 线程_启动 (&循环登录, , )





.子程序 循环登录
.局部变量 i, 整数型
.局部变量 多开数量, 整数型


多开数量 ＝ 到整数 (编辑框_窗口数量.内容)

.计次循环首 (超级列表框1.取表项数 (), i)
    超级列表框1.现行选中项 ＝ i － 1
    超级列表框1.获取焦点 ()
    大漠多线程 [i].线程句柄 ＝ 线程_启动 (&窗口线程, i, )

    .如果 (大漠多线程 [i].线程句柄 ＞ 0)

        调试输出 (“线程” ＋ 到文本 (i) ＋ “启动成功”)
        全局窗口数量 ＝ 全局窗口数量 ＋ 1
    .否则
        调试输出 (“线程” ＋ 到文本 (i) ＋ “启动失败”)
    .如果结束
    .判断循环首 (真)
        .如果真 (全局窗口数量 ＜ 多开数量)

            跳出循环 ()

        .如果真结束
        延迟 (3000)
    .判断循环尾 ()
.计次循环尾 ()


.子程序 窗口线程
.参数 i, 整数型
.局部变量 大漠, 大漠

CoInitializeEx (0, 0)  ' 初始化com库，设置为mta模式
大漠多线程 [i].大漠.创建 ()

.如果 (大漠多线程 [i].大漠.创建 () ＝ 真)         问题在这里出现的，谁能给我解释一下？难道是因为他用的自己的模块我没有用吗？如果不用他自己的模块我应该如何把问题解决？

    调试输出 (“大漠多线程” ＋ 到文本 (i) ＋ “创建成功”)
.否则
    调试输出 (“大漠多线程” ＋ 到文本 (i) ＋ “创建失败”)

.如果结束

.计次循环首 (10, )  ' 做任务
    延迟 (1000)
    调试输出 (“窗口线程” ＋ 到文本 (i) ＋ “执行任务中”)
.计次循环尾 ()
全局窗口数量 ＝ 全局窗口数量 － 1

.子程序 _按钮_一键停止_被单击
.局部变量 i, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    线程_销毁 (大漠多线程 [i].线程句柄)
    线程_关闭句柄 (大漠多线程 [i].线程句柄)

.计次循环尾 ()
线程_销毁 (全局主线程句柄)
线程_关闭句柄 (全局主线程句柄)
全局主线程句柄 ＝ 0


.子程序 _按钮_全部暂停_被单击
.局部变量 I, 整数型

.计次循环首 (超级列表框1.取表项数 (), I)
    线程_挂起 (大漠多线程 [I].线程句柄)

.计次循环尾 ()
线程_挂起 (全局主线程句柄)


.子程序 _按钮_全部恢复_被单击
.局部变量 I, 整数型

.计次循环首 (超级列表框1.取表项数 (), I)
    线程_恢复 (大漠多线程 [I].线程句柄)

.计次循环尾 ()
线程_恢复 (全局主线程句柄)

|bingbing|

感觉错误不在你贴的这段源码当中，方便把整个源码发上来看看嘛？

|bingbing|

  

子程序名	返回值类型	公开	备 注
窗口线程
参数名	类 型	参考	可空	数组	备 注
i	整数型

变量名	类 型	静态	数组	备 注
大漠	大漠

CoInitializeEx (0, 0)  ' 初始化com库，设置为mta模式
如果 (大漠.创建 () ＝ 真)
调试输出 (“大漠多线程” ＋ 到文本 (i) ＋ “创建成功”)
调试输出 (“大漠多线程” ＋ 到文本 (i) ＋ “创建失败”)

计次循环首 (10, )  ' 做任务
延迟 (1000)
调试输出 (“窗口线程” ＋ 到文本 (i) ＋ “执行任务中”)
计次循环尾 ()
全局窗口数量 ＝ 全局窗口数量 － 1

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 窗口线程<br /> .参数 i, 整数型<br /> .局部变量 大漠, 大漠<br /> <br /> CoInitializeEx (0, 0)  ' 初始化com库，设置为mta模式<br /> .如果 (大漠.创建 () ＝ 真)<br />     调试输出 (“大漠多线程” ＋ 到文本 (i) ＋ “创建成功”)<br /> .否则<br />     调试输出 (“大漠多线程” ＋ 到文本 (i) ＋ “创建失败”)<br /> .如果结束<br /> <br /> .计次循环首 (10, )  ' 做任务<br />     延迟 (1000)<br />     调试输出 (“窗口线程” ＋ 到文本 (i) ＋ “执行任务中”)<br /> .计次循环尾 ()<br /> 全局窗口数量 ＝ 全局窗口数量 － 1

看代码我觉得应该是要改成这样子

追风少年卡拉赞

你有一个子程序 没有返回("返回内容"),如果子程序不需要返回内容 把返回值类型去掉就可以了。