- 用户定义变量 DY=10 "第一组强化次数(一般不改)最大10"
- 用户定义变量 DE=10 "第二组强化次数(一般不改)最大10"
- 用户定义变量 DS=10 "第三组强化次数(一般不改)最大10"
- 用户定义变量 tm=100 "网络延时1s=1000ms根据网速定)"
- 用户定义变量 sj=50 "双击鼠标的延时ms根据网速定)"
- 用户定义变量 BJ=5 "三组全部强化以后失败报警次数"
- 用户定义变量 BJYS=200 "三组全部强化失败后报警间隔时间"
- 用户定义变量 QHSJ=23000"每组强化中的时间推荐23000"
- 令 Hwnd = Window.Find(0,"FLYFF")
- 令 Rect = Window.GetClientRect(Hwnd)
- 令 MyArray = Split(Rect,"|")
- 令 qx = Cint(MyArray(0))
- 令 qy = Cint(MyArray(1))
- 令 w = Cint(MyArray(2))
- 令 h = Cint(MyArray(3))
- 令 a1 = 0
- 令 a2 = 0
- 令 a3 = 0
- 延时 500 毫秒
- 标记 aaa
- (鼠标)移动到 (592 + qx, 283 + qy)
- 延时 tm 毫秒
- 循环 10 次
- (鼠标)左键双击, 1次
- 延时 sj 毫秒
- 循环结束
- (鼠标)移动到 (624 + qx, 283 + qy)
- 延时 100 毫秒
- 循环 10 次
- (鼠标)左键双击, 1次
- 延时 sj 毫秒
- 循环结束
- 延时 tm 毫秒
- (鼠标)移动到 (81 + qx, 513 + qy)
- 延时 tm 毫秒
- (鼠标)左键单击, 1次
- 延时 QHSJ 毫秒
- (鼠标)移动到 (244 + qx, 511 + qy)
- 延时 tm 毫秒
- (鼠标)左键单击, 1次
- 令 a1 = a1 + 1
- 如果 a1 = DY 则
- 跳转到标记 bb
- 条件结束
- 延时 tm 毫秒
- 跳转到标记 aaa
- 注释:第一组结束
- 标记 bb
- 标记 bbb
- 延时 500 毫秒
- (鼠标)移动到 (591 + qx, 318 + qy)
- 延时 100 毫秒
- 循环 10 次
- (鼠标)左键双击, 1次
- 延时 sj 毫秒
- 循环结束
- (鼠标)移动到 (626 + qx, 319 + qy)
- 延时 tm 毫秒
- 循环 10 次
- (鼠标)左键双击, 1次
- 延时 sj 毫秒
- 循环结束
- 延时 tm 毫秒
- (鼠标)移动到 (81 + qx, 513 + qy)
- 延时 tm 毫秒
- (鼠标)左键单击, 1次
- 延时 QHSJ 毫秒
- (鼠标)移动到 (244 + qx, 511 + qy)
- 延时 tm 毫秒
- (鼠标)左键单击, 1次
- 令 a2 = a2 + 1
- 如果 a2 = DE 则
- 跳转到标记 cc
- 条件结束
- 延时 tm 毫秒
- 跳转到标记 bbb
- 注释:第二组结束
- 标记 cc
- 标记 ccc
- 延时 500 毫秒
- (鼠标)移动到 (592 + qx, 351 + qy)
- 延时 tm 毫秒
- 循环 10 次
- (鼠标)左键双击, 1次
- 延时 sj 毫秒
- 循环结束
- (鼠标)移动到 (624 + qx, 351 + qy)
- 延时 tm 毫秒
- 循环 10 次
- (鼠标)左键双击, 1次
- 延时 sj 毫秒
- 循环结束
- 延时 tm 毫秒
- (鼠标)移动到 (81 + qx, 513 + qy)
- 延时 tm 毫秒
- (鼠标)左键单击, 1次
- 延时 QHSJ 毫秒
- (鼠标)移动到 (244 + qx, 511 + qy)
- 延时 tm 毫秒
- (鼠标)左键单击, 1次