Gosub 延时
Return 打开某页面****信息
//打开某条信息(输入参数:keywood 链接URL中的关键词)
Sub 过滤信息并打开
    //读取当前页面链接数
    urls=ie.document.all.tags("a").length
    I=0 : J=0
    //过滤出有用信息链接地址
    For urls
        linkstr=ie.document.all.tags("a")(I)
        isBid=inStrRev(linkstr,keywood)
        If isBid>0
            links(J)=linkstr
            J=J+1
        EndIf 
        I=I+1
    EndFor 
    //随机打开hit条信息
    If J>0
        For hit
            bid=int(Timer*100) mod J
            ie.navigate links(bid)
            xxhit=xxhit+1
            Gosub 延时
        EndFor 
    EndIf 
Return 过滤信息并打开
//等待网页完全打开
Sub 延时
    While ie.readystate < 4
        Delay 200
    EndWhile 
    Delay 500
Return 延时