1.         令 Result = "#resend"
  2.         Web.ScrollTo(0,500)
  3.         延时 1000 毫秒
  4.         Web.LeftClick(410,320)
  5.         延时 6000 毫秒
  6.         跳转到标记 resend
  7.     条件结束
  8.     如果 InStr(Web.GetURL,"signup1.php") <= 0 则
  9.         注释：MsgBox "注册存在问题，需要人工干预！"
  10.         注释：EndScript
  11.     条件结束
  12.     注释：开通博客
  13.     调用 Web.Tips("开通博客 ...")
  14.     调用 Web.HtmlClick("tag:A&txt:开通我的博客")
  15.     延时 PageWaitSeconds 毫秒
  16.     调用 Web.HtmlInput(UserName,"type:text&index:1")
  17.     延时 1000 毫秒
  18.     调用 Web.HtmlCheck("true","id:if1")
  19.     延时 1000 毫秒
  20.     调用 Web.HtmlSelect("1975","id:selBirthdayYear")
  21.     延时 1000 毫秒
  22.     Web.LeftClick(300,560)
  23.     延时 1000 毫秒
  24.     Web.KeyDown(40)
  25.     延时 1000 毫秒
  26.     Web.KeyDown(40)
  27.     延时 1000 毫秒
  28.     Web.KeyDown(40)
  29.     延时 1000 毫秒
  30.     Web.KeyDown(40)
  31.     延时 1000 毫秒
  32.     Web.KeyDown(40)
  33.     延时 1000 毫秒
  34.     Web.LeftClick(300,560)
  35.     延时 10000 毫秒
  36.     调用 Web.HtmlSelect("29","id:selBirthdayDay")
  37.     延时 1000 毫秒
  38.     调用 Web.HtmlClick("id:activeBtn")
  39.     File.WriteFileEx("d:\sina.txt",UserName)
  40.     延时 30000 毫秒
  41.     如果 InStr(Web.GetURL,"reg_blog_complete.php") <= 0 则
  42.         注释：MsgBox "注册存在问题，需要人工干预！"
  43.         注释：EndScript
  44.     条件结束
  45. 循环结束
  46. 子程序 OnScriptExit()
  47.     调用 Web.Tips("脚本停止运行")
  48. 子程序结束