------------------------------中断vbs进程--------------------------------
如果想要中断vbs进程：打开任务管理器——找到wscript.exe——结束进程就可以啦。
------------------设置执行完后删除自己---------------------------
Dim fso Set fso =CreateObject("Scripting.FileSystemObject") fso.DeleteFile WScript.ScriptFullName '删除自己
------------------vbs调用系统----------------------------------------------
Set ws=WScript.CreateObject("WScript.Shell")
ws.popup"哈哈哈~",10 '系统弹出框
wscript.sleep 1000 '设置休眠1000毫秒再执行
ws.run"https://www.baidu.com/" '打开外部浏览器
ws.run "taskkill /f /im qq.exe" '关闭qq
ws.run"shutdown -s -t 600" '设置电脑定时10分钟后关机
ws.run"shutdown -a" '取消定时关机
------------------------------删除指定路径下的指定文件----------------------------------------------------------
Dim fso Set fso=CreateObject("Scripting.FileSystemObject") fso.DeleteFile"E:\tg.txt",true
-------------------------------复制自己到指定路径下------------------------------------------------------------------------------------
Set copy1=createobject("scripting.filesystemobject") copy1.getfile(wscript.scriptfullname).copy("E:\h.vbs") '复制自己到E盘的h.vbs文件中 h.vbs是执行后生成的
