ما هذه ألاداة - نسخة قابلة للطباعة

كود :
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