VBS代碼--很噁心的整人效果

----我們會經常遇到一些無聊的文件，一旦我們打開它就會出現各種煩人的新窗口，今天來看的是VBS腳本----

一：VBS簡介

VBS是基於Visual Basic的腳本語言。VBS的全稱是：Microsoft Visual Basic Script Editon。（微軟公司可視化BASIC腳本版）。其語言類似Visual Basic（VB），VBS是微軟的WSH腳本的一種，WSH是是Windows腳本宿主，是一個腳本解釋器，支持vbs,js,wsh三種格式的腳本。

簡單瞭解一下，計算機語言分爲編譯語言和解釋語言，腳本語言屬於解釋語言。VBS腳本是有ASCII碼組成。編寫VBS腳本沒有什麼特定要求，只要有系統帶了WSH環境就可以，從WIN98就開始支持了。

二：程序實現的預覽效果

由於這個腳本涉及到關機操作，所以安全管家會提醒操作，另外這個腳本還可以打開一個網址，後面的操作沒有繼續操作，大家可以嘗試一下完全進行的過程，那就繼續看如何實現吧。。。

三：程序的編輯

我知道菜鳥現在最關心的就是用什麼工具來開發VBS程序了, 答案是:記事本(Notepad)，我不是開玩笑, 其實任何一種文本編輯器都可以用來開發VBS, 只不過記事本是由系統自帶的, 比較好找而已. 儘管如此, 我還是建議你去下載一個專業的文本編輯器, 因爲這些工具可以提供 "語法高亮"等功能, 更加方便開發, OK, 我們先來寫一個VBScript程序來實現上述的效果圖；

1.首先我們需要一個文本編輯程序，我們就直接使用系統自帶的記事本程序。點擊開始菜單，在運行對話框下輸入notepad,打開記事本程序。

2.

我們來開始編寫第一個程序，我們就以上述程序爲例來學習vbs編程。

在記事本下面輸入以下代碼：

set ws=createobject("wscript.shell") 
call shutdown(1) 
do while a<>"我是豬" 
a=inputbox("快在下面的框框裏輸入我是豬,否則後果自負，快輸""我是豬"" ","輸不輸","") 
loop 
call shutdown(2) 
msgbox "早說就行了嘛",4096+64 
msgbox"再輸一遍我是豬!",4096+64 
msgbox"我是豬!",4096+64 
MsgBox"最後一次!",4096+64 
MsgBox"如果你很快的點過去,不看的話",4096+64 
MsgBox"我就要你踩我空間的!哼!",4096+64 
MsgBox"從前有座山!",4096+64 
MsgBox"山裏有個廟.",4096+64 
MsgBox"廟裏有個老和尚在講故事.",4096+64 
ws.run"iexplore.exe http://www.baidu.com" 
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64 
for i=1 to 100 
MsgBox i&"只綿羊",4096+64 
next 
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64 
msgbox"最後問個問題，我是不是大好人！",4096+64 
if inputbox("是不是","請選擇","是")<>"是" then 
call shutdown(1) 
end if 
sub shutdown(s) 
select case s 
case 1 
ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
case 2 
ws.run"cmd.exe /c shutdown -a",0 
end select 
end sub 

如圖所示：

(其中的URL地址可以隨意寫入)

3.然後點擊文件菜單，在另存爲對話框下面輸入後綴爲.vbs的文件名就可以。這樣你的第一個程序就完成了。

4.之後只要雙擊圖標就會出現我們想要的效果，小夥伴們趕緊試一試吧！！

注：在有點win7電腦上有的記事本保存後不能更改後綴爲.vbs的文件（如圖），這個時候我們需要在記事本里選擇另存爲，輸入文件名爲"***.vbs"(一定要加雙引號)，才能夠保存爲vbs文件。

經驗內容僅供參考，如果您需解決具體問題(尤其法律、醫學等領域)，建議您詳細諮詢相關領域專業人士