封印传说挂机脚本言源码

【功能说明】 

QQ华夏后台抢怪 

【使用说明】 

把窗口放在前台后台都可以 

开挂前不能被隐藏 

只是用快捷键1每个怪打一下 

间隔时间按技能,可以设置吟唱时间（可以用来召宝宝） 

没有验证提示和防卡功能 

加红加蓝的靠游戏内部的设置 

【作者介绍】 

wanghao19942 

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

//1为抢怪技能  
UserVar asjdaisd="请设置" ---------技能设置----------  
UserVar jn1="2" 设置技能1键位  
UserVar jn2="3" 设置技能2键位  
UserVar jn3="4" 设置技能3键位  
UserVar s1=60 设置技能1施放间隔时间（单位：秒）  
UserVar s2=90 设置技能2施放间隔时间（单位：秒）  
UserVar s3=120 设置技能3施放间隔时间（单位：秒）  
UserVar y1=10 技能1吟唱时间（秒）  
UserVar y2=10 技能2吟唱时间（秒）  
UserVar y3=10 技能3吟唱时间（秒）  
UserVar jg=1 抢怪间隔（秒）  
Plugin hx=Window.Find(0,"QQ华夏")  
//MessageBox ""&hx&""  
Plugin Window.Active(hx)  
//---------------[分隔线]--------------------  
dim key(2),sj(3)  
dim jn1,jn2,jn3,s1,s2,s3,s4,t1,t2,t3,t4,zf,hx  
//声明变量  
key(0)=Asc(jn1):key(1)=Asc(jn2):key(2)=Asc(jn3)  
sj(0)=s1:sj(1)=s2:sj(2)=s3:sj(3)=s4  
//把自定义参数的返回值转换成数组元素  
t1=now:t2=now:t3=now:t4=now  
//返回当前系统日期时间到变量  
//---------------[分隔线]--------------------  
Rem 开始挂机  
Gosub 抢怪  
Gosub 检查辅助技能  
Goto 开始挂机  
//---------------[分隔线]--------------------  
Sub 抢怪  
    Plugin Window.SendKeyPress(hx,192)  
    Delay 100  
    Plugin Window.SendKeyPress(hx,49)  
    Delay 500  
    Plugin Window.SendKeyPress(hx,192)  
    //防止技能狂按  
    Delay jg*1000  
Return   
//--------------[分隔线]------------------------  
Sub 检查辅助技能  
    If DateDiff("s",t1,now)>=sj(0)  
        Plugin Window.SendKeyDown(hx,key(0))  
        Delay 32  
        Plugin Window.SendKeyUp(hx,key(0))  
        Delay y1*1000  
        t1=now  
    EndIf   
    If DateDiff("s",t2,now)>=sj(1)  
        Delay 10  
        Plugin Window.SendKeyDown(hx,key(1))  
        Delay 32  
        Plugin Window.SendKeyUp(hx,key(1))  
        Delay y2*1000  
        t2=now  
    EndIf   
    If DateDiff("s",t3,now)>=sj(2)  
        Delay 10  
        Plugin Window.SendKeyDown(hx,key(2))  
        Delay 32  
        Plugin Window.SendKeyUp(hx,key(2))  
        t3=now  
    EndIf   
    If DateDiff("s",t3,now)>=sj(2)  
        Delay 10  
        Plugin Window.SendKeyDown(hx,key(2))  
        Delay 32  
        Plugin Window.SendKeyUp(hx,key(2))  
        Delay y3*1000  
        t3=now  
    EndIf   
Return