Koxp,Koxp 1828,1828 koxp,PatronusKoxp 1828,Patronus Koxp 1828,Knight Online , ChaosKoxp - 1828 Koxp indir Exp Bug Dupe Knight Online Koxp Kosp Koxp,1828 ...
 
AnasayfaTakvimGiriş yapKayıt Ol

Paylaş | 
 

 Oto Repair Yapımı.

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
safakturk
Möderatör
Möderatör
avatar

National Point : 98
Leader Point : 5598
Mesaj Sayısı : 44
Kayıt tarihi : 07/09/09

MesajKonu: Oto Repair Yapımı.   Ptsi Eyl. 07, 2009 10:15 pm

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.
Sayfa başına dön Aşağa gitmek
 
Oto Repair Yapımı.
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Koxp 1828,PatronusKoxp 1828,Patronus Koxp 1828,Rmy Koxp 1828 ... :: Knight Online |Usko| :: Koxp Yapım Dersi ve Source Paylaşımı-
Buraya geçin: