1. 令 Hwnd = Window.Find(0,"地下城与勇士")
  2. 令 sWindow = Window.IsWindow(Hwnd)
  3. 如果 sWindow = 0 则
  4.     MsgBox("请确认打开了DNF")
  5.     脚本停止运行
  6. 条件结束
  7. 调用 Window.Active(Hwnd)
  8. 调用 Window.Move(Hwnd,0,0)
  9. 延时 1000 毫秒
  10. 注释:打开拍卖行,并判断是否打开
  11. 标记 拍卖行
  12. (键盘)按 "B" 键, 1次
  13. 延时 1000 毫秒
  14. 从左上到右下查找图片 "Attachment:\拍卖行.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:640 下:477),相似度 0.9
  15. 如果 intX > 0 并且 intY > 0 则
  16.     跳转到标记 移动
  17. 否则
  18.     延时 200 毫秒
  19.     (键盘)按 "Esc" 键, 1次
  20.     延时 200 毫秒
  21.     跳转到标记 拍卖行
  22. 条件结束
  23. 标记 移动
  24. (鼠标)移动到 (intX, intY)
  25. 延时 1000 毫秒
  26. (鼠标)左键按下
  27. 延时 1000 毫秒
  28. (鼠标)移动到 (324, 125)
  29. 延时 1000 毫秒
  30. (鼠标)左键弹起
  31. 延时 200 毫秒
  32. 注释:判断拍卖行是否在相应位置
  33. 从左上到右下查找图片 "Attachment:\(B).bmp",把找到的坐标保存到 (intX, intY),指定区域(左:356 上:118 右:384 下:148),相似度 0.9
  34. 如果 intX > 0 并且 intY > 0 则
  35. 否则
  36.     (键盘)按 "Esc" 键, 1次
  37.     延时 200 毫秒
  38.     跳转到标记 拍卖行
  39. 条件结束
  40. 注释:搜索物品名
  41. (鼠标)移动到 (204, 187)
  42. 延时 200 毫秒
  43. (鼠标)左键单击, 1次
  44. 延时 200 毫秒
  45. (键盘)按 "A" 键, 1次
  46. 延时 200 毫秒
  47. (键盘)按 "A" 键, 1次
  48. 延时 200 毫秒
  49. (键盘)按 "Space" 键, 1次
  50. 延时 200 毫秒
  51. (鼠标)移动到 (507, 186)
  52. 延时 200 毫秒
  53. (鼠标)左键单击, 1次
  54. 延时 200 毫秒
  55. (鼠标)移动到 (507, 186)
  56. 延时 200 毫秒
  57. 注释:搜索结果不存在处理
  58. 从左上到右下查找图片 "Attachment:\公告.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  59. 如果 intX > 0 并且 intY > 0 则
  60.     (鼠标)移动到 (320, 260)
  61.     延时 200 毫秒
  62.     (鼠标)左键单击, 1次
  63.     延时 300 毫秒
  64. 条件结束
  65. 注释:初始化搜索条件
  66. (鼠标)移动到 (590, 188)
  67. 延时 200 毫秒
  68. (鼠标)左键单击, 1次
  69. 延时 500 毫秒