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

 

 

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

 

上一个：如何通过VB获取网卡地址
下一个：如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸？