网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言正文

按键精灵通用刷怪脚本源码

三叶资源网 2018-09-17 16:34:04 按键精灵Q语言 12939 ℃ 94 评论

运行环境：分辨率：1152x864 色深：32位操作系统：Microsoft Windows XP 按键精灵版本：9.00.9460

@uxi123 2011/10/14

Dim sTime(4),sj(4),key(4),keyj(1),a(1),b(1),c(1),d(1),e(1),x(2),y(2),GetColor(2)  
UserVar 进行jx=52 "加血键"  
UserVar 进行jl=53 "加蓝键"  
UserVar xg=9 "寻怪键"  
UserVar sq=229 "拾取键"  
UserVar ja="49,1000" "<技能.时间>一"  
UserVar jb="50,1000" "<技能.时间>二"  
UserVar jc="51,1500" "<技能.时间>三"  
UserVar jd="57,50000" "<辅助技能.时间>一"  
UserVar je="48,50000" "<辅助技能.时间>二"  
a=split(ja,","):b=split(jb,","):c=split(jc,","):d=split(jd,","):e=split(je,",")  
Rem ajp7  
MessageBox "请把鼠标移动到补<血>位置，按小键盘数字:7.确定。"  
jb7 = WaitKey()  
If jb7 = 103 Then   
GetCursorPos x(0), y(0)  
    GetColor(0)=GetPixelColor(x(0),y(0))  
Else   
Goto ajp7  
End If  
Rem ajp8  
MessageBox "请把鼠标移动到补<蓝>位置，按小键盘数字:8.确定。"  
jb8 = WaitKey()  
If jb8 = 104 Then   
GetCursorPos x(1), y(1)  
    GetColor(1)=GetPixelColor(x(1),y(1))  
Else   
Goto ajp8  
End If  
Rem ajp9  
MessageBox "请把鼠标移动到<怪>空血位置，按小键盘数字:9.确定。"  
jb9 = WaitKey()  
If jb9 = 105 Then   
GetCursorPos x(2), y(2)  
    GetColor(2)=GetPixelColor(x(2),y(2))  
Else   
Goto ajp9  
End If  
MessageBox "确认完毕，游戏开始！"& vbcrlf &" 祝你游戏愉快！"  
For i = 0 To 4  
    sTime(k)= now  
    Next  
key(0) = d(1) : key(1) = e(1) : key(2) = a(1) : key(3) = b(1) : key(4) = c(1)  
sj(0) = d(2) : sj(1) = e(2) : sj(2) = a(2) : sj(3) = b(2) : sj(4) = c(2)  
keyj(0)=jx:keyj(1)=jl  
Rem ks  
For i = 0 To 1  
    IfColor x(i), y(i), GetColor(i), 2 Then  
        Else   
        Delay 50  
        KeyPress  keyj(i),1  
        Delay 100  
    End If  
Next  
IfColor x(2), y(2), GetColor(2), 2 Then  
      
 Call jnj()  
 Goto ks  
 Else   
KeyPress xg,1  
End If  
 Sub jnj()  
For k = 0 To 4   
If DateDiff("s", sTime(k), now) >= sj(k) Then   
        Delay 10  
        KeyPress key(k),1  
 sTime(k) = now  
 End If   
Next  
 End Sub

文件下载

下载地址

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言正文

按键精灵通用刷怪脚本源码

猜你喜欢

已有94位网友发表了看法：

取消回复欢迎你发表评论:

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

按键精灵通用刷怪脚本源码

猜你喜欢

已有94位网友发表了看法：

取消回复欢迎 你 发表评论:

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言正文

取消回复欢迎你发表评论: