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

[vbfdy]

[vbfdy]

只要方法可行就给分，会继续加分

[xiaoboey]

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

[night_cai]

Give Me a Copy ? OK?

[e-mail]

[visualbasic999]

and me!thank you!
[e-mail]

[hydnoahark]

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

[vbfdy]

大家快来讨论，讨论。

[YHW]

api

[vbfdy]

xiaoboey(石块)
我要，[e-mail]

[vbfdy]

大家快来呀，高分！再加7分

[billkay]

to xiaoboey(石块)
能给我一份吗？[e-mail]

[mickeypeng]

我也要一份!!
[e-mail]