运行环境：分辨率：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