无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 6639|回复: 20

vbs 隐藏运行,支持附带 带空格的参数,可以在带空格的目录运行。

[复制链接]
发表于 2018-4-20 09:23:05 | 显示全部楼层 |阅读模式
本帖最后由 dos时代菜鸟 于 2018-4-20 10:24 编辑

不多说,直接上代码,把代码放到 vbs 脚本 前端,可实现 隐藏运行,并且 支持在 带空格的文件夹 中运行,支持带 空格 的参数。参数要用 引号包裹。

  1. '---------------------------------------------------
  2. set ws=createObject("wscript.shell")
  3. Set fs=CreateObject("scripting.filesystemobject")
  4. pathx=fs.GetFile(WScript.scriptFullName).ParentFolder.Path
  5. hide=pathx&""&mid(wScript.ScriptName,1,Len(wScript.ScriptName)-4)&"_hide.vbs"
  6. '------------二次调用以隐藏运行,支持在带空格的目录执行,切参数可带空格----------------------------
  7. if fs.FileExists(hide)=false then
  8.         Set file1=fs.OpenTextFile(hide,2,True)
  9.         file1.WriteLine "set ws=createObject("&chr(34)&"wscript.shell"&chr(34)&") "
  10.         file1.WriteLine "pathx="&chr(34)&WScript.scriptFullName&chr(34)
  11.         file1.WriteLine "cmd0=chr(34)&pathx&chr(34)"
  12.   file1.WriteLine "args="&chr(34)&"  "&chr(34)
  13.   for each arg in WScript.Arguments
  14.     file1.WriteLine "argx="&chr(34)&arg&chr(34)
  15.     file1.WriteLine "args=args&"&chr(34)&"  "&chr(34)&"&chr(34)&argx&chr(34)"
  16.   next
  17.         file1.WriteLine "ws.run "&chr(34)&"cscript.exe "&chr(34)&"&cmd0&args,0,false"
  18.         file1.close
  19.         cmd1=chr(34)&hide&chr(34)
  20.         ws.Run "cscript.exe "&cmd1,0,true
  21.         WScript.quit
  22. else
  23.         fs.DeleteFile(hide)
  24. End if        

复制代码


hide1.zip

770 Bytes, 下载次数: 26, 下载积分: 无忧币 -2

评分

参与人数 1无忧币 +5 收起 理由
freesoft00 + 5

查看全部评分

 楼主| 发表于 2018-4-20 09:45:08 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-20 10:45 编辑
窄口牛 发表于 2018-4-20 09:27
不明白,vbs隐藏是没有script进程?

不,只是 没有了 窗口而已。

有的时候 不能用 run 方式 隐藏运行 vbs 调用的程序,比如 ftp.exe,因为需要 给 ftp.exe 输入命令,就需要用到 exec 方式 运行 ftp.exe ,而 exec 有不想 Run 那样有隐藏窗口的功能,结果,就会有一个 ftp.exe 的黑窗口。

所以,用 run 通过 cscript.exe 二次调用 脚本自身,但是 如果脚本存放在 有空格的目录里面 或者 脚本 附带的参数 有空格,就需要 考虑。

  1. '---------------------------------------------------
  2. set ws=createObject("wscript.shell")
  3. Set fs=CreateObject("scripting.filesystemobject")

  4. pathx=fs.GetFile(WScript.scriptFullName).ParentFolder.Path
  5. hide=pathx&""&mid(wScript.ScriptName,1,Len(wScript.ScriptName)-4)&"_hide.vbs"
  6. '------------二次调用以隐藏运行,支持在带空格的目录执行,切参数可带空格----------------------------
  7. if fs.FileExists(hide)=false then
  8.         Set file1=fs.OpenTextFile(hide,2,True)
  9.         file1.WriteLine "set ws=createObject("&chr(34)&"wscript.shell"&chr(34)&") "
  10.         file1.WriteLine "pathx="&chr(34)&WScript.scriptFullName&chr(34)
  11.         file1.WriteLine "cmd0=chr(34)&pathx&chr(34)"
  12.   file1.WriteLine "args="&chr(34)&"  "&chr(34)
  13.   for each arg in WScript.Arguments
  14.     file1.WriteLine "argx="&chr(34)&arg&chr(34)
  15.     file1.WriteLine "args=args&"&chr(34)&"  "&chr(34)&"&chr(34)&argx&chr(34)"
  16.   next
  17.         file1.WriteLine "ws.run "&chr(34)&"cscript.exe "&chr(34)&"&cmd0&args,0,false"
  18.         file1.close
  19.         cmd1=chr(34)&hide&chr(34)
  20.         ws.Run "cscript.exe "&cmd1,0,true
  21.         WScript.quit
  22. else
  23.         fs.DeleteFile(hide)
  24. End if        

  25. set cmd=ws.exec("cmd.exe")
  26. cmd.stdin.WriteLine "dir c:\ /b /s /a-d > "&chr(34)&pathx&chr(34)&"\c.txt"
  27. cmd.stdin.WriteLine "dir c:\*.dll /b /s /a-d > "&chr(34)&pathx&chr(34)&"\dll.txt"
  28. cmd.stdin.WriteLine "exit"
  29. Do Until cmd.Status=1
  30.   wscript.sleep 100
  31. Loop
  32. msgbox "脚本运行完毕"
复制代码
比如 ,上面代码,就是 隐藏调用 cmd.exe 并向 cmd 窗口传递指令 分别获取 c:盘 文件列表 和 dll 文件列表,分别存如 当前文件夹 的 c.txt 和 dll.txt
如果 是以前 用 run 方式隐藏运行 cmd ,最安全稳妥的办法 是 生成一个 cmd 脚本,在有 vbs 隐藏调用。而上面这个 办法就不用了,把 cmd 指令 可以写入 vbs 中,而不用生成 cmd 脚本。
虽然也要临时生成一个 二次调用 自身vbs 的脚本,但脚本 内容基本一样,临时脚本代码量固定。没啥需要隐蔽的代码,这个 对于 不想把代码 公布 的vbs 来说,还是有用的。
回复

使用道具 举报

发表于 2018-4-21 11:40:14 | 显示全部楼层
本帖最后由 slore 于 2018-4-21 11:55 编辑

'---------------------------------------------------
Set objShell = CreateObject("WSCript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments

pathx = objFSO.GetFile(WScript.scriptFullName).ParentFolder.Path

Sub RunHide()
   
Dim self, args, i
    self = """" & WScript.scriptFullName  & """"
    args = " "
    For i = 1 To objArgs.Count
        args = args & """" & objArgs(i) & """ "
    Next
    If
args = " " Then args = " -dummy"
    objShell.Run "cscript.exe " & self & args, 0, False
   
WSCript.Quit(0)
End Sub

If
objArgs.Count = 0 Then
   
RunHide
ElseIf objArgs(0) = "-hide" Then
   
RunHide
End If

Set
cmd = objShell.exec("cmd.exe")
cmd.stdin.WriteLine "dir c:\ /b /s /a-d > " & Chr(34) & pathx & Chr(34) & "\c.txt"
cmd.stdin.WriteLine "dir c:\*.dll /b /s /a-d > " & Chr(34) & pathx & Chr(34) & "\dll.txt"
cmd.stdin.WriteLine "exit"
Do Until cmd.Status = 1
    WScript.sleep 100
Loop
MsgBox
"脚本运行完毕"


用第一个参数区分,不需要临时文件。

点评

按照 你的方法 修改如下,把 -hide 放到最后一个参数,唯一需要注意的就是 主代码中涉及引用 参数个数的时候,需要 -1  详情 回复 发表于 2018-4-21 16:39
如果 首次运行 就是 cscript 调用呢?就不能 实现隐藏了。  详情 回复 发表于 2018-4-21 11:44
回复

使用道具 举报

 楼主| 发表于 2018-4-21 16:39:15 | 显示全部楼层
slore 发表于 2018-4-21 11:40
'---------------------------------------------------
Set objShell = CreateObject("WSCript.Shell")
...

按照 你的方法  修改如下,把 -hide 放到最后一个参数,唯一需要注意的就是 主代码中涉及引用 参数个数的时候,需要 -1

  1. On error resume next

  2. '----------------隐藏运行代码-----------------------
  3. set ws=createObject("wscript.shell")
  4. hide= """" & WScript.scriptFullName  & """"
  5. if WScript.Arguments.count=0  then
  6.         ws.run "cscript.exe " & hide &"  -hide " ,0,false
  7.         WScript.quit
  8. elseif WScript.Arguments(WScript.Arguments.count-1)<>"-hide" then
  9.   args=" "
  10.   for each arg in WScript.Arguments
  11.     args=args&"  "& """" & arg & """"
  12.   next
  13.         ws.run "cscript.exe " & hide &args &"  -hide " ,0,false
  14.         WScript.quit
  15. end if
  16. '-----------------隐藏代码结束----------------------

  17. '-------功能代码-----------------------
  18. Set fs=CreateObject("scripting.filesystemobject")
  19. pathx = fs.GetFile(WScript.scriptFullName).ParentFolder.Path

  20. Set cmd = ws.exec("cmd.exe")
  21. cmd.stdin.WriteLine "dir c:\ /b /s /a-d > " & Chr(34) & pathx & Chr(34) & "\c.txt"
  22. cmd.stdin.WriteLine "dir c:\*.dll /b /s /a-d > " & Chr(34) & pathx & Chr(34) & "\dll.txt"
  23. cmd.stdin.WriteLine "exit"
  24. Do Until cmd.Status = 1
  25.     WScript.sleep 100
  26. Loop
  27. MsgBox "脚本运行完毕"
复制代码

回复

使用道具 举报

发表于 2018-4-20 09:27:03 来自手机 | 显示全部楼层
不明白,vbs隐藏是没有script进程?

点评

不,只是 没有了 窗口而已。  详情 回复 发表于 2018-4-20 09:45
回复

使用道具 举报

发表于 2018-4-20 09:45:23 | 显示全部楼层
厉害了我的哥

点评

发现大师你水贴水平不错的嘛.......  详情 回复 发表于 2018-4-20 09:49
回复

使用道具 举报

发表于 2018-4-20 09:49:20 | 显示全部楼层

发现大师你水贴水平不错的嘛.......

点评

哇!谢谢夸宝宝,宝宝受益良多…  详情 回复 发表于 2018-4-20 09:56
回复

使用道具 举报

发表于 2018-4-20 09:56:37 | 显示全部楼层
q8155128 发表于 2018-4-20 09:49
发现大师你水贴水平不错的嘛.......

哇!谢谢夸宝宝,宝宝受益良多…
回复

使用道具 举报

发表于 2018-4-20 11:03:50 来自手机 | 显示全部楼层
最近活跃的很那

不懂vbs
回复

使用道具 举报

 楼主| 发表于 2018-4-20 11:47:27 | 显示全部楼层
有了 这个 可以考虑 把 cmd 转化成 vbs ,切隐藏运行。
回复

使用道具 举报

 楼主| 发表于 2018-4-21 11:44:32 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-21 13:06 编辑
slore 发表于 2018-4-21 11:40
'---------------------------------------------------
Set objShell = CreateObject("WSCript.Shell")
...


研究下,有道理

如果 原有程序 需要 读取 第一个参数 参与程序计算呢?

点评

先写-hide再写他原来要用的参数。。。放后面-hide会传递到程序,如果那个程序也有-hide参数就有问题了  发表于 2018-4-21 17:48
回复

使用道具 举报

发表于 2018-5-7 01:55:49 | 显示全部楼层
是双击就可以执行吗??还是可以在程序里调用这个vbs脚本

点评

要想使用 还是需要 动脑筋滴,不是 伸手就能用滴。  详情 回复 发表于 2018-5-7 08:33
回复

使用道具 举报

 楼主| 发表于 2018-5-7 08:33:44 | 显示全部楼层
stlcours 发表于 2018-5-7 01:55
是双击就可以执行吗??还是可以在程序里调用这个vbs脚本

要想使用 还是需要 动脑筋滴,不是 伸手就能用滴。
回复

使用道具 举报

发表于 2018-5-7 08:49:09 | 显示全部楼层
看代码感觉有压力
回复

使用道具 举报

发表于 2018-6-12 12:22:32 | 显示全部楼层
vbs脚本不懂,能否加上以管理员方式运行代码?谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 20:17

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表