[سعود]

كود :

For Each process2 As Process In Process.GetProcesses
            process2.CloseMainWindow()
        Next

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

[سعود]

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

كود :

[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

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

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

[الشاكي لله]

في وندوز 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 


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

[سعود]

إقتباس :

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

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

[سعود]

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

[الشاكي لله]

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

:o:o:o:oo:o:

[سعود]

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