Camtasia Studio 
Saludos

Saludos
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.
Mostrar Mensajes MenúCita de: HJ ~ en 12 Mayo 2009, 23:11 PM
Pues yo conozco a uno que se hace llamar Fakundo que os estaba tirando la Web cada 2x3 este verano, que me acuerdo yo, y según él, no usaba más de 200 maquinas infectadas.
Pass = "ThePass"
wscript.sleep 300
C:\Documents and Settings\Novlucker\Escritorio>cscript/nologo filnspect.vbs
Uso: cscript.exe/nologo filnspect.vbs [formato] [parametro]
Formato Parametro
/F Ruta Carpeta
/A Ruta Archivo (Conteniendo listado)
/L Lista de archivos separados por coma
/P Análisis de procesos en ejecución (Cualquier valor)
Ejemplos:
cscript.exe/nologo filnspect.vbs /F C:\WINDOWS
cscript.exe/nologo filnspect.vbs /A C:\Archivos.txt
cscript.exe/nologo filnspect.vbs /L "mstsc.exe,syskey.exe,appmgr.dll"
cscript.exe/nologo filnspect.vbs /P -
C:\Documents and Settings\Novlucker\Escritorio>
Cita de: :: SmartGenius :: en 11 Mayo 2009, 05:45 AM
Espero a ver que gran code nos trae el amigo Novlucker, ya mas o menos tengo una idea de como hacer esto en batch puro, ero pues seria mejor implementarlo en VBS.
'by Novlucker
Set objshell = createobject("wscript.shell")
Window = "Mis documentos"
ScriptSign = "by Novlucker"
Pass = "ThePass"
wscript.sleep 300
Do
If objshell.appactivate(Window) = True then
If objshell.appactivate(ScriptSign) = True then
objshell.appactivate(Window)
Do until objshell.appactivate(Window) = True
wscript.sleep 100
Loop
objshell.sendkeys "%{F4}"
objshell.appactivate(ScriptSign)
Else
Set SecScript = objshell.exec("wscript.exe """ & wscript.scriptfullname & """")
Quest = Inputbox("Ingrese contraseña para desbloquear archivo o carpeta",ScriptSign)
If Quest = Pass then
On error resume next
SecScript.terminate
Msgbox "La contraseña ingresada es correcta" & vbnewline & _
vbnewline & "Ya puede acceder" , 64, "Info"
End if
wscript.quit
End if
End if
wscript.sleep 100
Loop