1. 函数结束
  2. (语句无法识别，可能有错误): /*-------------------Dnf 登录—————————--------------*/
  3. 函数 dnfLogin(num)
  4.     调用 runDnf(dnfPath)
  5.     延时 500 毫秒
  6.     令 temp1 = getQQIdAndPassword(num,qqPath)
  7.     延时 2000 毫秒
  8.     如果 temp1 = 1 则
  9.         调用 selectService()
  10.     否则
  11.         弹出窗口 "文本设置有误！请检查"
  12.         脚本停止运行
  13.     条件结束
  14. 函数结束
  15. (语句无法识别，可能有错误): /*
  16. (语句无法识别，可能有错误): *@Fun run application software
  17. (语句无法识别，可能有错误): *@arg2 every application software install path
  18. (语句无法识别，可能有错误): *@retun null
  19. (语句无法识别，可能有错误): **/
  20. 函数 runDnf(path)
  21.     启动程序或打开文件 path
  22. 函数结束
  23. (语句无法识别，可能有错误): /*
  24. (语句无法识别，可能有错误): *@Fun read text of QQ log info
  25. (语句无法识别，可能有错误): *@arg1 whilch one QQ
  26. (语句无法识别，可能有错误): *@arg2 text file path
  27. (语句无法识别，可能有错误): *@retun null
  28. (语句无法识别，可能有错误): **/
  29. 函数 getQQIdAndPassword(i,txtPath)
  30.     注释：下面这句是读取一个配置文件参数(小节名："Command" 键值名："Val")得到内容(Text )
  31.     令 loginConten = File.ReadINI("Command",i,txtPath)
  32.     注释：Msgbox "得到一个配置文件键值为：" & Text
  33.     向调试窗口输出：loginConten
  34.     如果 loginConten = "" 则
  35.         令 QQNum = ""
  36.         令 QQpass = ""
  37.         令 region = ""
  38.         令 services = ""
  39.         令 CH = ""
  40.         令 getQQIdAndPassword = 0
  41.     否则
  42.         令 tempStr = Split(loginConten,"----")
  43.         令 QQNum = tempStr(0)
  44.         令 QQpass = tempStr(1)
  45.         令 region = tempStr(2)
  46.         令 services = tempStr(3)
  47.         令 CH = tempStr(4)
  48.         令 getQQIdAndPassword = 1
  49.     条件结束
  50. 函数结束
  51. (语句无法识别，可能有错误): /*-------------------选择服服务器—————————--------------*/
  52. 函数 selectService()
  53.     令 Hwnd = Window.Find("#32770","地下城与勇士")
  54.     如果 Hwnd <> 0 则
  55.         令 sRect = Window.GetClientRect(Hwnd)
  56.         令 MyArray = Split(sRect,"|")
  57.         令 X = Clng(MyArray(0))
  58.         令 Y = Clng(MyArray(1))
  59.         注释：MessageBox X+100 &" "& Y+150 &" "& X+610 &" "& Y+230
  60.         调用 searchSection(X + 100,Y + 110,X + 610,Y + 230,region,1)
  61.         延时 2000 毫秒
  62.         注释：MessageBox X+100 &" "& Y+360 &" "& X+610 &" "& Y+480
  63.         调用 searchSection(X + 100,Y + 370,X + 610,Y + 480,services,2)
  64.         调用 inputQQNumAndPaw()
  65.     否则
  66.         弹出窗口 "没有所选服务器！"
  67.         调用 reStartApp()
  68.     条件结束
  69. 函数结束
  70. (语句无法识别，可能有错误): /*
  71. (语句无法识别，可能有错误): *@Fun search every region
  72. (语句无法识别，可能有错误): *@arg1 start x coordinate
  73. (语句无法识别，可能有错误): *@arg2 start y coordinate
  74. (语句无法识别，可能有错误): *@arg3 end x coordinate
  75. (语句无法识别，可能有错误): *@arg4 end y coordinate
  76. (语句无法识别，可能有错误): *@arg5 need to find dmp
  77. (语句无法识别，可能有错误): *@arg6 temp variable
  78. (语句无法识别，可能有错误): *@arg7 similarity
  79. (语句无法识别，可能有错误): *@retun if success return 1 else return 0
  80. (语句无法识别，可能有错误): **/
  81. 函数 searchSection(s_x,s_y,e_x,e_y,mBmp,mTemp)
  82.     定义变量 intX, intY
  83.     从左上到右下查找图片 "Attachment:\" & mBmp & ".bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：s_x 上：s_y 右：e_x 下：e_y），相似度 1.0
  84.     如果 intX > 0 并且 intY > 0 则
  85.         如果 mTemp = 1 则
  86.             延时 200 毫秒
  87.             （鼠标）移动到 (intX, intY)
  88.             延时 200 毫秒
  89.             （鼠标）左键单击, 1次
  90.         否则如果 mTemp = 2 则
  91.             延时 200 毫秒
  92.             （鼠标）移动到 (intX, intY)
  93.             延时 500 毫秒
  94.             （鼠标）左键双击, 1次
  95.         条件结束
  96.         令 searchSection = 1
  97.     否则
  98.         令 searchSection = 0
  99.         弹出窗口 "找不到所选服务区"
  100.         调用 reStartApp()