1.             （鼠标）左键单击, 1次
  2.         条件结束
  3.         调用 Window.Show(Hwnd)
  4.         令 x = Window.Move(hwnd,0,0)
  5.         延时 800 毫秒
  6.         （鼠标）移动到 (285, 399)
  7.         延时 200 毫秒
  8.         （鼠标）左键单击, 1次
  9.         延时 2000 毫秒
  10.     循环结束
  11.     如果 Form1.CheckBox6.Value = 1 则
  12.         调用 Sys.ExitOS(1)
  13.     条件结束
  14. 子程序结束
  15. 子程序 第二()
  16.     循环当 true 时
  17.         定义变量 aa
  18.         令 aa = Form1.InputBox5.Text
  19.         延时 aa 毫秒
  20.         从左上到右下查找图片 "Attachment:\a1.bmp"，把找到的坐标保存到 (a1X, a1Y)，指定区域（左：0 上：0 右：1024 下：768），相似度 1
  21.         如果 a1X > 0 并且 a1Y > 0 则
  22.             如果点 (a1X - 231,a1Y - 1) 的颜色等于 "212121" 则
  23.                 定义变量 ww
  24.                 定义变量 we
  25.                 令 ww = Form1.InputBox3.Text
  26.                 （键盘）按 ww 键, 1次
  27.                 调用 Msg.Tips("自动加血（法）成功")
  28.                 延时 1000 毫秒
  29.                 令 we = Form1.InputBox4.Text
  30.                 （键盘）按 we 键, 1次
  31.                 调用 Msg.Tips("自动加血（法）成功")
  32.             条件结束
  33.         条件结束
  34.     循环结束
  35. 子程序结束
  36. 如果 Form1.OptionBox4.Value = 1 则
  37.     调用 第一()
  38. 否则如果 Form1.OptionBox5.Value = 1 则
  39.     调用 第二()
  40. 否则如果 Form1.OptionBox6.Value = 1 则
  41.     调用 第三()
  42. 条件结束
  43. 子程序 第三()
  44.     令 Hwnd = Window.GetKeyFocusWnd()
  45.     令 sRect = Window.GetClientRect(Hwnd)
  46.     令 MyArray = Split(sRect,"|")
  47.     令 Ux = CLng(MyArray(0))
  48.     令 Uy = CLng(MyArray(1))
  49.     循环当 true 时
  50.         令 GetColor = 得到指定点 (Ux + 169, Uy + 300) 的颜色
  51.         令 R = Cint("&H" & Right(GetColor,2))
  52.         令 G = Cint("&H" & Mid(GetColor,3,2))
  53.         令 B = Cint("&H" & Left(GetColor,2))
  54.         如果 R > 180 并且 G < 180 则
  55.             （键盘）按 "A" 键, 1次
  56.         条件结束
  57.         如果 G > 180 并且 R < 180 则
  58.             （键盘）按 "S" 键, 1次
  59.         条件结束
  60.         如果 B > 180 并且 G < 180 则
  61.             （键盘）按 "D" 键, 1次
  62.         条件结束
  63.         延时 10 毫秒
  64.     循环结束
  65. 子程序结束
  66. Event(Form1.Button2.Click)
  67. 令 wj = File.SelectFile()
  68. 令 Form1.InputBox7.Text = wj
  69. 令 Form1.InputBox7.Enabled = 0
  70. (语句无法识别，可能有错误): End Event
  71. Event(Form1.Button1.Click)
  72. 启动程序或打开文件 Form1.InputBox7.Text
  73. (语句无法识别，可能有错误): End Event
  74. Event(Form1.Button3.Click)
  75. 令 gbjsj = （命令库 窗口）弹出对话框("本人出售大话西游2手工无毒脚本（跑真元、自动画符、采矿、秒买王元宝、制药、等；是否联系买脚本？",60,"鬼斧神工",4)
  76. 如果 gbjsj = 6 则
  77.     启动程序或打开文件 "http://user.qzone.qq.com/461180224/infocenter"
  78.     延时 4000 毫秒
  79.     弹出窗口 "订购脚本请在我空间留言"
  80. 否则如果 gbjsj = 7 则
  81.     调用 Msg.Tips("欢迎使用")
  82. 条件结束
  83. (语句无法识别，可能有错误): End Event