InternetAttemptConnectについて (ID:76465)

名前

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

本文 はじめまして 以前の質問にもあったのですが ■ 接続を確認 と同じ現象が起こっています・・・ ソースは 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 この変数はここで書く物じゃないんでしょうか？？？