- 延时 50 毫秒
- 令 Hwnd = Window.Find(0,父标题)
- 令 HwndEx = Window.FindEx(Hwnd,0,0,子标题)
- 如果 HwndEx <> 0 则
- 令 Coord = Window.GetClientRect(HwndEx)
- 令 MyArray = Split(Coord,"|",- 1 ,1)
- 循环开始
- 延时 100 毫秒
- 如果点 (Cint(MyArray(0)) + 10,Cint(MyArray(1)) + 10) 的颜色不等于 "676767" 则
- 调用 移动并点击(Cint(MyArray(0)) + Cint(MyArray(2)) / 2 - Ux,Cint(MyArray(1)) + Cint(MyArray(3)) / 2 - Uy,0,1)
- 跳出循环
- 条件结束
- 循环结束
- 延时 Delay_window 毫秒
- 退出子程序
- 否则
- MsgBox("出错:找不到子窗口" & 标题,16,"提示")
- 脚本停止运行
- 条件结束
- 循环结束
- 子程序结束
- 子程序 等待窗口(窗口名)
- 定义变量 Array_name, Hwnd, Coord, MyArray, i, k
- 定义变量 Array_Feature_form(3)
- 令 Array_Feature_form(0) = "选大区,71,86,C9FFFF,71,86,C9FFFF"
- 令 Array_Feature_form(1) = "输密码,90,457,FFFFFF,660,450,00605A"
- 令 Array_Feature_form(2) = "择频道,332,13,B3F2FF,333,13,B3F2FF"
- 令 Array_Feature_form(3) = "挑角色,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4,337,26,78D7F4"
- 循环 i 从 0 到 UBound(Array_Feature_form)
- 令 Array_name = Split(Array_Feature_form(i),",",- 1 ,1)
- 如果 Array_name(0) = 窗口名 则
- 循环开始
- 延时 50 毫秒
- 令 Hwnd = Window.Find(0,"地下城与勇士")
- 令 Coord = Window.GetClientRect(Hwnd)
- 令 MyArray = Split(Coord,"|",- 1 ,1)
- 如果 Cint(MyArray(2)) = 687 或者 Cint(MyArray(2)) = 640 则
- 令 Ux = Cint(MyArray(0))
- 令 Uy = Cint(MyArray(1))
- 循环 k 从 0 到 (UBound(Array_name) - 6) / 6
- 如果点 (Ux + Array_name(k * 6 + 1),Uy + Array_name(k * 6 + 2)) 的颜色等于 Array_name(k * 6 + 3) 则
- 如果点 (Ux + Array_name(k * 6 + 4),Uy + Array_name(k * 6 + 5)) 的颜色等于 Array_name(k * 6 + 6) 则
- 退出子程序
- 条件结束
- 条件结束
- 循环结束
- 条件结束
- 循环结束
- 条件结束
- 循环结束
- 子程序结束
- 子程序 移动并点击(横坐标,纵坐标,操作方式,左击次数)
- 注释:点击次数: 0表示不点击
- 注释:操作方式:【0前台模式,1后台模式】
- 如果 操作方式 = 0 则
- 令 横坐标 = Ux + 横坐标
- 令 纵坐标 = Uy + 纵坐标
- (鼠标)移动到 (横坐标, 纵坐标)
- 延时 Delay_move 毫秒
- 如果 左击次数 <> 0 则
- 循环 左击次数 次
- (鼠标)左键按下
- 延时 100 毫秒
- (鼠标)左键弹起
- 延时 Delay_click 毫秒
- 循环结束
- 条件结束
- 条件结束
- 子程序结束