该如何同时启用线程呢＾3个子程序如何同时进行运行呢｀

再早在

无限软件 发表于 2017-1-16 14:49
不用啊，是子程序就行，可以不要参数不要返回值。

你QQ 多少呀 ？能否帮我看看

hanyuhang1995

再早在 发表于 2017-1-16 14:50
你QQ 多少呀 ？能否帮我看看

例子我给你了啊……要返回值就对应修改子程序子程序就好了……

再早在

542044389 发表于 2017-1-16 14:54
例子我给你了啊……要返回值就对应修改子程序子程序就好了……

主要是无法执行........

liu2220

再早在 发表于 2017-1-16 14:55
主要是无法执行........

无法执行是因为你写的有问题

再早在

542044389 发表于 2017-1-16 14:54
例子我给你了啊……要返回值就对应修改子程序子程序就好了……

hanyuhang1995

再早在 发表于 2017-1-16 14:58

不知道你的wanb是不是一个参数……是的话你用引号引起来就成一个固定文本了……

再早在

542044389 发表于 2017-1-16 15:05
不知道你的wanb是不是一个参数……是的话你用引号引起来就成一个固定文本了……

不是的 貌似DLL就调用不了把

hanyuhang1995

再早在 发表于 2017-1-16 15:08
不是的 貌似DLL就调用不了把

理论上应该没有影响，应该是你程序写的问题……只能自己尝试修改了……要不然就传源码让大家帮你看看

再早在

542044389 发表于 2017-1-16 15:09
理论上应该没有影响，应该是你程序写的问题……只能自己尝试修改了……要不然就传源码让大家帮你看看

.版本 2
.支持库 EThread
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码

q_pzdz ＝ “C:\Users\Administrator\Desktop\新建文件夹 (7)\”

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 返回值被忽略。

.子程序 _临时子程序


' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
搜索 (“鬼吹灯”, “122800”)


.子程序 搜索, 文本型, 公开
.参数 消息数据, 文本型, , 插件收到的数据，cmdstr=后面的文字
.参数 发送者群号, 文本型

q_临时群号 ＝ 发送者群号
写配置项 (q_pzdz ＋ “视频搜索暂存 - ” ＋ 发送者群号 ＋ “.ini”, “参数”, “消息数据”, 消息数据)
启动线程 (&视频源1, , )

返回 (“wanb”)

.子程序 视频源1, , 公开
.局部变量 zz, 正则表达式类
.局部变量 a, 整数型
.局部变量 fhwb, 文本型
.局部变量 splj, 文本型
.局部变量 zzcj, 文本型
.局部变量 tplj, 文本型
.局部变量 btmc, 文本型
.局部变量 sssl, 整数型
.局部变量 xxsj, 文本型


xxsj ＝ 到文本 (读配置项 (q_pzdz ＋ “视频搜索暂存 - ” ＋ q_临时群号 ＋ “.ini”, “参数”, “消息数据”, ))
sssl ＝ 到整数 (读配置项 (q_pzdz ＋ “视频搜索暂存 - ” ＋ q_临时群号 ＋ “.ini”, “参数”, “搜索数量”, ))

fhwb ＝ 网页_访问s (“http://www.15yc.com/search?wd=” ＋ UTF8编码转换 (xxsj))
zzcj ＝ “movie-item” ＋ #引号 ＋ “>[\s\S]*?href=” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “[\s\S]*?title=” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “.*?src=” ＋ #引号 ＋ “(.*?)” ＋ #引号
zz.创建 (zzcj, fhwb)

写配置项 (q_pzdz ＋ “视频搜索暂存 - ” ＋ q_临时群号 ＋ “.ini”, “参数”, “搜索数量”, 到文本 (sssl ＋ zz.取匹配数量 ()))
调试输出 (zz.取匹配数量 ())
.计次循环首 (zz.取匹配数量 (), a)
    splj ＝ zz.取子匹配文本 (a, 1)
    tplj ＝ zz.取子匹配文本 (a, 3)
    btmc ＝ zz.取子匹配文本 (a, 2)
    写配置项 (q_pzdz ＋ “视频搜索暂存 - ” ＋ q_临时群号 ＋ “.ini”, 到文本 (sssl ＋ a), “参数”, “[SP]http://www.15yc.com” ＋ splj ＋ “[/SP][TP]” ＋ tplj ＋ “[/TP][BT]” ＋ btmc ＋ “[/BT]”)

.计次循环尾 ()
处理事件 ()
调试输出 (“视频源1搜索数量为:” ＋ 到文本 (zz.取匹配数量 ()))

hanyuhang1995

再早在 发表于 2017-1-16 15:12
.版本 2
.支持库 EThread
.支持库 spec

子程序的结尾加上返回（）   括号里你要返回的数据，，然后在调用子程序的位置调试输出试试