运行环境：分辨率：1600×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.21.10865

@うちは_イタ 2012/10/18

UserVar Var1=30 "开枪频率"   UserVar Var2=1 "单次开枪子弹数量"   UserVar Var3=0 "第一枪延迟"   UserVar Var4=55 "压枪延迟"   //定义变量   DimEnv iWidth  ,iHeight        //int 屏幕分辨率   DimEnv iFD //开枪频率   iFD=Var1    DimEnv iFN //几发连射   iFN=Var2    DimEnv iFFD //第一枪延迟   iFFD=Var3   DimEnv iND //压枪延迟   iND=Var4   //调用主函数   Call Main()    //**Main   //程序入口主函数   Sub Main()       //int 四个角的坐标       Dim iLT,iRT,iLB,iRB               //临时对象       Dim vTemp               Dim bCanShoot       Dim sStr       //得到分辨率(四个坐标)       sStr=getParameter()        //把返回的坐标分割成数组       vTemp=Split(sStr, "|", -1, 1)              iLT=vTemp(0)       iRT=vTemp(1)       iLB=vTemp(2)       iRB=vTemp(3)       //启用设置开枪频率线程       BeginThread setFireDelay               //循环脚本       While True           Delay 1           //搜索射程内的敌人           bCanShoot=findFoe(iLT,iRT,iLB,iRB)           //进入射程           If bCanShoot               //第一枪延迟               Delay iFFD                //射击               Call shootFoe()               //如果没有命中就压枪               If ifBingo()                   Delay iND               End If           End If       Wend   End Sub   //**Function   //功能:判断屏幕分辨率   //返回:四个坐标的字符串   Function getParameter()       Dim iLT,iRT,iLB,iRB        //int 四个角的坐标       iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度       iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度       If iWidth=800 Then           iLT=0           iRT=0           iLB=0           iRB=0       ElseIf iWidth=1024 Then           iLT=112 //加上坐标偏移           iRT=84           iLB=112           iRB=84               ElseIf iWidth=1280 Then           iLT=240 //加上坐标偏移           iRT=100           iLB=240           iRB=100               End If       iLT=iLT+380        //LeftTop 左上角       iRT=iRT+345        //RightTop 右上角       iLB=iLB+420        //LeftBottom 左下角       iRB=iRB+355        //RightBottom 右下角       getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB        //返回字符串   End Function   //**Function   //功能:判断射程内是否有敌人   //返回:是True,否False   Function findFoe(iLT,iRT,iLB,iRB)       Dim sColor(3)        //Array(string) 用于存放颜色的数组       Dim i        //int 循环变量       Dim iX,iY        //int 得到颜色的坐标       Dim bHave        //boolean 是否找到敌人       //初始化颜色       sColor(0)="3239A0"       sColor(1)="2A3EB8"       sColor(2)="1849F0"       sColor(3)="1849F0"              bHave=false        //初始化           //找颜色       For i=0 to 3 step 1           Call FindColorEx(iLT,iRT,iLB,iRB,sColor(i),1,0.7,iX,iY)           If iX>0 And iY>0               bHave=true        //找到了               KeyPress 44, 1               Goto rHave        //跳出           End If       Next              Rem rHave       findFoe=bHave//Return 函数返回值   End Function   //**Function   //功能:判断是否没有命中敌人   //返回:是True,否False   Function noBingo()       Dim iX,iY        //int 得到颜色的坐标       Call FindColorEx(iWidth/2-5,iHeight/2-5,iWidth/2+5,iHeight+5,"7E7EC0",1,0.7,iX,iY)       If iX > 0 Then           noBingo=True       Else           noBingo=False       End If              End Function              //**Sub   //功能:射击   Sub shootFoe()       LeftClick iFN //左键单击 * 次       Delay iFD //延迟 * 毫秒   End Sub   //**Sun   //参数(字符串,秒,第几行)   //功能:显示字符串   Sub showStr(str,n,row)       For n*100           Delay 1           Call Plugin.Msg.ShowScrTXT(0, (row-1)*19, 120, 19, str, "0000FF")       Next   End Sub   //**Sun   //功能:设置开枪延迟   //# 多线程启动   Sub setFireDelay()       Dim key       While True           key=WaitKey()           If key=37               iFD=iFD-1        //缩小开枪延迟               Call showStr("开枪频率为"&iFD&"毫秒",5,1)           ElseIf key=39        //方向键 右               iFD=iFD+1 //增加开枪延迟               Call showStr("开枪频率为"&iFD&"毫秒",5,1)           ElseIf key=38        //方向键 右               iFD=iFD+5 //增加开枪延迟               Call showStr("开枪频率为"&iFD&"毫秒",5,1)           ElseIf key=40        //方向键 右               iFD=iFD-5 //增加开枪延迟               Call showStr("开枪频率为"&iFD&"毫秒",5,1)           End If       Wend   End Sub