自己编的论坛发帖机，运行是很卡，发帖效率非常低，高手指点下，怎么样提高效率

肥皂泡 · 发表于 2011-8-28 21:15:01

.版本 2

.子程序 _按钮2_被单击
.局部变量 wb, 文本型
.局部变量 pd, 文本型
.局部变量 pn, 文本型
.局部变量 pt, 文本型
.局部变量 fhwb, 文本型
.局部变量次数, 整数型
.局部变量 formhash, 文本型

wb ＝网页_取网页源码 (编辑框4.内容)
formhash ＝文本_取出中间文本 (wb, “formhash” ＋ #引号＋ “ value=” ＋ #引号, #引号)

pt ＝文本_取出中间文本 (wb, “posttime” ＋ #引号＋ “ value=” ＋ #引号, #引号)

pd ＝编辑框4.内容＋ “&extra=&replysubmit=yes”

pn ＝ “formhash=” ＋ formhash ＋ “&posttime=” ＋ pt ＋ “&wysiwyg=1&noticeauthor=&noticetrimstr=&noticeauthormsg=&subject=&message=” ＋编辑框6.内容＋ “&save=&uploadalbum=&newalbum=&usesig=1&addfeed=1”

.计次循环首 (到整数 (编辑框5.内容), 次数)
网页_访问 (pd, 1, , , pn, )
标签9.标题＝到文本 (次数)
.计次循环尾 ()

运行起来很卡，一分钟才能发几贴，速度太慢，效率太低，高手指点下，怎么提高效率

q1051278389 · 发表于 2011-8-28 21:15:02

本帖最后由 q1051278389 于 2011-8-29 07:57 编辑

改成独立子程序，然后点击按钮后使用启动线程就可以了，代码如下

[e].版本 2
.支持库 EThread
.子程序 _按钮2_被单击
启动线程 (&PtrCallBack, , )
.子程序 PtrCallBack
.局部变量 wb, 文本型
.局部变量 pd1, 文本型
.局部变量 pn, 文本型
.局部变量 pt, 文本型
.局部变量 fhwb, 文本型
.局部变量次数, 整数型
.局部变量 formhash, 文本型
wb ＝网页_取网页源码 (编辑框4.内容)
formhash ＝文本_取出中间文本 (wb, “formhash” ＋ #引号＋ “ value=” ＋ #引号, #引号)
pt ＝文本_取出中间文本 (wb, “posttime” ＋ #引号＋ “ value=” ＋ #引号, #引号)
pd1 ＝编辑框4.内容＋ “&extra=&replysubmit=yes”
pn ＝ “formhash=” ＋ formhash ＋ “&posttime=” ＋ pt ＋ “&wysiwyg=1&noticeauthor=&noticetrimstr=&noticeauthormsg=&subject=&message=” ＋编辑框6.内容＋ “&save=&uploadalbum=&newalbum=&usesig=1&addfeed=1”
.计次循环首 (到整数 (编辑框5.内容), 次数)
网页_访问 (pd, 1, , , pn, )
标签9.标题＝到文本 (次数)
.计次循环尾 ()
[/e]

子程序名PtrCallBack可以随便改，不知道是不是你那意思，不过30秒才可以发1个帖子的