Oto Rpr Yapımı

zulum76 · 1 Oto Rpr Yapımı Salı Tem. 27, 2010 3:50 am

zulum76

Cinsiyet : Erkek

Mesaj Sayısı : 973

Başarı Puanı : 3109

Yaş : 34

Gerekenler

1 Adet CheckBox
1 Adet Timer

Yapılışı:
Timerin Enabled "False"
Interval "900" Yapın. Aşagıdaki Kodları Gereken Yerlere Ekleyin.

CheckBox
Kodu

Kod:

If Check14.Value = 1 Then
Timer10.Enabled =
True
Else
Timer10.Enabled = False
End If

Timer
Kodu

Kod:

Dim RprString As String
Dim pBytes() As Byte
Dim
itemID As String
Dim SlotID As String
Dim a As Long, b As Long, e As Long,
f As Long, g As Long, h As Long, ı As Long, i As Long
Dim c As Long
a =
ReadLong(&HB7CDD0)
ReadProcessMem KO_HANDLE, a + &H338, b, 4,
0&
ReadProcessMem KO_HANDLE, b, c, 4, 0&
ReadProcessMem KO_HANDLE,
a + &H348, e, 4, 0&
ReadProcessMem KO_HANDLE, e, f, 4, 0&
D =
AlignDWORD(c + f)
ReadProcessMem KO_HANDLE, a + &H334, g, 4,
0&
ReadProcessMem KO_HANDLE, g, h, 4, 0&
ReadProcessMem KO_HANDLE,
a + &H344, ı, 4, 0&
ReadProcessMem KO_HANDLE, ı, i, 4, 0&
k =
AlignDWORD(h + i)
SendKeys (DIK_Z)
RprString = "3B01" + "08" +
MobID.Caption + D + "00000000000000000000"
ConvHEX2ByteArray RprString,
pBytes
SendPackets pBytes

RprString = "3B01" + "06" + MobID.Caption +
k + "00000000000000000000"
ConvHEX2ByteArray RprString, pBytes
SendPackets
pBytes

Check14 ve Timer10 u Kendi Timer ve Checkinize Göre
EDitleyin.

Alıntı Yaptığm Yerde Bozukluk Vardı Düzelttim Yakında
Videolu Anlatım qeLebiLir.

Gerekenler

1 Adet CheckBox
1 Adet Timer

Yapılışı:
Timerin Enabledini "False"
Intervalını "500" Yapın. Aşagıdaki Kodlar CheckBoxda ve Timere
Ekleyin.
CheckBoxun Kodu

Kod:

If Check1.Value = 1
Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End
If

Timerin Kodu

Kod:

Dim id As String
Dim ID1 As
String
Dim ID2 As String
Dim IDs As Long
Dim skillid1
Dim
skillid2
Dim skillid3
Dim skillhex As String

skillid =
491038
skillhex = Hex(skillid)
skillid1 = Mid$(skillhex, 4, 6)
skillid2
= Mid$(skillhex, 2, 2)
skillid3 = Mid$(skillhex, 1, 1)

IDs =
ReadLong(KO_ADR_CHR + KO_OFF_ID)
id = AlignDWORD(IDs)
ID1 =
Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)
Dim pBytes(1 To 18) As
Byte
pBytes(1) = &H31
pBytes(2) = &H3
pBytes(3) = "&H"
& skillid1
pBytes(4) = "&H" & skillid2
pBytes(5) = "&H"
& skillid3
pBytes(6) = &H0
pBytes(7) = "&H" &
ID1
pBytes( = "&H" & ID2
pBytes(9) = "&H" &
ID1
pBytes(10) = "&H" & ID2
pBytes(11) = &H0
pBytes(12) =
&H0
pBytes(13) = &H0
pBytes(14) = &H0
pBytes(15) =
&H0
pBytes(16) = &H0
pBytes(17) = &H0
pBytes(18) =
&H0
SendPackets pBytes

Oto Rpr Yapımı

1 Oto Rpr Yapımı Salı Tem. 27, 2010 3:50 am

zulum76