56.txt

来自「VB实用技巧124则之1-62则 为了使每包文件个数少于65(获得更快的解压速」· 文本 代码 · 共 24 行

如何启动拨号网路中的连线？ 


拨号网路其实不是一个可执行文件， 所以一般常用的「Shell 可执行文件名」方
法，在此并不适用。
要叫出拨号网路本身，方法如下：(藉助 explorer.exe 来开启拨号网路)
Shell "explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{992CFFA0-
F557-101A-88EC-00DD010CCC48}"
要启动拨号网路中的某一个连线， 其方法是：(假设连线名称为 Hinet) (藉助 
rundll.exe 及 rnaui.dll 来启动连线窗口)
Shell "rundll rnaui.dll,RnaDial Hinet"
请注意在以上叙述中，「,RnaDial Hinet」这个部分不要插入额外的空白字符，大
小写不要任意更改。


Private Sub StartConnection()
Dim X
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "_连接的名称_", 1)
DoEvents
SendKeys "{enter}", True
DoEvents
End Sub