初識指令碼語言VBS

這是我參與11月更文挑戰的第17天，活動詳情檢視：2021最後一次更文挑戰

vbs基本語法

cmd基本命令

PS

✌ 的意思為或

HelloWorld

第一個程式

做一個HelloWorld彈框吧

1. 桌面🖱️右鍵 -> 點選新建文字文件

2. 修改輸入法為英文模式

3. 開啟新建的文字文件，輸入以下內容

   msgbox("Hello,World!")

4. 點選左上角檔案 -> 點選儲存 ✌ 按Ctrl + S

5. 右鍵單擊檔案 -> 點選重新命名 ✌ 按F2-> 改為 01-HelloWorld.vbs

6. 點選執行, 彈出內容為HelloWorld的彈框。

7. 更改視窗位置：Win + ⬅️，方便程式除錯。

副檔名不顯示？

1. 按Win + E 開啟檔案資源管理器
2. 在選單欄中點選檢視
3. 勾選右側副檔名

副檔名是什麼

僅僅是一些字母的集合, 修改了副檔名後, 就變成了可執行的程式？

• 為什麼要有副檔名？

在不讀取檔案內容的情況下, 系統無法得知該檔案需要用什麼軟體開啟。

使用中文

1. 右鍵編輯 -> 修改內容為中文

   msgbox("你好, 世界！")

2. 執行發現報錯 ✌ 亂碼

3. 百度尋找解決辦法

VBS語法

迴圈

如何惡搞使用者，讓他關不掉這個視窗呢？

指令碼語言的程式碼是一行一行執行的，

每次關掉後執行下一行程式碼。

' 寫入無限多的 msgbox msgbox("你好, 世界！") msgbox("你好, 世界！") ...

有沒有更簡單的方法？

' 這是一行註釋, 用法如其名, 計算機不會執行這行東西。 ' 未來的程式設計之路將會經常用到他 do msgbox("關掉？你在想Peach") loop

如何關閉

1. 工作列單擊滑鼠右鍵 ✌ 按 Ctrl + Alt + Del
2. 選擇工作管理員
3. 找到MicroSoft ® ...並選中
4. 點選右下角結束任務 ✌ 重啟電腦

條件迴圈

倒數10個數的視窗

每次執行前判斷條件是否滿足

``` ' 定義一個變數名字叫i, 值為10 dim i ' 這和數字怎麼不需要"括起來呢？ ' 只有字串需要用"括起來 i=10

' 持續執行下面的程式碼, 直到i不大於0 do while i>0 msgbox(i) i=i-1 loop

' = 等於 ' <> 不等於 ' > 大於 ' < 小於 ```

條件判斷

加入惡搞使用者的互動

根據條件決定是否執行

``` dim answer ' 一個輸入框, 輸入的結果命名為answer answer = inputbox("說“我是豬”")

' 判斷說輸入的值是否為 我是豬 if answer = "我是豬" then msgbox("哈哈哈, 你是豬") elseif answer = "I'm a pig" then msgbox("hahaha, you are a pig") else do msgbox("你在想Peach") loop end if ```

以上就是程式設計中最常用的三種表示式了

更多？

製作一個有破壞作用惡搞程式

為類生產一個例項，並呼叫例項中的方法

這些東西程式語言已經為你實現好了, 我們所作的就是決定他的用用途。

未來能夠自己編寫類的時候，就可以理解了。

``` ' 一個輸入框, 輸入的結果命名為answer answer = inputbox("說“我是豬”")

' 判斷說輸入的值是否為“我是豬” if answer = "我是豬" then msgbox("哈哈哈, 你是豬") elseif answer = "I'm a pig" then msgbox("hahaha, you are a pig") else ' 使用 set 建立一個可以呼叫的例項 ' 汽車 = 製造(圖紙) set ws = createobject("Wscript.shell") ' 汽車.發動('去曹縣') ws.run("cmd.exe /c shutdown -s -t 10" ) msgbox("10s後就會關機") end if ```

推薦閱讀

整蠱的VBS+bat程式碼

VBS--基礎語法整理