VBScript基礎(chǔ)篇-創(chuàng)新互聯(lián)

VBScript學(xué)習(xí)筆記

本文參考：VBS基礎(chǔ)教程。學(xué)習(xí)了vbs的基礎(chǔ)語法，進(jìn)行了一些練習(xí)，下面是我編寫的demo。

創(chuàng)新互聯(lián)長期為上1000家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為圍場企業(yè)提供專業(yè)的成都網(wǎng)站設(shè)計、成都做網(wǎng)站，圍場網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

1.輸入輸出

vbs01.vbs

REM和'單引號作用都是用于注釋，相當(dāng)于c語言中"//"。
Dim用來聲明變量，vbs支持動態(tài)數(shù)據(jù)類型，即不用事先聲明變量的類型。
Inputbox作用是打開對話框，獲取用戶輸入，它返回的數(shù)據(jù)類型是字符串，Msgbox則用于顯示。

REM 輸入姓名并回顯

Dim name
Dim msg

msg = "please input your name:"
name = Inputbox(msg, "Inputbox", "zhangsan") 'param1是提示用戶的語句，param2是對話框標(biāo)題，param3是輸入欄默認(rèn)值。
Msgbox name,,"Msgbox" 'param1是輸出內(nèi)容，param2是對話框標(biāo)題，它們之間存在兩個“,”。

vbs02.vbs

REM 輸入長方形的長和寬，計算其面積并輸出

Dim width, length, area
Dim prompt

prompt = "please input width:"
width = Inputbox(prompt)
prompt = "please input length:"
length = Inputbox(prompt)
area = width * length

Msgbox area

vbs03.vbs

REM 輸入圓的半徑，計算圓面積并輸出

const PI = 3.14 'const關(guān)鍵字限制PI在之后的程序中無法被修改
Dim r, area
Dim prompt

prompt = "please input r:"
r = Inputbox(prompt)
area = PI * r^2 ' “^”代表n的幾次方，c語言中代表xor（異或）。

Msgbox area

2.條件控制語句

vbs04.vbs

REM 學(xué)習(xí)條件控制語句

Dim num1, num2
Dim prompt

prompt = "please input num1:"
num1 = CDbl(Inputbox(prompt)) 'CDbl用于將返回值數(shù)據(jù)類型轉(zhuǎn)換為數(shù)字（×××或浮點(diǎn)型）
prompt = "please input num2:"
num2 = CDbl(Inputbox(prompt))

if num1 > num2 then
    Msgbox "num1 > num2"
else if num1 = num2 then
    Msgbox "num1 = num2"
else
    Msgbox "num1 < num2"
end if
end if

注：if和end if數(shù)量要一致，否則會造成語法錯誤。

vbs05.vbs

REM 學(xué)習(xí)switch和case結(jié)構(gòu)

Dim n
Dim prompt

prompt = "please input a num between 1 and 3"
n = int(Inputbox(prompt))

select case n
    case 1
        Msgbox "happy"
    case 2
        Msgbox "lucky"
    case 3
        Msgbox "nervous"
    case else
        Msgbox "input error"
end select

3.循環(huán)語句(do...loop，do while...loop，do...loop while，for...next)

vbs06.vbs

REM 學(xué)習(xí)循環(huán)語句(do...loop),由用戶輸入密碼，如果認(rèn)證失敗則讓用戶繼續(xù)輸入

const PWD = "123456"
dim passwd

do
    passwd = Inputbox("please input your password:")
    if PWD = passwd then
        Msgbox "auth success!"
        exit do
    end if
loop

vbs07.vbs

REM 學(xué)習(xí)循環(huán)語句(do...loop),由用戶輸入密碼，如果認(rèn)證失敗則讓用戶繼續(xù)輸入，認(rèn)證次數(shù)上限為3次

const LIMIT = 3
const PWD = "admin_123"

Dim count, passwd

count = 0
do
    passwd = Inputbox("please input your password")
    if PWD = passwd then
        Msgbox PWD
        exit do
    end if
    count = count + 1
    if count >= LIMIT then
        Msgbox "wrong times too many!"
        exit do
    end if

loop

vbs08.vbs

REM 學(xué)習(xí)循環(huán)語句(do...while),由用戶輸入密碼，如果認(rèn)證失敗則讓用戶繼續(xù)輸入，認(rèn)證次數(shù)上限為3次

const LIMIT = 3
const PWD = "admin_123"

Dim count, passwd

count = 0
do while count < LIMIT
    passwd = Inputbox("please input your password")
    if PWD = passwd then
        Msgbox PWD
        exit do
    end if
    count = count + 1
    'Msgbox "wrong times " + cstr(count) 'cstr函數(shù)將數(shù)字轉(zhuǎn)換為字符串
    MsgBox "wrong times " & count '"&"用于連接字符串
loop

vbs09.vbs

REM 學(xué)習(xí)循環(huán)語句(for...next)

Dim i, j

i = 0
j = 0

for i = 1 to 9
    for j = 1 to 9
        str = str & i * j & " "
    next
    str = str & vbCrlf 'vbCrlf相當(dāng)于回車鍵
next
    Msgbox str

vbs10.vbs
遍歷CRT打開的所有tabs，查找連接的遠(yuǎn)程服務(wù)器的IP地址等于REMOTE_ADDR的tab，則激活對應(yīng)tab并輸出該IP地址。

'遠(yuǎn)程主機(jī)IP
Const REMOTE_ADDR = "192.168.253.133"
i = 0
'獲取打開的Tab頁面數(shù)
tabCount = Crt.GetTabCount
'遍歷所有Tab，獲取連接的遠(yuǎn)程服務(wù)器的IP地址
Do While i < tabCount
    Set tabObj = Crt.GetTab(i + 1)
    '獲取遠(yuǎn)程服務(wù)器的IP地址
    remoteAddr = Crt.Session.remoteAddress
    If REMOTE_ADDR = remoteAddr Then
        tabObj.Activate
        Call Crt.Dialog.MessageBox(remoteAddr, "", ICON_INFO)
        Exit Do
    End If
    i = i + 1
Loop

4.一維數(shù)組

vbs11.vbs

REM 學(xué)習(xí)數(shù)組使用

Dim str(2), i '定義數(shù)組str，括號內(nèi)數(shù)字為2，但實(shí)際數(shù)組大小為3，因?yàn)橄聵?biāo)是從0開始計算
Dim ret

for i = 0 to 2
    str(i) = InputBox("please input any string")
    ret = ret & str(i) & " "
next
MsgBox ret

5.函數(shù)

vbs12.vbs

REM 函數(shù)學(xué)習(xí)(function)

function Max(a, b)
    if a > b then
        Max = a '通過將變量值賦值給函數(shù)名傳遞函數(shù)返回值
    else
        Max = b
    end if
end function

Dim a, b
a = int(InputBox("please input a number:"))
b = int(InputBox("please input a number:"))
MsgBox "The bigger number is " & Max(a, b)

與Function作用相同的關(guān)鍵字還有Sub。此處參考：vbscript中Function與Sub的區(qū)別。

一、Function與Sub概述：
Sub（子過程）： sub是Subroutines的縮寫，它的意思是子程序，它是將一段具有某種特定功能的語句區(qū)塊單獨(dú)編寫成一個獨(dú)立的程序，給予特定名稱。
Function（函數(shù)）：表示每個輸入值對應(yīng)唯一輸出值的一種對應(yīng)關(guān)系，具備 Sub 的功能。
二、Function與Sub異同
相同點(diǎn)：
1）Sub和Function都是 vbscript 的過程，
2）可以傳遞參數(shù)，
3）是業(yè)務(wù)操作或業(yè)務(wù)處理的封裝，都可以被重復(fù)調(diào)用。
不同點(diǎn)：
1）Sub無返回值，而Function可以有返回值。
2）Sub關(guān)心過程，而Function關(guān)心結(jié)果，簡明的說，Sub就好比c語言中返回類型為void的函數(shù)，而Function的返回類型則可以是int和float等。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

本文名稱：VBScript基礎(chǔ)篇-創(chuàng)新互聯(lián)
當(dāng)前地址：http://www.chinadenli.net/article46/dcceeg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供自適應(yīng)網(wǎng)站、軟件開發(fā)、小程序開發(fā)、網(wǎng)站建設(shè)、用戶體驗(yàn)、服務(wù)器托管

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

猜你還喜歡下面的內(nèi)容