Hallo,
ich erkläre euch kurz wie ein taskman deakt - aktivierung in VB ausehen würde:

BY KING OF CHAOS!!!!!!!!!!!


Ich hab folgende Sachen eingebaut:
die Frm_main (haupt form)
die frm_about ( die seite n der steht wers gemacht hat und etwas über das programm | muss nicht drinnen sein)

Command1 | Der Ausfrühen Button
Command2 | Öffnet Free-hack.com
Command3 | Der About Button
Command4 | Beendet das programm
txt_eingabe | Hier wird mit 1 Der Taskman deakt mit 2 der Taskman akt
lbl_beschreibung | hier ist eine beschreibung ^^



Command1

Private Sub Command1_Click()
Dim Taskman As Integer
'dürfte selbsterklärend sein

On Error GoTo 10
'seht ihr gleich

Taskman = txt_eingabe
' taskman ist die bedeutung für txt_eingabe die als Integer ist

If Taskman = "1" Then
' die If anweisung ^^ wenn Taskman (also wenn in
'txt_eingabe 1 Steht dann ^^

Set reg = CreateObject("Wscript.shell")
'greift er in die Reg ein und schreibt den key DisableTaskMgr auf 1 wäre also True

reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
MsgBox ("Taskman Erfolgreich deaktiviert :-)")
' Gibt danach eine msgbox aus mit dem textTaskman Erfolgreich deaktiviert :-)

End If
'beendet die If anfrage

If Taskman = "2" Then
'wie vorher bloss die aktion wird ausgeführt
'wenn dort 2 steht

Set reg = CreateObject("Wscript.shell")
'wie vorher alles gleich bloss
'das er das ganze auf 0 stellt das heist taskman deaktivieren 0 = false
reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD" 'aktiveren
MsgBox ("Taskman Wieder Aktiviert")
' Msgbox mit dem text Taskman wieder aktiviert

10
MsgBox "Bitte geben sie eine Zahl ein!"
'das war für den on Error go to 10
' Wenn also nix davon eingegeben wird gibt er den text aus der msgbox
'aus


End If

End Sub

Command2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function ExitWindows Lib "user32" Alias _
"ExitWindowsEx" (ByVal dwOptions As Long, ByVal _
dwReserved As Long) As Long
'is für das seiten öffnen gedacht
Private Sub Command2_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.free-hack.com", "", App.Path, 1) ' öffnet die seite www.free-hack.com
End Sub
Command 3

Private Sub Command3_Click()
frm_main.Hide
'versteckt die Hauptform
frm_about.Show
' Zeigt die About Form

End Sub

Command 4

Private Sub Command4_Click()
MsgBox ("(C) by King of Chaos")
'zeigt vor dem beenden noch den text ^^

End
'beendet das Program mit einem klick
End Sub