InternetAttemptConnectについて

解決

じろん 2002-11-28 01:14:06 No: 76465

はじめまして
以前の質問にもあったのですが
■ 接続を確認
と同じ現象が起こっています・・・

ソースは
Private Sub Command1_Click()
    Dim ERROR_SUCCESS As Long

    MsgBox ERROR_SUCCESS
    If InternetAttemptConnect(0) = ERROR_SUCCESS Then
        Call MsgBox("接続に成功しました(接続を確認しました)(^^)v")
    Else
        Call MsgBox("接続に失敗しました(接続されていません)(ToT)")
    End If
End Sub
です
上記ソースで間違っていますか？
参考URLは
http://www.geocities.co.jp/SilkRoad/4511/vb/wininet.htm
を使用してます
宜しければご教授ください_(._.)_

Dim ERROR_SUCCESS As Long
この変数はここで書く物じゃないんでしょうか？？？

魔界の仮面弁士 2002-11-28 06:51:16 No: 76466

> 以前の質問にもあったのですが
> ■ 接続を確認
> と同じ現象が起こっています・・・

この質問が見つからないので m(_ _)m 、
どのような現象かはわかりませんが、とりあえず気づいた点だけ。

> Dim ERROR_SUCCESS As Long

そもそも ERROR_SUCCESS は定数です。変数ではありません。
Dimではなく Constで定義してください。

じろん 2002-11-28 09:18:45 No: 76467

魔界の仮面弁士さん
ありがとうございます
早速試して見ます。

じろん 2002-11-28 20:31:07 No: 76468

>InternetAttemptConnect()という関数が見つかり、
>こいつはダイアルアップネットワークのインストールがされてないWindowsNTでもエラーを起こさないことが判明
>（ただしLANケーブルを抜いておいても、
> インターネットに繋がってると判定してしまうのが玉にきず）。
>しかもしかも、この関数を使うと、ダイアルアップ接続の環境の場合、
>システムのダイアルアップ接続ダイアログを勝手に呼び出してくれるのだ。
上記のような物を見つけました(‾□‾;)

>（ただしLANケーブルを抜いておいても、
> インターネットに繋がってると判定してしまうのが玉にきず）。
環境がLAN接続でInternetAttemptConnect()関数を使用しているので
LAN線を引き抜いてもいつも"0"が帰ってきてしまうんですね(-_-;)
この部分を回避する方法は無いのでしょうか？

じろん 2002-11-28 20:53:59 No: 76469

Private Declare Function InternetGetConnectedState Lib "WININET.DLL" ( _
lpdwFlags As Long, _
ByVal dwReserved As Long) As Long

この部分を追加して
LAN接続でも接続状態かどうかの判断のチェックを入れてみた所
解決しました。

ありがとうございます。