تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بعض الاكواد عن Process
#1
كاتب الموضوع : جهاد العريقي


لإيقاف عمل أي تطبيق

كود :
[COLOR=#000000][COLOR=#0000bb]لايقاف مهمه الويندوز ميديا بلاير
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click

        Dim a [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Process
        [/COLOR][color=#007700]For [/color][color=#0000bb]Each a In Process[/color][color=#007700].[/color][COLOR=#0000bb]GetProcesses
            [/COLOR][color=#007700]If [/color][color=#0000bb]a[/color][color=#007700].[/color][color=#0000bb]ProcessName [/color][color=#007700]= [/color][color=#dd0000]"wmplayer" [/color][COLOR=#0000bb]Then
                a[/COLOR][color=#007700].[/color][color=#0000bb]Kill[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
        [/COLOR][COLOR=#0000bb]Next

End Sub  
[/COLOR][/COLOR]

لمعرفة العمليات الحالية ووضعها في ListBox

كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click

        Dim a [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Process
        [/COLOR][color=#007700]For [/color][color=#0000bb]Each a In Process[/color][color=#007700].[/color][COLOR=#0000bb]GetProcesses
            ListBox1[/COLOR][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#0000bb]a[/color][color=#007700].[/color][color=#0000bb]ProcessName[/color][COLOR=#007700])
        [/COLOR][COLOR=#0000bb]Next
        
End Sub  
[/COLOR][/COLOR]

لاخذ معلومات عن التطبيقات

كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Dim MyAssembly [/COLOR][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Reflection[/color][color=#007700].[/color][color=#0000bb]Assembly [/color][color=#007700]= [/color][COLOR=#0000bb]_
             System[/COLOR][color=#007700].[/color][color=#0000bb]Reflection[/color][color=#007700].[/color][color=#0000bb]Assembly[/color][color=#007700].[/color][color=#0000bb]LoadFrom[/color][color=#007700]([/color][color=#0000bb]Application[/color][color=#007700].[/color][color=#0000bb]ExecutablePath[/color][COLOR=#007700])
         [/COLOR][color=#0000bb]Create instance of the form [/color][color=#007700]and [/color][COLOR=#0000bb]show it  
        TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]MyAssembly[/color][color=#007700].[/color][color=#0000bb]GetName[/color][color=#007700]().[/color][COLOR=#0000bb]FullName
End Sub  
[/COLOR][/COLOR]

تغيير Priority للتطبيقات(الاولويه)


كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Dim a [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Process
        [/COLOR][color=#007700]For [/color][color=#0000bb]Each a In Process[/color][color=#007700].[/color][COLOR=#0000bb]GetProcesses
            [/COLOR][color=#007700]If [/color][color=#0000bb]a[/color][color=#007700].[/color][color=#0000bb]ProcessName [/color][color=#007700]= [/color][color=#dd0000]"explorer" [/color][COLOR=#0000bb]Then
                a[/COLOR][color=#007700].[/color][color=#0000bb]PriorityClass [/color][color=#007700]= [/color][color=#0000bb]ProcessPriorityClass[/color][color=#007700]. [/color][COLOR=#0000bb]High
            End [/COLOR][COLOR=#007700]If
        [/COLOR][COLOR=#0000bb]Next
    End Sub  
[/COLOR][/COLOR]


}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] شرح الدوال العامة في كلاس ( Process ) Dev Saeed 4 1,263 06-04-15, 06:54 PM
آخر رد: es5s930
  عمل برنامج تحويل الاكواد من #c لى vb.net وى العكس ™ like VB ™ 10 1,426 23-09-12, 07:26 PM
آخر رد: ™ like VB ™

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


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