[RaggiTech]

كاتب الموضوع : جهاد العريقي


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

كود :

[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]