高手请进，特急 如何自动拨号，断开？ 在线等！若问题解决，分不够可再加！

Question

各位大虾请帮小第一把
1号机与2号机通过modem 远程访问，1号机是客户端，2号机是服务器，1号机通过拨号与2号机连接，等到通信结束后，再断开。问题是：
一、如何用程序实现自动拨号？
二、如何用程序自动断开连接？
三、在通信过程中如何判断连接是否已断开？若问题解决，分不够可再加！

Answer 1

写好拨号函数
再Timer里面调用就可以了阿

Answer 2

这个问题我也遇到过，下面是我的部分程序代码，希望能够起到抛砖引玉的作用。'打开连接
Public Function DialNet_Open(ByVal lngHwnd As Long, ByVal strNetName As String, ByVal intFlags As Integer) As Long
'lngHwnd：句柄  
'strNetName：连接的名称 
'intFlags ：连接类型标识
Dim lngConnected As Long
Dim lngRetValue As Long
    Select Case intFlags
        Case 1
            lngRetValue = InternetDial(lngHwnd, strNetName, INTERNET_AUTODIAL_FORCE_ONLINE, lngConnected, 0)
        Case 2
            lngRetValue = InternetDial(lngHwnd, strNetName, INTERNET_AUTODIAL_FORCE_UNATTENDED, lngConnected, 0)
        Case 3
            lngRetValue = InternetDial(lngHwnd, strNetName, INTERNET_DIAL_UNATTENDED, lngConnected, 0)
    End Select
    If lngRetValue = ERROR_SUCCESS Then
        DialNet_Open = lngConnected
    Else
        DialNet_Open = 0
    End If
End Function'关闭连接
Public Sub DialNet_Close(ByVal lngConnected As Long)
    InternetHangUp lngConnected, 0
End Sub
其中用到的API函数，我就不再详述了，减少一点版面吗！