RasEnumEntriesの戻り値エラーについて (ID：80197)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とりあえず動作確認が取れたコードを乗せておきます。
Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal Reserved As Long, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Sub RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long)

Private Const RAS_MaxEntryName = 256
Private Const RAS_MaxDeviceName = 128
Private Const RAS_MaxDeviceType = 16
Private Const RAS_MaxPhoneNumber = 128
Private Const RAS_MaxCallbackNumber = 128
Private Const UNLEN = 256
Private Const PWLEN = 256
Private Const DNLEN = 15
Private Const ERROR_INVALID_HANDLE = 6

Private Type RASENTRYNAME9X
   dwSize As Long
   szEntryName(RAS_MaxEntryName) As Byte
End Type

Private Type RASENTRYNAMENT
   dwSize As Long
   szEntryName(RAS_MaxEntryName) As Byte
   dwFlags As Long
   szPhonebookPath As String * 257
End Type

Private Type RASDIALPARAMSA
dwSize As Long
szEntryName(RAS_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
dwSubEntry As Long
dwCallbackId As Long
End Type

Private Sub Form_Load()
Dim EntryNT(255)    As RASENTRYNAMENT
Dim ParamNT(255)    As RASDIALPARAMSA
Dim EntryCount      As Long, i As Long
Dim TmpConName      As String
Dim hConn           As Long

Entry9x(0).dwSize = 264
EntryNT(0).dwSize = 264
lngRet = RasEnumEntries(0, vbNullString, EntryNT(0), EntryNT(0).dwSize * 255, 0)

'こっから下は確認してませんネットで調べて予想で書いてます。
CopyMemory ParamNT(0).szEntryName(0), EntryNT(0).szEntryName(0)
rc = RasDial(0, 0, ParamNT(0), -1, 0, hConn)
If rc <> 0 Then
    MsgBox "接続エラー"
    RasHangUp hConn
End If

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る