■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#28627-0VBでPINGぴんぐ2000-08-24(木) 19:27
     #28643-0RE#28627:VBでPINGせつら2000-08-24(木) 22:21
     #28647-0RE#28627:VBでPINGとろりん2000-08-24(木) 22:52
     #28786-0RE#28647:VBでPINGぴんぐ2000-08-28(月) 14:01
#28627-0
VBでPING
はじめまして。

早速ですが、標題の件について悩んでいます。
Winsock API を使えば実現可能なのでしょうか?

以上、アドバイスよろしくお願い致します。
#28643-0
RE#28627:VBでPING
ソケット通信は、さすがにちょこちょこっと書くわけにはいかないので、代わりに簡単例なぞ。

IPアドレスを記入する TextBox をひとつと、ボタンを貼っておいてください。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Const cFile As String = "c:\aaa.txt"
    Dim cw As String
    Dim cLine As String

    Shell "cmd.exe /c ping " + Text1.Text + " -n 1 > " + cFile, vbHide
    Sleep 1000

    Open cFile For Input As #1
    While EOF(1) = 0
        Line Input #1, cw
        If Len(cw) Then cLine = cw
    Wend
    Close #1

    If Left(cLine, 5) = "Reply" Then
        MsgBox "OK"
    Else
        MsgBox "none"
    End If
End Sub

実行待ちさえ、横着しちゃってますし、NTしか考慮してないですね。 まぁ、参考程度に。
#28647-0
RE#28627:VBでPING
> 早速ですが、標題の件について悩んでいます。
> Winsock API を使えば実現可能なのでしょうか?

ソケット通信については詳しくないのですが、 icmp.dllの
API関数 IcmpSendEchoを使うと簡単かもしれません。

Cのソースなら Web上にもありましたので、ソケット通信の解説書と
ともに読み下して VBに移行してみてはいかがでしょう。
(申し訳ありませんが URLの紹介は勘弁して下さい。)
#28786-0
RE#28647:VBでPING
ありがとう御座います。

無事完成しました。

返事が遅れて申し訳ありません。
今後ともよろしくお願い致します。

> > 早速ですが、標題の件について悩んでいます。
> > Winsock API を使えば実現可能なのでしょうか?
> 
> ソケット通信については詳しくないのですが、 icmp.dllの
> API関数 IcmpSendEchoを使うと簡単かもしれません。
> 
> Cのソースなら Web上にもありましたので、ソケット通信の解説書と
> ともに読み下して VBに移行してみてはいかがでしょう。
> (申し訳ありませんが URLの紹介は勘弁して下さい。)
このページと関連する記事:
#6986-0ディレクトリ検索方法2000-03-29(水) 17:33
#20997-0不一致行のチェックプログラム2002-05-31(金) 11:30
#40456-0ピクチャーの画像(色識別等)比較方法2001-03-18(日) 20:59
#23003-0DOSのSortコマンドを使用するとうまくいかない・・・2001-09-06(木) 22:17
#7406-0タイピング練習ソフト2000-04-16(日) 16:48
#47095-0CSVファイルの取り込みについて2001-09-21(金) 19:54
#2048-0画像のサイズを調整したいのですが1999-10-05(火) 09:45
#198-3DHCPの判定2002-05-16(木) 05:31
#36321-0お気に入り機能2001-01-03(水) 18:17
#8287-0Winsockを使った接続1999-10-27(水) 09:55
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)