1.     延时 1300 毫秒
  2.     调用 Web.Tips("您的新手卡号为" & TXT)
  3. 子程序结束
  4. 子程序 guanbi
  5.     开始VBScript块
  6.         定义变量 objShell
  7.         令 objShell = CreateObject("wscript.shell")
  8.         objShell.Run("taskkill /f /im wqm.exe",vbhide)
  9.         令 objShell = NoThing
  10.     结束VBScript块
  11. 子程序结束
  12. 子程序 panduan
  13.     调用 File.DeleteFile("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt")
  14.     令 myfile = fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt")
  15.     延时 200 毫秒
  16.     令 Txt = Web.HtmlGet("text","text*:")
  17.     调用 File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt",TXT)
  18.     延时 100 毫秒
  19.     令 Length = File.GetFileLength("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt")
  20.     如果 length = 334 则
  21.         跳转到标记 重新(子程序 panduan)
  22.     否则
  23.     条件结束
  24. 子程序结束
  25. Event(Form1.Button1.Click)
  26. （键盘）按 "F11" 键, 1次
  27. (语句无法识别，可能有错误): End Event
  28. Event(Form1.Button2.Click)
  29. （键盘）按 "F12" 键, 1次
  30. (语句无法识别，可能有错误): End Event