VBScript腳本編程

1、VBScript腳本編程 VBScript腳本編程 VBScript腳本編程 VBS Edit破解 n安裝完后需要注冊，出現(xiàn)下圖： VBScript腳本編程 VBS Edit破解 n雙擊Keygen.exe，彈出如下窗口： VBScript腳本編程 VBS Edit破解 n點(diǎn)擊“Generate”，在Serial 中，將序列 號復(fù)制，粘貼到上述窗口中，點(diǎn)擊 Evaluate，彈出如下窗口： VBScript腳本編程 VBS Edit破解 n在該窗口中選擇“Activate manually” n在Keygen 窗口中復(fù)制Activation 中的內(nèi)容， 粘貼到上圖中的輸入框中，點(diǎn)擊OK。 VB

2、Script腳本編程 VBScript簡介 nVBS，即Microsoft Visual Basic Scripting Edition，它是Microsoft Visual Basic 語言的一個(gè)子集，它并不是一個(gè)完整的 程序設(shè)計(jì)語言，僅包含語言中的一些基 本功能。VBScript的最大優(yōu)點(diǎn)是：用純 文本建立、直接包含在HTML文檔中、編 輯和修改都十分便利。 VBScript腳本編程 第一個(gè)VBScript腳本 nSet objshell = CreateObject(Shell.Application) nSet objNS = space(&h2f) nSet

3、 colitems = objNS.items nFor Each objitem In colitems nWScript.Echo nNext VBScript腳本編程 編譯環(huán)境 nVBS Edit n安裝方法 VBScript腳本編程 VBS腳本的注釋 nVbs中使用單引號來注釋” ”,注釋的 信息在vbsedit編輯環(huán)境中顯示為綠色。 顯示一條信息 Msgbox 夜深人靜，小心身后啊 VBScript腳本編程 VBS基礎(chǔ)知識 n1.腳本的注釋 n格式一： Rem 注釋內(nèi)容 n格式二： 注釋內(nèi)容 VBScript腳本編程 VBS基礎(chǔ)知識 n2.將單行語句分成多行

4、 n在編寫程序代碼時(shí)，有的語句可能會(huì)很 長，為了在閱讀和對程序查錯(cuò)時(shí)直觀、 方便，可使用續(xù)行符“ -”（由一個(gè)空格 和一個(gè)下劃線組成），將長的語句分成 多行書寫。 VBScript腳本編程 VBS基礎(chǔ)知識 n3.使用不同進(jìn)制的數(shù)字 n在VBScript中，除了可以使用默認(rèn)的十進(jìn)制來 表示數(shù)字外，還允許使用十六進(jìn)制或八進(jìn)制來 表示數(shù)字。對于不同進(jìn)制的數(shù)，VBScript在表 達(dá)方式上有明確規(guī)定，即十六進(jìn)制數(shù)要加前綴 H（如H9），八進(jìn)制數(shù)要加前綴0（數(shù)字 零）或&O（字母O）（如011或&O11），十進(jìn) 制數(shù)不用加任何前綴。 VBScript腳本編程 VBS基礎(chǔ)知識 n4. VBScript語句

5、中的英文字母不區(qū)分大 小寫，VBScript腳本代碼是一種純文本， 可以用任何一種文本編輯器編寫。 VBScript腳本編程 VBS的數(shù)據(jù)類型 n在Visual Basic、C+等高級語言中，數(shù)據(jù)類 型都是分為整數(shù)、字符等不同的類型，但在 VBScript中，只有一種數(shù)據(jù)類型，稱為 Variant（變體類型）。 nVariant既能表示數(shù)字，又能表示字符，還能 表示其他的類型，vbs 在執(zhí)行時(shí)會(huì)自動(dòng)識別 和轉(zhuǎn)換類型。 n所以它也是VBScript 中所有函數(shù)的返回值的 數(shù)據(jù)類型。 VBScript腳本編程 VBS的數(shù)據(jù)類型 n一般情況下VBScript也會(huì)根據(jù)代碼的上下文 自動(dòng)轉(zhuǎn)換數(shù)據(jù)的子類型

6、。例如： Variable_1=”2001”，這里Variable_1作為一 個(gè)字符串變量來工作，而如果下面有 Variable_2=Variable_13，這時(shí)VBScript就 會(huì)自動(dòng)將Variable_1轉(zhuǎn)換成整數(shù)變量，然后 參與運(yùn)算。但有時(shí)候，也會(huì)遇到一些數(shù)據(jù)類 型不匹配造成的錯(cuò)誤。這時(shí)，可以使用 VBScript的轉(zhuǎn)換函數(shù)來強(qiáng)制轉(zhuǎn)換數(shù)據(jù)的子類 型。 (見VBScript幫助文件) VBScript腳本編程 VBS的數(shù)據(jù)類型 Dim a a=2001 VBScript會(huì)將它當(dāng)成整數(shù)對待 a=”2001” VBScrint會(huì)將它當(dāng)成字符串對待 a=20.01 VBScript會(huì)將它當(dāng)成小

7、數(shù)對待 a=false VBScript會(huì)將它當(dāng)成一個(gè)布爾值 VBScript腳本編程 VBS的數(shù)據(jù)類型 n可以使用VarType 來看看它到底是什么類型 的，如下面的代碼： Dim VarTypeCheck VarTypeCheck = VarType(123) MsgBox VarTypeCheck 返回2 表示整型 VarTypeCheck = VarType(123) MsgBox VarTypeCheck 返回8 表示字符型 子類型子類型描述描述 Empty未初始化的 Variant。對于數(shù)值變量，值為 0；對于字符串變量，值為零 長度字符串 ()。 Null不包含任何有效數(shù)據(jù)的 V

8、ariant。 Boolean包含 True 或 False。 Byte包含 0 到 255 之間的整數(shù)。 Integer包含 -32,768 到 32,767 之間的整數(shù)。 Currency-922,337,203,685,477.5808 到 922,337,203,685,477.5807。 Long包含 -2,147,483,648 到 2,147,483,647 之間的整數(shù)。 Single包含單精度浮點(diǎn)數(shù)，負(fù)數(shù)范圍從 -3.402823E38 到 -1.401298E-45，正數(shù) 范圍從 1.401298E-45 到 3.402823E38。 Double包含雙精度浮點(diǎn)數(shù)，負(fù)數(shù)范圍從

9、 -1.79769313486232E308 到 -4.947E- 324，正數(shù)范圍從 4.947E-324 到 1.79769313486232E308。 Date (Time)包含表示日期的數(shù)字，日期范圍從公元 100 年 1 月 1 日到公元 9999 年 12 月 31 日。 String包含變長字符串，最大長度可為 20 億個(gè)字符。 Object包含對象。 Error包含錯(cuò)誤號。 VBScript腳本編程 VBS常量 n聲明常量的意義就在于可以在程序的任何部 分使用該常量來代表特定的值，從而方便程 序的編寫和修改。例如在程序中定義 Const PI=3.1415926 Const C

10、onstDate=#2001-1-12# Msgbox PI VBScript腳本編程 VBS常量 n1文字常量 n（1）字符串常量：用雙引號作為定界符，由ASCII 碼字符組成（除雙引號和回車符外），長度不能超 過20億個(gè)字符。例如：中華人民共和國、 1233.45等。 n（2）數(shù)值常量：包括整型數(shù)、長整型數(shù)和浮點(diǎn)數(shù)。 例如：0、300、-4125、&H85（表示十六進(jìn)制數(shù) 85）、&O226（表示八進(jìn)制數(shù)226）、1.23E8、 3.54E-5等。 n（3）日期時(shí)間型常量：用#號括起來。例如： #2001-3-15#、#2003-4-20 8:38:25 AM#等。 VBScript腳本編

11、程 VBS常量 n2符號常量 常量名稱常量名稱常量含義常量含義 TrueTrue表示布爾真值表示布爾真值 False表示布爾假值表示布爾假值 Null表示空值表示空值 Empty表示沒有初始化之前的值表示沒有初始化之前的值 vbCr表示回車表示回車 vbCrLf表示回車表示回車/ /換行換行 vbTab表示制表符表示制表符 VBScript腳本編程 VBS變量 n1.變量聲明變量聲明 n聲明變量的一種方式是使用Dim、Redim、 Public和 Private在腳本中顯式聲明變量。 如：Dim name n注意：別亂加分號！ VBScript腳本編程 VBS變量 n(1)Dim n格式： D

12、im 變量名稱 例如：Dim DegreesFahrenheit n聲明多個(gè)變量時(shí)，使用逗號分隔變量。 例如： Dim Top, Bottom, Left, Right VBScript腳本編程 VBS變量 n(2)Redim nRedim語句是專用來定義數(shù)組的。當(dāng)需要根 據(jù)數(shù)據(jù)的增加和刪除來擴(kuò)大或縮小數(shù)組的大 小時(shí)，可通過Redim語句來實(shí)現(xiàn)。 VBScript腳本編程 VBS變量 下面是一個(gè)擴(kuò)大數(shù)組的簡單格式： Dim datanum 程序代碼 Redim Preserve datanum(20) Redim Preserve datanum(20)語句將數(shù)組的元素?cái)U(kuò)大 到20。 默認(rèn)的情

13、況下，使用Redim語句的同時(shí)會(huì)清除數(shù) 組中的所有值。而使用Preserve關(guān)鍵字可以將所有現(xiàn) 存的數(shù)據(jù)保存下來，并添加新的空白單元；如果縮小 了數(shù)組的大小，那么被減去的單元中的數(shù)據(jù)也會(huì)丟失。 VBScript腳本編程 VBS變量 n(3)Public nPublic關(guān)鍵字用于定義全局型變量。 格式：Public 變量名稱 例如：Public a,b n和Dim一樣，Public可以聲明變量，并可以一 次聲明多個(gè)變量，也可以聲明一維或多維數(shù) 組。所不同的是Public關(guān)鍵字定義的變量是 全局變量。 VBScript腳本編程 VBS變量 n(4)Private Private關(guān)鍵字可以定義變量、

14、一次定義多個(gè) 變量、定義一維或多維數(shù)組，不同的只是變 量的作用范圍不同。 n下面列出了使用上面語句或關(guān)鍵字定義的變 量的可能作用范圍： lDim：整個(gè)腳本程序或過程、函數(shù)中。 lRedim：整個(gè)腳本程序或過程、函數(shù)中。 lPublic：整個(gè)腳本程序。 lPrivate：過程或函數(shù)中。 VBScript腳本編程 VBS變量 n另一種聲明方式是通過直接在腳本中使用 變量名這一簡單方式隱式聲明變量。這不 是一個(gè)好習(xí)慣，因?yàn)檫@樣有時(shí)會(huì)由于變量 名被拼錯(cuò)而導(dǎo)致在運(yùn)行腳本時(shí)出現(xiàn)意外的 結(jié)果。因此，最好使用 Option Explicit 語句顯式聲明所有變量，并將其作為腳本 的第一條語句。這樣，如果以后拼

15、寫錯(cuò)變 量名，VBScript就會(huì)提醒你這個(gè)變量沒有聲 明，而避免出現(xiàn)由于拼寫錯(cuò)誤所造成的問 題。 VBScript腳本編程 VBS變量 option Explicit Dim i j=0 VBScript腳本編程 VBS變量 n2.變量命名規(guī)則 n變量的名字必須以字母開頭。 n名字中不能含有句號。 n名字不能超過255個(gè)字符。 n名字不能和VBScript中的關(guān)鍵字同名。 n變量名在被聲明的作用域內(nèi)必須惟一。 VBScript腳本編程 VBS變量 n3.變量的作用域 n指的是變量的有效范圍，在VBScript中分為 過程內(nèi)有效和整個(gè)程序中都有效。在變量過 程內(nèi)部聲明的變量稱為過程級變量或局部

16、變 量，這樣的變量只有在聲明它們的過程中才 能使用，即無法在過程外部訪問；過程外部 聲明的變量稱為腳本級變量或全局變量。 VBScript腳本編程 VBS變量 nsub ss() ndim x 聲明x局部變量 nx=22 nMsgBox x nend sub ndim x 聲明x全局變量 nx=1 ncall ss 調(diào)用ss過程，無參數(shù) nMsgBox x VBScript腳本編程 數(shù)組 nVBScript中的數(shù)組有以下幾個(gè)特點(diǎn)： n使用數(shù)組之前要先進(jìn)行定義，然后才能使用。 通常用Dim語句來定義數(shù)組。 n數(shù)組下標(biāo)的下界一律從0開始。 n一個(gè)數(shù)組中可以含有各種子類型的數(shù)據(jù)元素。 n在VBScr

17、ipt中，數(shù)組分為兩種類型，即靜態(tài) 數(shù)組和動(dòng)態(tài)數(shù)組。 VBScript腳本編程 數(shù)組 n1靜態(tài)數(shù)組 n靜態(tài)數(shù)組可分為一維數(shù)組、二維數(shù)組或多維數(shù)組。 數(shù)組的維數(shù)和大小由數(shù)組名之后緊跟的括號中的數(shù) 字的個(gè)數(shù)和數(shù)值的大小來決定。靜態(tài)數(shù)組在編譯時(shí) 開辟內(nèi)存區(qū)，因此它的大小在運(yùn)行時(shí)是不可以改變 的。 n2動(dòng)態(tài)數(shù)組 n定義一般分兩步：首先用Dim語句聲明一個(gè)括號內(nèi) 不包含下標(biāo)的數(shù)組，然后在使用數(shù)組之前用ReDim 語句根據(jù)實(shí)際需要重新定義下標(biāo)值。也可以用 ReDim語句直接定義數(shù)組。運(yùn)行時(shí)大小可變。 VBScript腳本編程 數(shù)組 n定義一個(gè)固定長度的數(shù)組 Dim A(10) 包含11個(gè)元素 n下例中，M

18、yTable 變量是一個(gè)有6行和11列 的二維數(shù)組： Dim MyTable(5, 10) VBScript腳本編程 數(shù)組 Dim MyArray(5) Dim length MyArray(0) = 0 MsgBox MyArray(0) 返回指定數(shù)組維數(shù)的最大可用下標(biāo) length = UBound(MyArray) MsgBox length VBScript腳本編程 數(shù)組 n也可以聲明動(dòng)態(tài)數(shù)組，即在運(yùn)行腳本時(shí)大小 發(fā)生變化的數(shù)組。 n對數(shù)組的最初聲明使用Dim語句或ReDim語 句。但是對于動(dòng)態(tài)數(shù)組，括號中不包含任何 數(shù)字。如： Dim MyArray() ReDim AnotherA

19、rray() VBScript腳本編程 數(shù)組 n要使用動(dòng)態(tài)數(shù)組，必須隨后使用Redim確定 維數(shù)和每一維的大小。 Redim MyArray(25) Redim Preserve MyArray(30) n重新調(diào)整動(dòng)態(tài)數(shù)組大小的次數(shù)是沒有任何限 制的。但是應(yīng)注意：將數(shù)組的大小調(diào)小時(shí)， 將會(huì)丟失被刪除元素的數(shù)據(jù)。 VBScript腳本編程 數(shù)組數(shù)組 n動(dòng)態(tài)數(shù)組的例子。 Dim MyArray() ReDim MyArray(3) Dim length MyArray(0) = 我 MyArray(1) = 是 MyArray(2) = 小 MyArray(3) = “王 ReDim Preser

20、ve MyArray(5) MyArray(4) = 老 MyArray(5) = 師 返回指定數(shù)組維數(shù)的最大可用下標(biāo) length = UBound(MyArray) For i=0 To length MsgBox MyArray(i) Next VBScript腳本編程 VBS賦值語句 n多個(gè)變量附相同的值時(shí)，不能寫成： 變量1=變量2=表達(dá)式 n聲明變量時(shí)不能同時(shí)賦值，下面語句是錯(cuò)誤 的： Dim a=2 n對對象賦值要使用set set rs=server.CreateObject(“ADODB.Recordset”) VBScript腳本編程 VBS運(yùn)算符 nVBScript的操作

21、符包括算術(shù)運(yùn)算符、比較運(yùn) 算符、連接運(yùn)算符和邏輯運(yùn)算符。 n1.算術(shù)運(yùn)算符:+、-、 *、/、取余Mod、求 冪()等。 n2.邏輯運(yùn)算符:與And、或Or、非Not和Xor。 其返回值為：真(True)、假(False) VBScript腳本編程 VBS運(yùn)算符 n3. 字符串(連接)運(yùn)算符:或+ n【例】result=expression1 expression2 n說明：將兩個(gè)表達(dá)式進(jìn)行字符串連接；當(dāng)任意一表達(dá)式不 是字符串時(shí)，它將被轉(zhuǎn)換為String類型；如果兩個(gè)表達(dá)式都 為Null，result也為Null；如果僅有一個(gè)為Null或任意一個(gè)表 達(dá)式為Empty，則它和其他表達(dá)式連接時(shí)，

22、按零長度字符串 ( )處理。 n【例】result=expression1 + expression2 n說明：如果兩個(gè)表達(dá)式都是數(shù)值，則+運(yùn)算符表示相加；如 果兩個(gè)表達(dá)式都是字符串，則表示連接；如果一個(gè)表達(dá)式 為字符串，一個(gè)表達(dá)式為數(shù)值，則表示相加(都是數(shù)字)。 (所以一般仍使用&運(yùn)算符來進(jìn)行字符串的連接，這是因?yàn)?在使用+運(yùn)算符時(shí)，可能無法確定是執(zhí)行加法還是字符串連 接)。 VBScript腳本編程 VBS運(yùn)算符 &用于強(qiáng)制連接兩個(gè)表達(dá)式，合成一個(gè)字符串。 例：dim a,b,ab a=“hello_” b=123 ab=a&b /* ab的值為“hello_123” */ 任一表達(dá)式不是

23、字符串時(shí)，它將被轉(zhuǎn)換為 String 子類型。 也可以使用 + 運(yùn)算符連接兩個(gè)字符串，建議使用 & 進(jìn)行字符串的連接，以避免混淆。 VBScript腳本編程 在下面的代碼中要注意，我們一般連接字 符時(shí)要用&，不要用+，這樣可以避免混亂 Dim num1,num2,str1,str2 Dim sum,str num1 = 1 num2 = 2 str1 = 小 str2 = 強(qiáng) sum = num1+num2 MsgBox sum sum = num1+ str1 MsgBox sum str = str1 & str2 MsgBox str VBScript腳本編程 VBS條件語句條件語句 n

24、在VBScript中，可以使用兩種條件語句來控 制腳本流程，分別是IfThenElse語句， 和Select Case語句。前者可以按需要進(jìn)行嵌 套。 VBScript腳本編程 VBS條件語句條件語句 if time#5:00:00PM# then greeting=“晚上好！” end if。 VBScript腳本編程 VBS條件語句條件語句 Dim contidion,str contidion = 你是億萬富翁嗎？ str = 我是窮光蛋 If contidion = str Then MsgBox 就是你了 Else MsgBox 等等在說吧 End if VBScript腳本編程 V

25、BS條件語句條件語句 Dim str str = 我愛美人 Select Case str Case 我愛江山 MsgBox 我愛江山 Case 我愛美人 MsgBox 我愛美人 Case Else MsgBox 我什么都不愛 End select VBScript腳本編程 VBS循環(huán)語句循環(huán)語句 n在VBScript中，可以使用多種循環(huán)語句來表 達(dá)循環(huán)，包括： nDo Loop : 當(dāng)（或直到）條件為True時(shí)循環(huán) nWhileWend: 當(dāng)條件為True時(shí)循環(huán) nForNext: 指定循環(huán)次數(shù)，使用計(jì)數(shù)器重復(fù)執(zhí) 行語句 nFor Each Next: 對于集合中的每項(xiàng)或數(shù)組中 的每個(gè)元素，

26、重復(fù)執(zhí)行一組語句 VBScript腳本編程 VBS循環(huán)語句循環(huán)語句 For next 用法 Dim MyName,MyWriting,i MyName = “呵呵 MyWriting = “希望大家多多支持我的課程 For i=0 To 1 MsgBox MyName MsgBox MyWriting Next VBScript腳本編程 VBS循環(huán)語句循環(huán)語句 for each 的用法 Dim MyWriting(1) MyWriting(0) = “呵呵 MyWriting(1)= “希望大家多多支持我的課 For Each element In MyWriting MsgBox eleme

27、nt Next VBScript腳本編程 VBS循環(huán)語句循環(huán)語句 do loop 的用法 Dim age age = 23 Do Until age = 100 age= age+1 Loop MsgBox “好好學(xué)習(xí)，天天向上 VBScript腳本編程 VBS循環(huán)語句循環(huán)語句 while 的用法 Dim money money = 2 While money 0 money = money -1 Wend MsgBox 我身無分文了 VBScript腳本編程 Sub和Function nSub和Function都是過程，但是Sub不能 返回值，而Function可以返回值。 n對Functi

28、on的調(diào)用只需要輸入過程名及參 數(shù)即可，對Sub的調(diào)用可以使用Call語句 的方式，也可以使用直接輸入過程名及 參數(shù)的方式。但是如果使用Call語句，則 需要把參數(shù)用括號括起來 VBScript腳本編程 Sub和Function 定義Add子過程 Sub AddMethod(num) tmp = num+100 End Sub 調(diào)用AddMethod子過程 AddMethod 200 使用Call語句調(diào)用 Call AddMethod(200) MsgBox tmp VBScript腳本編程 Sub和Function function。 Dim str,str1,str2 str1 = 努力工

29、作 Function Flighting(str) str2 = 我要 & str Flighting = str2 End Function MsgBox Flighting(str1) VBScript腳本編程 VBScript常用函數(shù) n1. 字符串函數(shù) nLen：返回字符串內(nèi)字符的數(shù)目，或是存 儲(chǔ)一變量所需的字節(jié)數(shù)。 nLeft：返回指定數(shù)目的從字符串的左邊算 起的字符。 nMid：從字符串中返回指定數(shù)目的字符。 nRight：從字符串右邊返回指定數(shù)目的字 符。 VBScript腳本編程 VBScript常用函數(shù) nLcase：返回字符串的小寫形式。 nUcase：返回字符串的大寫形式

30、。 nStrComp：返回一個(gè)表明字符串比較結(jié)果 的值。 Dim MyStr1, MyStr2, MyComp MyStr1 = ABCD: MyStr2 = abcd 定義變量。 MyComp = StrComp(MyStr2,MyStr1) 返回1。 MsgBox MyComp VBScript腳本編程 VBScript常用函數(shù) nSplit：返回基于0 的一維數(shù)組，其中包含 指定數(shù)目的子字符串。 VBScript腳本編程 VBScript常用函數(shù) Dim MyString, MyArray, Msg MyString = VBScriptXisXfun! MyArray = Split(

31、MyString, x, -1, 1) Msg = MyArray(0) & & MyArray(1) Msg = Msg & & MyArray(2) MsgBox Msg 顯示VBScript is fun! VBScript腳本編程 VBScript常用函數(shù) nJoin：返回一個(gè)字符串，此字符串由包含 在數(shù)組中的許多子字符串聯(lián)接創(chuàng)建。 VBScript腳本編程 VBScript常用函數(shù) Dim MyString Dim MyArray(3) MyArray(0) = Mr. MyArray(1) = John MyArray(2) = Doe MyArray(3) = III MyStr

32、ing = Join(MyArray) MsgBox MyString VBScript腳本編程 VBScript常用函數(shù) n2.轉(zhuǎn)換函數(shù) nCStr：返回表達(dá)式，該表達(dá)式已被轉(zhuǎn)換 為String子類型的Variant Dim MyDouble,MyString MyDouble = 437.234 MyString=CStr(MyDouble) MsgBox MyString VBScript腳本編程 VBScript常用函數(shù) n3.判斷函數(shù) nIsArray：返回Boole an 值指明某變量是否為數(shù)組。 Dim MyVariable Dim MyArray(3) MyArray(0)=Sunday MyArray(1)=Monday MyA