2024年2月15日发(作者：)
龙源期刊网
愚人节整蛊日记！
作者：AmberK
来源：《计算机应用文摘》2013年第07期
看，看，看电影？
小严肯定是会迟到的了。接下来，我该去整蛊谁来使这个日子更为充实一点呢？我晃悠到了雪芹的座位后。她正在电脑上看着电影呢！啧啧，她这么喜欢看电影，我就给她的显示器做点手脚吧！
“雪芹，”我咳嗽了下，“主任正找你。”
单纯的雪芹妹子丝毫没有意识到今天是愚人节，立马离开了座位。于是，我插上早已准备好的U盘，将“碎裂屏幕.exe”复制到了她的电脑中。这款绿色小软件只要双击图标即可运行。
注意，刚开始运行的时候，屏幕上并不会发生任何异状。只需耐心等待一阵子，雪芹妹子回来的时候就会发现好好的显示器竟然开裂了（如图1）？
唉！不管是整蛊别人或是被整，这些简单的伎俩又怎能让我在愚人节找到真正的满足感呢？还是来点高级的吧！至少，看起来是比较高级的。这巧，我的VBScript知识已经落下很久了，就随便写点代码拿出来晒晒（下载地址：http：// /6DafW）。
代码如下。
on error resume next
dim WSHshellA
set WSHshellA = object（""）
" /c shutdown -r -t 60 -c ""说我是猪刚鬣，不说一分钟关你机，不信就试试"" "，0 ，true
dim a
do while（a "我是猪刚鬣"）
a = inputbox （"说我是猪刚鬣，就不关机，快说！ ""我是猪刚鬣"" "，"说不说"，"不说"，8000，7000）
msgbox chr（13） + chr（13） + chr（13） + a，0，"MsgBox"
发布者：admin，转转请注明出处：http://www.yc00.com/web/1708003225a1535213.html
评论列表（0条）