超级列表框线程问题

清风卡盟

  

子程序名	返回值类型	公开	备 注
功能_网页访问

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_协yi头	类_POST数据类
局_提交协yi头	文本型
局_结果	字节集
局_返回	文本型
结果	文本型

置入代码 ( #T_VMProtect_初始化 )
置入代码 ( #T_VMProtect_防护盾 )
置入代码 ( #T_VMProtect_开始_超级 )
局_网址 ＝ “[img]http://api.www.baidu.com/s.gif[/img]?l=” ＋ 编辑框1.内容
局_方式 ＝ 0
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0”, )
局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协yi头, , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
如果 (局_返回 ＝ “”)
成功 ＝ “OK”
输出调试文本 (局_网址)


成功 ＝ “NG”

计次循环首 (超级列表框1.取表项数 (), 索引)
超级列表框1.置标题 (索引, 2, 到文本 (成功))
计次循环尾 ()
' 返回 (局_返回)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
成功1	文本型

超级列表框1.全部删除 ()
计次循环首 (到整数 (编辑框2.内容), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (i))
超级列表框1.置标题 (索引, 1, 编辑框1.内容)
启动线程 (&功能_网页访问, 索引, )
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 功能_网页访问<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协yi头, 类_POST数据类<br /> .局部变量 局_提交协yi头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> 置入代码 (#T_VMProtect_初始化)<br /> 置入代码 (#T_VMProtect_防护盾)<br /> 置入代码 (#T_VMProtect_开始_超级)<br /> 局_网址 ＝ “[img]http://api.<a href="http://www.baidu.com/s.gif" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com/s.gif</a>[/img]?l=” ＋ 编辑框1.内容<br /> 局_方式 ＝ 0<br /> ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0”, )<br /> 局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协yi头, , , , , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> .如果 (局_返回 ＝ “”)<br />     成功 ＝ “OK”<br />     输出调试文本 (局_网址)<br /> .否则<br /> <br />     成功 ＝ “NG”<br /> .如果结束<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 索引)<br />     超级列表框1.置标题 (索引, 2, 到文本 (成功))<br /> .计次循环尾 ()<br /> <br /> ' 返回 (局_返回)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 成功1, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (到整数 (编辑框2.内容), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (i))<br />     超级列表框1.置标题 (索引, 1, 编辑框1.内容)<br />     启动线程 (&功能_网页访问, 索引, )<br /> .计次循环尾 ()

第一个不显示

苗哥

  

子程序名	返回值类型	公开	备 注
功能_网页访问

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_协yi头	类_POST数据类
局_提交协yi头	文本型
局_结果	字节集
局_返回	文本型
结果	文本型

置入代码 ( #T_VMProtect_初始化 )
置入代码 ( #T_VMProtect_防护盾 )
置入代码 ( #T_VMProtect_开始_超级 )
局_网址 ＝ “[img]http://api.www.baidu.com/s.gif[/img]?l=” ＋ 编辑框1.内容
局_方式 ＝ 0
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0”, )
局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协yi头, , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
如果 (局_返回 ＝ “”)
成功 ＝ “OK”
输出调试文本 (局_网址)


成功 ＝ “NG”

计次循环首 (超级列表框1.取表项数 (), 索引)
超级列表框1.置标题 (索引-1, 2, 到文本 (成功))
计次循环尾 ()
' 返回 (局_返回)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
成功1	文本型

超级列表框1.全部删除 ()
计次循环首 (到整数 (编辑框2.内容), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (i))
超级列表框1.置标题 (索引, 1, 编辑框1.内容)
启动线程 (&功能_网页访问, 索引, )
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 功能_网页访问<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协yi头, 类_POST数据类<br /> .局部变量 局_提交协yi头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> 置入代码 (#T_VMProtect_初始化)<br /> 置入代码 (#T_VMProtect_防护盾)<br /> 置入代码 (#T_VMProtect_开始_超级)<br /> 局_网址 ＝ “[img]http://api.<a href="http://www.baidu.com/s.gif" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com/s.gif</a>[/img]?l=” ＋ 编辑框1.内容<br /> 局_方式 ＝ 0<br /> ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0”, )<br /> 局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协yi头, , , , , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> .如果 (局_返回 ＝ “”)<br />     成功 ＝ “OK”<br />     输出调试文本 (局_网址)<br /> .否则<br /> <br />     成功 ＝ “NG”<br /> .如果结束<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 索引)<br />     超级列表框1.置标题 (索引-1, 2, 到文本 (成功))<br /> .计次循环尾 ()<br /> <br /> ' 返回 (局_返回)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 成功1, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (到整数 (编辑框2.内容), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (i))<br />     超级列表框1.置标题 (索引, 1, 编辑框1.内容)<br />     启动线程 (&功能_网页访问, 索引, )<br /> .计次循环尾 ()

大司命

索引我应该写的是局部变量吧！~

苗哥

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

.子程序 功能_网页访问
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_协yi头, 类_POST数据类
.局部变量 局_提交协yi头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 结果, 文本型

置入代码 (#T_VMProtect_初始化)
置入代码 (#T_VMProtect_防护盾)
置入代码 (#T_VMProtect_开始_超级)
局_网址 ＝ “?l=” ＋ 编辑框1.内容
局_方式 ＝ 0
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0”, )
局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协yi头, , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
.如果 (局_返回 ＝ “”)
    成功 ＝ “OK”
    输出调试文本 (局_网址)
.否则

    成功 ＝ “NG”
.如果结束

.计次循环首 (超级列表框1.取表项数 (), 索引)
    超级列表框1.置标题 (索引-1, 2, 到文本 (成功))
.计次循环尾 ()

' 返回 (局_返回)

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 成功1, 文本型

超级列表框1.全部删除 ()
.计次循环首 (到整数 (编辑框2.内容), i)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (i))
    超级列表框1.置标题 (索引, 1, 编辑框1.内容)
    启动线程 (&功能_网页访问, 索引, )
.计次循环尾 ()

清风卡盟

@大司命 请教

清风卡盟

大司命 发表于 2022-8-30 22:00
索引我应该写的是局部变量吧！~

全局不行？

苗哥

清风卡盟 发表于 2022-8-30 22:01
全局不行？

索引第一个为0，计次循环第一个为1，减1就可以了