[ű]
=״
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Dim Hwnd,PWuLin,Base,First,Second,ID
Dim dxue,dlan,mxue,mlan
Sub Main()
Register 'עᲢ
Base = &H9342B4

Hwnd = HWindow.GetForeGround()
Init
Do While 1 = 1
	ID = HMEM.Read32Bit(Hwnd,Second + &H7D4)
	Do While ID >= 0
		Call_TAB
		Delay 1000 'ʱȴ1
		ID = HMEM.Read32Bit(Hwnd,Second + &H7D4)
	Loop
	
	Do While ID <> 0
		ID = HMEM.Read32Bit(Hwnd,Second + &H7D4)
		Call_Key AttackKey
		Add
		Delay 150
	Loop

	Pick
Loop

Destory 'жزٶ
End Sub

Sub Register()
HActiveX.Register Path & "\Plugin\WuLin.dll"
PWuLin = HActiveX.Create("WuLin","clsWuLin")
End Sub

Sub Destory()
HActiveX.Destory PWuLin
HActiveX.UnRegister Path & "\Plugin\WuLin.dll"
End Sub

Sub Init()'ʼ
First = HMEM.Read32Bit(Hwnd,Base)
First = HMEM.Read32Bit(Hwnd,First + &H1C)
Second = HMEM.Read32Bit(Hwnd,First + &H24)
End Sub

Sub Add()'
dxue = HMEM.Read32Bit(Hwnd,Second + &H25C)
mxue = HMEM.Read32Bit(Hwnd,Second + &H274)
dlan = HMEM.Read32Bit(Hwnd,Second + &H260)
mlan = HMEM.Read32Bit(Hwnd,Second + &H278)
If dxue / mxue * 100 <= SetHP Then
	Call_Key HPKey
	Delay 1000
End If
If dlan / mlan * 100 <= SetMP Then
	Call_Key MPKey
	Delay 1000
End If
End Sub

Sub Pick()'
Dim Third,temp,shuliang,head,str,ID,SystemID
Third = HMEM.Read32Bit(Hwnd,First + &H8)
temp = HMEM.Read32Bit(Hwnd,Third + &H24)
shuliang = HMEM.Read32Bit(Hwnd,temp + &H14)
If shuliang > 0 Then
	head = HMEM.Read32Bit(Hwnd,temp + &H18)
	For a = 0 To 769
		temp = HMEM.Read32Bit(Hwnd,head + a * 4)
		If temp > 0 Then
			str = HMEM.Read32Bit(Hwnd,temp + &H4)
			ID = HMEM.Read32Bit(Hwnd,str + &H110)
			SystemID = HMEM.Read32Bit(Hwnd,str + &H10C)
			Call_Pick ID,SystemID
		End If
	Next
End If
End Sub

Sub Call_TAB()
PWuLin.Call_TAB Hwnd
End Sub

Sub Call_Key(KeyName)
PWuLin.Call_Key Hwnd,KeyName
End Sub

Sub Call_Pick(ID,SystemID)
PWuLin.Call_Pick Hwnd,ID,SystemID
End Sub
[]
[]
ShowName=;VarType=List;VarName=AttackKey;Value=1;ListType=1,2,3,4,5,6,7,8,9,0,F1,F2,F3,F4,F5,F6,F7,F8;
ShowName=HPٷֱ;VarType=Long;VarName=SetHP;Value=50;
ShowName=HP;VarType=List;VarName=HPKey;Value=6;ListType=1,2,3,4,5,6,7,8,9,0,F1,F2,F3,F4,F5,F6,F7,F8;
ShowName=MPٷֱ;VarType=Long;VarName=SetMP;Value=5;
ShowName=MPٷֱ;VarType=List;VarName=MPKey;Value=5;ListType=1,2,3,4,5,6,7,8,9,0,F1,F2,F3,F4,F5,F6,F7,F8;
[]
