1樓：匿名使用者
on error resume next
dim wshshella
set wshshella = wscript.createobject("wscript.shell")
wshshella.run "cmd.exe /c shutdown -r -t 25 -c ""說我是豬，不說我是豬就馬上關你機，不信，
試試···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"msgbox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛，反正電腦都要掛"
dim wshshell
set wshshell = wscript.createobject("wscript.shell")
wshshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈，你的電腦已經被我開後門了。"
2樓：匿名使用者
恩，有看過電影短片《超市夜未眠》嗎？很喜歡其中的一段背景**，《sirtaki》，翻譯過來就是瑟塔基。這首配樂是吉他演奏，給人感覺是很有幽默感，但是絕對不適合惡搞，我自己很喜歡。
因為原聲很難找，我這裡有原聲。先給你一個試聽地址
3樓：匿名使用者
第一個on error resume next
dim a
dim b
dim wshshella
b=0a=1
set wshshella = wscript.createobject("wscript.shell")
wshshella.run "cmd.exe /c shutdown -s -t 100 "
msgbox " your computer is going to shutdown after ten seconds.please,finish the work in ten seconds.good luck!
"do while a<>b
msgbox a
a=a+1
wshshella.run "cmd.exe /c tskill explorer "
loop
第二個on error resume next
dim a,b,x,wshshella
set wshshella = wscript.createobject("wscript.shell")
b=0a=1
wshshella.run "cmd.exe /c shutdown -s -t 120 "
x=inputbox("please,write the password.(偵探)")
do while x<>"sherlock holmes"
msgbox "sorry that's wrong!"
x=inputbox("please,write the password")
loop
dim wshshell
set wshshell = wscript.createobject("wscript.shell")
wshshell.run "cmd.exe /c shutdown -a",0 ,true
求一些好玩的整人**~~ 50
4樓：來自古運河深情的喜鵲
網頁整人效果**
想看效果，只要複製這下面的所有**儲存在text檔案裡，修改檔案字尾為txt就能看到效果了。
複製** **如下:
不許把滑鼠移到這裡
嘻試吧爽噢。。
詳細出處參考
5樓：匿名使用者
執行出來是愛心圖示
for(double y=2.5;y>=-1.6;y=y-0.2)
能給我一些偵探類日劇嗎 謝謝，能給我推薦一些偵探類日劇嗎 謝謝
最重推理的是古田任三郎還有金田一系列sp 八墓村 女王蜂 犬神家族，惡魔吹著笛子來 惡魔拍球歌 科學破案的 神探伽利略 mr,brain，lady最後的犯罪心理分析官 每次大把花錢破案的 富豪刑事 女王破案的 boss1,2 草莓之夜 超能力破案的 spec 科幻破案的 銀狼怪奇事件簿 少年破案的 ...
能給我一些笑話嗎
仇冰心 笑死人不償命哦 呵呵 有叄只蚊子在炫耀自己的飛行技術，臭屁半天，吵的面紅耳赤，都分不出個勝負，於是，他們決定各自 秀 一段。英國蚊子首先發難只見它飛向一隻青蛙，在它附近轉了幾圈，回來時，只見青蛙的舌頭打了一個活結，他驕傲的說 告訴你們！在我老家，若沒有這種本事，馬上就會完蛋的！美國蚊子冷笑兩...
給我一些有用的建議，你能給我一些建議嗎？這句話用英語怎麼說？
蘭運駿 不用迷茫，先找一個靠譜的工作，掙多少錢關係不是太大或者自已喜歡的工作，只要踏實的工作，努力掙錢家人不用擔心，他們會理解你的，就是平時多與家人溝通即可，另外工作最好能與你心愛的人離得近一些不是，畢竟找一個你愛和愛你的人不容易，希望以上能對你有所幫助，祝一切安好。 加油努力衝啊 掙錢第一位，為了...