① word-利用vbs寫一個腳本
Vbs 腳本編程簡明教程之一—為什麼要使用Vbs？
在Windows 中，學習計算機操作也許很簡單，但是很多計算機工作是重復性勞動，例如你每周
也許需要對一些計算機文件進行復制、粘貼、改名、刪除，也許你每天啟動計算機第一件事情
就是打開WORD，切換到你喜愛的輸入法進行文本編輯，同時還要播放優美的音樂給工作創造
一個舒心的環境，當然也有可能你經常需要對文本中的某些數據進行整理，把各式各樣的數據
按照某種規則排列起來……。這些事情重復、瑣碎，使人容易疲勞。
第三方軟體也許可以強化計算機的某些功能，但是解決這些重復勞動往往事倍功半，我也嘗試
過使用計算機語言編寫程序來解決這些問題，但是隨之而來的命令、語法、演算法、系統框架和
類庫常常讓我覺得這樣是否有必要，難道就是因為豬毛比較難拔，所以我就要去學習機械，為
自己設計一個拔豬毛機（？）嗎？
Vbs 是一種Windows 腳本，它的全稱是:Microsoft Visual Basic Script Editon.(微軟公司可視化
BASIC 腳本版)，VBS 是Visual Basic 的的一個抽象子集，是系統內置的，用它編寫的腳本代碼
不能編譯成二進制文件，直接由Windows 系統執行（實際是一個叫做宿主host 的解釋源代碼並
執行），高效、易學，但是大部分高級語言能乾的事情，它基本上都具備，它可以使各種各樣的
任務自動化，可以使你從重復瑣碎的工作中解脫出來，極大的提高工作效率。
我個人認為Vbs 腳本其實就是一種計算機編程語言，但是由於缺少計算機程序設計語言中的部
分要素，對於事件的描述能力較弱，所以稱為腳本，它最方便的地方就是提供了對COM 對象
的簡便支持。那麼什麼是COM 對象呢？
我這樣理解，COM 對象就是一些具有特定函數功能項程序模塊，他們一般以ocx 或者dll 作為
擴展名，你只要找到包含有你需要的功能的模塊文件，並在腳本中規范的引用，就可以實現特
定的功能，也就是說Vbs 腳本就是調用現成的「控制項」作為對象，用對象的屬性和方法實現目的，
完全免去了編寫代碼、設計演算法等等麻煩。說白了，我不是覺得拔豬毛麻煩么？我發覺xx 機（比
如真空離心器）有一個功能可以實現脫毛，ok，我把它拿來給豬脫毛。什麼？大材小用？太浪
費資源了？天哪，那是計算機晶元的事情，死道友不死貧道，反正我的事情是方便快速的解決
了，這就行了。
最方便的是它甚至不需要專門的開發環境，在你的計算機中，只要有notepad，就可以編寫Vbs
腳本了，並且可以直接執行。
===============================
Vbs 腳本編程簡明教程之二—如何開始第一個Vbs 腳本？
就像多數計算機教程一樣，我們從「Hello World！」程序開始我們的練習。什麼？不知道是什
么意思？就是說大部分的計算機程序設計教程開篇入門都是編寫一個小程序，執行這個程序的
結果就是在計算機的屏幕上或者dos 窗口中顯示一行文字：Hello World！好了，我們開始吧。
打開你的「記事本」程序，在編輯窗口填寫：
msgbox "He llo World!"
然後用滑鼠單擊「文件」菜單，單擊「保存」，把「保存在」一欄設為桌面，在「文件名」一欄中填寫
kk.vbs，單擊「保存」就可以了。然後最小化「記事本」窗口，在桌面上尋找你剛剛保存的kk.vbs，
然後雙擊。看到彈出的對話框了沒有，單擊「確定」，對話框消失了。難看了點，不過確實是你
編寫的第一個腳本程序。
說明之一：上面的操作中，保存位置放在桌面，僅僅是為了執行方便，你保存到其他的地方完
全沒有問題，只要你知道你保存在什麼地方就可以了，什麼？是廢話，自己保存的當然知道保
存在那裡了。不，自己保存的文件自己找不到的人我見的多了去了。文件名你可以隨意填寫，
不一定非要寫kk，只要符合Windows 的文件命名規則就可以了，但是擴展名必須是vbs，什麼?
不知道什麼是擴展名？就是文件名中「.」後的那部分，簡單說，就是vbs 腳本文件命名時必須是：
xxx.vbs，其中xxx 你隨意。
說明之二：在記事本編輯窗口中寫的這行是什麼意思？
Msgbox 是VBS 內建的函數，每一個函數都可以完成一定的功能，你只需要按照語法要求，在
函數的相應部分填寫相應的內容就可以了，這部分內容我們稱為參數，當然函數執行的結果我
們稱為返回值，一個函數可以有返回值也可以沒有，可以有參數也可以沒有。你不用了解函數
是怎麼運作的，只要了解這個函數能幹什麼就行了。
Msgbox 語法：msgbox "對話框內容", , "對話框的標題"
你不妨用記事本打開剛才的文件在編輯窗口中輸入：
msgbox "He llo World!" , , "系統提示"
執行一下，看看效果和位置。
說明之三：如果執行失敗，看看你的標點符號，所有的標點符號必須是在英文狀態下輸入的。
當然，這個腳本實在是太簡單了，甚至連最簡單的交互都沒有，所以你可以把腳本這樣修改一
下：
Dim name
name=Inputbox("請輸入你的名字:","名稱")
Msgbox name, , "您的名字是"
保存執行一下，看到彈出的對話框了么？填入你的名字，點確定，看到結果了嗎？
說明之一：第一句是定義變數，dim 是定義變數的語句
其格式為：dim 變數1,變數2……，
Vbs 只有一種變數類型，所以不用聲明變數類型。系統會自動分辨變數類型。
說明之二：inputbox 是VBS 內建的函數，可以接受輸入的內容，其語法格式為：
Inputbox("對話框內容","對話框標題")
第二句的意思是接受用戶的輸入，並把輸入結果傳遞給變數name。
好了，到此腳本基本的輸入輸出函數都有了，已經可以完成一些比較簡單的功能了，你可以編
寫一個簡單的腳本，然後拷貝的「程序」—>「啟動」中，然後重新啟動計算機看看結果。
② 如何編寫VBS腳本引導EXE程序後台啟動運行
dim fso,f,ws
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=Fso.GetFile(WScript.ScriptFullName)
Set Ws=CreateObject("WScript.Shell")
Ws.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.path 『將自身設置為開機啟動項
Ws.Run "程序路徑",0,True '後台運行某個程序
fso.deletefile wscript.scriptfullname '刪除自身
望採納。
③ 如何設置vbs腳本在電腦進入系統後，某個軟體啟動然後自動執行某個腳本
[AutoRun]
open=XXX.exe
icon=XXX.ico
只是最常見的，open後面是要運行的文件名，icon後面是盤圖標名，還可以加上
shell\open=打開(&O)
shell\open\Command=XXX.exe
替換右鍵點擊盤時的「打開」
shell\open\Default=1
shell\explore=資源管理器(&X)
shell\explore\Command=XXX.exe
替換右鍵點擊盤時的「資源管理器」
xxx是你的文件名，比如說替換為a.exe,a.ico,如果你的a.exe里包含圖標：
[AutoRun]
open=a.exe
icon=a.exe,1
shell\open=打開(&O)
shell\open\Command=a.exe
shell\open\Default=1
shell\explore=資源管理器(&X)
shell\explore\Command=a.exe
④ 怎麼製作VBS腳本
VBS腳本是一種簡單的腳本程序，它可以用來實現一下簡易的功能需求，那麼如何編寫VBS腳本呢？下面我給大家分享一下。
工具/材料
SublimeText
首先我們打開SublimeText軟體，新建一個後綴名為vbs的文件，如下圖所示
然後我們在vbs文件中輸入如下的代碼，主要是讓用戶輸入一些內容，然後程序返回用戶輸入的內容
雙擊運行編寫的VBS腳本，如下圖所示，會彈出窗口讓用戶輸入內容
我們輸入完內容以後，程序就會自動彈出新的框來展示我們輸入的內容。這樣一個簡單的VBS腳本就製作完了，是不是很簡單啊
⑤ vbs腳本如何啟動程序
Setshell=Wscript.createobject("wscript.shell")
a=shell.run("這里寫你文件所在的路徑，例如C:windows
otepad.exe",0)
⑥ 如何編寫打開程序的VBS腳本
set ws=createobject("wscript.shell")
pro="c:\windows\system32\notepad.exe"
n=split(pro,"\")
name=n(ubound(n))
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
s=s&sep&ps.name:sep="|":next
wscript.sleep 500
ws.appactivate "記事本"
s=split(s,"|")
for i=0 to ubound(s)
if name=s(i) then wscript.quit
next
ws.run pro
望採納。