Почему не работает программа?

[AntonGV]

Взял пример из API-Guide, а он не работает - почему?
система Windows XP, SP2

[GSerg]

AntonGV, а не сменить ли тебе аватару на неподвижную?

[Viper]

Единственный вопрос: что не работает в примере?

[AntonGV]

Все не работает. То есть при выделении элемента в списке должны в соответствующих полях появиться имя, пароль и номер, у меня этого не происходит. Если я сам ввожу необходимые значения, при нажатии на кнопку Dial тоже ни чего не происходит

[Viper]

Дык, елы-палы, смотри код ошибки вот здесь вот:

Код: Выделить всё

Private Sub List1_Click()
    Dim rdp As RASDIALPARAMS, t As Long
    rdp.dwSize = Len(rdp) + 6
    ChangeBytes List1.Text, rdp.szEntryName
    'Get User name and password for the connection
    t = RasGetEntryDialParams(List1.Text, rdp, 0)
    If t = 0 Then
        Text1 = ChangeToStringUni(rdp.szUserName)
        Text2 = ChangeToStringUni(rdp.szPassword)
        Text3 = ChangeToStringUni(rdp.szCallbackNumber)
    Else
        Debug.Print t ' вот он этот код!!!
    End If
End Sub

А смысл кода ошибки смотри в фале RasError.h, по идее (если стоит VC++ он находится здесь: C:\Program Files\Microsoft Visual Studio 8\VC\PlatformSDK\Include\RasError.h. Место расположение файла уточняй в зависимости от версии студии.

[AntonGV]

Где посмотреть описание ошибки если у меня VB6. Как можно исправить эту ошибку (621)

[Viper]

Держи файл RasError.h. Конкретно ошибка 621 означает:

The system could not open the phone book file.%0