在win2000下如何调用拨号网络

Question

1. 自动拨号
   方法1A：使用rnaui.dll   rnaui.dll是微软的“拨号网络用户接口”程序集，一般在“\Windows\System”目录下。其中的RnaDial程序用于启动拨号。该程序可在命令行执行（在“开始”->“运行”中键入）：   rundll32.exe rnaui.dll,RnaDial <拨号网络连接名>   其中的“RnaDial”和“<拨号网络连接名>”是区分大小写的。   但由于上述命令仅启动拨号窗口而未立即开始拨号，因此在程序中使用时还应再送出模拟“回车”的按键：ret = Shell("rundll32.exe rnaui.dll,RnaDial " + 连接名, 1)
   SendKeys "{enter}", True  

Answer 1

方法1B：使用wininet.dll   wininet.dll是微软的Internet扩充函数集，一般在“\Windows\System”目录下。其中的InternetAutodial、InternetAutodialHangup和InternetGetConnectedState三个函数分别可完成自动拨号、自动挂断和判断在线状态等任务。InternetAutodial的定义为：Private Declare Function InternetAutodial Lib "wininet.dll" _
          (ByValdwFlags As Long, ByValdwReserved As Long) As Long        若将第一个参数（dwFlags）的值设为2，该函数无需用户干预就可自动拨号。但使用该函数有一个前提：即必须将“Internet 属性”->“连接”设成“始终拨打默认连接”（见下图）。用InternetAutodial函数自动拨号的情况可参见下图。从图中可以看出，该方法可自动重试多次。具体的重试次数在默认连接的“设置”->“高级”中定义： 
 

Answer 2

water_j(jxp) 有QQ吗，有事向你请教

Answer 3

If IsWindowsNT Then
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl", vbNormalFocus)
    Else
        If IsWindows95 Then
            Call Shell("EXPLORER.EXE ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus)
        End If
    End If