1. 程式人生 > >VBS程式碼--很噁心的整人效果

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檔案。

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