[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

vbs如何写成mshta一句话代码

VBS代码:
  1. Set objnet = CreateObject("Shell.Application").NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
  2. For i = 0 To objnet.Count - 1
  3.         If objnet.Item(i).Verbs().Item(1).name = "查看可用的无线连接(&V)" Then
  4.            objnet.Item(i).Verbs().Item(0).DoIt
  5.         End If
  6. Next
复制代码
如何将上面的VBS代码写成类似下面这个样子的:
  1. start mshta vbscript:createobject("wscript.shell").run("""%~nx0""",0)(window.close)
复制代码

返回列表