03-10-12, 01:51 AM
كاتب الموضوع : جهاد العريقي
لإيقاف عمل أي تطبيق
لمعرفة العمليات الحالية ووضعها في ListBox
لاخذ معلومات عن التطبيقات
تغيير 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]"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]