Mensajes

De todas maneras sería bueno poder hacerlo con VB... A ver sí alguien se anima con el código xD lo de los disketes no es cien por ciento efectivo... Muy pocos cibers con deep freeze ocupan disketera xD

P.D.: Pon los creditos dequi8en a realizado este codigo ya quer recuerdo haberlo visto en otra pagina ya hace tiempo. por cierto ponlo full ya que se supone que se compi8laba como ".scr" o algo asi y es un salvapantallas a como lo recuerdo.

Para compilarlo como ".scr" solo compilas el ".exe" y le cambias la extension a ".scr" y listo tu fondo de pantalla listo para usar xDDD

Si la que dices es la de navidad, pues si.. pero es por invitacion, y ya se nos acabaron
suerte para el proximo año

¬¬

Osea que los blogs mienten?

El FDF lo que hace es reestablecer la contraseña a 0 con eso puedes descongelar e instalas lo que quieres. xD tú keylogger... Eso sí sí lo haces y dejas descongelado no tardarán en darse cuenta y formatear o apagar el equipo

xD no ese es el de noviembre, el que digo yo es para diciembre y ahí es para todos

Creo que el-brujo iba a hacer un azado para todo el foro en diciembre 2008

Eso es lo que se rumorea en diversos blogs de azados...

www.blog.azados.org/el-brujo-invita-a-gran-azado-en-diciembre-2008-t43796.html

Saludos... A ver que pasa xD

Toma un regalito para que te inspires:

http://psdtuts.com/articles/web/54-mind-blowing-digital-paintings


Saludos

Me encanta el arte

Te daré un consejo:

Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "F:\autorun.inf"

Esta linea....mejor cambiarla porque usas visual basic script. El visual basic tiene su propio comando para eliminar ficheros...busca información sobre "kill". Por otra parte,uses script o no, si el fichero está en uno no lo borrará...para ello deberias cerrar el proceso antes de eliminar el archivo.

Saludos.

Pero como podria estar en uso el aurorun.inf?

El kill seria

Kill ("C:\autorun.inf") no?
voy a leer un poquito mas xDDD

De todas maneras al final quedo asi:

con el attrib incluido, voy a ver como va con el kill. Gracias!

Hola... un amigo me dijo que este programa no borraba el autorun cuando tenia atributos de "solo lectura" por lo que hay que quitarselos xDDDDD.

Agreguenle la lines que esta en rojo para que quite los atributos al autorun.inf cuando lo encuentre y si quieren ponganle un msg box para que les lance un mensaje cuando borre un autorun para que sepan cuando lo haga y de que unidad, ahi ya estaria listo para cumplir bien la funcion (sin errores)

Con la linea ||||||||||||| SetAttr "c:\\Autorun.inf", vbNormal ||||||||||||| lo que hacen es dejar el archivo con 0 atributos osea quitan "solo lectura", "Oculto", "Sistema" y "Archivo" lo que no entendi es que por ahi alguien puso que habia un atributo de "Super Oculto" xDDD que no lo conozco asi que no esta probado con super oculto ¬¬

Private Sub Timer1_Timer()
On Error GoTo Falso
archivo = GetAttr("C:\autorun.inf")
SetAttr "c:\\Autorun.inf", vbNormal
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "C:\autorun.inf"
Exit Sub
Falso:
End Sub


Saludos!

Código (vb) [Seleccionar] Expandir

Private Sub Form_Activate()
Command2.SetFocus
End Sub

Muchas gracias! sabia que tambien se podia hacer con el SetFocus gracias