批处理之家 » VBS求助&讨论 » vbs如何写成mshta一句话代码

liumtz 发表于 2018-9-22 23:52

vbs如何写成mshta一句话代码

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

查看完整版本: vbs如何写成mshta一句话代码