如何用VBS編寫一個簡單的惡搞腳本
windows系統的電腦，
首先右擊桌面，選擇新建-文本文檔，在桌面上新建一個文本文檔；
隨後打開計算機或者是我的電腦，點擊其中的組織（xp系統多為工具），選擇下面的文件夾和搜索選項
在彈出的窗口中點擊查看，向下滾到，找到隱藏已知文件類型的擴展名，點掉勾號，然後確定；
此時發現新建的文本文檔出現後綴名為.txt
打開文本文檔後，輸入： msgbox“傻X”，後保存。
修改文本文檔的後綴，將.txt改為.vbs，後確定，雙擊打開。窗口彈出如圖所示窗口，點確定或關閉後消失。
如果想添加一個對方關閉不掉的窗口，則在剛才的代碼中添加do ... loop
VBS在輸入框中輸入文字
方法1：VBS在輸入框中輸入文字代碼：
MsgBox InputBox("此處輸入文字")。
方法2：
name=Inputbox("此處輸入文字")
Msgbox(name)
語法解釋：
第一行，給第一行的inputbox(輸入框命名)：name
第二行，彈出對話框，對話框的內容就是第一行的inputbox輸入的內容。
VBS是基於Visual Basic的腳本語言。VBS的全稱是：Microsoft Visual Basic Script Editon。
核心代碼是一個函數：sendKeys "XXXX"
XXX就代表我們要打的字，這樣我們只要在寫vbs腳本的時候打一次字就行了。
方法，打開記事本，輸入代碼。
下面是代碼：
Dim WshShell ‘定義一個對象，名字隨便起‘
Set WshShell=WScript.CreateObject("WScript.Shell") ‘初始化對象‘
WScript.Sleep 2000 ‘程序暫停2秒‘
WshShell.sendKeys "3{ENTER}" ‘模擬人工，按下3，然後按下ENTER鍵‘
WScript.Sleep 2000 ‘程序暫停2秒‘
WshShell.sendKeys "N123;Object-Oriented Programming;Dave Smith;2009;3{ENTER}"
WScript.Sleep 2000 ‘程序暫停2秒‘
由於腳本運行起來特別快，所以可能會出現屏幕上正在輸出，我們暫時無法輸入，而導致的輸入信息不完全。
這也就是程序暫停2秒的原因，當然如果你追求效率，可以試試把時間改到適合你為止。
sendKeys的內容暫時還不支持中文，只能是字符串，如果真的真的一定要輸入中文的話，
可以把中文復制後，用sendKe模仿Ctrl + V，至於怎麽模擬Ctrl鍵以及把這兩個組合起來，讓百度告訴你吧。
如何用VBS編寫一個簡單的惡搞腳本