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

نسخة كاملة : طريقة اغلاق جوجل كروم بالفيجوال بيسك
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
هل من الممكن أن أحصل على طريقة لأجل إغلاق قوقل كروم عند الضغط على button 


Huh Huh Huh Huh
هذا مثال بسيط يقوم بغلق نوافذ الكروم و الملاحظات و صفحات الفيرفوكس 
يمكنك فقط تغيير او اضافة او حذف البرامج التي تود اغلاقها  من خلال هذا السطر 

"chrome", "notepad", "firefox"


كود :
        Dim lstOprograms As String() = {"chrome", "notepad", "firefox"}
        '' etc. Until you have all your program names
        For Each prog As Process In Process.GetProcesses
            For Each nm As String In lstOprograms
                If prog.ProcessName = nm Then
                    prog.Kill()
                    Exit For
                End If
            Next
        Next