VBS（Visual Basic Scripting Edition）是一种脚本语言，主要用于Windows操作系统，可以用来创建各种自动化任务，如批处理、脚本等。然而，整人代码通常是指那些用于恶作剧或捉弄人的程序，这在道德和法律上都是不被推荐的。以下是一个简单的VBS脚本示例，用于发送邮件，你可以根据需要修改它，但请确保你的行为符合道德规范

' 设置收件人信息
strRecipient = "目标邮箱地址"
strSubject = "恶作剧邮件"
strBody = "这只是个测试，别当真！"
' 创建SMTP对象
Set objSmtp = CreateObject("Microsoft Outlook.Application")
' 创建邮件对象
Set objMail = objSmtp.CreateItem(0)
' 邮件设置
objMail.To = strRecipient
objMail.Subject = strSubject
objMail.Body = strBody
' 发送邮件
objMail.Send
' 关闭邮件对象
objMail.Close
objSmtp.Quit
' 显示成功信息
WScript.Echo "邮件已发送！"

如果你想创建一个更复杂的整人脚本，比如远程控制、屏幕截图或者音频播放，这可能会涉及到更高级的功能，比如ActiveX控件、Windows API等，但是请注意，这样的行为可能侵犯他人的隐私，甚至可能触犯法律，在任何情况下，请确保你的行为合法且尊重他人。