Paket yollama(devlesme-küçülme)

Admin Mesaj Sayısı : 132 Kayıt tarihi : 10/01/10 Yaş : 34

Konumuz : Paket Yollama

Gerekenler : 1 adet command button

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

Kod:: [b][b]Dim pStr As String
Dim pBytes() As Byte
pStr = "[color=Red]PAKET NO BURAYA GELECEK[/color]" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes[/b][/b]

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:: [b][b]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([color=Red]KO_HANDLE[/color], 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
WriteByteArray BytesAddr, pPacket, pSize
ConvHEX2ByteArray "60A1" & AlignDWORD([color=Red]KO_PTR_CHR[/color]) & "8B0D" & AlignDWORD([color=Red]KO_PTR_CHR[/color]) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD([color=Red]KO_SND_FNC[/color]) & "FFD761C3", pCode
ExecuteRemoteCode pCode, True
End If
VirtualFreeEx [color=Red]KO_HANDLE[/color], BytesAddr, 0, MEM_RELEASE&
End Function[/b][/b]

Yukarıda kırmızı olarak işaretlediğmi yerleri kendi modulunuze göre ayarlayın!