Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 Paket Yollama - Bazı Paketler - Modul

Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145790471
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Paket Yollama - Bazı Paketler - Modul   Salı Şub. 23, 2010 5:03 pm

Bıyerden Baslıyım İstedim

Konumuz : Paket Yollama

Gerekenler : 1 adet command button

1 Adet Command Buton Açın ve içine bu kodları koyunuz.


Kod:
Dim pStr As String
Dim pBytes() As Byte
pStr = "PAKET NO BURAYA GELECEK" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes


BAZI PAKETLER :

SINIRSIZ DEVE OLMA PAKETI : 290302

NORMALE DONME PAKETI : 290304

CUCE OLMA PAKETI : 290303


TABIKI BUNUN ICIN MODUL GEREKLIDIR Modulunuzde Vardır Diye Yazmıyorum.

SendPackets , ConvHEX2ByteArray fonksiyonları lazımdır.

O Fonksiyonlarda Aşşağıda!


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




Kod:
Function SendPackets(pPacket() As Byte)
Dim pSize As Long
Dim pCode() As Byte
pSize = UBound(pPacket) - LBound(pPacket) + 1
If BytesAddr = 0 Then
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
    WriteByteArray BytesAddr, pPacket, pSize
    ConvHEX2ByteArray "60A1" & AlignDWORD(KO_PTR_CHR) & "8B0D" & AlignDWORD(KO_PTR_CHR) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD761C3", pCode
    ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function
Sayfa başına dön Aşağa gitmek
http://koxpworld.yetkin-forum.com
 
Paket Yollama - Bazı Paketler - Modul
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: Anlatımlar-
Buraya geçin: