- 注释:删除文件
- 调用 File.DeleteFile("d:\人气qq.txt")
- 注释:定义数组 用来存放qq号
- 定义变量 x(1000)
- 定义变量 i
- 定义变量 ym
- 定义变量 url
- 定义变量 a
- 令 ys = 1
- 标记 页数
- 令 a = InputBox("输入要采集的页数")
- 注释: 把变量转换为数字
- 如果 a = "" 则
- 跳转到标记 页数
- 条件结束
- 令 返回值 = cint(a)
- 注释:判断a的值
- 如果 a < 1 则
- 跳转到标记 页数
- 条件结束
- 弹出窗口 "正在提取qq号 请稍等"
- 循环 返回值 次
- 令 url = "http://www.324324.cn/top/qzone_visit.php?page=" & ys
- 令 html = WebOperation.GetHTML(url)
- 注释:分割源码
- 令 ym = split(html,"window.open('http://")
- 令 i = 1
- 向调试窗口输出:UBound(ym)
- 注释:提取qq 号
- 循环 UBound(ym) 次
- 令 x(i) = split(ym(i),".qzone.qq.com")
- 向调试窗口输出:x(i)(0)
- 注释:保存提取的qq号
- 调用 File.WriteFileEx("d:\人气qq.txt",x(i)(0))
- 令 i = i + 1
- 延时 20 毫秒
- 循环结束
- 向调试窗口输出:i
- 向调试窗口输出:ys
- 令 ys = ys + 1
- 延时 cint(form1.ys.Text) 毫秒
- 循环结束
- 弹出窗口 "提取完成"
- 启动程序或打开文件 "d:\人气qq.txt"
- 注释:2012-2-26 19:06:31
- Event(Form1.LoadOver)
- 令 form1.rq.text = now
- 向调试窗口输出:now
- (语句无法识别,可能有错误): End Event
- Event(Form1.Button1.Click)
- 注释:创建临时会话
- 启动程序或打开文件 "http://wpa.qq.com/msgrd?V=1&Uin=" & qq
- (语句无法识别,可能有错误): End Event
- Event(Form1.Button2.Click)
- 注释:打开 提取页
- 启动程序或打开文件 "http://www.324324.cn/top/qzone_visit.php?page=1"
- (语句无法识别,可能有错误): End Event