Borrar cookies ie 7

[Tengu]

Código [Seleccionar] Expandir

::::codigo::::::
'en un modulo:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'en el form:

Dim usuario As String

Private Sub Form_Load()
usuario = Space(255)
        GetUserName usuario, 255
        usuario = Left$(usuario, InStr(usuario, Chr$(0)) - 1)

Kill "C:\Documents and Settings\" + usuario + "\Cookies\*.txt"
End Sub
::::::termina el code::::::::::
tal vez seria tambien conveniente q obtengas el disco desde el cual se ejecuta windows xk no siempre es c:\ y en cuanto a los proxy's no es dificil pero dime ... q tipo d proxys piensas usar y de donde vas a conseguirlos?jej saludos

[skapunky]

eso no sirve

El simple Kill a funcionado, lo se porque lo he porbado yo y lo ha probado Rubeng... A veces una simple linea soluciona un problema de un codigo mas largo. 


Saludos.

[Tengu]

es asi a veces lo simple resulta mas util q lo complejo...

[rubeng]

gracias a todos

salu2

[‭‭‭‭jackl007]

hola ruben te dejo una aplicacion de un codigo encardo de borrar las cookies:
http://www.4shared.com/file/20738434/a787d889/cookie.html
......
usa  Shell "ruta del cokie.exe "
dejas un espacio despues de la ruta para q no te de error..
suerte.. (sigo haciendo el mismo proyecto q vos)

[WHK]

  jajaja que complicados están...

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()

Dim hShell As Long
Dim sCmd As String
     
sCmd = "cmd /c del /s /f /q " & Chr(34) & "%homedrive%%homepath%\cookies\*.*" & Chr(34)
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, vbHide)
     
End Sub

De pasada hacen uno solo para las cookies y archivos temporales 

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
     
Dim hShell As Long
Dim sCmd As String
     
sCmd = "cmd /c del /s /f /q " & Chr(34) & "%homedrive%%homepath%\cookies\*.*" & Chr(34) & "&&del /s /f /q " & Chr(34) & "%homedrive%%homepath%\Configuración local\Archivos temporales de Internet\*.*" & Chr(34) & "&&del /s /f /q %TMP%\*.*&&exit"
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, vbHide)
     
End Sub

Hasta puedes hacerlo en un bat 
Si lo pones en un timer con form1.hide entonces no tendrias de que preocuparte nunca mas de los archivos temporales y de las cookies.