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

(19-08-18, 04:16 PM)habamix كتب : [ -> ]هو ده الكود انا عامل برنامج بث مباشر للمباريات بستخدم الكود هذا اشهر برامج كل يضغط على اى حاجه فى البرنامج البرامج تقفل ع طول

 Dim u() As Process
    Dim w() As Process
    Private Sub CheckIfRunning()
        u = Process.GetProcessesByName("URLHelper")
        If u.Count > 0 Then
            Process.GetProcessesByName("URLHelper")(0).Kill()
        Else
            ' Process is not running
        End If
        u = Process.GetProcessesByName("UrlChecker")
        If u.Count > 0 Then
            Process.GetProcessesByName("UrlChecker")(0).Kill()
        Else
            ' Process is not running
        End If
        w = Process.GetProcessesByName("Wireshark")
        If w.Count > 0 Then
            Process.GetProcessesByName("Wireshark")(0).Kill()
        Else
            ' Process is not running
        End If

    End Sub