1. // "*********************脚本参数设定*********************"
2. //"单位秒，设定连按回车多少时间后检测上车状态"
3. time1=30
4. //UserVar time1=30 单位秒，设定连按回车多少时间后检测上车状态
5. //"单位毫秒，设定连按回车多少时间后"
6. time2=2000
7. //UserVar time2=2000 单位毫秒，设定连按回车多少时间后
8. // "******************************************************"
9. // "获取窗口起始位置坐标"
10. 调用插件命令 Hwnd = Window.GetKeyFocusWnd()
11. 调用插件命令 Rect = Window.GetClientRect(Hwnd)
12. MyArray=Split(Rect,"|")
13. Ux=CLng(MyArray(0))
14. Uy=CLng(MyArray(1))
15. 延时500毫秒
16. 鼠标移到 Ux+600 , Uy
17. 标记 检查摩托列表菜单
18. 标记 判定聊天窗口是否关闭
19. 延时500毫秒
20. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024+Ux,768+Uy,"Attachment:\TL.bmp",1,tlX,tlY)
21. 如果表达式 (tlX > -1) 为真,则
22.     延时500毫秒
23.     按键 <Enter>
24.     跳转到标记 判定聊天窗口是否关闭
25. 条件结束
26. 延时500毫秒
27. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024+Ux,768+Uy,"Attachment:\TL.bmp",1,tlX,tlY)
28. 如果表达式 (qhX = -1) 为真,则
29.     延时500毫秒
30.     按键 <N>
31. 否则
32.     延时500毫秒
33.     按键 <N>
34.     延时500毫秒
35.     按键 <N>
36. 条件结束
37. 延时500毫秒
38. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024+Ux,768+Uy,"Attachment:\TL.bmp",1,tlX,tlY)
39. 如果表达式 (scX > -1) 为真,则
40.     延时500毫秒
41.     按键 <T>
42.     延时500毫秒
43.     跳转到标记 检查摩托列表菜单
44. 条件结束
45. 延时500毫秒
46. 按键 <N>
47. Dim MyDate
48. 延时500毫秒
49. MyDate=Now()
50. 标记 自动进命运开始
51. 延时time2毫秒
52. 按键 <Enter>
53. 如果表达式 (DateDiff("s", MyDate, Now()) >= time1) 为真,则
54.     跳转到标记 检查摩托列表菜单
55. 条件结束
56. 跳转到标记 自动进命运开始