特定IPアドレス監視ツール

2010年4月27日作成　Ver.001
2010年4月27日改版　Ver.1.01
2010年4月28日改版　Ver.1.02
2010年4月28日改版　Ver.1.03
2010年4月29日改版　Ver.1.04
2010年4月29日改版　Ver.1.05
2010年5月01日改版　Ver.2.00 ←　Vista対応バージョン
2010年5月17日改版　Ver.2.01 ← 最新バージョン（Sheet1に、複数IP同時監視機能追加）

監視ツール最新バージョン（2.01）のダウンロードはここをクリック

Ver1.01変更内容：※音楽を鳴らないように設定出来る機能を追加しました/□Mute Musicチェックボックスの追加　2010/04/27　16：00
Ver1.02変更内容：
１．チェック時間設定を1秒から60までに変更
２．True検出時毎回、音楽立ち上げだったのを最初の1回とした
３．Ver表記方法の変更
４．IP選択コンボボックスの選択表示をIPアドレスから、名前に変更した

Ver1.03変更内容1：配色を大幅に変更した　2010/04/28　23：00
Ver1.03変更内容2： IP編集用sheet1を見えないようにした、FORMにIP編集表示チェックボックスを追加
Ver1.04変更内容1： Auto Check実行時時間の変更が出来るようになりました、分にカーソルを合わせるとメッセージ追加
Ver1.04変更内容2： IPアドレス編集チェックボックスにカーソルを合わせるとメッセージ追加
Ver1.05変更内容1： True→false検出時には、今日の日はさようならを鳴らすように追加
Ver2.00変更内容： Windows Vistaで音楽を鳴らすexeが動作しないため、APIに切り替えたおそらくWindows7でもOKかな？
Ver2.01変更内容： Sheet1で複数IPを全てスキャンして、IP監視するプログラムを追加した

Excel　VBAで特定のIPアドレス監視ツールを作りました
このツールの、Auto Checkをスターとさせておけば、特定のIPが、NETに接続されると
［お爺さんの古時計・みちのくバージョン（歌）］の演奏が始まります＾＾、面白い歌です

下記でDL出来ます、保存場所は、どこでもOKです、例えばマイドキュメントなど

お爺さんの古時計・みちのくバージョン（歌）r試聴

使い方：
1.監視ツールの立ち上げ
マイドキュメントに保存した場合は、マイドキュメントを開いて、ping_true_false.xlsをダブルクリックします、下記のような画面が立ち上がります

編集画面選択プルダウンメニューから、IPアドレス編集画面表示を選ぶと、編集画面が表示されます
シートのセルA列に、Kの固定IPと今までに使ったIPが書かれています、ついでに私のIPも書いてあります。追加は50個まで出来ます

２．手動監視
チェックボタンを押すと、IPアドレス選択コンボボックスで選択した、IPアドレスのチェックを１回行います

３．自動監視
Auto Checkボタンを押すと、Auto Check Timeで設定した時間間隔で、監視をスタートして結果を表示します

４．自動監視停止
4-1　Auto　Stopチェックボックスに、チェックすると停止します
4-2　終了ボタンを押すとフォームが消えます
4-3　フォームの右上のｘでもフォームが消えます

５．フォームの再スタート
シートのSTARTボタンを押すと、再度フォームが表示されます