[ Oto RPR ]USKO kendi KOXPUNU kendin yap VB6

Private Sub Check14_Click()

If Check14.Value = 1 Then

Timer10.Enabled = True

Else

Timer10.Enabled = False

End If

End Sub



Bir adet check ekliyoruz ve üstteki kodları yapıştırıyoruz içine.



Timer ekleyin ..



İnvertal = 900

Enabled = False



Kodları :

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

End Sub