Beem , hoje estou akie para ensinar aos Membros Cheat Combat Arms como fazer um Injetor Avançado.
Beem vamos Lá :
1°Os que estao aprendendo tem que ter o progama chamado Microsoft Visual Basic 2008 , ora quem nao tem esse progama o baixei :[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] .
Apos baixar e intalar , abra ele e depois vai em FILEescritp "lá em cima" e depois vai em New Project e dê um nome a o seu projeto .
Pra fazer o seu injetor temos os seguintes componentes :
5 Buttons - 1 Label - 1 TextBox - 1ListBox - 1 Timer - 1 OpenFileDialog
Depois troquem os nomes dos botões para :
-
B1-Limpar Selecionado -B2-Limpar Processo -B3-Limpar Lista -B4-Procurar - B5-Injetar .
Agora no ListBox ponha o nome para DLLs
No OpenFileDialog1 na propriedades vai tar MultiSelect :False mude o conteudo para MultiSelect :True .
Na forma clik nela 2 vezes e depois apaga tudo e coloca esse codigo :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
OpenFileDialog1.ShowDialog()
Dim FileName As String
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf(""))
Dim DllFileName As String = FileName.Replace("", "")
Me.Dlls.Items.Add(DllFileName)
End Sub
Private Function GetAsyncKeyState(ByVal vKey As Integer) As Short
If GetAsyncKeyState(Keys.F12) Then
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")
Else
Timer1.Stop()
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
' If CheckBox1.Checked = True Then
'Me.Close()
'Else
' End If
End If
Else
End If
End If
End Function
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")
Else
Timer1.Stop()
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
' If CheckBox1.Checked = True Then
'Me.Close()
'Else
End If
Else
End If
End Sub
End Class
Agora só salvar e compilar o seu projeto criado e para injetar clik F12.
Se Gostou agradeça , e eu fikria muito feliz se gostassem abrç =D .
Beem vamos Lá :
1°Os que estao aprendendo tem que ter o progama chamado Microsoft Visual Basic 2008 , ora quem nao tem esse progama o baixei :[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] .
Apos baixar e intalar , abra ele e depois vai em FILEescritp "lá em cima" e depois vai em New Project e dê um nome a o seu projeto .
Pra fazer o seu injetor temos os seguintes componentes :
5 Buttons - 1 Label - 1 TextBox - 1ListBox - 1 Timer - 1 OpenFileDialog
Depois troquem os nomes dos botões para :
-
B1-Limpar Selecionado -B2-Limpar Processo -B3-Limpar Lista -B4-Procurar - B5-Injetar .
Agora no ListBox ponha o nome para DLLs
No OpenFileDialog1 na propriedades vai tar MultiSelect :False mude o conteudo para MultiSelect :True .
Na forma clik nela 2 vezes e depois apaga tudo e coloca esse codigo :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
OpenFileDialog1.ShowDialog()
Dim FileName As String
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf(""))
Dim DllFileName As String = FileName.Replace("", "")
Me.Dlls.Items.Add(DllFileName)
End Sub
Private Function GetAsyncKeyState(ByVal vKey As Integer) As Short
If GetAsyncKeyState(Keys.F12) Then
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")
Else
Timer1.Stop()
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
' If CheckBox1.Checked = True Then
'Me.Close()
'Else
' End If
End If
Else
End If
End If
End Function
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")
Else
Timer1.Stop()
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
' If CheckBox1.Checked = True Then
'Me.Close()
'Else
End If
Else
End If
End Sub
End Class
Agora só salvar e compilar o seu projeto criado e para injetar clik F12.
Se Gostou agradeça , e eu fikria muito feliz se gostassem abrç =D .