wenas alguien tiene idea de como borrar las cookies de internet explorer 7? desde visual basic claro
nadie tiene idea? por que use varias funciones y no me encuentra la carpeta si alguien me ayuda graciass
hola creo que esto te puede servir, este codigo borra el contenido de una carpeta, de modo que pones el directorio en donde esta la carpeta de la cookies, y su contenido sera borrado....
Citarno me encuentra la carpeta si alguien me ayuda graciass
pues la verdad es que yo, tampoco la encuentro, pero si lo dices, porque quieres borrar las cookies, pues... as un click con el boton derecho en el navegador, y as click en propiedades, y despues en general y en el boton eliminar, aqui eliminaras los archivos temporales de internet, las cookies, etc, hay...
Borrar todos los archivos dentro de una carpeta Sub BorrarCarpeta(sPath As String)
Dim sName As String
Dim sFullName As String
Dim Dirs() As String
Dim DirsNo As Integer
Dim i As Integer
If Not Right(sPath, 1) = "\" Then
sPath = sPath & "\"
End If
sName = Dir(sPath & "*.*")
While Len(sName) > 0
sFullName = sPath & sName
SetAttr sFullName, vbNormal
Kill sFullName
sName = Dir
Wend
sName = Dir(sPath & "*.*", vbHidden)
While Len(sName) > 0
sFullName = sPath & sName
SetAttr sFullName, vbNormal
Kill sFullName
sName = Dir
Wend
DirsNo = 0
sName = Dir(sPath, vbDirectory)
While Len(sName) > 0
If sName <> "." And sName <> ".." Then
DirsNo = DirsNo + 1
ReDim Preserve Dirs(DirsNo) As String
Dirs(DirsNo - 1) = sName
End If
sName = Dir
Wend
For i = 0 To DirsNo - 1
BorrarCarpeta (sPath & Dirs(i) & "\")
RmDir sPath & Dirs(i)
Next
End SubEliminar todos los archivos dentro de una carpeta Public Sub DelFilesInDir(DirPath As String, DelDir As Boolean)
On Error GoTo error
Kill DirPath$ & "*.*"
If DelDir = True Then
RmDir DirPath$
End If
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End SubEliminar carpeta con subcarpetas y demás contenido Public Sub CleanAllPath(sPath As String)
Dim sName As String
Dim sFullName As String
' Array used for holding the directories
' ,
' however collection may be used as well
'
Dim Dirs() As String
Dim DirsNo As Integer
Dim i As Integer
If Not Right(sPath, 1) = "\" Then
sPath = sPath & "\"
End If
' clean all files in the directory
sName = Dir(sPath & "*.*")
While Len(sName) > 0
sFullName = sPath & sName
SetAttr sFullName, vbNormal
Kill sFullName
sName = Dir
Wend
sName = Dir(sPath & "*.*", vbHidden)
While Len(sName) > 0
sFullName = sPath & sName
SetAttr sFullName, vbNormal
Kill sFullName
sName = Dir
Wend
' read all the directories into array
DirsNo = 0
sName = Dir(sPath, vbDirectory)
While Len(sName) > 0
If sName <> "." And sName <> ".." Then
DirsNo = DirsNo + 1
ReDim Preserve Dirs(DirsNo) As String
Dirs(DirsNo - 1) = sName
End If
sName = Dir
Wend
For i = 0 To DirsNo - 1
CleanAllPath (sPath & Dirs(i) & "\")
RmDir sPath & Dirs(i)
Next
End Sub
espero que te sirva esto, bye..
Saludos...
la idea es borrarlos desde vb con un commandbutton la carpeta eesta como occulta y desde el vb no me deja vborrarlo alguna idea ? como llamo alguna de esas funciones desde un commandbutton
rubeng
no manches wey te estan dando un codigo para eso no salgas con que las carpetas estan ocultas por que agregando el numero 2 (archivos y carpetas ocultas) 4 (archivos y carpetas del sistema) se soluciona todo
ahora te estan dando un codigo echo al 100% mejor ponte a estudiar VB por que de plano ni usar el copy paste sabes hacer bien
creo que esa fue una de las causas el por las que ya no entro a vb :xD
Na Este esta mas guapo.
ajustado para tus capacidades.
jejejeje
solo Copia y Pega Copy and Paste facil no?
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim WithEvents cmdEliminar As CommandButton
Dim WithEvents dirCarpeta As DirListBox
Dim WithEvents drvUnidad As DriveListBox
Dim WithEvents filArchivo As FileListBox
Dim WithEvents txtTexto As TextBox
Dim WithEvents cmdAbrir As CommandButton
Dim Pito As Integer
Private Sub Form_Load()
Set cmdEliminar = Form1.Controls.Add("VB.CommandButton", "cmdBoton1")
Set dirCarpeta = Form1.Controls.Add("vb.DirListBox", "dirLista")
Set drvUnidad = Form1.Controls.Add("vb.DriveListBox", "drvLista")
Set filArchivo = Form1.Controls.Add("vb.FileListBox", "filLista")
Set txtTexto = Form1.Controls.Add("VB.TextBox", "txtText")
Set cmdAbrir = Form1.Controls.Add("VB.CommandButton", "cmdBoton2")
Cmd
Dir
Drv
Fil
txt
Cmd1
cargaCaptions
Me.Left = 0
Me.Top = 0
Me.Height = 6855
Me.Width = 8655
Me.Caption = "Codigo para Lammer"
Me.BackColor = RGB(0, 0, 0)
End Sub
'<¡---- estas vergas cargan la interface
Private Sub Cmd()
cmdEliminar.Left = 240
cmdEliminar.Top = 5040
cmdEliminar.Height = 735
cmdEliminar.Width = 3735
cmdEliminar.Visible = True
cmdEliminar.Font.Name = "lucida console"
cmdEliminar.Font.Size = 36
End Sub
Private Sub Cmd1()
cmdAbrir.Left = 4560
cmdAbrir.Top = 5040
cmdAbrir.Height = 735
cmdAbrir.Width = 3735
cmdAbrir.Visible = True
cmdAbrir.Font.Name = "lucida console"
cmdAbrir.Font.Size = 36
End Sub
Private Sub Drv()
drvUnidad.Left = 120
drvUnidad.Top = 120
drvUnidad.Width = 3495
drvUnidad.Visible = True
drvUnidad.Font.Name = "lucida console"
drvUnidad.BackColor = vbBlack
drvUnidad.ForeColor = vbGreen
End Sub
Private Sub Dir()
dirCarpeta.Left = 120
dirCarpeta.Top = 480
dirCarpeta.Height = 4365
dirCarpeta.Width = 3495
dirCarpeta.Visible = True
dirCarpeta.Font.Name = "lucida console"
dirCarpeta.BackColor = vbBlack
dirCarpeta.ForeColor = vbGreen
End Sub
Private Sub Fil()
filArchivo.Left = 3720
filArchivo.Top = 120
filArchivo.Height = 4770
filArchivo.Width = 4575
filArchivo.Visible = True
filArchivo.Font.Name = "lucida console"
filArchivo.BackColor = vbBlack
filArchivo.ForeColor = vbGreen
End Sub
Private Sub txt()
txtTexto.Left = 0
txtTexto.Top = 6120
txtTexto.Height = 6855
txtTexto.Width = 8535
txtTexto.Visible = True
txtTexto.BackColor = vbBlack
txtTexto.ForeColor = vbGreen
End Sub
Private Sub cargaCaptions()
cmdEliminar.Caption = "Eliminar"
cmdAbrir.Caption = "Abrir"
txtTexto.Text = "C:\WINDOWS\system32\cmd.exe"
End Sub
' A qui terminan las vergas de la interface-----!>
'<---- a qui empiezan los metodos
Private Sub drvUnidad_Change()
On Error GoTo Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD
dirCarpeta.Path = drvUnidad.Drive
Exit Sub
Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD:
MsgBox "Cabron fijate si ay disco sope", vbQuestion, "Pendejo"
End Sub
Private Sub dirCarpeta_Change()
filArchivo.Path = dirCarpeta.Path
End Sub
Private Sub filArchivo_Click()
Me.Caption = dirCarpeta.Path & filArchivo.FileName
txtTexto.Text = dirCarpeta.Path & "\" & filArchivo.FileName
End Sub
Private Sub cmdAbrir_Click()
Pito = ShellExecute(Me.hwnd, "Open", txtTexto, "", "", 1)
End Sub
Private Sub cmdEliminar_click()
Kill txtTexto
filArchivo.Refresh
End Sub
se ve mal ya cambien los colores de los codigos. :P
jejejeje lo hice en blog de notas xD
ya se lo que se siente programar en C
jajaja es broma
kill("C:Documents and Settings/nombre/Cookies*.*")
Saludos ;D
eso no sirve
la verdad es que eso asi de simple me ha funcionado ! gracias
la verdad es que me e dado cuenta de que la carpeta de las cookies, esta aqui
C:/Documents and Settings/usuario/Cookies
hay estan, lo raro es que aunque pongas las carperas oculta a la vista tampoco aparesen, para que aparezca y puedas acceder a la carpeta, pues teneis, que escribir o pegar el directorio tal como lo muestro, en la barra de direcciones, y berais que hai esta y de ese modo poder acceder a la carpeta....
otra forma de acceder es tambien, desde Inicio/ejecutar, y hay escribid o pegais y tambien de ese modo accederais...
Saludos...by...Dominicano
::::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
Citareso 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. ;D
Saludos.
es asi a veces lo simple resulta mas util q lo complejo...
gracias a todos
salu2
hola ruben te dejo una aplicacion de un codigo encardo de borrar las cookies:
http://www.4shared.com/file/20738434/a787d889/cookie.html (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)
:xD jajaja que complicados están...
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 :P
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 :P
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.