Hoşgeldin ziyaretçi. 
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 FunctionFunction 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| 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 |
|
