使用VB创建PPPoE以及VPN拨号连接的核心代码

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
    Data1   As Long
    Data2   As Integer
    Data3   As Integer
    Data4(7)   As Byte
End Type
Private Type RASIPADDR
        a   As Byte
        b   As Byte
        c   As Byte
        d   As Byte
End Type
Private Type RASENTRY
        dwSize   As Long
        dwfOptions   As Long
        dwCountryID   As Long
        dwCountryCode   As Long
        szAreaCode(10)   As Byte
        szLocalPhoneNumber(128)   As Byte
        dwAlternateOffset   As Long
        ipaddr   As RASIPADDR
        ipaddrDns   As RASIPADDR
        ipaddrDnsAlt   As RASIPADDR
        ipaddrWins   As RASIPADDR
        ipaddrWinsAlt   As RASIPADDR
        dwFrameSize   As Long
        dwfNetProtocols   As Long
        dwFramingProtocol   As Long
        szScript(259)     As Byte
        szAutodial