1.     调用子程序 延时
  2. 子程序结束,回到调用处
  3. //打开某条信息(输入参数:keywood 链接URL中的关键词)
  4. 子程序 过滤信息并打开
  5.     //读取当前页面链接数
  6.     urls=ie.document.all.tags("a").length
  7.     I=0 : J=0
  8.     //过滤出有用信息链接地址
  9.     循环 urls 遍
  10.         linkstr=ie.document.all.tags("a")(I)
  11.         isBid=inStrRev(linkstr,keywood)
  12.         如果表达式 (isBid>0) 为真,则
  13.             links(J)=linkstr
  14.             J=J+1
  15.         条件结束
  16.         I=I+1
  17.     循环结束
  18.     //随机打开hit条信息
  19.     如果表达式 (J>0) 为真,则
  20.         循环 hit 遍
  21.             bid=int(Timer*100) mod J
  22.             ie.navigate links(bid)
  23.             xxhit=xxhit+1
  24.             调用子程序 延时
  25.         循环结束
  26.     条件结束
  27. 子程序结束,回到调用处
  28. //等待网页完全打开
  29. 子程序 延时
  30.     如果表达式 (ie.readystate < 4) 为真,则循环执行
  31.         延时200毫秒
  32.     循环结束
  33.     延时500毫秒
  34. 子程序结束,回到调用处