# Hoşgeldin ziyaretçi. veya KaydolParolanı mı unuttun ?

(istek) VB6'da Paket Gönderme

  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ii


#1
XignCode
Yeni Üye
Üye Grubu
Yorumları: 46 Konuları: 12 Kayıt Tarihi: 24-03-2016 Rep Puanı: 0
Teşekkürler: 12
6 mesajına 6 kez teşekkür edildi.

Kod:
Function SendPacket(pPacket() As Byte)
On Error Resume Next
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
    Hex2Byte "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_PTR_SND) & "FFD761C3", pCode
    ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function

Kod:
Function ExecuteRemoteCode(pCode() As Byte, Optional WaitExecution As Boolean = False) As Long
Dim hThread As Long, ThreadID As Long, ret As Long
Dim FuncPtr As Long
Dim SE As SECURITY_ATTRIBUTES
SE.nLength = Len(SE) 'TheProLive
SE.bInheritHandle = False
FuncPtr = &HD00200
ExecuteRemoteCode = 0
If FuncPtr = 0 Then
FuncPtr = &HD00200
End If
If FuncPtr <> 0 Then
   WriteByteArray FuncPtr, pCode, UBound(pCode) - LBound(pCode) + 1
   hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, 0, ByVal FuncPtr, 0&, 0&, ThreadID)
   If hThread Then
   WaitForSingleObject hThread, &HFFFF
   ExecuteRemoteCode = ThreadID
   End If
End If
CloseHandle hThread
End Function

pointerları güncellediğim halde paket atmada sıkıntı yaşıyorum yardım edebilecek varsa sevinirim.




Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Oto Kutu (İstek) sefil 0 70 16-09-2020, Saat: 15:35
Son Yorum: sefil
  VB6'da Paket Gönderme Satın Alınacaktır absinthe55 8 434 26-05-2020, Saat: 14:34
Son Yorum: AdminAdam
  Oto Görev Botu Vb6 Yardim & istek) Rob_Zombie 5 997 24-05-2020, Saat: 05:45
Son Yorum: Rivx35
  (istek) slot kısıtlama rapstar_bg 1 156 23-05-2020, Saat: 00:03
Son Yorum: kaanxxxx
  ms girmeden exp alma paketi(istek) rapstar_bg 0 155 21-05-2020, Saat: 11:04
Son Yorum: rapstar_bg


Hızlı Menü:


Konuyu Okuyanlar:
1 Ziyaretçi