slazan

teşekkürler

konu güncel

Çoğu servera Paket atan Botum,Bazı serverlarda Pointer güncel olmasına,Handle almasına rağmen paket atmıyor.
işin enteresan yanı paket attıgımda server taraflı tepkide Vermiyor (oyundan atma,Dc verme,Bug report vs vs).

Paket send fonksiyonum Şu şekilde;

Public Sub Paket(pStr As String)
Dim pbytes() As Byte
ConvHEX2ByteArray pStr, pbytes
SendPacket pbytes
End Sub

Function SendPacket(pPacket() As Byte)
Dim ThreadPtr As Long, APIAdr As Long
APIAdr = GetProcAddress(GetModuleHandle("kernel32.dll"), "GetCurrentThreadId")
Dim psize As Long
Dim pCode() As Byte
' o boş qnq bunada exeden baglanıom once koxp sonra oyun acıom handle alması ıcın
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 "608B0D" & AlignDWORD(KO_PTR_PKT) & "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

Buda ExecuteRemoteCode fonksiyonu;

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)
SE.bInheritHandle = False
FuncPtr = &H9A7AA6
ExecuteRemoteCode = 0
If FuncPtr = 0 Then
FuncPtr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
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

teşekkürler

teşekkürler

teşekkürler

teşekkürler

teşekkürler

teşekkürler

teşekkürler

teşekkürler

teşekkürler

teşekkürler

Eline sağlık

teşekkürler

teşekkürler

teşekkürler