愚人节整蛊日记!
愚人节整蛊日记！
作者：AmberK
来源：《计算机应用文摘》2013年第07期
        看，看，看电影？
        小严肯定是会迟到的了。接下来，我该去整蛊谁来使这个日子更为充实一点呢？我晃悠到了雪芹的座位后。她正在电脑上看着电影呢！啧啧，她这么喜欢看电影，我就给她的显示器做点手脚吧！
        “雪芹，”我咳嗽了下，“主任正你。”
        单纯的雪芹妹子丝毫没有意识到今天是愚人节，立马离开了座位。于是，我插上早已准备好的U盘，将“碎裂屏幕.exe”复制到了她的电脑中。这款绿小软件只要双击图标即可运行。
        注意，刚开始运行的时候，屏幕上并不会发生任何异状。只需耐心等待一阵子，雪芹妹子回来的时候就会发现好好的显示器竟然开裂了（如图1）？
        唉！不管是整蛊别人或是被整，这些简单的伎俩又怎能让我在愚人节到真正的满足感呢？还是来点高级的吧！至少，看起来是比较高级的。这巧，我的VBScript知识已经落下很久了，就随便写点代码拿出来晒晒（下载地址：http：// dwz/6DafW）。
        代码如下。
        on error resume next
        dim WSHshellA
        set WSHshellA = ateobject（"wscript.shell"）
        WSHshellA.run " /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"
        loop
        msgbox chr（13） + chr（13） + chr（13） + "哈哈，高兴不？"
        dim WSHshell
        set WSHshell = ateobject（"wscript.shell"）
        WSHshell.run " /c shutdown -a"，愚人节整蛊方法0 ，true
        msgbox chr（13） + chr（13） + chr（13） + "真的是头猪，自己承认的！"
        “我在服务器上传了一段整人的代码，各位自取啊！”将代码写好，保存为“.vbe”文件上传到公司服务器之后，我在工作里大声嚷道。别笑我，我不是傻子！我就是知道某些同事，告诉他们真相之后肯定会去下载并先自己打开试一试的。
        首先，在双击程序之后，他们的电脑屏幕会突然变暗，而接下来出现的画面就会让他们发现自己上当了（如图5）。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。