elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Borrar cookies ie 7
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Borrar cookies ie 7  (Leído 6,146 veces)
rubeng

Desconectado Desconectado

Mensajes: 248


Ver Perfil
Borrar cookies ie 7
« en: 11 Julio 2007, 21:42 pm »

wenas alguien tiene idea de como borrar las cookies de internet explorer 7? desde visual basic claro


En línea

rubeng

Desconectado Desconectado

Mensajes: 248


Ver Perfil
Re: Borrar cookies ie 7
« Respuesta #1 en: 12 Julio 2007, 20:41 pm »

nadie tiene idea? por que use varias funciones y no me encuentra la carpeta si alguien me ayuda graciass


En línea

d(-_-)b


Desconectado Desconectado

Mensajes: 1.331



Ver Perfil WWW
Re: Borrar cookies ie 7
« Respuesta #2 en: 12 Julio 2007, 20:57 pm »

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

Citar
no 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

Código:
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 Sub

Eliminar todos los archivos dentro de una carpeta

Código:
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 Sub

Eliminar carpeta con subcarpetas y demás contenido

Código:
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...
« Última modificación: 12 Julio 2007, 21:26 pm por Dominicano » En línea

Max 400; caracteres restantes: 366
rubeng

Desconectado Desconectado

Mensajes: 248


Ver Perfil
Re: Borrar cookies ie 7
« Respuesta #3 en: 13 Julio 2007, 01:14 am »

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
En línea

Red Mx
Rojito
Colaborador
***
Desconectado Desconectado

Mensajes: 3.649


Viva México Cabrones...


Ver Perfil WWW
Re: Borrar cookies ie 7
« Respuesta #4 en: 13 Julio 2007, 02:54 am »

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
En línea

Desarrollar Malware Es Causa De Cancer...
ActiveSheet


Desconectado Desconectado

Mensajes: 389


Feeling Jazz


Ver Perfil WWW
Re: Borrar cookies ie 7
« Respuesta #5 en: 13 Julio 2007, 07:29 am »

Na Este esta mas guapo.

ajustado  para tus capacidades.

jejejeje

solo Copia y Pega Copy and Paste  facil no?

Código
  1. Option Explicit
  2. 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
  3. Dim WithEvents cmdEliminar As CommandButton
  4. Dim WithEvents dirCarpeta As DirListBox
  5. Dim WithEvents drvUnidad As DriveListBox
  6. Dim WithEvents filArchivo As FileListBox
  7. Dim WithEvents txtTexto As TextBox
  8. Dim WithEvents cmdAbrir As CommandButton
  9. Dim Pito As Integer
  10. Private Sub Form_Load()
  11.    Set cmdEliminar = Form1.Controls.Add("VB.CommandButton", "cmdBoton1")
  12.    Set dirCarpeta = Form1.Controls.Add("vb.DirListBox", "dirLista")
  13.    Set drvUnidad = Form1.Controls.Add("vb.DriveListBox", "drvLista")
  14.    Set filArchivo = Form1.Controls.Add("vb.FileListBox", "filLista")
  15.    Set txtTexto = Form1.Controls.Add("VB.TextBox", "txtText")
  16.    Set cmdAbrir = Form1.Controls.Add("VB.CommandButton", "cmdBoton2")
  17.  
  18.    Cmd
  19.    Dir
  20.    Drv
  21.    Fil
  22.    txt
  23.    Cmd1
  24.    cargaCaptions
  25.  
  26.  
  27. Me.Left = 0
  28. Me.Top = 0
  29. Me.Height = 6855
  30. Me.Width = 8655
  31. Me.Caption = "Codigo para Lammer"
  32. Me.BackColor = RGB(0, 0, 0)
  33. End Sub
  34. '<¡---- estas vergas cargan la interface
  35. Private Sub Cmd()
  36. cmdEliminar.Left = 240
  37. cmdEliminar.Top = 5040
  38. cmdEliminar.Height = 735
  39. cmdEliminar.Width = 3735
  40. cmdEliminar.Visible = True
  41. cmdEliminar.Font.Name = "lucida console"
  42. cmdEliminar.Font.Size = 36
  43. End Sub
  44. Private Sub Cmd1()
  45. cmdAbrir.Left = 4560
  46. cmdAbrir.Top = 5040
  47. cmdAbrir.Height = 735
  48. cmdAbrir.Width = 3735
  49. cmdAbrir.Visible = True
  50. cmdAbrir.Font.Name = "lucida console"
  51. cmdAbrir.Font.Size = 36
  52. End Sub
  53. Private Sub Drv()
  54. drvUnidad.Left = 120
  55. drvUnidad.Top = 120
  56. drvUnidad.Width = 3495
  57. drvUnidad.Visible = True
  58. drvUnidad.Font.Name = "lucida console"
  59. drvUnidad.BackColor = vbBlack
  60. drvUnidad.ForeColor = vbGreen
  61. End Sub
  62. Private Sub Dir()
  63. dirCarpeta.Left = 120
  64. dirCarpeta.Top = 480
  65. dirCarpeta.Height = 4365
  66. dirCarpeta.Width = 3495
  67. dirCarpeta.Visible = True
  68. dirCarpeta.Font.Name = "lucida console"
  69. dirCarpeta.BackColor = vbBlack
  70. dirCarpeta.ForeColor = vbGreen
  71. End Sub
  72. Private Sub Fil()
  73. filArchivo.Left = 3720
  74. filArchivo.Top = 120
  75. filArchivo.Height = 4770
  76. filArchivo.Width = 4575
  77. filArchivo.Visible = True
  78. filArchivo.Font.Name = "lucida console"
  79. filArchivo.BackColor = vbBlack
  80. filArchivo.ForeColor = vbGreen
  81. End Sub
  82. Private Sub txt()
  83. txtTexto.Left = 0
  84. txtTexto.Top = 6120
  85. txtTexto.Height = 6855
  86. txtTexto.Width = 8535
  87. txtTexto.Visible = True
  88. txtTexto.BackColor = vbBlack
  89. txtTexto.ForeColor = vbGreen
  90. End Sub
  91. Private Sub cargaCaptions()
  92. cmdEliminar.Caption = "Eliminar"
  93. cmdAbrir.Caption = "Abrir"
  94. txtTexto.Text = "C:\WINDOWS\system32\cmd.exe"
  95. End Sub
  96. ' A qui terminan las vergas de la interface-----!>
  97. '<---- a qui empiezan los metodos
  98. Private Sub drvUnidad_Change()
  99. On Error GoTo Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD
  100.            dirCarpeta.Path = drvUnidad.Drive
  101.    Exit Sub
  102. Por_si_algun_pendejo_no_intenta_cargar_una_unidad_sin_nada_xD:
  103.    MsgBox "Cabron fijate si ay disco sope", vbQuestion, "Pendejo"
  104. End Sub
  105. Private Sub dirCarpeta_Change()
  106.            filArchivo.Path = dirCarpeta.Path
  107. End Sub
  108. Private Sub filArchivo_Click()
  109.            Me.Caption = dirCarpeta.Path & filArchivo.FileName
  110.            txtTexto.Text = dirCarpeta.Path & "\" & filArchivo.FileName
  111. End Sub
  112. Private Sub cmdAbrir_Click()
  113.   Pito = ShellExecute(Me.hwnd, "Open", txtTexto, "", "", 1)
  114. End Sub
  115. Private Sub cmdEliminar_click()
  116. Kill txtTexto
  117. filArchivo.Refresh
  118. End Sub
  119.  

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
« Última modificación: 13 Julio 2007, 07:32 am por ActiveSheet » En línea

skapunky
Electronik Engineer &
Colaborador
***
Desconectado Desconectado

Mensajes: 3.667


www.killtrojan.net


Ver Perfil WWW
Re: Borrar cookies ie 7
« Respuesta #6 en: 14 Julio 2007, 01:47 am »

kill("C:Documents and Settings/nombre/Cookies*.*")

Saludos  ;D
En línea

Killtrojan Syslog v1.44: ENTRAR
ActiveSheet


Desconectado Desconectado

Mensajes: 389


Feeling Jazz


Ver Perfil WWW
Re: Borrar cookies ie 7
« Respuesta #7 en: 14 Julio 2007, 07:46 am »

eso no sirve
En línea

rubeng

Desconectado Desconectado

Mensajes: 248


Ver Perfil
Re: Borrar cookies ie 7
« Respuesta #8 en: 14 Julio 2007, 21:58 pm »

la verdad es que eso asi de simple me ha funcionado ! gracias
En línea

d(-_-)b


Desconectado Desconectado

Mensajes: 1.331



Ver Perfil WWW
Re: Borrar cookies ie 7
« Respuesta #9 en: 15 Julio 2007, 20:56 pm »

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
« Última modificación: 15 Julio 2007, 21:03 pm por Dominicano » En línea

Max 400; caracteres restantes: 366
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Borrar las cookies de session en un WEBBROWSER1 ,COMO?
.NET (C#, VB.NET, ASP)
anikillador 3 6,525 Último mensaje 30 Noviembre 2010, 20:38 pm
por .:Weeds:.
¿como borrar cookies con codigo en java?
Scripting
thedevilini 3 7,095 Último mensaje 27 Enero 2012, 10:42 am
por #!drvy
Por qué conviene borrar las cookies del navegador de vez en cuando
Noticias
wolfbcn 2 2,018 Último mensaje 4 Marzo 2015, 04:07 am
por engel lex
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines