這個是一個可以通過微信qq,發送的一個惡搞文件.編寫十分方便,用記事本就可以.
下面先來一段代碼:
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://www.baidu.com"
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
這段是一段惡搞代碼,大家可以自己電腦上試一試.
給大家一個解決方案,以免彈窗彈個不停,
打開任務管理器,進程,把wscript的進程結束掉就好了
在給大家一份代碼,很有意思的:
do
intanswer=msgbox("小姐姐我注意你很久了，做我女朋友吧，好不好？",vbYesNo+vbInformation,"小姐姐我有話對你說")
if intanswer=vbNo then
intanswer=msgbox("不要急着拒絕，再考慮考慮吧？",vbYesNo+vbInformation,"小姐姐我有話對你說")
intanswer=msgbox("房產證寫你名字",vbYesNo+vbInformation,"小姐姐我有話對你說")
intanswer=msgbox("我會愛你一生一世",vbYesNo+vbInformation,"小姐姐我有話對你說")
intanswer=msgbox("永遠對你好，永遠不惹你生氣",vbYesNo+vbInformation,"小姐姐我有話對你說")
if intanswer=vbYes then
end if
else
msgbox"愛你么么噠",vbInformation,"小姐姐我有話對你說"
exit do
end if
loop
大家可以試一下,
另外有些安全軟件可以避免這類的文件,例如360殺毒等,
網上的代碼還是謹慎為好,可以下一個影子系統,再去測試代碼,
當然了,這篇文章的代碼,都是親測的,沒事的,大家可以拿去試試.