Mensajes

Lo tendre en cuenta

Gracias!

OK, gracias...

Tambien puedes centrarte en tu música y olvidarte de todo lo demás , tu guitarra y tú , ...........como si estuvieses tocando en tu cuarto.....y no hubiese nadie más

Eso es facil de decir... 

Salu2!

mmmmmm
ok, pero ten en cuenta que me pongo nervioso hasta tokando delante de mi familia...

sALU2!

Hola a todos, os cuento mi problema a ver s sois capaces de ayudarme:
Toco la guitarra y dentro de un mes voy a dar mi primer concierto...
El problema es que tengo pánico escénico, y no se que hacer, porque cuando estoy nervioso toco FATAL...

Gracias!

Perfecto, no volvera ha pasar...
Gracias tio!

Salu2!

[Karcrack]

La forma mas efectiva y sencilla de proteger tus PenDrives de gusanitos es esta:

Código [Seleccionar] Expandir

http://foro.elhacker.net/seguridad/removable_drive_autorun_protector_rdapcmd-t244992.0.html

El codigo esta bastante mal...
Por ejemplo:

Código [Seleccionar] Expandir

If Not .driveexits Then MsgBox "La unidad no está disponible", vbCritical, "USB Vaccination": Exit Sub
El metodo ".driveexits" no existe
Menos mal que has puesto el "On error resumen next" si no el codigo no funcionaria

AJAJAJJAJAJAJ
No me di cuenta, no se porque me sonaba que se podia poner, y como no me daba error pues ala....
Voy a exhar un vistazo a lo que me has dado
Una vez más :
Gracias Karcrack!

EDITO: Mira, buscando un poco he encontrado esto:
http://www.builderau.com.au/program/windows/soa/VB6-FileSystemObject-helps-in-locating-files/0,339024644,320271410,00.htm

DriveExists:
Checks whether a drive exists
    If fso.DriveExists("D") Then
        MsgBox "Drive D found"
    End If

[si]

Vaya, gracias por la informacion...
Y si, lo descubri yo solo, por accidente, llame un archivo y una carpeta igual y me dio error...
Sabrias decirme otra manera o ejemplo más efctivo de vacunarlo?¿  

Salu2 y gracias!

14?????
Dios mio, tu lo que eres es una marmota tio...

Salu2!

Hola a todos, os explico y más que nada os pido opinion y consejo...
Haciendo pruebas me di cuenta que no puede haber un archivo y una carpeta con el mismo nombre, a raiz de eso se me ocurrio esto:

Código (vb) [Seleccionar] Expandir



Option Explicit

Dim Rec As String, Aut As String
Dim Aviso As Boolean
Dim Fso As Object

Private Sub Command1_Click()
    On Error Resume Next
    With Fso
        If Not .DriveExists Then MsgBox "La unidad no está disponible", vbCritical, "USB Vaccination": Exit Sub
        Rec = Drive1.Drive & "\RECYCLER"
        Aut = Drive1.Drive & "\autorun.inf"
        If .FileExists(Aut) Then .DeleteFile Aut: MsgBox "Archivo sospechoso : " & Aut, vbCritical, "USB Vaccination"
        If .FolderExists(Rec) Then .DeleteFile Rec: MsgBox "Carpeta sospechosa : " & Rec, vbCritical, "USB Vaccination"
        If Not .FolderExists(Aut) Then
            .CreateFolder Aut: SetAttr Aut, vbHidden: SetAttr Aut, vbReadOnly
            MsgBox "Se creara carpeta " & Aut
        Else
            Aviso = True
        End If
        If Not .FileExists(Rec) Then
            Open Rec For Output As #1: Close: SetAttr Rec, vbHidden: SetAttr Rec, vbReadOnly
            MsgBox "Se creara archivo " & Rec
        Else
            Aviso = True
        End If
    End With
    If Aviso Then
        MsgBox "El USB " & Drive1.Drive & " ya estaba vacunado", vbCritical, "USB Vaccination"
    Else
        MsgBox "El USB " & Drive1.Drive & " se ha vacunado con éxito", vbInformation, "USB Vaccination"
    End If
End Sub

Private Sub Form_Load()
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Me.Caption =  "USB Vaccination"
    Command1.Caption = "Vacunar"
End Sub
No se si es una tonteria y no vale para nada, solo se me ocurrio la idea...
Lo llevo usando un tiempo con mi lapiz metiendolo en ordenadores que se que estan infectados y el resultado ha sido bastante bueno... :smiley

Salu2!

[PD]

Ui, interesante, una cosa nueva que se...

PD: Mi solucion era un poco chapucera, ¿no?

Salu2!