module1.bas

很好的教程原代码！

Attribute VB_Name = "Module1"
Option Explicit

Public Const RAS_MaxEntryName = 256
Public Const RAS_MaxDeviceName = 128
Public Const RAS_MaxDeviceType = 16
Public Const RAS_MaxPhoneNumber = 128
Public Const RAS_MaxCallbackNumber = 128
Public Const UNLEN = 256
Public Const PWLEN = 256
Public Const DNLEN = 15
Public Const ERROR_INVALID_HANDLE = 6
 
' 结构
Type RASCONN95
    'set dwsize to 412
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS_MaxEntryName) As Byte
    szDeviceType(RAS_MaxDeviceType) As Byte
    szDeviceName(RAS_MaxDeviceName) As Byte
End Type
Type RASENTRYNAME95
    'set dwsize to 264
    dwSize As Long
    szEntryName(RAS_MaxEntryName) As Byte
End Type
' 拨号用的结构体
Type RASDIALPARAMS
    dwSize As Long '1052
    szEntryName(RAS_MaxEntryName) As Byte
    szPhoneNumber(RAS_MaxPhoneNumber) As Byte
    szCallbackNumber(RAS_MaxCallbackNumber) As Byte
    szUserName(UNLEN) As Byte
    szPassword(PWLEN) As Byte
    szDomain(DNLEN) As Byte
    ' 注意98下不用定义后两个
    dwSubEntry As Long
    dwCallbackId As Long
End Type
  
' 枚举所有的连接
Declare Function RasEnumConnections Lib _
    "rasapi32.dll" Alias "RasEnumConnectionsA" _
    (lprasconn As Any, lpcb As Long, lpcConnections _
    As Long) As Long
Declare Function RasEnumEntries Lib _
    "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal _
    reserved As String, ByVal lpszPhonebook As String, _
    lprasentryname As Any, lpcb As Long, lpcEntries _
    As Long) As Long

'  拨号
Declare Function RasDial Lib "rasapi32" _
    Alias "RasDialA" (DialExt As Long, ByVal _
    lpPhoneBook As String, _
    RasDialParam As RASDIALPARAMS, _
    ByVal NotifyType As Long, _
    ByVal Notifter As Long, _
    hRasConn As Long) As Long
' 断开连接
Declare Function RasHangUp Lib "rasapi32" Alias _
        "RasHangUpA" (ByVal hRasConn As Long) As Long
' 获取错误信息
Declare Function RasGetErrorString Lib "rasapi32" _
    Alias "RasGetErrorStringA" (ByVal ErrValue As Long, _
    ByVal lpErrStr As String, _
    ByVal cSize As Long) As Long
Public Declare Function RasGetEntryDialParams _
      Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" _
        (ByVal lpszPhonebook As String, _
        lpRasDialParams As Any, _
        blnPasswordRetrieved As Long) As Long
Public Declare Function RasSetEntryDialParams _
      Lib "rasapi32.dll" Alias "RasSetEntryDialParamsA" _
        (ByVal lpszPhonebook As String, _
        lpRasDialParams As Any, _
        ByVal blnRemovePassword As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Any, Source As Any, ByVal Length As Long)