1. 令 HwndEx = Window.Search("剑侠情缘网络版叁")
  2. 定义环境变量 Hwnd1
  3. MsgBox("查找到符合的窗口句柄为:" & HwndEx)
  4. 注释:下面这句用于分割字符串,将获得的句柄组分割
  5. 定义变量 MyArray
  6. 令 MyArray = Split(HwndEx,"|")
  7. 如果 UBound(MyArray) >= 0 则
  8.     注释:判断是否搜到句柄?
  9. 条件结束
  10. 循环 i 从 0 到 UBound(MyArray) - 1
  11.     (语句无法识别,可能有错误): hwndEx = Clng(MyArray(i)) //类型转换
  12.     (语句无法识别,可能有错误): Hwnd1 = hwndEx //获取可打字的窗口句柄
  13.     (语句无法识别,可能有错误): BeginThread cccc(Hwnd1) //启动线程
  14.     (语句无法识别,可能有错误): Delay 100 //启动线程需要点时间
  15. 循环结束
  16. 条件结束
  17. 注释:以下是【无限循环】防止全部脚本停止。
  18. 循环开始
  19.     延时 1000 毫秒
  20. 循环结束
  21. 函数 cccc(i)
  22.     注释:我是一个函数,被你调用了
  23.     令 Hwnd = i
  24.     如果 Hwnd > 0 则
  25.         MsgBox(("成功获得窗口!" & Hwnd))
  26.     否则
  27.         MsgBox(("窗口获得失败,按确定结束……"))
  28.         注释:如果句柄获取失败,脚本结束
  29.     条件结束
  30.     调用 Window.Active(Hwnd)
  31.     调用 bgkms6_10.FakeWindowState(Hwnd,2)
  32.     注释:目标窗口对应的进程总是以为目标窗口在前台
  33.     标记 a(函数 cccc)
  34.     调用 Bkgnd.KeyDown(Hwnd,67)
  35.     调用 Bkgnd.KeyUp(Hwnd,67)
  36.     延时 500 毫秒
  37.     跳转到标记 a(函数 cccc)
  38. 函数结束
  39. (语句无法识别,可能有错误): /*
  40. 弹出窗口 "多线程命令属于高级命令功能,不推荐新手使用。"
  41. 注释:所谓多线程并不是同时做一件相同的事情,而是不分前后顺序执行脚本。
  42. (语句无法识别,可能有错误): Dimenv Hwnd1 //定义环境变量(多线程需要)
  43. (语句无法识别,可能有错误): RunApp "notepad.exe" //启动3个记事本测试用
  44. 启动程序或打开文件 "notepad.exe"
  45. 启动程序或打开文件 "notepad.exe"
  46. (语句无法识别,可能有错误): Delay 2000 //等待3个记事本工具打开
  47. (语句无法识别,可能有错误): Hwnd = Plugin.Window.Search("无标题 - 记事本") //搜索所有记事本窗口句柄
  48. (语句无法识别,可能有错误): MyArray = Split(Hwnd, "|") //分解句柄
  49. 如果 UBound(MyArray) >= 0 则
  50.     注释:判断是否搜到句柄?
  51. 条件结束
  52. 循环 i 从 0 到 UBound(MyArray) - 1
  53.     (语句无法识别,可能有错误): hwndEx = Clng(MyArray(i)) //类型转换
  54.     (语句无法识别,可能有错误): Call Plugin.Window.Move(hwndEx, i * 200 + 100, i * 200 + 100) //调整窗口位置
  55.     (语句无法识别,可能有错误): Call Plugin.Window.Active(hwndEx) //激活前面
  56.     (语句无法识别,可能有错误): Hwnd1 = Plugin.Window.FindEx(hwndEx, 0, "Edit", 0) //获取可打字的窗口句柄
  57.     (语句无法识别,可能有错误): BeginThread 打字 //启动线程
  58.     (语句无法识别,可能有错误): Delay 100 //启动线程需要点时间
  59. 循环结束
  60. 条件结束
  61. 注释:以下是【无限循环】防止全部脚本停止。
  62. 循环开始
  63.     延时 1000 毫秒
  64. 循环结束
  65. 注释:以下是【测试用】子程序例子
  66. 子程序 打字()
  67.     注释:首先获取环境变量句柄
  68.     令 Hwnd2 = Hwnd1
  69.     注释:然后开始循环或者无限循环需要执行的脚本内容
  70.     循环 i 从 0 到 20
  71.         调用 Bkgnd.SendString(Hwnd2,i)
  72.         延时 100 毫秒
  73.         调用 Bkgnd.KeyPress(Hwnd2,13)
  74.         延时 200 毫秒
  75.     循环结束
  76. 子程序结束
  77. (语句无法识别,可能有错误): */