利用vbs生成快捷方式运行最后删除 10
可不可以利用vbs生成一个快捷方式然后运行这个快捷方式最后删除这个快捷方式(之所以要生成快捷方式是因为要在运行时加参数否则我就直接运行程序了)而且要不显示快捷方式所以最好...
可不可以利用vbs生成一个快捷方式然后运行这个快捷方式最后删除这个快捷方式(之所以要生成快捷方式是因为要在运行时加参数否则我就直接运行程序了)而且要不显示快捷方式所以最好不要生成在桌面上!
或者您有更好的方法也请告诉我
这样是不行的,不是简单的参数可以说是命令了所以我看还是按我说的编一个吧 展开
或者您有更好的方法也请告诉我
这样是不行的,不是简单的参数可以说是命令了所以我看还是按我说的编一个吧 展开
3个回答
2008-07-24 · 知道合伙人软件行家
关注
展开全部
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)
run第一个参数是一个string, 可以同时包含可执行的文件 + 参数
1。如果可执行文件中有空格,要放在整个路径加单引号
2。干脆把文件放在没有空格的路径下最省事。
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)
run第一个参数是一个string, 可以同时包含可执行的文件 + 参数
1。如果可执行文件中有空格,要放在整个路径加单引号
2。干脆把文件放在没有空格的路径下最省事。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim objws,objenv,objlink
Set objws=WScript.CreateObject("wscript.shell")
Set objenv=objws.Environment("PROCESS")
Dim spath,linkpath
spath="c:\windows\system32\notepad.exe" '这里是源程序的路径
linkpath=objenv("TEMP") & "\temp.lnk"
Set objlink=objws.CreateShortcut(linkpath)
objlink.targetpath=spath
objlink.save
objws.Run "cmd /c " & Chr(34) & linkpath & Chr(34),0,True
objws.Run "cmd /c del " & Chr(34) & linkpath & Chr(34),0
你要加参数,可以在objws.Run "cmd /c " & Chr(34) & linkpath & Chr(34)里加上比如
objws.Run "cmd /c " & Chr(34) & linkpath & Chr(34),& " a.txt",0,True
那你自己编吧。
Set objws=WScript.CreateObject("wscript.shell")
Set objenv=objws.Environment("PROCESS")
Dim spath,linkpath
spath="c:\windows\system32\notepad.exe" '这里是源程序的路径
linkpath=objenv("TEMP") & "\temp.lnk"
Set objlink=objws.CreateShortcut(linkpath)
objlink.targetpath=spath
objlink.save
objws.Run "cmd /c " & Chr(34) & linkpath & Chr(34),0,True
objws.Run "cmd /c del " & Chr(34) & linkpath & Chr(34),0
你要加参数,可以在objws.Run "cmd /c " & Chr(34) & linkpath & Chr(34)里加上比如
objws.Run "cmd /c " & Chr(34) & linkpath & Chr(34),& " a.txt",0,True
那你自己编吧。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
快捷方式是什么东东
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询