当前位置：首页 → 问答吧 → 编写一个PPPOE拨号程序！

编写一个PPPOE拨号程序！

时间：2011-08-11

来源：互联网

界面就是简单的两个text两个Command！分别是帐号密码还有拨号和连接！

能稍微带有注释更好！谢谢各位了！

作者: lianghengchao 发布时间: 2011-08-11

VB code


'断开Internet网络连接
Public Function RASDisconnect()
    Dim udtRASConn(255) As RASConnType, udtStatus As RASConnStatusType, lRet As Long, hRasConn As Long, GetRASHandle As Long
    udtRASConn(0).dwSize = 412
    lRet = RASEnumConnections(udtRASConn(0), udtRASConn(0).dwSize * 256, 0)
    If lRet <> 0 Then GetRASHandle = 0 Else GetRASHandle = udtRASConn(0).hRascon
    If GetRASHandle <> 0 Then Call RASHangUp(GetRASHandle)
End Function
'连接Internet网络
Public Function RASConnect(ByVal Phone_no, ByVal UserName As String, ByVal Password As String) As Boolean
    Dim rp As RASDIALPARAMS, h As Long, resp As Long
    rp.dwSize = Len(rp) + 6
    ChangeBytes Phone_no, rp.szPhoneNumber      'Phone no. stored for Connection.
    ChangeBytes "*", rp.szCallbackNumber        'Callback no. stored for Connection.
    ChangeBytes UserName, rp.szUserName
    ChangeBytes Password, rp.szPassword
    ChangeBytes "*", rp.szDomain                'Domain stored for Connection.
    resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h)     'AddressOf RasDialFunc
    RASConnect = (resp = 0)
End Function