谁对RAS 中 RASENTRY 比较了解??有急事...

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

    szAutodialDll(259)  As Byte

    szAutodialFunc(259)  As Byte

    szDeviceType(16) As Byte

    szDeviceName(128) As Byte

    szX25PadType(32) As Byte

    szX25Address(200) As Byte

    szX25Facilities(200) As Byte

    szX25UserData(200) As Byte

    dwChannels As Long

    dwReserved1 As Long

    dwReserved2 As Long

    dwSubEntries As Long

    dwDialMode As Long

    dwDialExtraPercent As Long

    dwDialExtraSampleSeconds As Long

    dwHangUpExtraPercent As Long

    dwHangUpExtraSampleSeconds As Long

    dwIdleDisconnectSeconds As Long

    dwType As Long

    dwEncryptionType As Long

    dwCustomAuthKey As Long

    guidId As GUID

    szCustomDialDll(259) As Byte

    dwVpnStrategy As Long

    dwfOptions2 As Long

    dwfOptions3 As Long

    szDnsSuffix(255) As Byte

    dwTcpWindowsize As Long

    szPrerequisitePbk(259) As Byte

    szPrerequisiteEntry(256) As Byte

    dwRedialCount As Long

    dwRedialPause As Long

End Type







 ''' 这里是创建VPN连接

Function Create_VPN_Connection(ByVal sEntryName As String, ByVal sServer As String, ByVal sUsername As String, ByVal sPassword As String) As Boolean

    Create_VPN_Connection = False

    Dim re As RASENTRY

    Dim sDeviceName As String, sDeviceType As String

    sDeviceName = "WAN 微型端口 (L2TP)"

    sDeviceType = "vpn"

    With re

        .dwSize = LenB(re)

        .dwCountryCode = 86

        .dwCountryID = 86

        .dwDialExtraPercent = 75

        .dwDialExtraSampleSeconds = 120

        .dwDialMode = 1

        .dwfNetProtocols = 4

        .dwfOptions = 1024262928

        .dwfOptions2 = 367

        .dwFramingProtocol = 1

        .dwHangUpExtraPercent = 10

        .dwHangUpExtraSampleSeconds = 120

        .dwRedialCount = 3

        .dwRedialPause = 60

        .dwType = RASET_Vpn

        CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName)

        CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType)

        CopyMemory .szLocalPhoneNumber(0), ByVal sServer, Len(sServer) '服务器地址

        .dwVpnStrategy = VS_Default    'vpn类型

        .dwEncryptionType = ET_Optional '数据加密类型

        '.dwfOptions = RASEO_ProhibitEAP

    End With

    Dim rc As RASCREDENTIALS

    With rc

        .dwSize = LenB(rc)

        .dwMask = 11

        CopyMemory .szUserName(0), ByVal sUsername, Len(sUsername)

        CopyMemory .szPassword(0), ByVal sPassword, Len(sPassword)

    End With

    

    Dim rtn As Long

    If RasSetEntryProperties(vbNullString, sEntryName, re, LenB(re), 0, 0) = 0 Then

        If RasSetCredentials(vbNullString, sEntryName, rc, 0) = 0 Then

            Create_VPN_Connection = True

        End If

    End If

End Function

补充：.NET技术 ,  C#

上一个：C# .net 的一些问题
下一个：AxMediaPlayer播放流媒体的问题