发表评论(0)作者:, 平台:, 阅读:11024, 日期:2000-03-12
如何启动拨号网路中的连线?
拨号网路其实不是一个可执行文件, 所以一般常用的「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
拨号网路其实不是一个可执行文件, 所以一般常用的「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