How to Deakt - Akt Taskman in VB [German by me]
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
Zitat:
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
Zitat:
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
Zitat:
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
Zitat:
Private Sub Command3_Click()
frm_main.Hide
'versteckt die Hauptform
frm_about.Show
' Zeigt die About Form
End Sub
Command 4
Zitat:
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
