vbs实用软件自造——Windows脚本应用实例

2019-01-16 11:49:42于海丽

omapi = new ActiveXObject( "MAPI.Session" ); 
omapi.Logon( profile );
objFolder = omapi.Inbox;
objMsg = objFolder.Messages;
myMsg = objMsg.GetFirst();
msg = myMsg.Text;
WScript.Echo( msg );
for ( i = 0; i < 10; i++ )
{
myMsg = objMsg.GetNext();
msg = myMsg.Text;
WScript.Echo( msg );
}
这样个脚本可以自动从Outlook Express的收件邮中找出最近收到的10封电子邮件,这样就不需要打开Outlook就可以快速的阅读信件了。


10.查看文件的详细属性
var file = "results.html";
// 创建文件系统并获取文件 
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var f = fso.GetFile( file );
// Access properties and format results. 
var fileinfo = "Results for " + file + "n";
fileinfo += "名称:" + f.Name + "n";
fileinfo += "属性:" + f.Attributes + "n";
fileinfo += "大小:" + f.Size + " Bytesn";
fileinfo += "创建日期:" + f.DateCreated + "n";
fileinfo += "最后访问日期:" + f.DateLastAccessed + "n";
fileinfo += "最后修改时期:" + f.DateLastModified + "n";
fileinfo += "驱动器:" + f.Drive + "n";
fileinfo += "类型:" + f.Type + "n";
// 显示结果
WScript.Echo( fileinfo );

利用这个函数Scripting.FileSystemObject,我们可以实现对于某一个文件的详细属性进行查看,如果所要查看的文件和该脚本不处于同一目录中,就需要输入完整的文件路径名来进行查看。别外,这个脚本需要使用命令行的方式来使用。
在DOS中运行的方法如下:在 DOS 运令行方式窗口中输入「cscript //<脚本文件名>」或「wscript //<脚本文件名>」这样就可以得到运行后的效果了。


11.自定义设定压缩文件
WinRAR是比较流行的一个压缩程序。在安装完成WinRAR后,首先需要为WinRAR的运行添加一个相对路径,这有点类似于DOS中的config.sys文件中对可执行文件加入的路径。在系统的环境变量里加入“set path=c:Windows;c:program filesWinRAR”后就可以直接调用WinRAR了。对于WinRAR的命令行具体的用法,可以在DOS窗口或命令行窗口中输入“RAR.exe /?”就可以得到帮助。
将WinRAR准备完成后就可以用下面的脚来来完现自定义压缩了。

Set WshShell = Wscript.CreateObject("Wscript.Shell")