[اليوم السابع]

اريد غلق تطبيق جوجل كروم 
جربت اكواد كير ولكن لم تعمل

[asmarsou]

(09-04-21, 07:02 PM)اليوم السابع كتب : اريد غلق تطبيق جوجل كروم 
جربت اكواد كير ولكن لم تعمل

اخي الكريم ابشر ... فبعد بحث كبير تمكنت من ايجاد كود سيحل اشكالك ان شاء الله تعالى
ولكي تعم الفائدة للجميع ساضع الكود كما وجدته و ما قمت بالتعديل عليه
وهو كالتالي

كود :

Imports System.Diagnostics
Public Class Form1
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim AllProcesses() As Process = Process.GetProcesses
       For Each process In AllProcesses
           If (process.MainWindowTitle <> "") Then
               Dim s As String = process.ProcessName.ToLower
               If ((s = "iexplore") _
                OrElse ((s = "iexplorer") _
                    OrElse ((s = "chrome") _
                       OrElse (s = "firefox")))) Then
                   process.Kill()
               End If

           End If

       Next
       'هذا البوتن لغلق كل المتصفحات المفتوحة
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim AllProcesses() As Process = Process.GetProcesses
       For Each process In AllProcesses
           If (process.MainWindowTitle <> "") Then
               Dim s As String = process.ProcessName.ToLower
               If ((s = "chrome")) Then

                   process.Kill()
               End If

           End If

       Next
       'وهذا لغلق الكروم فقط
   End Sub
End Class

[اليوم السابع]

(09-04-21, 11:38 PM)asmarsou كتب :

(09-04-21, 07:02 PM)اليوم السابع كتب : اريد غلق تطبيق جوجل كروم 
جربت اكواد كير ولكن لم تعمل

اخي الكريم ابشر ... فبعد بحث كبير تمكنت من ايجاد كود سيحل اشكالك ان شاء الله تعالى
ولكي تعم الفائدة للجميع ساضع الكود كما وجدته و ما قمت بالتعديل عليه
وهو كالتالي

كود :

Imports System.Diagnostics
Public Class Form1
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim AllProcesses() As Process = Process.GetProcesses
       For Each process In AllProcesses
           If (process.MainWindowTitle <> "") Then
               Dim s As String = process.ProcessName.ToLower
               If ((s = "iexplore") _
                OrElse ((s = "iexplorer") _
                    OrElse ((s = "chrome") _
                       OrElse (s = "firefox")))) Then
                   process.Kill()
               End If

           End If

       Next
       'هذا البوتن لغلق كل المتصفحات المفتوحة
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim AllProcesses() As Process = Process.GetProcesses
       For Each process In AllProcesses
           If (process.MainWindowTitle <> "") Then
               Dim s As String = process.ProcessName.ToLower
               If ((s = "chrome")) Then

                   process.Kill()
               End If

           End If

       Next
       'وهذا لغلق الكروم فقط
   End Sub
End Class

انت راجل محترم

[asmarsou]

(10-04-21, 04:36 AM)اليوم السابع كتب :

(09-04-21, 11:38 PM)asmarsou كتب :

(09-04-21, 07:02 PM)اليوم السابع كتب : اريد غلق تطبيق جوجل كروم 
جربت اكواد كير ولكن لم تعمل

اخي الكريم ابشر ... فبعد بحث كبير تمكنت من ايجاد كود سيحل اشكالك ان شاء الله تعالى
ولكي تعم الفائدة للجميع ساضع الكود كما وجدته و ما قمت بالتعديل عليه
وهو كالتالي

كود :

Imports System.Diagnostics
Public Class Form1
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim AllProcesses() As Process = Process.GetProcesses
       For Each process In AllProcesses
           If (process.MainWindowTitle <> "") Then
               Dim s As String = process.ProcessName.ToLower
               If ((s = "iexplore") _
                OrElse ((s = "iexplorer") _
                    OrElse ((s = "chrome") _
                       OrElse (s = "firefox")))) Then
                   process.Kill()
               End If

           End If

       Next
       'هذا البوتن لغلق كل المتصفحات المفتوحة
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim AllProcesses() As Process = Process.GetProcesses
       For Each process In AllProcesses
           If (process.MainWindowTitle <> "") Then
               Dim s As String = process.ProcessName.ToLower
               If ((s = "chrome")) Then

                   process.Kill()
               End If

           End If

       Next
       'وهذا لغلق الكروم فقط
   End Sub
End Class

انت راجل محترم

الله يبارك فيك .... نحن هنا ليساعد بعضنا البعض ....وفقك الله

[ابو روضة]

وهذا أيضاً كود مختصر يقوم بغلق كروم...

كود :

For Each Pross In Process.GetProcessesByName("chrome")
           Pross.Kill()
       Next

[اليوم السابع]

(10-04-21, 03:19 PM)ابو روضة كتب :

وهذا أيضاً كود مختصر يقوم بغلق كروم...

كود :

For Each Pross In Process.GetProcessesByName("chrome")
           Pross.Kill()
       Next

الله يبارك لك يا كبير