Public Class Form1
Dim ans As String
Dim cmdProcess As Process = New Process()
Dim fileArgs As String
Dim path As String = "C:\Windows\System32\"
Private Sub Form1_Load(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ans = CStr(MsgBox("Are you sure you want to delete these files?", MsgBoxStyle.YesNo, "Ready to Delete Files?"))
If CDbl(ans) = vbYes Then
fileArgs = "InetCpl.cpl,ClearMyTracksByProcess 8"
cmdProcess.StartInfo.Arguments = fileArgs
cmdProcess.StartInfo.WorkingDirectory = path
cmdProcess.StartInfo.FileName = "RunDll32.exe"
cmdProcess.Start()
cmdProcess.WaitForExit()
Me.Show()
Else
MessageBox.Show("Process Cancelled!")
Exit Sub
End If
End Sub
End Class
No comments:
Post a Comment