如何用VB引入Windows的拔号信息，即“我的连接”里的用记名和密码

Question

调用APIRasGetEntryDialParams，相关申明有一大堆。
Tell me your email address,maybe I'll send it to you.

Answer 1

Give Me a Copy ? [email protected]

Answer 2

and me!thank you!
[email protected]

Answer 3

Private Type RASDIALPARAMS
   dwSize As Long ' 1052
   szEntryName(RAS95_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
End Type
Private Declare Function RasGetEntryDialParams Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" (ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByRef lpbool As Long) As Long
Private Sub cmdGo1_Click()
    Dim rdp As RASDIALPARAMS, t As Long
    rdp.dwSize = Len(rdp) + 6
    t = RasGetEntryDialParams(NULL, rdp, 0)
    If t = 0 Then
        Text1 = ChangeToStringUni(rdp.szUserName)
        Text2 = ChangeToStringUni(rdp.szPassword)
    End If
End Sub
Private Function ChangeToStringUni(Bytes() As Byte) As String
    
    Dim temp As String
    temp = StrConv(Bytes, vbUnicode)
    ChangeToStringUni = Left(temp, InStr(temp, Chr(0)) - 1)
End Function

Answer 4

xiaoboey(石块)
我要，[email protected]

Answer 5

to xiaoboey(石块)
能给我一份吗？[email protected]

Answer 6

我也要一份!!
[email protected]