Ras通信について (ID:87872)

名前

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

本文 うーむ。貼り付けて、すぐに試せるコードになっていませんね……。 断片的なコードを載せるなら、せめて、 どの行で、どんなエラーが出ているのかも書きましょう。 > lngRet = RasEnumDevices(vbNullString, lngLen, lngCount) まず、ここが問題(のひとつ)ですね。 というか、昨日(15:28:56)の回答と同じ原因ですよ。(^_^;) 「ByVal」と「ByRef」が、DLL呼び出し時にどのような意味を持つのか、 きちんと把握するようにしておいてください。 《Declare側を変更し、呼び出し側のコードを変更しない場合》 修正案1) API宣言側を ByVal lpRasDevInfo As Any にする。 修正案2) API宣言側を ByVal lpRasDevInfo As String にする。 《Declare側は変更せず、呼び出し側のコードを変更する場合》 修正案3) 第一引数を「ByVal vbNullString」で渡すようにする。 修正案4) 第一引数を「ByVal 0&」で渡すようにする。 《両方を変更する場合》 修正案5) 宣言側を ByVal lpRasDevInfo As Long にし、 呼び出し側を「0」または「ByVal 0」で渡す。 他にも書き方はありますが、とりあえずはこのあたりですかね。 修正案1〜3は、あまり一般的ではない(と思う)ので、 個人的には、案4〜5 がおすすめです。