本篇內(nèi)容主要講解“靈活實(shí)用VBS的方法”，感興趣的朋友不妨來看看。本文介紹的方法操作簡(jiǎn)單快捷，實(shí)用性強(qiáng)。下面就讓小編來帶大家學(xué)習(xí)“靈活實(shí)用VBS的方法”吧!

在做網(wǎng)站、網(wǎng)站設(shè)計(jì)中從網(wǎng)站色彩、結(jié)構(gòu)布局、欄目設(shè)置、關(guān)鍵詞群組等細(xì)微處著手，突出企業(yè)的產(chǎn)品/服務(wù)/品牌，幫助企業(yè)鎖定精準(zhǔn)用戶，提高在線咨詢和轉(zhuǎn)化，使成都網(wǎng)站營(yíng)銷成為有效果、有回報(bào)的無錫營(yíng)銷推廣。創(chuàng)新互聯(lián)公司專業(yè)成都網(wǎng)站建設(shè)十余年了，客戶滿意度97.8%，歡迎成都創(chuàng)新互聯(lián)客戶聯(lián)系。

選擇結(jié)構(gòu)

選擇結(jié)構(gòu)，即是對(duì)條件進(jìn)行判斷，然后根據(jù)判斷的結(jié)果，選擇執(zhí)行不同的分支的結(jié)構(gòu)。常見的有IF條件語句和Select Case語句。

●IF條件語句
IF條件語句又有多種具體的形式，如If…Then、If…Then…Else、If…Then…ElseIf。下面分別用例程來說明。用筆記本編寫一個(gè)如下內(nèi)容的VBS腳本：

dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
if a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
End if

運(yùn)行后，要求用戶輸入兩個(gè)數(shù)字，第一個(gè)數(shù)字的值賦給a，第二個(gè)數(shù)字的值賦給b，然后程序自動(dòng)判斷a和b，如果a的值大于b的值，就彈出信息提示框，顯示“第一個(gè)數(shù)大于第二個(gè)數(shù)”。注意：then后面的語句不與then在同一行時(shí)，判斷語句結(jié)束后要加一行End if來結(jié)束，否則程序會(huì)結(jié)束。如果是同一行的就不用再加上End if了，如上面的語句可改為：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
if a>b then MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
另外一個(gè)程序中可以用多個(gè)If語句，我們可以把上面的程序完善一下如下：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
If a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
End if
If a=b then
MsgBox(“第一個(gè)數(shù)等于第二個(gè)數(shù)”)
End if
If a<b then
MsgBox(“第一個(gè)數(shù)小于第二個(gè)數(shù)”)
End if
我們也可以再換用IF的其它語句If…Then…Else和If…Then….Elseif來實(shí)現(xiàn)相同的作用，如下：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
If a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
Else
IF a=b then
MsgBox(“第一個(gè)數(shù)等于第二個(gè)數(shù)”)
Else 
MsgBox(“第一個(gè)數(shù)小于第二個(gè)數(shù)”)
End if
End if
――――――――――――――――――――――――――――――――――――――
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
If a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
Elseif a=b then
MsgBox(“第一個(gè)數(shù)等于第二個(gè)數(shù)”)
Else
MsgBox(“第一個(gè)數(shù)小于第二個(gè)數(shù)”)
End if

●Select Case語句
Select Case語句是多分支結(jié)構(gòu)的另一種表示形式，它具有表示直觀的特點(diǎn)，結(jié)構(gòu)簡(jiǎn)單，不容易導(dǎo)致混亂，它的語法形式如下：
Select Case 變量或表達(dá)式
Case 表達(dá)式1
語句1
Case 表達(dá)式2
語句2
End Select

現(xiàn)在我們用Select Case語句來寫一個(gè)數(shù)字轉(zhuǎn)換成英文的程序，體驗(yàn)一下Select Case的優(yōu)點(diǎn)，Let's go！?。?br/>
dim a
a=inputbox("輸入一個(gè)數(shù)字","輸入")
Select Case a
 Case 1 
 MsgBox("你輸入的數(shù)英文是One")
 Case 2
 MsgBox("你輸入的數(shù)英文是Two")
 Case 3
 MsgBox("你輸入的數(shù)英文是Tree")
 Case 4
 MsgBox("你輸入的數(shù)英文是Four")
End Select

從上面，是不是覺得Select Case語句很直觀呢，如果用If語句的話，肯定會(huì)很混亂，甚至?xí)讶硕冀o看暈了。還要注意的是無論是條件語句有多少個(gè)分支，只要一個(gè)分支執(zhí)行了，其余的分支就不再執(zhí)行。

循環(huán)結(jié)構(gòu)

●For循環(huán)語句
For語句是用來控制循環(huán)次數(shù)已知的循環(huán)結(jié)構(gòu)的，語句如下：
For 循環(huán)變量＝初值 To 終值 [步長(zhǎng)]
語句
[Exit for] '退出循環(huán)語句
Next
現(xiàn)在我們編寫一個(gè)計(jì)算從1加到100的整數(shù)和的程序，深入去了解For的用法，程序內(nèi)容如下：

dim s
s=0
for i=1 to 100
s=s+i
next
msgbox(s)

這段程序也是經(jīng)典的程序之一，它首先聲明了一個(gè)變量S，然后給S賦個(gè)初始值0，for i=1 to 100語句讓i隨著每一次循環(huán)加1，循環(huán)體內(nèi)的語句s=s+i也隨著i的增加進(jìn)行累加，一直加到i=100時(shí)結(jié)束循環(huán)。Next語句讓循環(huán)體進(jìn)入下一次循環(huán)。

●Do…loop循環(huán)語句
For循環(huán)語句用于控制循環(huán)次數(shù)已知的循環(huán)，而Do…loop則是用于控制次數(shù)未知的循環(huán)，根據(jù)設(shè)定的條件控制循環(huán)。它有兩種形式，一種是先判斷后執(zhí)行，另一形式是先執(zhí)行后判斷。
先判斷后執(zhí)行語法形式：
Do [while/until 條件]
語句
[Exit Do] ‘退出循環(huán)
Loop

先執(zhí)行后判斷語法形式：
Do
 語句
[Exit Do]
Loop [while/until 條件]
下面我們用Do…Loop語句來改寫上面的計(jì)算1到100的整數(shù)和的程序，如下：

先執(zhí)行后判斷式
dim s
s=0
i=0
do
i=i+1
s=s+i
loop until i>=100
msgbox(s)

先判斷后執(zhí)行式：
dim s
s=0
i=0
do while s<100
i=i+1
s=s+i
loop
msgbox(s)

這兩段程序很簡(jiǎn)單，很容易理解，在此就不再贅述了。
至此，VBS重要的語法結(jié)構(gòu)以及語句已經(jīng)粗略學(xué)習(xí)完畢，要更加深入細(xì)致系統(tǒng)地去研究，好找相關(guān)的書籍看一下。下面將正式進(jìn)行VBS編程網(wǎng)吧實(shí)戰(zhàn)階段。

實(shí)戰(zhàn)篇

進(jìn)行“實(shí)戰(zhàn)”前我們先來理解什么是Shell對(duì)象和WSH。Shell對(duì)象就是微軟對(duì)一些常用外殼操作函數(shù)的封裝。象打開或?yàn)g覽一個(gè)文件夾、查找文件、關(guān)閉計(jì)算機(jī)等等，而且還能瀏覽整個(gè)文件系統(tǒng)，獲取文件或文件夾的各種信息。由于這些封裝是建立在OLE自動(dòng)化服務(wù)的基礎(chǔ)之上，所以我們可以在VB、Web和VBS中方便的使用它們。WSH是Windows Script Host的縮寫形式，WSH是Windows平臺(tái)的腳本指令，它的功能十分強(qiáng)大，并且它利用JS和VBS腳本語言，來實(shí)現(xiàn)其卓越的功能的，除了修改注冊(cè)表之外，它還可以訪問Excel文件，也能與網(wǎng)絡(luò)溝通，當(dāng)然它較大的優(yōu)勢(shì)莫過于它能與操作系統(tǒng)溝通，而修改注冊(cè)表只是它與操作系統(tǒng)溝通的冰山一角。正是它有如此諸多的優(yōu)點(diǎn)與實(shí)用性，正倍受很多Windows用戶的青睞。

上面說了WSH利用VBS可以修改系統(tǒng)注冊(cè)表，但必須先創(chuàng)建一個(gè)能與操作系統(tǒng)溝通的對(duì)象,再利用該對(duì)象的各種方法對(duì)注冊(cè)表進(jìn)行操作,創(chuàng)建這個(gè)對(duì)象的方法和格式如下：

Dim OperateReg
Set OperateReg=WScript.CreateObject("WScript.Shell")
上面第一行聲明了一個(gè)變量，而第二行則是利用聲明的變量創(chuàng)建一個(gè)能與操作系統(tǒng)溝通的Shell對(duì)象OperateReg。

下面就來利用Shell對(duì)象來關(guān)閉一些會(huì)給網(wǎng)吧機(jī)子帶來安全隱患的服務(wù)吧。

關(guān)閉默認(rèn)共享
set ds=createobject("wscript.shell")
ds.run "net stop server /y"

關(guān)閉WMI服務(wù)
set swmi=createobject("wscript.shell")
swmi.run "net stop wmI /y"

禁用GUEST用戶
set sg=createobject("wscript.shell")
sg.run "net user guest /active:NO"

關(guān)閉telnet服務(wù)
set st=createobject("wscript.shell")
st.run "net stop telnet"

利用VBS 實(shí)現(xiàn)開機(jī)BAT延時(shí)和無黑屏
如果我們開機(jī)要執(zhí)行名為bar.bat的批處理文件在遠(yuǎn)程服務(wù)器\\server\new\ 中那么就在客戶機(jī)的C盤根目錄下建個(gè)批處理,將他命名為run.bat，內(nèi)容如下：
ping 127.0.0.1 -n 10　 (10表示你要延時(shí)的秒數(shù) 自己根據(jù)需要進(jìn)行設(shè)置)
call \\server\new\bar.bat

保存后再在同目錄下建個(gè)文本寫上 
set nb=createobject("wscript.shell")
nb.run "run.bat /start",0
保存成VBS文件然后將此文件加入到啟動(dòng)項(xiàng)，重啟BAT延時(shí)和無黑屏就這樣實(shí)現(xiàn)了。

到此，相信大家對(duì)“靈活實(shí)用VBS的方法”有了更深的了解，不妨來實(shí)際操作一番吧！這里是創(chuàng)新互聯(lián)建站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！

新聞名稱：靈活實(shí)用VBS的方法-創(chuàng)新互聯(lián)
文章源于：http://aaarwkj.com/article18/ieogp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、網(wǎng)站導(dǎo)航、電子商務(wù)、標(biāo)簽優(yōu)化、用戶體驗(yàn)、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)