标题: vbs如何写成mshta一句话代码 [打印本页]
作者: liumtz 时间: 2018-9-22 23:52 标题: vbs如何写成mshta一句话代码
VBS代码:- 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
复制代码
如何将上面的VBS代码写成类似下面这个样子的:- start mshta vbscript:createobject("wscript.shell").run("""%~nx0""",0)(window.close)
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |