怎么用易语言循环访问网址100次
我想用易语言重复访问一个网址100次(如百度),要怎么写代码?不能用超文本浏览框刷新的方式。我的思路是使用http读文本加循环语句的方式实现,能不能做到,如果能,要怎么做...
我想用易语言重复访问一个网址100次(如百度),要怎么写代码?不能用超文本浏览框刷新的方式。我的思路是使用http读文本加循环语句的方式实现,能不能做到,如果能,要怎么做?我是新手,最好能把代码复杂给我。有源码更好!谢谢!
展开
2个回答
展开全部
.版本 2
.子程序 _按钮1_被单击
CreateThread (0, 0, &gethtml, 100, 0, 0)
.子程序 gethtml
.参数 次数, 整数型
.计次循环首 (次数, )
输出调试文本 (到文本 (Get (编辑框1.内容)))
.计次循环尾 ()
.子程序 Get, 字节集
.参数 地址, 文本型
.局部变量 对象, 对象
.局部变量 bp, 字节集
CoInitialize (0)
.如果 (对象.创建 (“Microsoft.XMLHTTP”, ))
对象.方法 (“open”, “GET”, 地址, 假)
对象.方法 (“send”, )
bp = 对象.读属性 (“responseBody”, ).取字节集 ()
CoUninitialize ()
返回 (bp)
.否则
CoUninitialize ()
返回 (到字节集 (“”))
.如果结束
.子程序 _按钮1_被单击
CreateThread (0, 0, &gethtml, 100, 0, 0)
.子程序 gethtml
.参数 次数, 整数型
.计次循环首 (次数, )
输出调试文本 (到文本 (Get (编辑框1.内容)))
.计次循环尾 ()
.子程序 Get, 字节集
.参数 地址, 文本型
.局部变量 对象, 对象
.局部变量 bp, 字节集
CoInitialize (0)
.如果 (对象.创建 (“Microsoft.XMLHTTP”, ))
对象.方法 (“open”, “GET”, 地址, 假)
对象.方法 (“send”, )
bp = 对象.读属性 (“responseBody”, ).取字节集 ()
CoUninitialize ()
返回 (bp)
.否则
CoUninitialize ()
返回 (到字节集 (“”))
.如果结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询