vbs文件小技巧

vbs文件介紹：

　　VBS是基於Visual Basic的腳本語言。VBS的全稱是：Microsoft Visual Basic Script Editon。（微軟公司可視化BASIC腳本版）。

　　可以新建一個記事本文件,在其內寫入代碼,最后更改后綴為.vbs。

1.矩形面積計算器:

dim a,b,s
a=inputbox("請輸入矩形的長:")
b=inputbox("請輸入矩形的寬:")
s=a*b
msgbox (s)

2.圓面積計算器：

dim a，s
a=inputbox("請輸入圓的半徑")
s=a*a*3.14
msgbox(s)

3.QQ群刷頻：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "測試刷頻"
for i=1 to 10
WScript.Sleep 500
WshShell.SendKeys "^V"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next

使用方法：先復制好一段文字，然后打開本VBS腳本，然后點擊聊天窗口的輸入框，OK。

for i=1 to 15，15是發送次數。
WScript.Sleep 500，500是發送時間間隔單位是毫秒。
WshShell.Sendkeys i   這一句可以去掉，去掉后發送時就不顯示發送的次數。

4.惡搞程序(一)：

WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！") 
WScript.Echo("你是可愛的小朋嗎?") 
WScript.Echo("哈,我想你拉，這你都不知道嗎？") 
WScript.Echo("怎么才來，說~是不是不關心我") 
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。") 
WScript.Echo("小強很生氣，后果很嚴重哦。") 
WScript.Echo("嘿嘿！你也會很慘滴哦") 
WScript.Echo("是不是想清除我？") 
WScript.Echo("那你要點上50下哦，不過會給你驚喜滴") 
WScript.Echo("還剩49下，快點點哦") 
WScript.Echo("還剩48下，快點，小笨蛋！") 
WScript.Echo("還剩47下對，就這樣快點點！") 
WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打擾你工作。") 
WScript.Echo("還剩45下，記得要快哦！") 
WScript.Echo("還剩43下") 
WScript.Echo("還剩42下") 
WScript.Echo("還剩41下") 
WScript.Echo("還剩40下") 
WScript.Echo("還剩39下") 
WScript.Echo("還剩38下") 
WScript.Echo("還剩37下") 
WScript.Echo("還剩36下") 
WScript.Echo("還剩35下") 
WScript.Echo("還剩34下") 
WScript.Echo("還剩33下") 
WScript.Echo("還剩32下") 
WScript.Echo("還剩30下") 
WScript.Echo("還剩29下") 
WScript.Echo("還剩28下") 
WScript.Echo("還剩27下") 
WScript.Echo("還剩26下") 
WScript.Echo("還剩25下") 
WScript.Echo("還剩24下") 
WScript.Echo("還剩23下") 
WScript.Echo("還剩22下") 
WScript.Echo("還剩21下") 
WScript.Echo("還剩20下") 
WScript.Echo("還剩19下") 
WScript.Echo("還剩18下") 
WScript.Echo("還剩17下") 
WScript.Echo("還剩16下") 
WScript.Echo("還剩15下") 
WScript.Echo("還剩14下") 
WScript.Echo("還剩13下停停！！！慢點，我有話要說") 
WScript.Echo("還剩12下，你繼續點我就會消失滴") 
WScript.Echo("還剩11下，以后就看不到我拉。555555") 
WScript.Echo("還剩10下，你現在可以選擇停止！") 
WScript.Echo("還剩9下。你還點啊，不要我拉？") 
WScript.Echo("還剩8下，有點傷心拉，干嘛丟棄人家") 
WScript.Echo("還剩7下。瘋了，你有點負意！") 
WScript.Echo("還剩6下。對。你就點吧，我恨你！") 
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？") 
WScript.Echo("還剩4下！真要刪除我？") 
WScript.Echo("還剩3下。可是我真的很眷戀你。。。") 
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！") 
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！！！") 
WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機會。") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次") 
WScript.Echo("想結素我么?那你就再多點一次")

5.惡搞程序(二)：

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -s -t 60 -c ""說我是豬，不說我是豬就一分鍾關你機，不信，試試···"" ",0 ,true 
dim a 
do while(a <> "我是豬") 
a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","不說",8000,7000) 
msgbox "乖" 
loop 
msgbox "早說就行了嘛" 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true

6.惡搞程序(三)：

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://new.qzone.qq.com/137841986/infocenter" 
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