===================================

VBS例子講解--1: 用 run運(yùn)行文件 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" set shl="nothing"

VBS例子講解--2: 用 FSO復(fù)制文件 Set shl = CreateObject("Scripting.FileSystemObject") shl.CopyFile "c:\1.txt","d:\" set shl = nothing

=========================================================

CreateObject

描述創(chuàng)建并返回對(duì)象的引用。語(yǔ)法

CreateObject(class)

class 參數(shù)使用語(yǔ)法 servername.typename，有以下部分：

部分描述 servername 提供對(duì)象的應(yīng)用程序名稱(chēng)。 typename 要?jiǎng)?chuàng)建的對(duì)象類(lèi)型或類(lèi)。

說(shuō)明 Automation 服務(wù)器至少提供一種對(duì)象類(lèi)型。例如，字處理應(yīng)用程序可以提供應(yīng)用程序?qū)ο�、文檔對(duì)象和工具條對(duì)象。要?jiǎng)?chuàng)建 Automation 對(duì)象，將 CreateObject 函數(shù)返回的對(duì)象賦值給某對(duì)象變量：

Dim ExcelSheet Set ExcelSheet = CreateObject("Excel.Sheet") ' 使 Excel 在整個(gè) Application 對(duì)象中都可見(jiàn)。 ExcelSheet.Application.Visible = True

' 將一些文本放入工作表的第一個(gè)單元格中。

ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1" ' 保存工作表。 ExcelSheet.SaveAs "C:\TEST.XLS" ' 關(guān)閉 Excel，使 Quit 方法處于 Application 對(duì)象中。 ExcelSheet.Application.Quit ' 釋放對(duì)象變量。 Set ExcelSheet = Nothing

================================== Set

將對(duì)象引用賦給一個(gè)變量或?qū)傩�，或者將�?duì)象引用與事件關(guān)聯(lián)。

createobject("WScript.Shell").run"regedit.exe"

和下面的 3句句有同樣效果。

set shl="createobject"("WScript.Shell") shl.run"regedit.exe" set shl="nothing"

但如果我要使用多個(gè) CreateObject對(duì)象的時(shí)候，就要寫(xiě)很多個(gè) CreateObject("WScript.Shell")出來(lái)。內(nèi)容如下：

createobject("WScript.Shell").run"regedit.exe" CreateObject("WScript.Shell").popup"注冊(cè)表已經(jīng)被運(yùn)行" 上面例子會(huì)給我們?cè)斐珊芏嗦闊┖凸ぷ髁�。這個(gè)時(shí)候我們可以使用 set來(lái)吧 CreateObject("WScript.Shell")對(duì)象付給一個(gè)變量。

以后只要對(duì)變量訪(fǎng)問(wèn)就相當(dāng)于對(duì) CreateObject("WScript.Shell")訪(fǎng)問(wèn)了。 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" shl.popup"注冊(cè)表已經(jīng)被運(yùn)行" set shl="nothing"

Nothing

可選項(xiàng)。斷開(kāi) shl與任何指定對(duì)象或類(lèi)的關(guān)聯(lián)。當(dāng)沒(méi)有其它變量引用前面的引用對(duì)象時(shí)，將 shl賦值為 Nothing 以釋放與前面的引用對(duì)象相關(guān)聯(lián)的系統(tǒng)或內(nèi)存資源。

WScript 對(duì)象介紹屬性/方法/對(duì)象。屬性=一個(gè)物體本身具有的一種特性。方法=一個(gè)物體能夠做某件事情，完成某件事情的時(shí)候就要用到方法。

WScript屬性的演示例子：運(yùn)行 WScript屬性的格式為： WScript.屬性名。

關(guān)于屬性--實(shí)例: WScript.Echo (WScript.FullName) 'FullName 屬性是代表主機(jī)可執(zhí)行文件的完全限定路徑的只讀字符串。 WScript.Echo (WScript.Name) '返回 WScript 對(duì)象（主機(jī)可執(zhí)行文件）的名稱(chēng) WScript.Echo (WScript.Path) '返回包含主機(jī)可執(zhí)行文件（CScript.exe 或 WScript.exe）的路徑名稱(chēng)。

WScript.Echo WScript.ScriptName

'返回當(dāng)前運(yùn)行腳本的文件名。

wscript.echo WScript.ScriptFullName

'返回當(dāng)前運(yùn)行腳本的完整路徑。

WScript.Echo WScript.Version '返回 Windows 腳本宿主的版本

WScript方法的演示例子：運(yùn)行 WScript方法的格式為： WScript.方法名(操作的內(nèi)容)

關(guān)于方法--實(shí)例: WScript.Echo ("hello")

'將文本輸出到消息框中或命令控制臺(tái)窗口。

wscript.echo "hello1" WScript.Quit (1) wscript.echo "hello2" 'WScript.Quit強(qiáng)制腳本隨時(shí)停止執(zhí)行。 '(1)參數(shù)可選。作為過(guò)程的退出代碼而返回的整數(shù)值。此例子中返回的是 1。 =================================================================== wscript.echo "hello1" WScript.Sleep 1000 wscript.echo "hello2" WScript.Sleep 1000 wscript.echo "hello3"

'在指定的時(shí)間長(zhǎng)度內(nèi)將腳本執(zhí)行掛起，然后繼續(xù)執(zhí)行。 '參數(shù)，表示腳本過(guò)程處于不活動(dòng)狀態(tài)的時(shí)間間隔（毫秒）的整數(shù)值。

實(shí)例 2:

set WshShell = WScript.CreateObject("WScript.Shell")

'創(chuàng)建快捷方式

strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\VBS的快捷方式.lnk") oShellLink.TargetPath = WScript.ScriptFullName oShellLink.WindowStyle = 1 oShellLink.Hotkey = "Ctrl+Alt+e" oShellLink.IconLocation = "notepad.exe, 0" oShellLink.Description ="VBS程序的快捷方式" oShellLink.WorkingDirectory = strDesktop oShellLink.Save '創(chuàng)建 URL set oUrlLink = WshShell.CreateShortcut(strDesktop & "\劍思庭博客.url") oUrlLink.TargetPath = "http://blog.cechina.cn/jiansiting"

oUrlLink.Save

相關(guān)參數(shù)說(shuō)明： WshShell 對(duì)象的屬性： .SpecialFolders '返回 SpecialFolders 對(duì)象（特殊文件夾集）。

下面的特殊文件夾可用： Desktop --->桌面 Favorites --->收藏夾 Fonts --->C:\WINDOWS\Fonts目錄 MyDocuments -->我的文檔 Programs -->c:\program files\ SendTo -->發(fā)送到 StartMenu -->開(kāi)始菜單等等

.CurrentDirectory屬性

'檢索或更改當(dāng)前活動(dòng)目錄。 'CurrentDirectory 返回一個(gè)字符串，其中包含活動(dòng)過(guò)程的當(dāng)前工作目錄的完全限定路徑。 Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Echo WshShell.CurrentDirectory

===============

WshShell 對(duì)象的方法： .CreateShortcut

'創(chuàng)建新的快捷方式，或打開(kāi)現(xiàn)有的快捷方式。

'object.CreateShortcut(strPathname) '參數(shù) 'object 'WshShell 對(duì)象。 'strPathname

'表示要?jiǎng)?chuàng)建的快捷方式的路徑名的字符串值。說(shuō)明 'CreateShortcut 方法返回 WshShortcut 對(duì)象或 WshURLShortcut 對(duì)象。只調(diào)用 CreateShortcut

'方法并不會(huì)導(dǎo)致快捷方式的創(chuàng)建�？旖莘绞綄�(duì)象以及對(duì)其所做的更改存儲(chǔ)在內(nèi)存中， '直到您用 Save方法將其保存到磁盤(pán)中為止。要?jiǎng)?chuàng)建快捷方式，必須執(zhí)行以下操作： '創(chuàng)建 WshShortcut 對(duì)象的實(shí)例。 '初始化它的屬性。 '用 Save 方法將其保存到磁盤(pán)中。

'注意一個(gè)常見(jiàn)的問(wèn)題是，將參數(shù)放在快捷方式對(duì)象的 TargetPath 屬性中將不起作用。快捷方式的所有參數(shù)都必須放在 'Arguments 屬性中。

WshShortcut 對(duì)象中的屬性介紹：

.TargetPath

'快捷方式的可執(zhí)行文件的路徑。

'object.TargetPath '參數(shù) 'object 'WshShortcut 或 WshUrlShortcut 對(duì)象。 '說(shuō)明 '字符串。 '該屬性?xún)H用于快捷方式的目標(biāo)路徑。快捷方式的任何參數(shù)都必須放在參數(shù)的屬性中。

.WindowStyle

為快捷方式指派窗口樣式，或確定快捷方式使用的的窗口樣式類(lèi)型。

object.WindowStyle = intWindowStyle

參數(shù)

object WshShortcut 對(duì)象。 intWindowStyle

設(shè)置正在運(yùn)行的程序的窗口樣式。說(shuō)明 WindowStyle 屬性返回一個(gè)整數(shù)。

下表列出了 intWindowStyle 的可用設(shè)置。

intWindowStyle 說(shuō)明 1 激活并顯示窗口。如果該窗口被最小化或最大化，則系統(tǒng)將其還原到初始大小和位置。 3 激活窗口并將其顯示為最大化窗口。 7 最小化窗口并激活下一個(gè)頂級(jí)窗口。

.Hotkey

為快捷方式指派組合鍵，或確定指派給快捷方式的組合鍵。

object.Hotkey = strHotkey

參數(shù)

object WshShortcut 對(duì)象。 strHotkey

代表指派給快捷方式的組合鍵的字符串。語(yǔ)法 strHotkey 的語(yǔ)法為：

[KeyModifier]KeyName KeyModifier可以是以下的任何一個(gè)組合鍵：ALT+、CTRL+、SHIFT+、EXT+。注意 EXT+ 表示“擴(kuò)展鍵”�！�此處是為了防止日后將新�� SHIFT-鍵類(lèi)型添加到字符集內(nèi)。

KeyName a ... z、 0 ... 9、F1 F12 ... KeyName 不區(qū)分大小寫(xiě)。

說(shuō)明熱鍵是一組組合鍵，當(dāng)同時(shí)按下所有相關(guān)鍵時(shí)將啟動(dòng)快捷方式。

熱鍵可用于啟動(dòng)系統(tǒng)桌面和 Windows“開(kāi)始”菜單中的快捷方式。注意熱鍵的另一個(gè)名稱(chēng)叫做“鍵盤(pán)快捷方式”。在 Windows 2000 中，有效的熱鍵總是以 CTRL + ALT 開(kāi)頭。

.IconLocation

為快捷方式指派圖標(biāo)，或確定指派給快捷方式的圖標(biāo)。

object.IconLocation = strIconLocation

參數(shù)

object WshShortcut 對(duì)象。 strIconLocation

用于查找該圖標(biāo)的字符串。該字符串應(yīng)包含與該圖標(biāo)相關(guān)聯(lián)的完全限定路徑和索引。有關(guān)詳細(xì)信息，請(qǐng)參見(jiàn)示例。說(shuō)明

字符串。

.Description

返回快捷方式的說(shuō)明。

object.Description

參數(shù)

object WshShortcut 對(duì)象。說(shuō)明 Description 屬性中包含一個(gè)說(shuō)明快捷方式的字符串值。

.WorkingDirectory

為快捷方式指派工作目錄，或者確定快捷方式使用的工作目錄。

object.WorkingDirectory = strWorkingDirectory

參數(shù)

object WshShortcut 對(duì)象。 strWorkingDirectory

字符串。快捷方式的啟動(dòng)目錄。說(shuō)明

字符串。

.FullName

返回快捷方式對(duì)象目標(biāo)的完全限定路徑。

object.FullName

參數(shù)

object WshShortcut 對(duì)象。說(shuō)明

FullName 屬性中包含一個(gè)表示快捷方式目標(biāo)的完全限定路徑的只讀字符串值。

WshShortcut 對(duì)象中的方法介紹：

.Save

將快捷方式對(duì)象保存到磁盤(pán)中。

object.Save

參數(shù)

object WshShortcut 或 WshUrlShortcut 對(duì)象。說(shuō)明

使用 CreateShortcut 方法創(chuàng)建快捷方式對(duì)象并設(shè)置快捷方式對(duì)象的屬性后，必須用 Save 方法將快捷方式對(duì)象保存到磁盤(pán)中。Save 方法使用快捷方式對(duì)象的 FullName 屬性中的信息，確定快捷方式對(duì)象在磁盤(pán)上的保存位置。只可創(chuàng)建系統(tǒng)對(duì)象的快捷方式，包括文件、目錄和驅(qū)動(dòng)器（不包括打印機(jī)鏈接或調(diào)度任務(wù)）。

WshUrlShortcut 對(duì)象 WshShell對(duì)象介紹

set WshShell = CreateObject("WScript.Shell") WScript.Echo (WshShell.CurrentDirectory)

CurrentDirectory 屬性

請(qǐng)參閱

WshShell 對(duì)象

語(yǔ)言

VBScript

顯示所有語(yǔ)言檢索或更改當(dāng)前活動(dòng)目錄。

object.CurrentDirectory

參數(shù)

object WshShell 對(duì)象。說(shuō)明

CurrentDirectory 返回一個(gè)字符串，其中包含活動(dòng)過(guò)程的當(dāng)前工作目錄的完全限定路徑。

==========================

set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "notepad"

WScript.Sleep 100

WshShell.AppActivate "notepad"

WScript.Sleep 100

WshShell.SendKeys "1"

WScript.Sleep 500

WshShell.SendKeys "{+}"

WScript.Sleep 500

WshShell.SendKeys "2"

WScript.Sleep 500

WshShell.SendKeys "="

WScript.Sleep 2500

AppActivate 方法請(qǐng)參閱運(yùn)行腳本 | WshShell 對(duì)象 | SendKeys 方法激活應(yīng)用程序窗口。

object.AppActivate title

參數(shù)

object WshShell 對(duì)象。 title

指定要激活哪個(gè)應(yīng)用程序。它可以是包含應(yīng)用程序的標(biāo)題（和出現(xiàn)在標(biāo)題欄中的一樣）或過(guò)程 ID 的字符串。說(shuō)明 AppActivate 方法返回的布爾值表示過(guò)程調(diào)用是否成功。該方法將焦點(diǎn)轉(zhuǎn)移到命名應(yīng)用程序或窗口中，但是并不影響應(yīng)用程序或窗口是最大化還是最小化。用戶(hù)執(zhí)行更改焦點(diǎn)的操作（或關(guān)閉窗口）時(shí)，焦點(diǎn)移離活動(dòng)的應(yīng)用程序窗口。

在確定要激活哪個(gè)應(yīng)用程序時(shí)，指定的標(biāo)題將與正在運(yùn)行的每個(gè)應(yīng)用程序的標(biāo)題字符串相比較。如果不存在完全匹配的標(biāo)題，則將激活標(biāo)題字符串以 title 開(kāi)頭的所有應(yīng)用程序。如果還是找不到任何應(yīng)用程序，則將激活標(biāo)題字符串以 title 結(jié)尾的所有應(yīng)用程序。如果存在多個(gè)名為 title 的應(yīng)用程序?qū)嵗�，則將隨機(jī)激活一個(gè)實(shí)例。

將一個(gè)或多個(gè)鍵擊發(fā)送到活動(dòng)窗口（仿佛是在鍵盤(pán)上擊鍵一樣）。

object.SendKeys(string)

參數(shù)

object WshShell 對(duì)象。 string

表示要發(fā)送的鍵擊（一個(gè)或多個(gè)）的字符串值。說(shuō)明使用 SendKeys 方法可以將鍵擊發(fā)送到無(wú)自動(dòng)化界面的應(yīng)用程序中。多數(shù)鍵盤(pán)字符都可用一個(gè)鍵擊表示。某些鍵盤(pán)字符由多個(gè)鍵擊組合而成（例如，CTRL+SHIFT+HOME）。要發(fā)送單個(gè)鍵盤(pán)字符，請(qǐng)將字符本身作為 string 參數(shù)發(fā)送。例如，要發(fā)送字母 x，則請(qǐng)發(fā)送 string 參數(shù) "x"。

注意要發(fā)送空格，則請(qǐng)發(fā)送字符串 " "。可使用 SendKeys 同時(shí)發(fā)送多個(gè)鍵擊。為此，可將每個(gè)鍵擊按順序排列在一起，以此來(lái)創(chuàng)建表示一系列鍵擊的復(fù)合字符串參數(shù)。例如，要發(fā)送鍵擊 a、b 和 c，則需要發(fā)送字符串參數(shù) "abc"。SendKeys 方法將某些字符用作字符的修飾符（而不使用其本身的含義）。這組特殊的字符可包括圓括號(hào)、中括號(hào)、大括號(hào)，以及：

用大括號(hào) "{}" 括起這些字符可以發(fā)送它們。例如，要發(fā)送加號(hào)，請(qǐng)使用字符串參數(shù) "{+}"。 SendKeys中使用的中括號(hào) "[ ]" 無(wú)任何特殊含義，但是必須把它們括在大括號(hào)中，以便容納確實(shí)要賦予其特殊含義的應(yīng)用程序（例如，對(duì)于動(dòng)態(tài)數(shù)據(jù)交換 (DDE) 就是這樣）。

要發(fā)送左中括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{[]"；要發(fā)送右中括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{]}"。要發(fā)送左大括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{{}"；要發(fā)送右大括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{}}"。某些鍵擊不生成字符（如 ENTER 和 TAB）。某些鍵擊表示操作（如 BACKSPACE 和 BREAK）。要發(fā)送這些類(lèi)型的鍵擊，請(qǐng)發(fā)送下表中列出的參數(shù)：

鍵參數(shù)退格鍵 {BACKSPACE}、{BS} 或 {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL 或 DELETE {DELETE} 或 {DEL}向下鍵 {DOWN} END {END} ENTER {ENTER} 或 ~ ESC {ESC} HELP {HELP} HOME {HOME} INS 或 INSERT {INSERT} 或 {INS}向左鍵 {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} PRINT SCREEN {PRTSC}向右鍵 {RIGHT} SCROLL LOCK {SCROLLLOCK} TAB {TAB}向上鍵 {UP} F1 {F1} F2 {F2} F3 {F3} F4 {F4} F5 {F5} F6 {F6} F7 {F7} F8 {F8} F9 {F9} F10 {F10} F11 {F11} F12 {F12} F13 {F13} F14 {F14} F15 {F15}

F16 {F16}

要發(fā)送由常規(guī)鍵擊和 SHIFT、CTRL 或 ALT 組合而成的鍵盤(pán)字符，請(qǐng)創(chuàng)建表示該鍵擊組合的復(fù)合字符串參數(shù)。可通過(guò)在常規(guī)鍵擊之前添加一個(gè)或多個(gè)以下特殊字符來(lái)完成上述操作：

鍵特殊字符

SHIFT + CTRL ^ ALT %

注意這樣使用時(shí)，不用大括號(hào)括起這些特殊字符。要指定在按下多個(gè)其它鍵時(shí)，按下 SHIFT、CTRL 和 ALT 的組合，請(qǐng)創(chuàng)建復(fù)合字符串參數(shù)，用括號(hào)括起其中的組合鍵。例如，要發(fā)送的組合鍵指定：

如果在按 e 和 c 的同時(shí)按 SHIFT 鍵，則發(fā)送字符串參數(shù) "+(ec)"。如果在按 e 時(shí)只按 c（而不按 SHIFT），則發(fā)送字符串參數(shù) "+ec"。可使用 SendKeys 方法發(fā)送一種在一行內(nèi)重復(fù)按鍵的鍵擊。為此，要?jiǎng)?chuàng)建復(fù)合字符串參數(shù)，以指定要重復(fù)的鍵擊，并在其后指定重復(fù)次數(shù)�？墒褂� {鍵擊數(shù)字} 形式的復(fù)合字符串參數(shù)來(lái)完成上述操作。例如，如果要發(fā)送 10 次 "x"，則需要發(fā)送字符串參數(shù) "{x 10}"。請(qǐng)確保在鍵擊和數(shù)字之間有一個(gè)空格。

注意只可以發(fā)送重復(fù)按一個(gè)鍵的鍵擊。例如，可以發(fā)送 10 次 "x"，但不可發(fā)送 10 次 "Ctrl+x"。注意不能向應(yīng)用程序發(fā)送 PRINT SCREEN 鍵 {PRTSC}。