標題: 開玩笑小程序 [打印本頁]
作者: 51hei麗人 時間: 2016-6-21 01:20
標題: 開玩笑小程序
這兒有一些“開玩笑”小程序。
代碼是我自己寫的。如要轉載，可不注明出處。
廢話不多說，開始啦
第一個：
on error resume next
const pmm="密碼你自己設定"
dim ab
ab=false
ppo=MsgBox ("接下來，請在444秒內連續按“確定”一千次，否則，你的電腦會關機……",VbInformation+vbyesno)
if ppo=vbNo then
mm=inputbox("輸入密碼，就可取消","pass","密碼")
if mm=pmm then
msgbox "正確"
ab=true
end if
else
msgbox "密碼錯誤！"
end if
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 444 -c ""請在剩下的秒內連續按“確定”一千次，否則就會關機。嘿嘿！"" ",0 ,true
Dim a
a = 0
Do While a < 1000
if ab=true then
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
exit do
end if
a = a + 1
b = 1000-a
MsgBox "第" & a & "次，加油，還有"& b &"次",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal,"加油"
Loop
msgbox "恭喜你成功了！"
'===============================到此為止（這行不要）========================
把以上代碼寫到記事本里，然后保存為VBS的擴展名（*.vbs）
效果你最好別自己試，否則……你的手說不定抽筋呢……
第二個：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是豬，不說“我是豬”就會關機，不信……試下。"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就可以不關機，快點，說 ""我是豬"" ","好好考慮吧……","你才是",8000,7000)
if a="你才是"then
if df<>"yes" then
dim df
df="yes"
msgbox "敢罵我，你再罵一次試看看！",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
else
msgbox "好哇，天堂有路你不走，關機無門你偏來，關機吧~~~",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""說我是豬，不說“我是豬”就會關機，不信……試下。"" ",0 ,true
end if
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + "早說不就行了嘛",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
msgbox chr(13) + "哈哈哈哈，人才，人才呀",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
'===============================到此為止（這行不要）========================
一樣的，保存擴展名為“vbs”(*.vbs)
第三個，是相當于鑰匙，運行后能停止關機倒計時：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "成功解除！",VbInformation,"信息"
'===============================到此為止（這行不要）========================
好了，文章結束，大家記住啊，玩笑可別開的過火了啊
作者: xiaoxiaoza555 時間: 2016-11-10 19:01
保存成*.vbs就可以運行了嗎？
| 歡迎光臨 (http://www.raoushi.com/bbs/) |
Powered by Discuz! X3.1 |