Foro de elhacker.net

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....

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


Eliminar todos los archivos dentro de una carpeta


Eliminar carpeta con subcarpetas y demás contenido


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

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

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.