1.     弹出窗口 "已经检测到新版本:" & Verson & vbcrlf & vbcrlf
  2.     令 ReadNewsYesNo = Msgbox("是否去下载新版本？(*^__^*) ",4 + 4096,"提示")
  3.     如果 ReadNewsYesNo = 6 则
  4.         启动程序或打开文件 ("http://user.qzone.qq.com/1325590252/")
  5.     条件结束
  6.     ExitScript()
  7. 否则
  8.     调用 Msg.Tips("本版本为最新版本...")
  9.     注释：MessageBox "本版本为最新版本"
  10. 条件结束
  11. 注释：================================================================================
  12. 注释：MessageBox "正在初始话请稍等"
  13. 调用 Msg.Tips("正在初始话请稍等...")
  14. 令 DqTime = （命令库 网络）获取网络时间()
  15. 注释：获取网络时间，得到的时间格式为：2000-1-1 12:00:00
  16. 令 zzsj = "2011-6-1 23:59:59"
  17. 注释：zzsj=终止时间 终止时间为脚本使用限定的最后时间！
  18. 如果 CDate(DqTime) < CDATE(ZZSJ) 则
  19.     调用 Msg.Tips("初始化成功!(*^__^*)")
  20.     注释：MessageBox "初始化成功!(*^__^*)"
  21.     注释：Msgbox "验证成功！继续使用！"
  22. 否则
  23.     Msgbox("初始化失败！⊙﹏⊙‖∣")
  24.     脚本停止运行
  25. 条件结束
  26. 注释：================================================================================
  27. 令 Hwnd = Window.Find(0,"地下城与勇士")
  28. 调用 Window.Active(Hwnd)
  29. (语句无法识别，可能有错误): Call Plugin.Window.Move(Hwnd, 0, 0) //对环境的初始 很重要
  30. 注释：zdtxt1 = "C:\Documents and Settings\Administrator\桌面\金币.txt"
  31. 注释：zdtxt2 = "C:\Documents and Settings\Administrator\桌面\srlib.txt"
  32. 令 Window = Window.IsWindow(Hwnd)
  33. 如果 Window = 1 则
  34.     令 fso = CreateObject("Scripting.FileSystemObject")
  35.     注释：判断d盘下是否有文件1.txt
  36.     令 pd1 = fso.FileExists("c:\log.txt")
  37.     如果 0 = pd1 则
  38.         注释：没有的话，在d盘下创建一个不可覆盖的文件1.txt
  39.         令 txtfile = fso.createtextfile("c:\log.txt",false)
  40.         注释：以在末尾写入的方式打开1.txt
  41.         (语句无法识别，可能有错误): End If////确认logtxt存在
  42.         令 sDate = Sys.GetDateTime()
  43.         调用 File.WriteFileEx("c:\log.txt",sdate & "→→→【开始收货】")
  44.         调用 Msg.Tips("赚大钱哈(*^__^*)")
  45.         调用 大漠初始化
  46.         调用 npc
  47.         ExitScript()
  48.         跳转到标记 开始
  49.         注释：Goto 二
  50.     否则
  51.         MsgBox("没有找到制定窗口")
  52.         ExitScript()
  53.     条件结束
  54.     注释：//////////////////////////////////////////////////////////////////
  55.     注释：///////////////////////////////////////////////////////
  56.     标记 开始
  57.     令 ydfdxi = 0
  58.     循环当 1 时
  59.         调用 交易请求检查
  60.         调用 交易请求检查xp
  61.         令 Hwnd = Window.Find(0,"地下城与勇士")
  62.         调用 Window.Active(Hwnd)
  63.         延时 100 毫秒
  64.         （鼠标）移动到 (36, 429)
  65.         （鼠标）左键单击, 1次
  66.         如果 dxgj = 1 则
  67.             （键盘）按 "Enter" 键, 1次
  68.             延时 300 毫秒
  69.             调用 附近检测
  70.             注释：///////////////////////掉线关机////////////////////////
  71.             如果 ifj > 15 并且 dxgj > 0 则
  72.                 调用 关机
  73.             条件结束
  74.             注释：////////////////////////////////////////////////////////
  75.         条件结束
  76.         调用 站街喊话
  77.         注释：//////////////////////移动防掉线////////////////////////////////////////
  78.         令 ydfdxi = ydfdxi + 1
  79.         如果 ydfdx = true 并且 ydfdxi > 10 则
  80.             调用 移动
  81.             令 ydfdxi = 0
  82.         条件结束
  83.         注释：///////////////////////////////////////////////////
  84.     循环结束
  85.     标记 开始交易
  86.     调用 喊话初始化
  87.     延时 1500 毫秒
  88.     调用 交易喊话A
  89.     延时 1000 * ddsj 毫秒
  90.     调用 物品检测
  91.     注释：MessageBox zj
  92.     标记 二
  93.     调用 输入金币
  94.     延时 200 毫秒
  95.     令 i2 = 0
  96.     循环当 1 时
  97.         调用 确认交易框存在
  98.         如果 jyzt1 = 0 并且 jyzt2 = 0 则
  99.             调用 读取输入金币数
  100.             令 tempzj = tempzj * 1