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

2、c語(yǔ)言的一個(gè)子集，它并不是一個(gè)完整的程序設(shè)計(jì)語(yǔ)言，僅包含語(yǔ)言中的一些基本功能。VBScript的最大優(yōu)點(diǎn)是：用純文本建立、直接包含在HTML文檔中、編輯和修改都十分便利。 第一個(gè)VBScript腳本nSet objshell = CreateObject(Shell.Application)nSet objNS = space(&h2f)nSet colitems = objNS.itemsnFor Each objitem In colitemsnWScript.Echo nNext編譯環(huán)境nVBS Editn安裝方法VBS腳本的注釋nVbs

3、中使用單引號(hào)來注釋” ”,注釋的信息在vbsedit編輯環(huán)境中顯示為綠色。顯示一條信息Msgbox 夜深人靜，小心身后啊VBS基礎(chǔ)知識(shí)n1.腳本的注釋n格式一： Rem 注釋內(nèi)容n格式二： 注釋內(nèi)容VBS基礎(chǔ)知識(shí)n2.將單行語(yǔ)句分成多行n在編寫程序代碼時(shí)，有的語(yǔ)句可能會(huì)很長(zhǎng)，為了在閱讀和對(duì)程序查錯(cuò)時(shí)直觀、方便，可使用續(xù)行符“ -”（由一個(gè)空格和一個(gè)下劃線組成），將長(zhǎng)的語(yǔ)句分成多行書寫。VBS基礎(chǔ)知識(shí)n3.使用不同進(jìn)制的數(shù)字n在VBScript中，除了可以使用默認(rèn)的十進(jìn)制來表示數(shù)字外，還允許使用十六進(jìn)制或八進(jìn)制來表示數(shù)字。對(duì)于不同進(jìn)制的數(shù)，VBScript在表達(dá)方式上有明確規(guī)定，即十六進(jìn)制數(shù)要加

4、前綴H（如H9），八進(jìn)制數(shù)要加前綴0（數(shù)字零）或&O（字母O）（如011或&O11），十進(jìn)制數(shù)不用加任何前綴。VBS基礎(chǔ)知識(shí)n4. VBScript語(yǔ)句中的英文字母不區(qū)分大小寫，VBScript腳本代碼是一種純文本，可以用任何一種文本編輯器編寫。VBS的數(shù)據(jù)類型n在Visual Basic、C+等高級(jí)語(yǔ)言中，數(shù)據(jù)類型都是分為整數(shù)、字符等不同的類型，但在VBScript中，只有一種數(shù)據(jù)類型，稱為Variant（變體類型）。 nVariant既能表示數(shù)字，又能表示字符，還能表示其他的類型，vbs 在執(zhí)行時(shí)會(huì)自動(dòng)識(shí)別和轉(zhuǎn)換類型。n所以它也是VBScript 中所有函數(shù)的返回值的數(shù)據(jù)類型。VBS的數(shù)據(jù)

5、類型n一般情況下VBScript也會(huì)根據(jù)代碼的上下文自動(dòng)轉(zhuǎn)換數(shù)據(jù)的子類型。例如：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幫助文件)VBS的數(shù)據(jù)類型Dim aa=2001 VBScript會(huì)將它當(dāng)成整數(shù)對(duì)待a=”2001” VBScrint會(huì)將它當(dāng)成字符串對(duì)待a=20.01 VBSc

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

7、含 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ù)范圍從 -1.79769313486232E308

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

9、gbox PIVBS常量n1文字常量n（1）字符串常量：用雙引號(hào)作為定界符，由ASCII碼字符組成（除雙引號(hào)和回車符外），長(zhǎng)度不能超過20億個(gè)字符。例如：中華人民共和國(guó)、1233.45等。n（2）數(shù)值常量：包括整型數(shù)、長(zhǎng)整型數(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í)間型常量：用#號(hào)括起來。例如：#2001-3-15#、#2003-4-20 8:38:25 AM#等。VBS常量n2符號(hào)常量常量名稱常量名稱常量含義常量含義TrueTrue表示布爾真值表示布爾真值False表示布爾假值表示

10、布爾假值Null表示空值表示空值Empty表示沒有初始化之前的值表示沒有初始化之前的值vbCr表示回車表示回車vbCrLf表示回車表示回車/ /換行換行vbTab表示制表符表示制表符VBS變量n1.變量聲明變量聲明n聲明變量的一種方式是使用Dim、Redim、Public和 Private在腳本中顯式聲明變量。如：Dim namen注意：別亂加分號(hào)！VBS變量n(1)Dimn格式：Dim 變量名稱例如：Dim DegreesFahrenheitn聲明多個(gè)變量時(shí)，使用逗號(hào)分隔變量。例如： Dim Top, Bottom, Left, RightVBS變量n(2)RedimnRedim語(yǔ)句是專用來

11、定義數(shù)組的。當(dāng)需要根據(jù)數(shù)據(jù)的增加和刪除來擴(kuò)大或縮小數(shù)組的大小時(shí)，可通過Redim語(yǔ)句來實(shí)現(xiàn)。 VBS變量下面是一個(gè)擴(kuò)大數(shù)組的簡(jiǎn)單格式：Dim datanum程序代碼Redim Preserve datanum(20)Redim Preserve datanum(20)語(yǔ)句將數(shù)組的元素?cái)U(kuò)大到20。 默認(rèn)的情況下，使用Redim語(yǔ)句的同時(shí)會(huì)清除數(shù)組中的所有值。而使用Preserve關(guān)鍵字可以將所有現(xiàn)存的數(shù)據(jù)保存下來，并添加新的空白單元；如果縮小了數(shù)組的大小，那么被減去的單元中的數(shù)據(jù)也會(huì)丟失。VBS變量n(3)PublicnPublic關(guān)鍵字用于定義全局型變量。格式：Public 變量名稱例如：Pu

12、blic a,bn和Dim一樣，Public可以聲明變量，并可以一次聲明多個(gè)變量，也可以聲明一維或多維數(shù)組。所不同的是Public關(guān)鍵字定義的變量是全局變量。VBS變量n(4)PrivatePrivate關(guān)鍵字可以定義變量、一次定義多個(gè)變量、定義一維或多維數(shù)組，不同的只是變量的作用范圍不同。n下面列出了使用上面語(yǔ)句或關(guān)鍵字定義的變量的可能作用范圍： lDim：整個(gè)腳本程序或過程、函數(shù)中。 lRedim：整個(gè)腳本程序或過程、函數(shù)中。 lPublic：整個(gè)腳本程序。 lPrivate：過程或函數(shù)中。VBS變量n另一種聲明方式是通過直接在腳本中使用變量名這一簡(jiǎn)單方式隱式聲明變量。這不是一個(gè)好習(xí)慣，因

13、為這樣有時(shí)會(huì)由于變量名被拼錯(cuò)而導(dǎo)致在運(yùn)行腳本時(shí)出現(xiàn)意外的結(jié)果。因此，最好使用 Option Explicit 語(yǔ)句顯式聲明所有變量，并將其作為腳本的第一條語(yǔ)句。這樣，如果以后拼寫錯(cuò)變量名，VBScript就會(huì)提醒你這個(gè)變量沒有聲明，而避免出現(xiàn)由于拼寫錯(cuò)誤所造成的問題。 VBS變量option ExplicitDim ij=0VBS變量n2.變量命名規(guī)則n變量的名字必須以字母開頭。n名字中不能含有句號(hào)。n名字不能超過255個(gè)字符。n名字不能和VBScript中的關(guān)鍵字同名。n變量名在被聲明的作用域內(nèi)必須惟一。VBS變量n3.變量的作用域n指的是變量的有效范圍，在VBScript中分為過程內(nèi)有效和

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

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

16、ray(5)Dim lengthMyArray(0) = 0MsgBox MyArray(0)返回指定數(shù)組維數(shù)的最大可用下標(biāo)length = UBound(MyArray)MsgBox length數(shù)組n也可以聲明動(dòng)態(tài)數(shù)組，即在運(yùn)行腳本時(shí)大小發(fā)生變化的數(shù)組。n對(duì)數(shù)組的最初聲明使用Dim語(yǔ)句或ReDim語(yǔ)句。但是對(duì)于動(dòng)態(tài)數(shù)組，括號(hào)中不包含任何數(shù)字。如： Dim MyArray() ReDim AnotherArray()數(shù)組n要使用動(dòng)態(tài)數(shù)組，必須隨后使用Redim確定維數(shù)和每一維的大小。 Redim MyArray(25) Redim Preserve MyArray(30)n重新調(diào)整動(dòng)態(tài)數(shù)組大

17、小的次數(shù)是沒有任何限制的。但是應(yīng)注意：將數(shù)組的大小調(diào)小時(shí)，將會(huì)丟失被刪除元素的數(shù)據(jù)。數(shù)組數(shù)組n動(dòng)態(tài)數(shù)組的例子。Dim MyArray()ReDim MyArray(3)Dim lengthMyArray(0) = 我MyArray(1) = 是MyArray(2) = 小MyArray(3) = “王ReDim Preserve MyArray(5)MyArray(4) = 老MyArray(5) = 師返回指定數(shù)組維數(shù)的最大可用下標(biāo)length = UBound(MyArray)For i=0 To lengthMsgBox MyArray(i)NextVBS賦值語(yǔ)句n多個(gè)變量附相同的值時(shí)，

18、不能寫成： 變量1=變量2=表達(dá)式n聲明變量時(shí)不能同時(shí)賦值，下面語(yǔ)句是錯(cuò)誤的： Dim a=2n對(duì)對(duì)象賦值要使用set set rs=server.CreateObject(“ADODB.Recordset”)VBS運(yùn)算符nVBScript的操作符包括算術(shù)運(yùn)算符、比較運(yùn)算符、連接運(yùn)算符和邏輯運(yùn)算符。n1.算術(shù)運(yùn)算符:+、-、 *、/、取余Mod、求冪()等。n2.邏輯運(yùn)算符:與And、或Or、非Not和Xor。其返回值為：真(True)、假(False)VBS運(yùn)算符n3. 字符串(連接)運(yùn)算符:或+n【例】result=expression1 expression2n說明：將兩個(gè)表達(dá)式進(jìn)行字符

19、串連接；當(dāng)任意一表達(dá)式不是字符串時(shí)，它將被轉(zhuǎn)換為String類型；如果兩個(gè)表達(dá)式都為Null，result也為Null；如果僅有一個(gè)為Null或任意一個(gè)表達(dá)式為Empty，則它和其他表達(dá)式連接時(shí)，按零長(zhǎng)度字符串( )處理。n【例】result=expression1 + expression2n說明：如果兩個(gè)表達(dá)式都是數(shù)值，則+運(yùn)算符表示相加；如果兩個(gè)表達(dá)式都是字符串，則表示連接；如果一個(gè)表達(dá)式為字符串，一個(gè)表達(dá)式為數(shù)值，則表示相加(都是數(shù)字)。(所以一般仍使用&運(yùn)算符來進(jìn)行字符串的連接，這是因?yàn)樵谑褂?運(yùn)算符時(shí)，可能無法確定是執(zhí)行加法還是字符串連接)。VBS運(yùn)算符 &用于強(qiáng)制連接兩個(gè)表達(dá)式，

20、合成一個(gè)字符串。 例：dim a,b,ab a=“hello_” b=123 ab=a&b /* ab的值為“hello_123” */ 任一表達(dá)式不是字符串時(shí)，它將被轉(zhuǎn)換為 String 子類型。 也可以使用 + 運(yùn)算符連接兩個(gè)字符串，建議使用 & 進(jìn)行字符串的連接，以避免混淆。在下面的代碼中要注意，我們一般連接字符時(shí)要用&，不要用+，這樣可以避免混亂Dim num1,num2,str1,str2Dim sum,strnum1 = 1num2 = 2str1 = 小str2 = 強(qiáng)sum = num1+num2 MsgBox sumsum = num1+ str1 MsgBox sumstr

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

22、str = 我愛美人Select Case strCase 我愛江山 MsgBox 我愛江山Case 我愛美人 MsgBox 我愛美人Case Else MsgBox 我什么都不愛End selectVBS循環(huán)語(yǔ)句循環(huán)語(yǔ)句n在VBScript中，可以使用多種循環(huán)語(yǔ)句來表達(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í)行語(yǔ)句nFor Each Next: 對(duì)于集合中的每項(xiàng)或數(shù)組中的每個(gè)元素，重復(fù)執(zhí)行一組語(yǔ)句VBS循環(huán)語(yǔ)句循環(huán)語(yǔ)句For next 用法Dim MyName,MyWri

23、ting,iMyName = “呵呵MyWriting = “希望大家多多支持我的課程For i=0 To 1MsgBox MyNameMsgBox MyWritingNextVBS循環(huán)語(yǔ)句循環(huán)語(yǔ)句for each 的用法Dim MyWriting(1)MyWriting(0) = “呵呵MyWriting(1)= “希望大家多多支持我的課For Each element In MyWritingMsgBox elementNextVBS循環(huán)語(yǔ)句循環(huán)語(yǔ)句do loop 的用法Dim ageage = 23Do Until age = 100age= age+1LoopMsgBox “好好學(xué)習(xí)，

24、天天向上VBS循環(huán)語(yǔ)句循環(huán)語(yǔ)句while 的用法Dim moneymoney = 2While money 0money = money -1WendMsgBox 我身無分文了Sub和Function nSub和Function都是過程，但是Sub不能返回值，而Function可以返回值。n對(duì)Function的調(diào)用只需要輸入過程名及參數(shù)即可，對(duì)Sub的調(diào)用可以使用Call語(yǔ)句的方式，也可以使用直接輸入過程名及參數(shù)的方式。但是如果使用Call語(yǔ)句，則需要把參數(shù)用括號(hào)括起來 Sub和Function 定義Add子過程Sub AddMethod(num)tmp = num+100End Sub 調(diào)用

25、AddMethod子過程AddMethod 200 使用Call語(yǔ)句調(diào)用Call AddMethod(200)MsgBox tmpSub和Functionfunction。Dim str,str1,str2str1 = 努力工作Function Flighting(str)str2 = 我要 & strFlighting = str2End FunctionMsgBox Flighting(str1)VBScript常用函數(shù) n1. 字符串函數(shù)nLen：返回字符串內(nèi)字符的數(shù)目，或是存儲(chǔ)一變量所需的字節(jié)數(shù)。 nLeft：返回指定數(shù)目的從字符串的左邊算起的字符。 nMid：從字符串中返回指定數(shù)目的

26、字符。 nRight：從字符串右邊返回指定數(shù)目的字符。 VBScript常用函數(shù)nLcase：返回字符串的小寫形式。nUcase：返回字符串的大寫形式。 nStrComp：返回一個(gè)表明字符串比較結(jié)果的值。 Dim MyStr1, MyStr2, MyCompMyStr1 = ABCD: MyStr2 = abcd 定義變量。MyComp = StrComp(MyStr2,MyStr1) 返回1。MsgBox MyCompVBScript常用函數(shù)nSplit：返回基于0 的一維數(shù)組，其中包含指定數(shù)目的子字符串。 VBScript常用函數(shù)Dim MyString, MyArray, MsgMySt

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

28、tring = Join(MyArray)MsgBox MyStringVBScript常用函數(shù)n2.轉(zhuǎn)換函數(shù)nCStr：返回表達(dá)式，該表達(dá)式已被轉(zhuǎn)換為String子類型的VariantDim MyDouble,MyStringMyDouble = 437.234MyString=CStr(MyDouble)MsgBox MyStringVBScript常用函數(shù)n3.判斷函數(shù)nIsArray：返回Boole an 值指明某變量是否為數(shù)組。 Dim MyVariableDim MyArray(3)MyArray(0)=SundayMyArray(1)=MondayMyArray(2)=TuesdayMyVariable=IsArray(MyArray) MyVariable為TrueMsgB