[144]如何用VBS編寫一個簡單的惡搞腳本

首先右擊桌面，選擇新建-文本文檔，在桌面上新建一個文本文檔；

隨后打開計算機(jī)或者是我的電腦，點擊其中的組織（xp系統(tǒng)多為工具），選擇下面的文件夾和搜索選項

在彈出的窗口中點擊查看，向下滾到，找到隱藏已知文件類型的擴(kuò)展名，點掉勾號，然后確定；

此時發(fā)現(xiàn)新建的文本文檔出現(xiàn)后綴名為.txt

打開文本文檔后，輸入： msgbox“傻X”，后保存。

修改文本文檔的后綴，將.txt改為.vbs，后確定，雙擊打開。窗口彈出如圖所示窗口，點確定或關(guān)閉后消失。

如果想添加一個對方關(guān)閉不掉的窗口，則在剛才的代碼中添加do … loop

方法1：VBS在輸入框中輸入文字代碼：

MsgBox InputBox(“此處輸入文字”)。

方法2：

name=Inputbox(“此處輸入文字”)

Msgbox(name)

語法解釋：

第一行，給第一行的inputbox(輸入框命名)：name 第二行，彈出對話框，對話框的內(nèi)容就是第一行的inputbox輸入的內(nèi)容。

VBS是基于Visual Basic的腳本語言。VBS的全稱是：Microsoft Visual Basic Script Editon。

核心代碼是一個函數(shù)：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秒’

由于腳本運行起來特別快，所以可能會出現(xiàn)屏幕上正在輸出，我們暫時無法輸入，而導(dǎo)致的輸入信息不完全。

這也就是程序暫停2秒的原因，當(dāng)然如果你追求效率，可以試試把時間改到適合你為止。

sendKeys的內(nèi)容暫時還不支持中文，只能是字符串，如果真的真的一定要輸入中文的話，

可以把中文復(fù)制后，用sendKe模仿Ctrl + V，至于怎么模擬Ctrl鍵以及把這兩個組合起來，讓百度告訴你吧。