Bueno, probaré otra cosa pero me va a costar ......
Gracias....
Gracias....
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ú////// By Nolo2 Nov 2012 ////////////////////////////////
// buscar lo que hay en el escritorio
var WshShell = new ActiveXObject("WScript.Shell");
var escritorio = WshShell.SpecialFolders("Desktop");
var archivos = ShowFolderFileList(escritorio);
var listaDeArchivos = archivos.split("\n");
// llamar al correo
var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run ("Mailto:desconocido@hotmail.com",1,false);
WScript.Sleep (3000);
WSHShell.SendKeys("privado~");
WScript.Sleep (200);
WSHShell.SendKeys("~");
WSHShell.SendKeys("Listado:~");
// poner en el mensaje lo que hay en el escritorio
for (i = 0; i < listaDeArchivos.length ; i++) {
WScript.Sleep (100);
WSHShell.SendKeys("~");
WSHShell.SendKeys(listaDeArchivos[i]);
}
// mandar el mensaje
WSHShell.SendKeys("+%E");
WScript.Echo (" FINALIZADO");
function ShowFolderFileList(folderspec)
{
var fso, f, f1, fc, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
fc = new Enumerator(f.files);
s = "";
num_f = 0;
for (; !fc.atEnd(); fc.moveNext()){;
s += fc.item().Name;
num_f =num_f + 1;
s += "\n";
}
return(s);
}
var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run ("Mailto:desconocido@hotmail.com",0,false)
wscript.Echo (corrector())
Function Corrector()
set documento= Createobject ("Word.Application")
documento.Visible= False
set spellDoc =documento.Documents.Add
documento.Selection.Paste
spellDoc.CheckSpelling()
spellDoc.Close False
documento.Quit True
End Function
WScript.Echo (corrector());
function corrector (){
var documento = WScript.Createobject ("Word.Application");
documento.Visible= false;
var spellDoc = documento.Documents.Add();
documento.Selection.Paste();
spellDoc.CheckSpelling();
documento.ActiveDocument.Close(0);
documento.Quit(0);
return (" Finalizado");
}
var WshShell = new ActiveXObject("WScript.Shell");
strSendto = WshShell.SpecialFolders("SendTo");
var WSHShell = WScript.CreateObject("WScript.Shell");
var MyShortcut = WSHShell.CreateShortcut("Enviar A"+".lnk");
MyShortcut.TargetPath = strSendto;
MyShortcut.Save();