//删除文件 Call Plugin.File.DeleteFile("d:\人气qq.txt") //定义数组 用来存放qq号 Dim x(1000) Dim i Dim ym Dim url dim a ys = 1 rem 页数 a = InputBox("输入要采集的页数") // 把变量转换为数字 If a = "" Then Goto 页数 End If 返回值 = cint(a) //判断a的值 If a < 1 Then Goto 页数 End If MessageBox "正在提取qq号 请稍等" for 返回值 url="http://www.324324.cn/top/qzone_visit.php?page="&ys html = Plugin.WebOperation.GetHTML(url) //分割源码 ym = split(html, "window.open('http://") i = 1 TracePrint UBound(ym) //提取qq 号 For UBound(ym) x(i) = split(ym(i), ".qzone.qq.com") TracePrint x(i)(0) //保存提取的qq号 Call Plugin.File.WriteFileEx("d:\人气qq.txt", x(i)(0)) i = i + 1 Delay 20 Next TracePrint i TracePrint ys ys = ys + 1 Delay cint(form1.ys.Text) Next MessageBox "提取完成" RunApp "d:\人气qq.txt" //2012-2-26 19:06:31 Event Form1.LoadOver form1.rq.text = now TracePrint now End Event Event Form1.Button1.Click //创建临时会话 RunApp "http://wpa.qq.com/msgrd?V=1&Uin=" & qq End Event Event Form1.Button2.Click //打开 提取页 RunApp "http://www.324324.cn/top/qzone_visit.php?page=1" End Event