|
接続のコードはすでに記述済みなので接続の成功か、失敗かの取得→→パスワードの送信まで書きます。
|
Private Sub
Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Mes
Reply = Left(Mes, 4)
If MailStep = "connect" And Reply = "+OK " Then
MailStep = "user"
ElseIf Reply = "-ERR" Then
Winsock1.Close
MailStep = "connect"
End If
If MailStep = "user" And Reply = "+OK " Then
Winsock1.SendData "USER " & Text2.Text & vbCrLf
Exit Sub
MailStep = "pass"
ElseIf Reply = "-ERR" Then
Winsock1.Close
MailStep = "connect"
End If
If MailStep = "pass" And Reply = "+OK " Then
Winsock1.SendData "PASS " & Text3.Text & vbCrLf
MailStep = "stat"
Exit Sub
ElseIf Reply = "-ERR" Then
Winsock1.Close
MailStep = "connect"
End If
End Sub
|
上で説明済み
上で説明済み
もしステップがコネクトで接続が成功ならば
ステップをユーザーにする
そうではなく接続が失敗ならば
接続を閉じる
ステップをコネクト（接続）に戻す
もしの構文終わり
もしステップがユーザーで、接続が成功なら
Winsockを使ってText2の内容をユーザー名として送信する
抜ける
ステップをパスワードにする
そうではなく接続が失敗ならば
接続を閉じる
ステップをコネクトに戻す
もし構文終わり
もしステップがパスワードでユーザー名認証が成功だったら
Winsockを使ってText3の内容を送信する
ステップをメール受信にする
抜ける
そうではなく失敗だったら
接続を閉じる
ステップをコネクトに戻す
もし構文終わり
|
|
|
これで認証が終了したので好きにメール数の受信などが行えます。
ではメール数の受信です。が、メール数はPOP3の仕組みの説明のところで述べたように
+OK 12 14830 のような形で送られてくるためにこの中から適切な数字(この場合だと"12")を取り出さなくてはいけません。ではこんどはメール数の受信、適切な数値の取り出し方法について書きます。まずメールの受信です。
|
If MailStep = "stat" And
Reply = "+OK " Then
Winsock1.SendData "STAT" & vbCrLf
MailStep = "allOK"
Exit Sub
ElseIf Reply = "-ERR" Then
Winsock1.Close
MailStep = "connect"
End If
|
もしステップがメール受信で認証が成功だったら
メールを受信する命令を送信する
ステップをすべて終了済みにする
抜ける
そうではなく失敗だったら
接続を終了する
ステップをコネクトに戻す
もし構文終わり
|
|
|
このようなコードを追加することによってメールの受信ができます。もちろん受信した内容は"Mes"という変数に入っています。
次に内容から適切な数値をとる方法です。
|
If MailStep =
"allOK" Then
Dim i As
Integer
For i = 0 To
15
Mail_n= Mid(Mes, 5, i)
If Right(Mail_n, 1) = " " Then
Mail_n = Left(Mail_n, i - 1)
Exit For
Next
End If
|
もしステップがすべて終了済みだったら
ループのための変数を宣言する
宣言したiという変数が0から15になるまでループする
変数Mail_nに変数Mesの内容の左から5文字目からi文字目までを代入する
もしMail_nの右から1文字目が" "だったら
Mail_nの一番右の一文字をのぞく
ループ終了
次のループ
もし構文終わり
|
|
|
これで最初に宣言した変数Mail_nにメール数が格納されます。
これですべての情報の取得が終わりました。
つぎからはこれを表面的に表示していくコードを書いていきます。
|
|
3-4.設定の保存と読み込み
|
|
メールチェックの基本となる部分のコードが書けたので次はユーザーが打ち込んだ"サーバー名"、"ユーザー名"、"パスワード"、"メーラー"、"音ファイル"の内容を保存する方法です。
これはVBであらかじめ用意されている命令SaveSettingを使います。
設定を保存したいのはプログラムが終了されたときなのでフォームをダブルクリックして右上の▼をクリックしUnloadをクリックします。これがプログラムが終了されるときに実行されるコードとなります。（図7参照)
|
|
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "mailchecker", "setting",
"server", Text1.Text
SaveSetting "mailchecker", "setting", "user",
Text2.Text
SaveSetting "mailchecker", "setting", "pass",
Text3.Text
SaveSetting "mailchecker", "setting",
"mailer", Text4.Text
SaveSetting "mailchecker", "setting", "wav",
Text5.Text
End Sub
|
メールチェッカー→設定→サーバー名の中にText1の内容を保存する
メールチェッカー→設定→ユーザー名の中にText2の内容を保存する
メールチェッカー→設定→パスワードの中にText3の内容を保存する
メールチェッカー→設定→メーラーの中にText4の内容を保存する
メールチェッカー→設定→音楽ファイルの中にText5の内容を保存する
|
|
|
具体的なコードは上のようになります。これで各設定を保存することができました。次はこの保存した内容の読み込みです。これもVBで標準に用意されている命令Getsettingを使います。設定を読み込みたいのはプログラムを立ち上げたときなのでフォームをダブルクリックして以前に使ったForm_Loadのところにコードを書き込みます。具体的な内容は以下のとおりです。これをForm_Loadの部分の一番上に追加します
|
|
Text1.Text =
GetSetting("mailchecker", "setting",
"server")
Text2.Text = GetSetting("mailchecker", "setting",
"user")
Text3.Text = GetSetting("mailchecker", "setting",
"pass")
Text4.Text = GetSetting("mailchecker", "setting",
"mailer")
Text5.Text = GetSetting("mailchecker", "setting",
"wav")
|
Text1の内容をメールチェッカー→設定→サーバー名に保存された内容にする
Text2の内容をメールチェッカー→設定→ユーザー名に保存された内容にする
Text3の内容をメールチェッカー→設定→パスワードに保存された内容にする
Text4の内容をメールチェッカー→設定→メーラーに保存された内容にする
Text5の内容をメールチェッカー→設定→音楽ファイルに保存された内容にする
|
|
|
これで設定の読み込み→反映が終了しました。そこでWinsock1.Connect "", 110となっている部分を少し改造します。なぜかというとText1に入った内容のサーバーに接続したいからです。改造したコードは次のようになります。
|
|
Winsock1.Connect Text1.Text, 110
|
Winsockを使ってText1に入った内容のサーバーに接続する
|
|
|
これでWinsockはText1に入った内容のサーバーと接続してくれます。しかしこのままだとText1が空欄だったときにエラーが起きてしまいます(図8)。のでエラーとラップの命令On Error Resume NextというコードをForm_Loadの中の一番上に追加します。これでエラーが起きても回避して進んでくれるようになりました。
|
|
図7
|
図8
|
|
|
|
|
3-5実装された機能、追加しなければいけない機能
|
|
実装された機能についておさらいをしておきます。
以下がそれをまとめた表です。
|
|
ここまでで実装された機能
|
|
１．サーバー名、ユーザー名、パスワード、メーラー、音楽ファイル名を入力してプログラムを終了すると次回起 動時に設定が読み込まれる
|
|
２．プログラム起動時に入力されたサーバーに接続し、メール数を受信して変数に代入する
|
|
これから追加する機能
|
|
１．メールがくると画面右下にメール数などを表示する
|
|
２．メールがくると同時に指定した音ファイルをならす
|
|
３．右下に表示された文字をクリックすると指定したメールアプリケーションが立ち上がる
|
|
４．メーラー、音楽ファイルを「開く」ダイアログ（図9参照）で指定可能にする
|
|
５．一定周期で自動でメールをチェックできるようにする
|
|
|
図9
|
図10
|
|
|
|
|
3-6.実装しなければいけない機能１．を実装する
|
|
まず、メールがくると画面右下にメール数などを表示できるようにします。そのためにはフォーム(図10参照)を追加しなければいけません。プロジェクト→フォームの追加をクリックしてください（図11参照)
すると図12のような画面が出てきます。ここでフォームモジュールを選択してください。すると新しいフォームが表示されます。これにメール数を表示します。プロパティ(図2)のBorderStyleを0
- なしに変更し、右下の■にあわせてフォームのサイズを縮めます。
|
|
図11
|
図12
|
|
|
|
|
次に右下に出てくる画像を準備します。ここではWindowsに標準でついてくる「ペイント」を使います。ペイントはスタート→プログラム→アクセサリの中に入っています。それではペイントを起動してください。ペイント初期画面は図13です。そして変形→キャンバスの色とサイズをクリックし幅224、高さ32に設定します（図14)これで準備が整ったので自分の好きな絵を描いて下さい。例:図15
|
|
図13
|
図14
|
|
|
|
|
図15
|
|
|
|
|
|
画像の準備が整ったら用意した画像をフォームに貼り付けます。先ほど追加したフォーム(Form2)のPictureプロパティの横の「...」ボタンを押します。するとピクチャの読み込みというダイアログが出てくるので自分が書いた絵を
選択します。するとフォームに絵が張り付きます。これで絵の読み込みは完成です。絵の右の紫の部分にメールの数を表示したいのでツールボックスからＡとかかれた「Label」というのを選択し、紫の部分（または余白の部分）に貼り付けます。そして貼り付けた「Label」、「Form2」のプロパティを以下のように設定します。
|
|
部品名
|
変更するプロパティ
|
変更後の値
|
|
Label
|
BackStlye
|
0−透明
|
|
〃
|
ForeColor(文字色)
|
適当な色（ここでは白を選択します）
|
|
Form2
|
Top
|
7590
|
|
〃
|
Left
|
8460
|
|
|
BackStlyeを透明にすることで背景が透けて見えるようになります。このプロパティを利用することで洗練されたデザインを作成することが可能になります。また、Formのトップ、レフトの値を変えることで表示位置を変更することができます。ここではデザインのみでOKなのでこれでForm2の作成はとりあえず完成です。
|
|
再びはじめのフォームに戻るためProject1→フォーム→Form1をダブルクリックしてください。（図16参照）
|
|
そしてメールがきたらForm2を表示するというコードを付け加えます。
メール数の取得の部分はDataArriveの部分にあるのでその中にコードを追加します。
以下のコードを参照してください。赤文字の部分が追加されたコードです。
|
|
If MailStep =
"allOK" Then
Dim i As Integer
For i = 0 To 15
Mail_n= Mid(Mes, 5, i)
If Right(Mail_n, 1) = " " Then
Mail_n = Left(Mail_n, i - 1)
Exit For
Next
If Not Mail_n = 0 Then
Form2.Show
Form2.Label1.Caption="メールが" & Mail_n & "通届いています"
Else
Form2.Hide
End If
End If
|
もし届いたメールが0通ではなかったら
フォーム二個目を表示させる
フォーム2のラベルの文字を「メールが」+Mail_nの内容+「通届いています」に変更する
そうでなかったら
Form2を隠す
もし構文終わり
|
|
|
これで一つ目の実装しなければいけない課題はクリアしました。
|
|
図16
|
|
|
|
3-7.実装しなければいけない機能2を実装する
|
|
次は２．メールがくると同時に音楽を鳴らすです。しかしこれはVBにもともとついている機能では実装できません。なぜならばVBには音楽を鳴らす命令が用意されていないからです。そこでその命令を使用可能にするためAPIというものをつかいます。APIの正式名称は、｢Application
Program Interface｣ (アプリケーション プログラム インターフェイス)です。これはWindowsそのものに用意されている命令を使い、なにかを動作させることです。この命令をを呼び出しプログラムすることまた、命令そのものををAPIと読んでいます。ではまずAPIを使うという宣言をしなければいけません。
音楽ファイルを鳴らすためのAPIは以下のとおりです。
|
|
'すべてのコードの一番上に記述
Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As
Long) As Long
|
|
|
これをすべてのコードの一番上に追加します。そうすることで宣言とみなされます。
これで音楽ファイルを鳴らすための命令の準備が整いましたので適切なところにコードを記述していきます。
下の表を見てください。灰色が上で追加したコードです。赤色が今回追加したコードです。
|
|
If Not Mail_n = 0
Then
Form2.Show
Form2.Label1.Caption="メールが" & Mail_n & "通届いています"
If Form2.Visible = False Then
sndPlaySound Text5.Text, SND_ASYNC Or SND_NODEFAULT
End If
End If
|
もし2個目のフォームが表示されていなかったら
Text5の内容を普通の方法で再生する
もし構文終わり
|
|
※なぜフォームが表示されていないときのみ音を鳴らすのか？
|
|
すでにフォームが表示されているのに音が鳴ると連続でなってしまうことになりユーザーにとっては
迷惑になってしまいます。これを防ぐためです。
|
|
|
|
これで2個目も実装されました。
|
|
3-8.実装しなければいけない機能3を実装する
|
|
次の機能は文字をクリックすることでメーラーを起動するです。これはすなわち「ラベルをクリックしたとき」なので
Form2のラベルをダブルクリックします。すると下のようなコードが追加されます。
|
|
Private Sub Label1_Click()
End Sub
|
ラベルをクリックしたとき
ラベルをクリックしたときの処理終わり
|
|
|
このなかにText4にかかれた内容のプログラムを立ち上げるという処理を追加します。外部のプログラムを立ち上げるための命令はShellというものです。
|
|
Private Sub Label1_Click()
Shell Text4.Text, vbNormalFocus
End Sub
|
Text4の内容のEXE(実行可能アプリケーション)を普通の状態で立ち上げる
|
|
|
ところでText4.Textの後の,を打ったとき図17のようなボックスが出てきたと思います。これが次に続く入力候補です。それぞれの働きの違いについて少し触れてみます。
|
|
vbHide
|
この方法で立ち上げたプログラムは完全に隠れます。タスクバーにも表示されません。
強制終了(Ctl+Alt+Del同時押し)の画面で確認できます。
|
|
vbMaximizedFocus
|
この方法で立ち上げたプログラムは最大化の状態で表示されます。
|
|
vbMinmizedFocus
|
この方法で立ち上げたプログラムは最小化の状態で表示されます。下とは違いフォーカスは自身にあります
|
|
vbMinmizedNoFocus
|
基本的には上の起動方法と変わりませんがこれはフォーカスが自身にありません。
|
|
vbNormalFocus
|
「元のサイズ」で立ち上げます。フォーカスは自身にあります
|
|
vbNormalNoFocus
|
「元のサイズ」でたちあげますがフォーカスはありません
|
|
※vbNormalFocusとvbNormalNoFocusの外面的な違いは図18を参照してください。
|
|
|
図17
|
図18(左がvbNormalFocus,右がvbNormalNoFocus)
|
|
|
|
|
これで3個目の機能も実装されました。
|
|
3-9.実装しなければいけない機能4を実装する
|
|
次の機能はボタンをクリックすることで開くダイアログを表示するものです。これには再び新たな部品の追加をしなければなりません。3-3の一番初めで述べた方法でコンポーネントダイアログを表示させ、そこからMicroSoft Common Dialog Contorl
6.0 を選択します。(図19)すると このようなマークがツールボックスに追加されます。これがコモンダイアログコントロールと呼ばれる部品です。これにより図20のようないろいろな種類のダイアログが表示可能になります。具体的なコード方法は下のとおりです。
|
|
Private Sub Command2_Click()
On Error GoTo
er
CommonDialog1.CancelError = True
CommonDialog1.Filter = "*.exe|*.exe"
CommonDialog1.ShowOpen
Text5.Text = CommonDialog1.FileName
Exit Sub
er:
End Sub
|
コマンドをクリックした時に
もしエラーが発生したらer:にいく
キャンセル時にエラーを発生させる
ファイルの種類をexeにする
開くダイアログを表示する
Text5の内容をダイアログで選択した内容にする
処理を抜ける
エラーが起こったときに通る部分
|
|
Private Sub Command1_Click()
On Error GoTo er
CommonDialog1.CancelError = True
CommonDialog1.Filter = "*.wav|*.wav"
CommonDialog1.ShowOpen
Text4.Caption = CommonDialog1.FileName
Exit Sub
er:
End Sub
|
コマンドをクリックした時に
もしエラーが発生したらer:にいく
キャンセル時にエラーを発生させる
ファイルの種類をexeにする
開くダイアログを表示する
Text5の内容をダイアログで選択した内容にする
処理を抜ける
エラーが起こったときに通る部分
|
|
|
これで機能4は実装できました。次はいよいよ最終機能一定周期で自動でメールをチェックできるようにするです。
|
|
図19
|
図20(いろいろな種類のダイアログ)
|
|
|
|
|
3-10.実装しなければいけない機能5を実装する
|
|
「一定周期で自動でメールをチェックできるようにする」というので思いつくのが一番最初に貼り付けたTimerです。この部品はこのときのために貼り付けたものです。TimerのIntervalプロパティの値が5000担っているのを確認してダブルクリックしてください。そして次のコードを追加します。
|
|
Private Sub Timer1_Timer()
Winsock1.Connect Text1.Text, 110
End Sub
|
インターバルで設定した値/1000秒周期で実行する処理
テキストの内容のサーバーとポートを110に指定して接続する
タイマー終了
|
|
|
3-11.手直し
|
|
以上ですべての機能が追加されました。これで完成となりました。がすこし手直しが必要です。それは設定画面が常に表示されたままなので起動時には隠しておくということです。それはForm_Loadの部分にForm1.Hideと記述するだけです。それと同時に設定画面を表示する手段を用意しなければいけません。それはここではメール通知の画像をクリックすると表示するようにしましょう。それはForm_Clickを使いForm1.Showを使います。これで手直しは終了です。
あとは自分なりに好きなデザインを付け加えるだけです。
各フォーム(Form1、Form2)の完成画面は図21〜23を参照
|
|
図21（Form1の完成図）
|
|
|
|
図22(フォーム2の完成図)
|
|
|
|
図23(動作画面)
|
|
|
)を貼り付けます。
)を貼り付けます。
このようなアイコンが追加されたと思います。それをフォームに貼り付けます。
ツールボックスの中からこれを選び貼り付けます。これが後者のほうです。
