تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مالتعديل المطلوب على كود ايقاف التطبيقات لكن يستثني نفسه وتطبيقات النظام
#1
كود :
For Each process2 As Process In Process.GetProcesses
            process2.CloseMainWindow()
        Next


هذا الكود يعمل لكن اريده ان يستثني البرنامج نفسه ايضا لا اريده ان يغلق النظام لانها تظهر رسالة اغلاق النظام.
وفقكم الله لكل مافيه رضاه
الرد }}}
تم الشكر بواسطة:
#2
لقيت كود خطير لاغلاق التطبيقات لا احد يجربه الا بعد التعديل المطلوب بحيث يستثني نفسه والتطبيقات الضرورية للنظام
كود :
[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

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

اتمنى اعرف كود استثناء تطبيقات النظام والتطبيق هذا نفسه
الرد }}}
تم الشكر بواسطة:
#3
في وندوز 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 


مارأيك اخي الكريم
الرد }}}
تم الشكر بواسطة:
#4
إقتباس :
مارأيك اخي الكريم
ماشاء الله تبارك الله
روعة لابعد حد
هذا الشغل الصح
الرد }}}
تم الشكر بواسطة:
#5
والشي اللي اعجبني اكثر المعلومات اللي تضعها بين يدي المشاركة تجعل السائل يفهم ما يتلقاه.
الرد }}}
تم الشكر بواسطة:
#6
سعود كتب :والشي اللي اعجبني اكثر المعلومات اللي تضعها بين يدي المشاركة تجعل السائل يفهم ما يتلقاه.


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جعل النظام يعمل بجميع مقاسات الشاشه Owz 7 528 08-08-23, 07:36 PM
آخر رد: Owz
  [VB.NET] مشكلة عدم الوصول Registry النظام MOHAMMED ALZWI 2 417 15-06-23, 09:01 PM
آخر رد: MOHAMMED ALZWI
  [سؤال] كود معرفة العدد المطلوب للصفحات(هل هو صحيح؟ ام يحتاج تعديل؟) سعود 6 832 02-05-23, 09:21 PM
آخر رد: Taha Okla
  [VB.NET] مشكلة في الوصول لــ Registry النظام MOHAMMED ALZWI 1 300 26-03-23, 12:26 PM
آخر رد: sanyor77
  [VB.NET] ارجو المساعده مرفق سورس كود البرنامج فى المطلوب المساعده فيه hanyeltnen 2 611 04-02-23, 01:30 AM
آخر رد: aljzazy
  مشكلة في تحزيم النظام mohamedassim 1 646 21-08-22, 09:21 AM
آخر رد: Taha Okla
  كود ايقاف صوت المعالج عند التنقل برز enter بسام محمدغانم 2 1,212 23-10-21, 01:32 AM
آخر رد: بسام محمدغانم
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 1,453 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو
  [سؤال] طريطة عمل برنامج تغير اسم قرص النظام Kareem2021 1 1,090 19-06-21, 01:56 PM
آخر رد: aldery
  ايقاف التايمر بعد عمل معين ابو روضة 10 2,801 01-06-21, 05:05 AM
آخر رد: سعود

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


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