03/22 VBA IE操作 単勝表取込み 受付時間外の処理

全体の流れやソース・解説は : http://ie.vba-ken3.jp/sample/003/2009-03-22.html を 見てください。

時間外の判断
よし、あと少し・・・と思ったら、時間外のメッセージが。。。
当日の最終投票までしか、使えないみたいですね。。。
※朝からやってて、ここまでしかできなかった。

で、終わってしまうと、悔しいので、
"投票のお申込みを受け付けておりません"
を見つけたら、メッセージを表示して、userformを閉じる、そんなコードを書いてみました。

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If InStr(Me.WebBrowser1.Document.body.innerTEXT, "投票のお申込みを受け付けておりません") > 0 Then
MsgBox "投票のお申込みを受け付けておりません 時間内に実行してください。"
Unload Me 'フォームを閉じる
End If
End Sub

↑単に、InStr で .Document.body を 探っただけでした。

次の土日で決めないとなぁ。。。

03/22 VBA IE操作 単勝表取込み 受付時間外の処理 : http://www.youtube.com/watch?v=QY0NE1GPWKo