天天看點

腳本之美│VBS 入門互動實戰

腳本之美│VBS 入門互動實戰

帶你打開腳本的大門,領略語言之美

目錄
  • 🎈 什麼是 VBS
  • 🎈 第一個 VBS 腳本
  • 🎈 msgbox 文法
  • 🎈 中文亂碼
  • 🎈 彈窗互動功能
  • 🎈 表白惡搞

🎈 什麼是 VBS

  • VBS

    是一種

    Windows

    腳本語言,全稱是

    Microsoft Visual Basic Script Editon

    ,微軟公司可視化 BASIC 腳本版
  • vbs

    是系統内置的,代碼可在

    windows

    系統中直接執行,不需要編譯環境,非常的友善
  • vbs

    腳本簡單,高效,大部分功能都可以實作,利用好

    vbs

    腳本,可以極大的提高效率,可以用它來做一些反複繁瑣的機器操作

🎈 第一個 VBS 腳本

  • 在桌面上建立一個文本文檔
  • 打開文本文檔,在其中輸入

    msgbox "Hello World!"

  • 将文本文檔的格式字尾

    .txt

    改為

    .vbs

  • 然後輕按兩下運作檔案即可
腳本之美│VBS 入門互動實戰

🎈 msgbox 文法

  • 文法:

    msgbox "對話框内容","對話框類型(參數:0,1,2,3,4,5)","對話框标題"

  • 對話框内容:是指彈窗的主體内容
  • 對話框類型:可以選擇

    0-5

    共6種類型的對話框模式,0時對話框隻有

    确定按鈕

    ;1時對話框有

    确定按鈕

    取消按鈕

    ;2時對話框有

    中止按鈕

    重試按鈕

    忽略按鈕

    ;3時對話框有

    是按鈕

    否按鈕

    取消按鈕

    ;4時對話框有

    是按鈕

    否按鈕

    并且對話框禁止點選右上角的

    關閉

    按鈕;5時對話框有

    重試按鈕

    取消按鈕

    。如果不填預設為0
  • 對話框标題:是指彈窗的标題
msgbox "飛兔小哥送你一份獎品待領取", 3, "溫馨提醒"
           
腳本之美│VBS 入門互動實戰

🎈 中文亂碼

  • 上圖可以看到中文亂碼了
  • 這主要是因為編碼錯誤導緻的,正常的文本文檔它的編碼格式是

    UTF-8

    的,但是

    VBS

    腳本需要編碼格式是

    ANSI

    才可以正常運作中文
  • 這時候我們需要

    打開文本文檔

    點選左上角檔案

    另存為

    選擇編碼為ANSI

    确定

    即可解決
腳本之美│VBS 入門互動實戰

🎈 彈窗互動功能

  • 上面我們隻是實作了很簡單的展示功能,那麼我們需要實作互動功能,就要用到變量了
  • vbs

    中可以通過

    dim

    定義變量,文法為:

    dim 變量名1,變量名2,變量名3...變量名n

  • 其中

    inputbox

    可以用來接收使用者手動輸入的參數
dim name
name = inputbox("請告訴我您是誰", "這是互動的标題")
msgbox name,,"歡迎您"
           
腳本之美│VBS 入門互動實戰
腳本之美│VBS 入門互動實戰

🎈 表白惡搞

  • 之前很火的關閉不了的表白彈窗,就是

    vbs

    做出來的
  • 使用

    dim a(5)

    可以定義數組,5表示這個數組裡面有多少元素
  • 使用

    Select Case

    表示這是一個選項
  • 其中選擇同意的傳回值為6,不同意的傳回值為7
  • 如果點選了不同意,那就循環從數組中取值展示
  • 如果使用者點選了同意,那就陰謀得逞,退出選項
MsgBox "佛前哭求"
MsgBox "奈何橋等待"
MsgBox "五百次回眸"
MsgBox "千年的回首"
MsgBox "百世的輪回"
MsgBox "換你今朝一世情緣"
MsgBox "可否"
dim a(5)
a(0)="天大,地大,女友最大"
a(1)="工資上交"
a(2)="房寫你名"
a(3)="幫清購物車"
a(4)="保大"
a(5)="你就答應我把^o^"
Dim j
Do
Select Case msgbox ("姑娘,做我女朋友吧", 4)
Case 6 
MsgBox "you are my girlfriend," + Chr(13) + "from this day until to my last days."
exit do
Case 7
msgbox a(i)
i=i+1
if i >= 6 then
i = 0
end if

end Select
Loop
           
腳本之美│VBS 入門互動實戰
腳本之美│VBS 入門互動實戰

繼續閱讀