按键精灵脚本源码 钓鱼智能版

运行环境:分辨率:1920×1080 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.00.9460

MessageBox "请将鼠标移至左下坐标后按2键保存坐标"   Rem 等待1   an1 = GetLastKey()   If an1 = 50 Then                   else   Goto 等待1   End If   GetCursorPos xa, ya   MessageBox "请将鼠标移至右上坐标后按2键保存坐标"   Rem 等待2   an1 = GetLastKey()   If an1 = 50 Then                   else   Goto 等待2   End If   GetCursorPos xb, yb   Rem 重复循环   UserVar l=30 "扫描密度"   UserVar z=100 "查找范围"   UserVar se="38FFFF" "色值"   x0=xa:y0=ya:x1=xb:y1=yb:x=x0:y=y0:z=100   KeyPress "1", 1   Delay 500           While y>y1       shubiao = GetCursorShape(0)           If shubiao = 1053591638 Then       Goto 找到目标           End If           If x>x1           x = x0           y = y - l           else           x = x + l           y = y           End If           MoveTo x,y           Delay 10       Wend   Goto 重复循环       Rem 找到目标       MoveTo 1800, 60   t1=plugin.sys.gettime()  //这个命令可以简单的理解为,得到当前时间,精确到毫秒(其实真正的不是这个意思,但是这样理解对使用也没错)   do       FindColorEx x-z,y-z,x+z,y+z, "38FFFF" ,1,0.8,seX,seY   If seX > 0 And seY > 0 Then   MoveTo seX - 10, seY + 10           RightClick 1           RightClick 1           Delay 200           LeftClick 1           Delay 200           LeftClick 1           Delay 1000           Goto 重复循环   End If   t2=plugin.sys.gettime()  //t2是之后得到的时间,肯定比t1大   if t2-t1>19000  then       //t2-t1就是后面大时间减前面小时间,,如果大于5000毫秒,就是5秒,就要退出循环了           Goto 结束   end if   loop   Rem 结束   Goto 重复循环
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

按键精灵脚本源码 钓鱼智能版》有0个想法

发表回复

您的电子邮箱地址不会被公开。必填项已用*标注