vbs實用軟件自造――Windows腳本應用實例

2020-07-26 12:05:38

字體：大中小

來源：轉載

供稿：網友

從Windows 98時代起，各種腳本文件不斷出現，腳本文件的作用是為了實現各種腳本文件在 Windows 界面或 Dos 命令提示符下的直接運行，微軟就在系統內植入了一個基于 32 位 Windows 平臺、獨立的腳本運行環境，并將其命名為“Windows Scripting Host（Windows 腳本宿主以下簡稱WSH）”。
WSH 誕生后，在 Windows 系列產品中很快得到了推廣。除 Windows 98 外，微軟在 Internet Information Server、Windows ME、Windows 2000系列產品以及 Windows XP Professional等產品中都嵌入了 WSH。一般來說，各種軟件總要考慮多數人的習慣和需求，而對于一些個性化很強的需求，通用軟件則很難滿足?，F在利用WSH，我們可以完成很多有趣又實用的功能，而且實現代碼非常簡單，而且完全是為自己量身定做，100%滿足自己的需求。這么簡單、實用有有趣的東西，怎么可以放過呢？
一、WSH是怎么樣工作的
WSH正常工作的前提條件是系統中必須有IE3.0以上的版本，因為 WSH 在工作時需要使用IE 中的 VBScript 和 JScript 解釋引擎。
首先，我們來看一個最簡單的例子，打開記事本，在其中寫下：
WScript.Echo("你好！電腦")
然后將它為以 .vbs 或 .js 為后綴名（千萬不能保存為TXT文件，保存的時候在“文件類型”中選擇“所有文件”）的文件進行保存，然后關掉這個記事本。從文件的圖標來看已經變成一個腳本文件，雙擊執行這個文件，看看結果吧（如圖1），我們編輯的第一個腳本已經成功運行啦！
圖1
現在，就讓我們來看看腳本文件經由WSH執行的過程。首先WSH根據腳本文件后綴名，在系統注冊表中查詢所需的腳本引擎時，如VBScript或者JScript。然后使用相應的腳本引擎執行腳本命令，其中，一些腳本指令會使用到WSH的內置對象（如處理注冊表項），這時，腳本指令就會向WSH提出請求，并由WSH完成這些指令。
那么，如何去編寫并運行WSH腳本呢？WSH腳本文件的編寫十分方便，你可以選用任意一個文字編輯器進行編寫，寫完后，你只需將它保存為 WSH 所支持的文件名就行了（如 .js 文件、.vbs 文件）。最常用的編輯器就是我們編寫第一個腳本文件用到的記事本（Notepad）了。

一、WSH初步
下面，我們來看看一些WSH的初步實例，其中每個實例可以實現一個簡單的功能，在我們了解每個實例的功能后，我們會把這些例子綜合成一個非常實用的腳本，幫助你實現實用、個性化的強大功能。
1.在桌面創建快捷方式
WSHShell = WScript.CreateObject("WScript.Shell");
DesktopPath = WSHShell.SpecialFolders("Desktop");
Shortcut1 = WSHShell.CreateShortcut(DesktopPath + "http://記事本快捷方式.lnk");
Shortcut1.TargetPath = "c://Windows//notepad.exe";
Shortcut1.Save();
其中SpecialFolders這個函數是用來讀取桌面路徑的，取得桌面路徑后，在桌面上創建一個“/記事本快捷方式.lnk”的文件，并將這個快捷方式文件的目標指向Notepad.exe，最后將這些信息保存，這個腳本的工作就完成了。

2.執行特定的命令
下列這個示例會用記事本打開“ C:/autoexec.bat”文件，并開啟 DOS 命令窗口（并列出執行 dir c:/Windows 的結果），程序代碼如下：

// 產生 WSH Shell
shell = WScript.CreateObject("WScript.Shell");

// 開啟記事本并加載 c:/autoexec.bat
shell.Run("notepad.exe c://autoexec.bat");

// 開啟 DOS 命令窗口并執行 dir c:/Windows
shell.Run("cmd /K dir c://Windows");

在上述范例中，所開啟的應用程序會保持開啟狀態，而 WSH 會持續執行其后的程序代碼。若要等待應用程序被關閉后，才繼續執行其后的 WSH 程序代碼，可以在 run() 之后再加上其它參數。如我們需要在關閉Notepad后再繼續執行，應該怎么辦呢？

// 如何由 WSH 執行其它應用程序，并等待應用程序結束后才繼續執行 WSH 程序代碼
shell = new ActiveXObject("WScript.Shell");
intReturn = shell.Run("notepad " + WScript.ScriptFullName, 1, true);
shell.Popup("記事本已經被關閉！");

3.列出一個特定目錄下的所有文件
//創建文件系統對象
fso = new ActiveXObject("Scripting.FileSystemObject");
//指向指定的文件夾
dir="c://Windows//temp";
fsofolder = fso.GetFolder(dir);
//搜集文件夾中包含的文件
colFiles = fsofolder.Files;
fc = new Enumerator( colFiles );
//顯示并繼續讀取其它文件的文件名直到完成
WScript.Echo("Files under /""+dir+"/":");
for (; !fc.atEnd(); fc.moveNext() ){
WScript.Echo(fc.item());
}
腳本執行后會將指定目錄中（C:/windows/temp）的所有文件一一列出來。

4.顯示本機IP地址
ws = new ActiveXObject( "MSWinsock.Winsock" );
WScript.Echo("本機IP地址是：" + ws.LocalIP);
通過MSWinsock.Winsock這個函數將IP地址收集起來并進行顯示。

5.列出磁盤驅動器及其相關性質

fso = new ActiveXObject("Scripting.FileSystemObject");
driveTypeNames=["未知類型", "可移動磁盤", "硬盤", "網絡磁盤驅動器", "光盤", "虛擬磁盤"];
e = new Enumerator(fso.Drives);
s = "";
for (; !e.atEnd(); e.moveNext()) {
x = e.item();
WScript.Echo(x.DriveLetter+":")
WScript.Echo(" 磁盤類型：" + x.DriveType + " (" + driveTypeNames[x.DriveType] + ")");
WScript.Echo(" 共享名稱：" + x.ShareName);
WScript.Echo(" 磁盤是否就緒：" + x.IsReady);
if (x.IsReady){
WScript.Echo(" 卷標：" + x.VolumeName);
WScript.Echo(" 空間大?。? + x.AvailableSpace + "字節");
}
}
執行了這個腳本以后會顯示出該磁盤驅動器的類型、卷標、空間大小、共享名稱等相關信息。

6.顯示當前時間
today = new Date();
WScript.Echo("電腦迷為您報時："+today.toLocaleString());
除了這樣的方法之外，還有一種比較復雜一點的方法，可以顯示上、下午時間
function getTime() {
today = new Date();
hour = today.getHours();
minute = today.getMinutes();
second = today.getSeconds();
prepand = (hour>=12)? "下午":"上午";
hour = (hour>=12)? hour-12:hour;
str = "現在時間是"+prepand+hour+"點"+minute+"分"+second+"秒";
return(str);
}
WScript.Echo(getTime());

7.保存當前的網頁
// 抓取一個網頁，并將其內容存入一個文件
inet=new ActiveXObject("InetCtls.Inet");
// 下載的網址
inet.Url="http://www.pcfans.net/index.htm";
// 設置超時
inet.RequestTimeOut=20;
// 下載文件
WScript.Echo("Downloading /""+inet.Url+"/"...");
content = inet.OpenURL();

// 寫入文件
fso = new ActiveXObject("Scripting.FileSystemObject");
forReading=1, forWriting=2;
fileName="test.htm";
fid=fso.OpenTextFile(fileName, forWriting, true);
fid.Write(content);
fid.Close();
WScript.Echo("從「"+inet.Url+"」抓到的亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb