dll yı resourcese ekle yani şöyle diyeyim telefondayım bilgisayar olsa kodları verırdım if button1 click resourcesteki dll inject yani mantık bu mesela csgo hılesı resourcesdekı ad dll i test.dll eger ınject butonuna basınca direk csgo.exe inject
PC ye geçtiğin zaman kodları verirsen daha iyi anlarım biraz yeniyimde programlamayı tam bilmiyorum.
Teşekkürler bunu deniyeceğim
Ben bunu denedim fakat program hata veriyor "Uygulama Düzgün Olarak Başlayılamadı" diye. Yanlı çalışmadı
bunu bende denedim kesinlikle başarılıEkran görüntüsü alabilir misiniz lütfen?
Post automatically merged:
Burada adım adım oluşturma olasılığı vardır, belki daha da yardımcı olabilir
Imports System.IO
Public Class Form1
Dim dlls As New Dictionary(Of String, String)
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Integer, ByVal lpAddress As Integer, ByVal dwSize As Integer, ByVal flAllocationType As Integer, ByVal flProtect As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As UInteger) As Boolean
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Integer, ByVal lpProcName As String) As Integer
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Integer
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Integer, ByVal lpThreadAttributes As Integer, ByVal dwStackSize As Integer, ByVal lpStartAddress As Integer, ByVal lpParameter As Integer, ByVal dwCreationFlags As Integer, ByVal lpThreadId As Integer) As Integer
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Integer, ByVal dwMilliseconds As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Private Function Inject(ByVal pID As Integer, ByVal dllLocation As String) As Boolean
Dim hProcess As Integer = OpenProcess(&H1F0FFF, 1, pID)
If hProcess = 0 Then Return False
Dim dllBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(dllLocation)
Dim allocAddress As Integer = VirtualAllocEx(hProcess, 0, dllBytes.Length, &H1000, &H4)
If allocAddress = Nothing Then Return False
Dim kernelMod As Integer = GetModuleHandle("kernel32.dll")
Dim loadLibAddr = GetProcAddress(kernelMod, "LoadLibraryA")
If kernelMod = 0 OrElse loadLibAddr = 0 Then Return False
WriteProcessMemory(hProcess, allocAddress, dllBytes, dllBytes.Length, 0)
Dim libThread As Integer = CreateRemoteThread(hProcess, 0, 0, loadLibAddr, allocAddress, 0, 0)
If libThread = 0 Then
Return False
Else
WaitForSingleObject(libThread, 5000)
CloseHandle(libThread)
End If
CloseHandle(hProcess)
Return True
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim TempFile As String = My.Computer.FileSystem.GetTempFileName
IO.File.WriteAllBytes(TempFile, My.Resources.dllnizinadi) ' Resources kısmına bir dll ekleyin ondan sonra .dll olmadan dosyanızın adını yazın yoksa hata verir açılmaz
Dim TargetProcess As Process() = Process.GetProcessesByName("hl")
If TargetProcess.Length = 0 Then
Else
Dim ProcID As Integer = Process.GetProcessesByName("hl")(0).Id ' hl kısmına oyununuzun process adınızı yazın mesela zulu wolftü için yapacaksanızda wolftü yazın
Timer1.Stop()
Inject(ProcID, TempFile)
Me.Close()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start() 'Burası Button 1 E tıklayınca Load Etmesi İçin Gerek
End Sub
End Classknk olmadıbi tşk hak ederim inş
Visual Basic:Imports System.IO Public Class Form1 Dim dlls As New Dictionary(Of String, String) Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Integer, ByVal lpAddress As Integer, ByVal dwSize As Integer, ByVal flAllocationType As Integer, ByVal flProtect As Integer) As Integer Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As UInteger) As Boolean Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Integer, ByVal lpProcName As String) As Integer Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Integer Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Integer, ByVal lpThreadAttributes As Integer, ByVal dwStackSize As Integer, ByVal lpStartAddress As Integer, ByVal lpParameter As Integer, ByVal dwCreationFlags As Integer, ByVal lpThreadId As Integer) As Integer Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Integer, ByVal dwMilliseconds As Integer) As Integer Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer Private Function Inject(ByVal pID As Integer, ByVal dllLocation As String) As Boolean Dim hProcess As Integer = OpenProcess(&H1F0FFF, 1, pID) If hProcess = 0 Then Return False Dim dllBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(dllLocation) Dim allocAddress As Integer = VirtualAllocEx(hProcess, 0, dllBytes.Length, &H1000, &H4) If allocAddress = Nothing Then Return False Dim kernelMod As Integer = GetModuleHandle("kernel32.dll") Dim loadLibAddr = GetProcAddress(kernelMod, "LoadLibraryA") If kernelMod = 0 OrElse loadLibAddr = 0 Then Return False WriteProcessMemory(hProcess, allocAddress, dllBytes, dllBytes.Length, 0) Dim libThread As Integer = CreateRemoteThread(hProcess, 0, 0, loadLibAddr, allocAddress, 0, 0) If libThread = 0 Then Return False Else WaitForSingleObject(libThread, 5000) CloseHandle(libThread) End If CloseHandle(hProcess) Return True End Function Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim TempFile As String = My.Computer.FileSystem.GetTempFileName IO.File.WriteAllBytes(TempFile, My.Resources.dllnizinadi) ' Resources kısmına bir dll ekleyin ondan sonra .dll olmadan dosyanızın adını yazın yoksa hata verir açılmaz Dim TargetProcess As Process() = Process.GetProcessesByName("hl") If TargetProcess.Length = 0 Then Else Dim ProcID As Integer = Process.GetProcessesByName("hl")(0).Id ' hl kısmına oyununuzun process adınızı yazın mesela zulu wolftü için yapacaksanızda wolftü yazın Timer1.Stop() Inject(ProcID, TempFile) Me.Close() End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Start() 'Burası Button 1 E tıklayınca Load Etmesi İçin Gerek End Sub End Class
