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

名前

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

本文

試せる環境がないので、参考ページにあるプログラムを見ての返答です。
http://www.microsoft.com/JAPAN/developer/library/jpntwkpf/_ras_rasenumentries.htm
ここに引数の説明があるので参考にしてください。
簡単に説明すると
第一引数 予約  Nullを設定
第二引数  PhoneBook(.pbk) のフルパスの入った文字列（Null文字で終わる)
へのポインタ。Win2000でNullを指定すると全て取得、Win9ｘでは無視
第三引数  RASENTRYNAME構造体配列へのポインタ
第四引数  RASENTRYNAME構造体配列のバイト数
第五引数  （戻り値）取得したエントリ数が入ってくる

となっています。ですので
ＡＰＩ関数の宣言は、
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 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

Dim Entry9x(255) As RASENTRYNAME9X
Dim EntryNT(255) As RASENTRYNAMENT
Dim EntryCount   As Long,i As Long

Entries(0).dwSize = 264
EntryNT(0).dwSize = 264

'Win9x
lngRet = RasEnumEntries(0,vbNullString,Entry9x(0),Entry9x(0).dwSize * 255,EntoryCount)

'Win2000
lngRet = RasEnumEntries(0,vbNullString,EntryNT(0),EntryNT(0).dwSize * 255,EntoryCount)

としてください

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

戻る