多线程多浏览器网页填表初始化后只能运行一个浏览器操作

baixb13

怎样多线程填表.zip (275.86 KB, 下载次数: 41)

2014-1-8 10:27 上传

点击文件名下载附件




源码在此（易语言新手写的有点乱），多线程填表只能运行一个浏览器，多个浏览器运行后就会等第一个浏览器执行完才会进行下一个，求解求源码！

天中小和尚

传送门
自己研究研究

baixb13

天中小和尚 发表于 2014-1-8 10:37
传送门
自己研究研究

这个不行，教程我看了，，我上传了源码能否帮改进下

天中小和尚

这个不行?  那个源码不能多线程填表吗?

baixb13

天中小和尚 发表于 2014-1-8 10:54
这个不行?  那个源码不能多线程填表吗?

是的，我更新了最新版的精易vip模块也不行

天中小和尚

你用它原来的模块啊    它打包的有模块的啊
晕

baixb13

天中小和尚 发表于 2014-1-8 11:02
你用它原来的模块啊    它打包的有模块的啊
晕

最新的怎么弄呢， 能不能帮我把我的那个源码改下，我那个非常简单的就是文本框填写数字，我就是想测试多线程填表

baixb13

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 q, 整数型
.程序集变量 w, 整数型
.程序集变量 e, 整数型
.程序集变量 多线程证书变量, 整数型
.程序集变量 多线程句柄变量, 整数型
.程序集变量 许可证, 线程许可证, , "0"
.程序集变量 窗口句柄1, 整数型, , "0"

.子程序 子程序1
.参数 线程数, 整数型
.局部变量 j, 整数型

调试输出 (线程数)

线程_初始化COM库 ()

线程_进入许可区 (许可证 [线程数])
.如果真 (线程数 ＝ 1)
    网页填表.初始化 (窗口句柄1 [线程数], 真, , 真, )
    网页填表.文本框_写内容 (“Id==kw”, “1”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “2”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “3”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “4”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “5”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “6”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “7”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “8”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “9”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “10”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “11”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “12”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “13”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “14”, , 1)
    程序_延时 (1000)
.如果真结束
.如果真 (线程数 ＝ 2)
    网页填表.初始化 (窗口句柄1 [线程数], 真, , 真, )
    网页填表.文本框_写内容 (“Id==kw”, “1”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “2”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “3”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “4”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “5”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “6”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “7”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “8”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “9”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “10”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “11”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “12”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “13”, , 1)
    程序_延时 (1000)
    网页填表.文本框_写内容 (“Id==kw”, “14”, , 1)
    程序_延时 (1000)
.如果真结束

线程_退出许可区 (许可证 [线程数])
线程_取消COM库 ()


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

清除数组 (窗口句柄1)
加入成员 (窗口句柄1, 浏览器的句柄1)‘要打开的浏览器句柄
加入成员 (窗口句柄1, 浏览器的句柄2)‘要打开的浏览器句柄

.子程序 _按钮1_被单击
.局部变量 j, 整数型

.计次循环首 (2, j)
    加入成员 (许可证, 线程_创建许可证 ())
    线程_启动 (&子程序1, j)
.计次循环尾 ()
调试输出 (许可证)

[/e]
这是主程序的源码

神奇的我

试试别的 启动线程看看。

冰点

我的帖子好像是更新了 4.25的模块的。。不明真相。。我的都可以。。。