Aja... eso lo se, de echo ocupo el cedo que es un sistema como el que mencionas y crea un autorun.inf y que haya 1000 programas que hagan lo mismo, no importa ya que es para aprender siempre habra alguien que hizo lo que tu antes no? es bastante dificil crear algo que revolucione el programa lo hice para un amigo que tiene un ciber y que en el servidor mete pendrives para imprimir trabajos que lleva la gente, por lo tanto no es recomendable que se autoejecute nada

De todas maneras perdon si te molesto que posteara un codigo o hiciera un "programa basico" pero todavia no se lo suficiente para crear algo noedoso

Saludos!

Muchas gracias intentaré hacerlo, te lo agradezco

Gracias por el consejo tratare de hacerlo asi para que revise las unidades existentes omitiendo el lector de DVD/CD

No sabes como podria usar una combinacion de letras para volver a hacer visible el form?? osea por ejemplo "Shif + F6" le da verdadero a visible? o algo similar?

La idea original es de carlitos.dll en C

---

El programa revisa cada par de segundos si existe el autorun.inf en las unidades C,D,F y G y si lo encuentra lo borra xD
Para esto puse 4 timers.

---

No soy programador todavia, solo copie un par de lineas desde programas y tutoriales (incluyendo un tuto muy bueno de aqui de VBS y los ordene para que hicieran lo que proponia carlitos.dll

---

Crear

---

4 timers:
Timer1, Timer2, Timer3, Timer4 con interval: 200 para que cada timer revise las unidades seguido

El form ponganlo con visible = False para que no se vea... quiero ver como poder hacerlo visible por medio de una combinacion de teclas pero aun no se hacerlo.

---

Codigo:

---

Private Sub Form_Load()
MsgBox ("El programa se esta ejecutando")
End Sub
 
Private Sub Timer1_Timer()
On Error GoTo Falso
archivo = GetAttr("C:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "C:\autorun.inf"
Exit Sub
Falso:
End Sub
 
Private Sub Timer2_Timer()
On Error GoTo Falso
archivo = GetAttr("D:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "D:\autorun.inf"
Exit Sub
Falso:
End Sub
 
Private Sub Timer3_Timer()
On Error GoTo Falso
archivo = GetAttr("G:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "G:\autorun.inf"
Exit Sub
Falso:
End Sub
 
Private Sub Timer4_Timer()
On Error GoTo Falso
archivo = GetAttr("F:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "F:\autorun.inf"
Exit Sub
Falso:
End Sub

---

Obsevacion:

---

Para cerrarlo por ahora control + Alt + Supr y cierran el proceso

---

Repito son recortes de codigos de tutoriales yo no lo programe en si solo lo ordene ¬¬  asi que no me llamen lammer.... newie tal vez pero lammer no... si lo hacen prometo que me cortare las venas con una cuchara xD

Saludos y arreglenlo, mejorenlo y usenlo para el bien xD

Aqui se los dejo ya compilado http://www.sendspace.com/file/4f45l2

No funciona eso es cierto... lo unico es que muestra la opcion al parecer la debe haber probado en su foro logueado como admin porque de otra forma no funciona


¬¬

Mmm... No resulta... xD
 
Ni siquiera sirve para hackear hotmail xD

Piensa que la reproducción es continúa osea tú tienes que definir cuanto se descargara xD no se sí me explico... Mms está en reproducción constante osea que se bajan de a pedazos... Habría que ver asignándole cierto tamaño al caché no?

Uf sí ni el administrador puede entrar como administrador este exploid está mal xD
 
Amm aunque se me acaba de ocurrir algo lo intentaré mañana y les aviso que tal xD

xD ...
 
Cuanto cuesta la BB? No conseguirás hacerlo gratis por lo menos por imei

A lo que se refiere Carlos es que no por querer que una noticia sea leída le pondremos "xxx Aquí gratis" sí le pusiéramos así a una noticia tendría muchas visitas es seguro pero no de gente interesada en ella sino en el título