kshadow22

Clearing IE Values With Visual Basic 2008

Mar 26th, 2014
96
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Internet_Explorer_Editor
  2.  
  3.     Private Sub Internet_Explorer_Editor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.     End Sub
  6.     Sub Clear_Temp_Files()
  7.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8") 'if this one does not work-then add a space after the 8
  8.    End Sub
  9.  
  10.     Sub Clear_Cookies()
  11.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2")
  12.     End Sub
  13.  
  14.     Sub Clear_History()
  15.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1")
  16.     End Sub
  17.  
  18.     Sub Clear_Form_Data()
  19.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16")
  20.     End Sub
  21.  
  22.     Sub Clear_Saved_Passwords()
  23.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32")
  24.     End Sub
  25.  
  26.     Sub Clear_All()
  27.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255")
  28.     End Sub
  29.  
  30.     Sub Clear_Clear_Add_ons_Settings()
  31.         Shell("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351")
  32.     End Sub
  33.  
  34.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  35.         Clear_Temp_Files()
  36.     End Sub
  37.  
  38.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  39.         Clear_Cookies()
  40.     End Sub
  41.  
  42.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  43.         Clear_History()
  44.     End Sub
  45.  
  46.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  47.         Clear_Form_Data()
  48.     End Sub
  49.  
  50.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  51.         Clear_Saved_Passwords()
  52.     End Sub
  53.  
  54.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  55.         Clear_All()
  56.     End Sub
  57.  
  58.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  59.         Clear_Clear_Add_ons_Settings()
  60.     End Sub
  61. End Class
RAW Paste Data