拨号网路其实不是一个可执行文件, 所以一般常用的「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