中国DOS联盟

Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "Rasphone -a"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 200
WshShell.SendKeys "r"
WScript.Sleep 30
WshShell.SendKeys "{ENTER}"
WScript.Sleep 30
WshShell.SendKeys "{ENTER}"
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\宽带连接.lnk")
oShellLink.TargetPath = "%windir%\system32\Rasphone.exe"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+K"
oShellLink.IconLocation = "%windir%\system32\Rasphone.exe, 0"
oShellLink.Description = "宽带连接"
oShellLink.WorkingDirectory = "%windir%\system32\"
oShellLink.Save

转的，在霏凡发个求助帖，引出这个脚本，请baomaboy兄过目，有无可改进的地方，能不能做的隐形运行，无任何窗口信息显示？可能吗？你是专家我听你的！

[ Last edited by eech on 2007-6-9 at 11:15 PM ]

偶的桌面从没宽带连接。呵呵

Originally posted by eech at 2007-6-9 23:06:
Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "Rasphone -a"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep ...

像是拼凑起来的，同一个对象建了三次。
Sleep的时间太短，会狂弹窗口。
oShellLink.TargetPath = Rasphone.exe 的话，拨号时会多一步选择所以：oShellLink.TargetPath = "rasphone.exe -d 宽带连接"
不熟悉Rasphone.exe是否支持参数静默创建连接，如果支持可以隐藏窗口。否则用sendkeys的方法就不能隐藏窗口。

C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk

文件保留下来，然后创建快捷方式。。。

我这里的ID是{BA126AD7-2166-11D1-B1D0-00805FC1270E}
不知道你那里的一样不？而且这类的用VBS如何创建还是个问题……

Originally posted by slore at 2007-6-10 11:01:
C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk

文件保留下来，然后创建快捷方式。。。

我这里的ID是{BA126AD7-2166-11D1-B1D0-00805FC ...

可以正常创建的，我试了

我运行这个脚本怎么把realone给打开来了，汗

如果你得桌面没有realone就行了 ^_^

Originally posted by eech at 2007-6-10 15:32:



可以正常创建的，我试了

???你可以创建CLSID的快捷方式？

Originally posted by slore at 2007-6-11 13:39:


???你可以创建CLSID的快捷方式？

我意思是可以在桌面创建拨号！不是你说的那种