11-03-13, 10:34 PM
الاسم dlls4inj
هذا هو الكود
جربت تسميه الكثير من الادوات على نفس الاسم لم ينفع ما هو الحل ؟
هذا هو الكود
كود :
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Dim flag As Boolean
If flag Then
If (Me.ListBox1.Items.Count > 0) Then
If (Me.TextBox1.Text <> "") Then
If (Process.GetProcessesByName(Me.TextBox1.Text).Length = 0) Then
Interaction.MsgBox((Me.TextBox1.Text & ".exe is not running."), MsgBoxStyle.Critical, "Error")
Else
Me.Timer12.Stop()
Dim id As Integer = Process.GetProcessesByName(Me.TextBox1.Text)(0).Id
Dim pair As KeyValuePair(Of String, String)
For Each pair In Me.dlls4inj
Me.Inject(id, pair.Value)
Next
End If
Else
Interaction.MsgBox("You haven't Typed the process's name.", MsgBoxStyle.Critical, "Error")
End If
Else
Interaction.MsgBox("You need to select a file to inject.", MsgBoxStyle.Critical, "Error")
End If
End If
End Sub