bir timer açın bir tane textbox ve bir check

timere su kodları girin:
enabled:false interval:100



Kod:

On Error Resume Next
Dim hp
Dim maxhp
hp = GetCurHP
maxhp = GetTotalHP
If hp + text4.text < maxhp Then
minor
End If

isterseniz kırmızı yazdığım text4.text yerini 450-500 fln da yapabilirsiniz
ben text yaptım textte kaç yazılırsa okadar hp düşünce minor basar

################################################## #################################
checke su kodları girin:


Kod:

private sub check3
if check3.value = 1 then
timer2.enabled=true
else
timer2.enabled=false
end If
end sub

################################################## #################################
ana module su kodları yazın:


Kod:

Public Sub minor()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim usingskill1 As String
Dim usingskill2 As String
Dim usingskill3 As String
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim usingskill As String
Dim usingskillid As String
Dim class As String


class = GetClass
IDs = GetID

usingskillid = class & "705"


id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)


usingskill = Hex(usingskillid)
usingskill1 = Strings.Right(usingskill, 2)
usingskill2 = Strings.Mid(usingskill, 2, 2)
usingskill3 = Strings.Left(usingskill, 1)



pStr = "3103" & usingskill1 & usingskill2 & "0" & usingskill3 & "00" & ID1 & ID2 & ID1 & ID2 & "0000000000000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub

################################################## #################################


GetCurHp = Suanki Hp
GetTotalHp = Toplam Hp Oluyor..
GetClass = Charın Klass ını Okur
GetID = Charın ID Sini Okur

bunları dikkatli okuyun

################################################## #################################
Kod:

Public Function GetCurHP() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetCurHP = ReadLong(pPtr + KO_OFF_HP)
End Function

################################################## #################################
Kod:

Public Function GetTotalHP() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetTotalHP = ReadLong(pPtr + KO_OFF_MAXHP)
End Function

---
Kod:

Function GetClass() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetClass = ReadLong(pPtr + KO_OFF_CLASS)
End Function

-----
Kod:

Function GetID() As Long
Dim pPtr As Long
pPtr = ReadLong(KO_PTR_CHR)
GetID = ReadLong(pPtr + KO_OFF_ID)
End Function

-----

modülün en üstüne

Public Const KO_OFF_HP As Long = &H594
Public Const KO_OFF_MAXHP As Long = &H590




*/*/*/*/*/

CHECK LERİ TEXT LERİ KENDİNİZE GÖRE EDİTLEYİN

süpersin kardeşim ya

Kardeş Karışmış O Oto Minor Bölümünde Dİkkatli okuyun'dan Sonrakiler nereye :S ana modülden kastın ?
Private Sub Form_Load()

End Sub

bumu ?