1. 子程序结束
  2. 子程序 移动
  3.     循环 22 次
  4.         (语句无法识别，可能有错误): dm.KeyPress 37 //向左
  5.     循环结束
  6.     循环 22 次
  7.         (语句无法识别，可能有错误): dm.KeyPress 39 //向右
  8.     循环结束
  9.     循环 30 次
  10.         (语句无法识别，可能有错误): dm.KeyPress 40 //向下
  11.     循环结束
  12. 子程序结束
  13. 子程序 大漠初始化
  14.     展开附件 *.* 到 c:\test_game 文件夹
  15.     令 ws = createobject("Wscript.Shell")
  16.     ws.run("regsvr32 c:\test_game\dm.dll /s")
  17.     令 ws = nothing
  18.     延时 1000 毫秒
  19.     (语句无法识别，可能有错误): Set dm = CreateObject("dm.dmsoft") //大漠插件对象的插件
  20.     令 ver = dm.Ver()
  21.     (语句无法识别，可能有错误): set dmsz = createobject("dm.dmsoft") //创建数字识别的对象
  22.     令 base_path = dm.GetBasePath()
  23.     令 dm_ret = dm.SetPath(base_path)
  24.     令 dm_ret = dm.SetDict(0,"数字dm.txt")
  25.     如果 len(ver) = 0 则
  26.         弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
  27.         脚本停止运行
  28.     条件结束
  29. 子程序结束
  30. 子程序 日志
  31.     令 shuliang = shuliang & "总计：" & zj
  32.     令 m1 = Minute(time)
  33.     令 m2 = hour(time)
  34.     令 m12 = m2 & ":" & m1
  35.     调用 File.WriteFileEx("c:\log.txt",m12)
  36.     调用 File.WriteFileEx("c:\log.txt",shuliang)
  37.     调用 File.WriteFileEx("c:\log.txt",danjia)
  38. 子程序结束
  39. 子程序 npc
  40.     令 dm = createobject("dm.dmsoft")
  41.     令 base_path = dm.GetBasePath()
  42.     令 dm_ret = dm.SetPath(base_path)
  43.     令 dm_ret = dm.SetDict(0,"C:\材料字库\数字dm.txt")
  44.     令 dfn = dm.FindStr(360,116,489,209,"达芙妮","e6c89b-000000",1.0,intX,intY)
  45.     如果 intX > 0 并且 inty > 0 则
  46.         dm.moveto(intx + 5,inty)
  47.         （鼠标）左键单击, 1次
  48.         延时 100 毫秒
  49.         dm.moveto(intx + 5,inty + 25)
  50.         延时 50 毫秒
  51.         （鼠标）左键单击, 1次
  52.         延时 900 毫秒
  53.         循环当 1 时
  54.             （键盘）按 Enter 键, 1次
  55.             延时 100 毫秒
  56.             令 dm_ret = dm.FindStr(0,0,2000,2000,"赠送礼物","9f2e3f-000000",1.0,intX,intY)
  57.             如果 intX > 0 并且 intY > 0 则
  58.                 dm.MoveTo(intX + 5,intY + 5)
  59.                 延时 200 毫秒
  60.                 （鼠标）左键单击, 1次
  61.                 弹出窗口 ""
  62.             条件结束
  63.         循环结束
  64.     条件结束
  65. 子程序结束