zz100001

这种模拟操作的东西，有太多不确定因素，其实如果能看懂的话，2楼 就这么磕 的代码改改去掉判断就行了
这里给你写个新的

Set sa = CreateObject("Shell.Application")
Set cs = sa.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
For i = 0 To cs.Count - 1
    cs.Item(i).Verbs().Item(0).DoIt
Next
MsgBox "让子弹飞一会儿", 4160, "张麻子"
复制代码

zz100001

你这啥系统啊，不知道你那个网络连接里面都有啥东西
先加个限制试一下，不行再看看里面出了网络连接还有些什么玩意儿

Set sa = CreateObject("Shell.Application")
Set cs = sa.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
For i = 0 To cs.Count - 1
    If cs.Item(i).Path = "{BA126ADB-2166-11D1-B1D0-00805FC1270E}" Then
        cs.Item(i).Verbs().Item(0).DoIt
    End If
Next
MsgBox "让子弹飞一会儿", 4160, "张麻子"
复制代码