منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ما هذه ألاداة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الاسم 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
جربت تسميه الكثير من الادوات على نفس الاسم لم ينفع ما هو الحل ؟
اخى هذه مش اداة
اضف هذا الكود وسيتم حل المشكله انشاء الله

كود :
Dim dlls4inj As New Dictionary(Of String, String)