- 用户定义变量 name0=0"左下角为主号,请输入后3位ID"
- 用户定义变量 name1=0"左上角为2号,请输入后3位ID"
- 用户定义变量 name2=0"右上角为3号,请输入后3位ID"
- 用户定义变量 name3=0"左下角为4号,请输入后3位ID"
- 用户定义变量 name4=0"中间为5号,请输入后3位ID"
- 用户定义变量 RW1=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物1"
- 用户定义变量 BB1=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝1"
- 用户定义变量 RW2=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物2"
- 用户定义变量 BB2=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝2"
- 用户定义变量 RW3=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物3"
- 用户定义变量 BB3=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝3"
- 用户定义变量 RW4=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物4"
- 用户定义变量 BB4=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝4"
- 用户定义变量 RW5=DropList{"攻击":65|"防御":68|"法术":81}=0 "人物5"
- 用户定义变量 BB5=DropList{"攻击":65|"防御":68|"法术":81}=0 "宝宝5"
- 用户定义变量 YS=DropList{"一号人物":1|"二号人物":2|"三号人物":3|"四号人物":4|"五号人物":5|"无":6}=5"选择医生"
- 用户定义变量 YSAJ=DropList{"F1":112|"F2":113|"F3":114|"F4":115|"F5":116|"F6":117|"F7":118|"F8":119|"F9":120}=0"快捷键"
- (语句无法识别,可能有错误): Dim srw1, srw2, srw3, srw4, srw5//五个号的句柄
- (语句无法识别,可能有错误): Dim hp1,hp2,hp3,hp4,hp5//五个号的血值状态
- (语句无法识别,可能有错误): Dim mp1,mp2,mp3,mp4,mp5//五个号的蓝值状态
- 定义变量 FileArray(11)
- (语句无法识别,可能有错误): Dim HandleArray//建完图库后这里要改一下数目奖励验证库
- 定义变量 FileNatureArray(11)
- (语句无法识别,可能有错误): Dim HandleNatureArray//弹出的对话框验证库
- (语句无法识别,可能有错误): Sub 奖励验证图片加载()//奖励验证图片加载库方法
- 注释:先装入奖励验证图片
- 循环 i 从 0 到 11
- (语句无法识别,可能有错误): FileArray(i)="Attachment:\"& i+1 &".bmp" //验证图库放在“d:\图片”里,图名为1.bmp,2.bmp....
- 循环结束
- 令 HandleArray = FindPicture5_04.LoadBMP(FileArray)
- 注释:UBound函数用于获得指定数组维数的最大可用下标,在这里,数组大小是0时,返回-1
- 如果 UBound(HandleArray) = - 1 则
- MsgBox("载入验证图片失败",4096)
- 脚本停止运行
- 条件结束
- 子程序结束
- (语句无法识别,可能有错误): Sub 弹出对话框验证图片加载()//弹出对话框验证图片库方法
- 注释:先装入奖励验证图片
- 循环 i 从 0 到 11
- (语句无法识别,可能有错误): FileNatureArray(i)="Attachment:\d"& i+1 &".bmp" //验证图库放在“d:\图片”里,图名为1.bmp,2.bmp....
- 循环结束
- 令 HandleNatureArray = FindPicture5_04.LoadBMP(FileNatureArray)
- 注释:UBound函数用于获得指定数组维数的最大可用下标,在这里,数组大小是0时,返回-1
- 如果 UBound(HandleArray) = - 1 则
- MsgBox("载入验证图片失败",4096)
- 脚本停止运行
- 条件结束
- 子程序结束
- 注释:开始循环查找要练级的5号
- 注释:---------------------------------------------------------------------------
- 令 Hwndex = Window.Search("梦幻西游ONLINE")
- 令 MyArray = Split(HwndEx,"|")
- 令 i = 0
- 循环 CLng(UBound(MyArray)) 次
- 令 sText = Window.GetText(MyArray(i))
- 令 sText = Right(sText,5)
- 令 sText = Left(sText,3)
- 如果 sText <> "NLI" 则
- 如果 name0 = CInt(sText) 则
- 令 srw1 = MyArray(i)
- 调用 Window.Active(srw1)
- 延时 500 毫秒
- 调用 Window.Move(srw1,0,480)
- 否则如果 name1 = CInt(sText) 则
- 令 srw2 = MyArray(i)
- 调用 Window.Active(srw2)
- 延时 500 毫秒
- 调用 Window.Move(srw2,0,0)
- 否则如果 name2 = CInt(sText) 则
- 令 srw3 = MyArray(i)
- 调用 Window.Active(srw3)
- 延时 500 毫秒
- 调用 Window.Move(srw3,643,0)
- 否则如果 name3 = CInt(sText) 则
- 令 srw4 = MyArray(i)
- 调用 Window.Active(srw4)
- 延时 500 毫秒
- 调用 Window.Move(srw4,643,500)
- 否则如果 name4 = CInt(sText) 则
- 令 srw5 = MyArray(i)
- 调用 Window.Active(srw5)
- 延时 500 毫秒
- 调用 Window.Move(srw5,300,300)
- 否则
- 条件结束
- 条件结束
- 如果 i = CLng(UBound(MyArray)) - 1 则
- 调用 Window.Active(srw5)
- 条件结束
- 令 i = i + 1
- 延时 100 毫秒
- 循环结束
- 注释:Game开始挂机
- 子程序 开始走路()
- 延时 200 毫秒
- 调用 Window.Active(srw1)
- 令 Rect = Window.GetClientRect(srw1)
- 令 MyArray = Split(Rect,"|")
- 令 Ux = CLng(MyArray(0))
- 令 Uy = CLng(MyArray(1))