تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في كروم الله يبارك لكم
#1
اريد غلق تطبيق جوجل كروم 
جربت اكواد كير ولكن لم تعمل
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#2
(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
الرد
#3
(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 , ابو روضة
#4
(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
انت راجل محترم

الله يبارك فيك .... نحن هنا ليساعد بعضنا البعض ....وفقك الله
الرد
تم الشكر بواسطة: ابو روضة , اليوم السابع
#5
وهذا أيضاً كود مختصر يقوم بغلق كروم...

كود :
For Each Pross In Process.GetProcessesByName("chrome")
           Pross.Kill()
       Next
الرد
تم الشكر بواسطة: Ronald , asmarsou , اليوم السابع , اليوم السابع
#6
(10-04-21, 03:19 PM)ابو روضة كتب :
وهذا أيضاً كود مختصر يقوم بغلق كروم...

كود :
For Each Pross In Process.GetProcessesByName("chrome")
           Pross.Kill()
       Next

الله يبارك لك يا كبير
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم