初識腳本語言VBS

語言: CN / TW / HK

這是我參與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--基礎語法整理