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

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

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
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

按键精灵通用刷怪脚本源码》有0个想法

发表回复

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