久久视频精品,国产视频精品自拍,国产网站视频

這兒有一些“開(kāi)玩笑”小程序。

代碼是我自己寫(xiě)的。如要轉(zhuǎn)載，可不注明出處。

廢話(huà)不多說(shuō)，開(kāi)始啦

on error resume next
const pmm="密碼你自己設(shè)定"
dim ab
ab=false
ppo=MsgBox ("接下來(lái)，請(qǐng)?jiān)?44秒內(nèi)連續(xù)按“確定”一千次，否則，你的電腦會(huì)關(guān)機(jī)……",VbInformation+vbyesno)
if ppo=vbNo then
mm=inputbox("輸入密碼，就可取消","pass","密碼")
if mm=pmm then
      msgbox "正確"
      ab=true
end if
else
msgbox "密碼錯(cuò)誤！"
end if
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 444 -c ""請(qǐng)?jiān)谑Ｏ碌拿雰?nèi)連續(xù)按“確定”一千次，否則就會(huì)關(guān)機(jī)。嘿嘿！"" ",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 "恭喜你成功了！"

'===============================到此為止（這行不要）========================

把以上代碼寫(xiě)到記事本里，然后保存為VBS的擴(kuò)展名（*.vbs）

效果你最好別自己試，否則……你的手說(shuō)不定抽筋呢……

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說(shuō)我是豬，不說(shuō)“我是豬”就會(huì)關(guān)機(jī)，不信……試下。"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說(shuō)我是豬,就可以不關(guān)機(jī)，快點(diǎn)，說(shuō) ""我是豬"" ","好好考慮吧……","你才是",8000,7000)
if a="你才是"then
  if df<>"yes" then
dim df
df="yes"
msgbox "敢罵我，你再罵一次試看看！",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
  else
msgbox "好哇，天堂有路你不走，關(guān)機(jī)無(wú)門(mén)你偏來(lái)，關(guān)機(jī)吧~~~",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 ""說(shuō)我是豬，不說(shuō)“我是豬”就會(huì)關(guān)機(jī)，不信……試下。"" ",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) + "早說(shuō)不就行了嘛",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
msgbox chr(13) + "哈哈哈哈，人才，人才呀",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
'===============================到此為止（這行不要）========================

一樣的，保存擴(kuò)展名為“vbs”(*.vbs)

第三個(gè)，是相當(dāng)于鑰匙，運(yùn)行后能停止關(guān)機(jī)倒計(jì)時(shí)：

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "成功解除！",VbInformation,"信息"

'===============================到此為止（這行不要）========================

好了，文章結(jié)束，大家記住啊，玩笑可別開(kāi)的過(guò)火了啊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费