vbs表白代碼大全可復制 vbs整人代碼大全 _生活經驗

VBS是基于Visual Basic的腳本語言，簡單方便，不需要下載編譯器，更不需要配置環境，只用windows自帶的記事本就可以進行開發，簡單粗暴。
右鍵新建“文本文檔”->粘貼代碼->另存為“xxx.vbs”->保存->雙擊運行。
接下來就是代碼了： 1.最簡單的一行代碼msgbox "你個豬頭！"

文章插圖

文章插圖
當然你還可以多寫幾行其他有趣的文字，程序將會一行一行運行。
2.死循環惡搞上個代碼點完“確定”就運行結束了，想要整人還是不夠，那我們可以加一個死循環，點擊確定和關閉按鈕之后，會再一次彈出窗口，如此循環，無法正常關閉。
msgbox "你個豬頭！"
那怎么才能關閉呢？只有打開任務管理器（快捷鍵Ctrl+Alt+Delete）找到wscript.exe進程冰右鍵結束任務。windows7系統wscript.exe在”進程“中， windows10系統wscript.exe在”詳細信息“中。

文章插圖
結束wscript.exe進程
3.無限英文報數從1到無窮大，關閉方法同上
Set s = CreateObject("sapi.spvoice")
s.speak i
4.無限刷新（慎用?。。。┧⑿履巖源蚩撾窆芾砥鰨?只能強行關機
set ws=createobject("wscript.shell")
ws.sendkeys "{f5}"
5.QQ連續發送信息騷擾好友
打開QQ，準確記下好友的備注，代碼里的”菜雞“替換為你的好友備注，數字”30“替換為你想要發送的次數，復制好你準備發送的消息，雙擊運行vbs 。
On Error Goto 0
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 30
wscript.sleep 100
wsh.AppActivate("菜雞")
wsh.sendKeys "^v"
wsh.sendKeys "%s"
wscript.quit

文章插圖
QQ騷擾好友 6.表白代碼其中用到了定時關機，但是后面會取消的。
Set Seven = WScript.CreateObject("WScript.Shell")
【vbs表白代碼大全可復制 vbs整人代碼大全】strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜歡你很久了，你可以做我女朋友嗎是=同意否=拒絕 ",4,"我沒有開玩笑?。。?))
If se_key=6 Then
MsgBox "謝謝你給了我這次機會，I Love You",64,"Love you"
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜歡你！求你了，別拒絕我，好嗎？是=同意否=拒絕",4,"別拒絕我，好嗎？"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "謝謝你給了我這次機會，I Love You",,"Love you"
WScript.Sleep 500
MsgBox "唉，那祝你能找到自己喜歡的人，若可回頭記住我在你身后一直等你！ --愛你的人",64,"祝你幸福?。?
seven.Run "shutdown.exe -a"
MsgBox "其實你拒絕了我，我也不會關你電腦的！因為你是我最重要的人，我不會捉弄你的！",64,"我愿意等你！"

文章插圖
延時關機 7.撩妹代碼只有再回答出設定好的名字是，循環才會結束
const title = "愛情測試"
const yourname = "小Y"
const question = "你最喜歡的人是誰？請在下面的方框中輸入他（她）的名字。"
const info = "你在說謊！不要逃避，實話實說。"
const scend = "你說出了你的心扉，那就向他（她）表白吧。"
dim youranswer
youranswer = inputbox(question, title)
if youransweryourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

文章插圖
這些都是編程的入門級小程序，是不是很有趣？發給那個TA，給生活加點料~
以后將會更新界面更漂亮更有趣的HTML代碼，歡迎關注小Y~
這就是今天的分享了，快去試試吧！