windows之家1.按键精灵怎样设置
这个结合宏一起，效果更好~我帮你去找找，莫急 UserVar var=DropList{普通模式：0|推荐模式：1}=1 请选择模式 UserVar LTop=300,200 鼠标左上 UserVar RBot=980,500 鼠标右下 UserVar dy1=1 鼠标扫描期间间隔时间 mouseType=1884068285 VBSCall GetCursorShape(0) Dim s,x1,y1,x2,y2,x,y,c,starttime,endtime s=InStr(LTop,",") x1=int(Mid(LTop,1,s-1)) y1=int(Mid(LTop,s+1)) s=InStr(RBot,",") x2=int(Mid(RBot,1,s-1)) y2=int(Mid(RBot,s+1)) Rem Start KeyPress 49,1 Rem Search Delay 2000 x=x1 y=y1 MoveTo x y starttime=Now While y
好在这里循环30次后 它自己跑下一步去了 EndIf EndFor Rem 确定鱼上钓 Delay 50 IfColor 348 473 5a615a 1 \\这个是施法条的判断 IfColor 678 50 7b797b 1 \\这里我又加了一个判断 主要是判断右上角鱼饵的BUFF Goto 鱼饵 Else Goto 开始钓鱼 EndIf Goto 开始钓鱼 Else EndIf IfColor 813 180 b59ece 0 \\这个判断是这个脚本最关键的地方。
.就是WOW程序以外运行的声音频谱仪的监视 RightClick 1 Goto 拣取物品 Else Goto 确定鱼上钓 EndIf Rem 拣取物品 Delay 700 IfColor x y 000000 1 \\这个是拿物品 For 10 Delay 50 RightClick 1 EndFor Else EndIf EndFor Rem 鱼饵 IfColor 678 50 7b797b 0 \ \这个坐标是右上角的鱼饵BUFF Goto 开始钓鱼 Else Delay 500 KeyDown 67 1 Delay 100 KeyUp 67 1 Delay 500 MoveTo 310 612 \\鱼饵我设在按键2的位置上 Delay 1000 LeftClick 1 Delay 300 MoveTo 81 307 Delay 700 LeftClick 1 Delay 7000 KeyDown 67 1 Delay 100 KeyUp 67 1 Delay 300 EndIf Goto 开始钓鱼。
转载请注明出处windows之家 » win10如何设置按键精灵