InternetDial无法调用

[橘子皮...]

Public Class RAS
    <DllImport("Rasapi32.dll", EntryPoint:="RasEnumConnectionsA", SetLastError:=True)> _
    Friend Shared Function RasEnumConnections(ByRef lprasconn As RASCONN, ByRef lpcb As Integer, ByRef lpcConnections As Integer) As Integer
    End Function

    <DllImport("rasapi32.dll", CharSet:=CharSet.Auto)> _
    Friend Shared Function RasGetConnectionStatistics(ByVal hRasConn As IntPtr, <[In](), Out()> ByVal lpStatistics As RasStats) As UInteger
    End Function

    <DllImport("rasapi32.dll", CharSet:=CharSet.Auto)> _
    Public Shared Function RasHangUp(ByVal hrasconn As IntPtr) As UInteger
    End Function

    <DllImport("rasapi32.dll", CharSet:=CharSet.Auto)> _
    Public Shared Function RasEnumEntries(ByVal reserved As String, ByVal lpszPhonebook As String, <[In](), Out()> ByVal lprasentryname As RasEntryName(), ByRef lpcb As Integer, ByRef lpcEntries As Integer) As UInteger
    End Function

    <DllImport("wininet.dll", CharSet:=CharSet.Auto)> _
    Public Shared Function InternetDial(ByVal hwnd As IntPtr, <[In]()> ByVal lpszConnectoid As String, ByVal dwFlags As UInteger, ByRef lpdwConnection As Integer, ByVal dwReserved As UInteger) As Integer
    End Function

    Public Sub New()
    End Sub
End Class

Public Function Connect(ByVal Connection As String) As Boolean
        Dim temp As Integer = 0, INTERNET_AUTO_DIAL_UNATTENDED As UInteger = 2
        Dim retVal As Integer = RAS.InternetDial(IntPtr.Zero, Connection, INTERNET_AUTO_DIAL_UNATTENDED, temp, 0)
        If retVal = 0 Then Return True Else Return False
    End Function

InternetDial这个api在win7里不知道为什么总是没法调出窗口连接网络拨号，在xp里可以，百度也搜不到相关信息。。。

[良朋]

win7是不是精简版啊？有没装网络拨号模块？

[橘子皮...]

引用 1 楼 itleon 的回复:

win7是不是精简版啊？有没装网络拨号模块？

你测试了可以？？