مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام (/showthread.php?tid=9910)

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - سعود - 03-08-13

كود :

For Each process2 As Process In Process.GetProcesses

            process2.CloseMainWindow()

        Next

هذا الكود يعمل لكن اريده ان يستثني البرنامج نفسه ايضا لا اريده ان يغلق النظام لانها تظهر رسالة اغلاق النظام.
وفقكم الله لكل مافيه رضاه

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - سعود - 03-08-13

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

كود :

[color=#000000][FONT=arial]Shell("tskill taskmgr")[/FONT][/color]

بدل كلمة taskmgr تضع اسم التطبيق يعني بعد التعديل يكون هكذا

كود :

For Each process2 As Process In Process.GetProcesses         

[color=#000000][FONT=arial]Shell("tskill " & [/FONT][/color]process2.productname[color=#000000][FONT=arial] )[/FONT][/color]

        Next

مثل ماقلت لا احد يجربه لانه يسبب مشكلة وينغلق النظام بطريق الخطا

اتمنى اعرف كود استثناء تطبيقات النظام والتطبيق هذا نفسه

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - الشاكي لله - 03-08-13

في وندوز 7 لن تستطيع الوصول لتطبيقات النظام اذا شغلت البرنامج بدون مسؤول (لذلك التطبيقات العادية ستنغلق فقط)

اما اذا بتشغله كمسؤول سيتم اغلاق التطبيقات العادية وتطبيقات النظام وسيتم اغلاق الجهاز

لذلك افترض ان هذا الكود سينجح ولن يتم اغلاق الجهاز . انا جربته عندي ونجح (بتشغيله كمسوؤل وايضا بدون مسؤول)

لان اعتقد ان تطبيقات النظام لايوجد لها mainwindowhandle

فقمت بالتالي

سي شارب :

PHP كود :

foreach (System.Diagnostics.Process p in System.Diagnostics.Process.GetProcesses())
            {
                try
                {
                    if (p.MainWindowHandle !=IntPtr.Zero & p.MainWindowHandle != this.Handle)
                    {
                        p.Kill();
                    }
                }
                catch { }
                
            } 

فيجوال بيسك :

PHP كود :

For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses()
    Try
        If p.MainWindowHandle <> IntPtr.Zero And p.MainWindowHandle <> Me.Handle Then
            p.Kill()
        End If
    Catch

    End Try
Next 

مارأيك اخي الكريم

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - سعود - 03-08-13

إقتباس :
مارأيك اخي الكريم

ماشاء الله تبارك الله
روعة لابعد حد
هذا الشغل الصح

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - سعود - 03-08-13

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

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - الشاكي لله - 03-08-13

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

:o:o:o:oo:o:

مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام - سعود - 03-08-13

اخي الكريم كان فيه سؤال هل يوجد حل له
[h=1]كيف الى تشغيل او ايقاف اي خدمة لويندوز7[/h]اذا كانت خدمة ما معطلة فانها لا تقبل التشغيل بل لابد من تفعيلها اولا
هل يمكن بفيجوال بيسك تفعيلها؟؟