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