用户组 
易积分5
热心0
好评0
|
源码:变量 多线程批量取源码1 为 多线程操作变量 多线程批量取源码2 为 多线程操作
变量 多线程批量取源码3 为 多线程操作
变量 x 为 文本型
事件 功能中心.创建完毕()
系统广播1.注册广播("右") '注册系统广播,用于接收多线程取网页源码完毕时,返回的网页源码
结束 事件
事件 按钮1.被单击()
x=编辑框1.内容
开始取网页源码1("操作1","","","这里是网页地址"+x,"utf-8","3000")'只要我加上“=x”就会崩溃,而不加就不会崩溃
结束 事件
过程 开始取网页源码1(操作1 为 文本型,协议头 为 文本型,Cookie 为 文本型,网址 为 文本型,编码 为 文本型,超时 为 文本型)
如果 协议头 = "" 则
公用模块.多线程操作1参数(0) = "" '判断协议头是不是空
否则
公用模块.多线程操作1参数(0) = 协议头 '协议头不是空,就添加到多线程参数,用于多线程操作时调用
结束 如果
如果 Cookie = "" 则
公用模块.多线程操作1参数(1) = "" '判断Cookie是不是空
否则
公用模块.多线程操作1参数(1) = Cookie 'Cookie不是空,就添加到多线程参数,用于多线程操作时调用
结束 如果
如果 网址 = "" 则
公用模块.多线程操作1参数(2) = "http://hao123.com"
否则
公用模块.多线程操作1参数(2) = 网址
结束 如果
如果 编码 = "" 则
公用模块.多线程操作1参数(3) = "GBK" '如果编码空,就默认编码为GBK
否则
公用模块.多线程操作1参数(3) = 编码
结束 如果
如果 超时 = "" 则
公用模块.多线程操作1参数(4) = "5000" '如果超时 为 空,就 默认超时 为 5000毫秒
否则
公用模块.多线程操作1参数(4) = 超时
结束 如果
多线程批量取源码1 = 创建 多线程操作1 '创建多线程操作
多线程批量取源码1.启动线程(操作1) '执行多线程操作
调试输出(公用模块.多线程操作1参数(0) &"丨"& 公用模块.多线程操作1参数(1)&"丨"& 公用模块.多线程操作1参数(2) &"丨"& 公用模块.多线程操作1参数(3) &"丨"& 公用模块.多线程操作1参数(4))
结束 过程
事件 系统广播1.收到广播(消息ID 为 整数型)
判断 消息ID
分支 1
编辑框2.内容=系统广播1.取广播内容()
结束 判断
结束 事件
求助!!!
|
|