دخول

**اليوم السابع** · 09-04-21, 07:02 PM

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

**asmarsou** · 09-04-21, 11:38 PM

(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

**اليوم السابع** · 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

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

**asmarsou** · 10-04-21, 07:44 AM

(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
انت راجل محترم

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

**ابو روضة** · 10-04-21, 03:19 PM

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

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

            Pross.Kill()

        Next

**اليوم السابع** · 13-04-21, 05:31 AM

(10-04-21, 03:19 PM)ابو روضة كتب :
وهذا أيضاً كود مختصر يقوم بغلق كروم...

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

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	سؤال عن توافق الكريستال ريبورت	مصمم هاوي	2	118	09-05-26, 01:23 AM آخر رد: مصمم هاوي
	[VB.NET] سؤال بخصوص الترقيم التلقائي اليدوي	yosif	5	568	16-04-26, 01:05 AM آخر رد: أبو خالد الشكري
	سؤال عن الاسمبلي و النيم سبيس	justforit	0	258	07-12-25, 12:28 AM آخر رد: justforit
	فائدة بخصوص التعامل مع علامات التنصيص مع {سؤال}	justforit	4	562	02-11-25, 11:19 PM آخر رد: justforit
	اين الخطأ فى هذا السطر _ جزاكم الله كل خير	abo ragab	2	838	10-08-25, 03:53 AM آخر رد: abo ragab
	[VB.NET] أين الخطأ فى هذا السطر وجزاكم الله خيرا	abo ragab	2	859	10-07-25, 09:35 PM آخر رد: abo ragab
	[نقاش] سؤال	MetoDas	2	1,658	20-04-25, 10:21 PM آخر رد: Kamil
	[سؤال] سؤال ترددت قبل نشرة:طابعة الباركود لماذا تطبع أكثر من ليبل فارغ قبل السليم	dr.programming	1	943	20-04-25, 09:26 PM آخر رد: Kamil
	مشكلة فى فاتوره كاشير اكرمكم الله	خالد كامل1	5	902	22-02-25, 04:40 PM آخر رد: خالد كامل1
	سؤال لو سمحتم احبتى فى الله	خالد كامل1	4	1,021	09-02-25, 12:02 AM آخر رد: princelovelorn