İlk Önce.
Mödül Kodumuz >
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
ConvHEX2ByteArray Hatada veRiyorSa Ana Mödüle >
Kod:
Public Function ConvHEX2ByteArray(pStr As String, pByte() As Byte)
On Error Resume Next
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(pStr) / 2)
j = LBound(pByte) - 1
For i = 1 To Len(pStr) Step 2
j = j + 1
pByte(j) = CByte("&H" & Mid(pStr, i, 2))
Next
End Function
1 Adet Timerde AcaLım ve Kod >
Kod:
On Error Resume Next
Dim hp
Dim MaxHp
hp = GetCurHP
MaxHp = GetTotalHP
If hp + Text1.Text < MaxHp Then
minor
End If
timer mantığını anlatıyım.
MaxHP yanı Full Hpniz. Text1 in textine yazdığı kadar duşmusse minor yapar.
MaxHP e ulaşana kadar.
Mödül Kodumuz >
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
ConvHEX2ByteArray Hatada veRiyorSa Ana Mödüle >
Kod:
Public Function ConvHEX2ByteArray(pStr As String, pByte() As Byte)
On Error Resume Next
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(pStr) / 2)
j = LBound(pByte) - 1
For i = 1 To Len(pStr) Step 2
j = j + 1
pByte(j) = CByte("&H" & Mid(pStr, i, 2))
Next
End Function
1 Adet Timerde AcaLım ve Kod >
Kod:
On Error Resume Next
Dim hp
Dim MaxHp
hp = GetCurHP
MaxHp = GetTotalHP
If hp + Text1.Text < MaxHp Then
minor
End If
timer mantığını anlatıyım.
MaxHP yanı Full Hpniz. Text1 in textine yazdığı kadar duşmusse minor yapar.
MaxHP e ulaşana kadar.