//删除文件 
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