安裝windows script host,雙擊字尾為.vbs的檔案執行，或者在命令列下，以cscript命令執行。　　前面展示了一個HTML檔案中巢狀VBScript的例子。這裡展示一個透過Windows Script Host執行的本地　　將上述檔案儲存為字尾為vbs的文件，當你在資源管理器中雙擊該文件時，資源管理器透過查詢登錄檔，發現該檔案型別已與windows scripting Host 關聯，因此呼叫WHS，並將檔名傳入。WHS從檔案開頭執行，忽略掉註釋文字。對這個例子來說，是從WSCript.Echo GetIP 處執行。　　這樣就引發了對函式GetIP的呼叫。WSH在當前指令碼內找到該函式，執行，並將結果作為引數傳給WSCript.Echo，顯示後結束。Echo是物件WSCript的一個方法，當指令碼以這種方式執行時，它以Messagebox的方式輸出文字。當指令碼在命令列方式下，以CScript.exe命令執行時，輸出到控制檯。

在VB 窗體中放置一個按扭 Command1,雙擊按扭,在其 Click() 事件中新增你的程式就可以了

如:

Private Sub Command1_Click()

On Error Resume Next

Dim WSHshellAset

WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.Run "cmd.exe /c shutdown -r -t 60 -c ""說我是豬，不說我是豬就一分鐘關你機，不信，試試···"" ", 0, True

Dim a

Do While (a "我是豬")

a = InputBox("說我是豬,就不關機，快撒，說 ""我是豬"" ", "說不說", "不說", 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + "早說就行了嘛"

Dim WSHshellset

WSHshell = wscript.CreateObject("wscript.shell")

WSHshell.Run "cmd.exe /c shutdown -a", 0, True

MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈，一切皆有可能~"

End Sub