美人時計(2) - rscのブログ

　美人時計のブログパーツを表示するソフトをVisual Basic 2008で作ってみました。(^_^;
　Form1.vb[デザイン]でForm1にWebBrowser1コントロールを設置して下記ソースで動きます。
　アイコンは参考URLの「Basic Icons by PixelMixer」にあるのを使わせていただきました。

Public Class Form1
    Private strUrl As String = "file:///" + GetStartupPath() + "bt.html"
    
    'strSrc のソースは、参考URLの「美人時計(bijin-tokei)ブログパーツ」の
    '「ブログパーツ設置コード」のところにあります。ただし、｢"｣→Chr(34)
    'あらかじめ、bt.htmlを作って起動フォルダに置いておくのもよいです。
    Private strSrc As String = "<script src=" + Chr(34) _
        + "http://www.gmodules.com/ig/ifr?url=http://bijint.com/" _
        + "bijint.xml&synd=open&w=240&h=330&title=" _
        + "%E7%BE%8E%E4%BA%BA%E6%99%82%E8%A8%88%EF%BC%88bijin-tokei" _
        + "%EF%BC%89&border=%23ffffff%7C3px%2C1px+solid+%23999999&output=js" _
        + Chr(34) + "></script>"

    Private Sub Form1_Load( _
        ByVal sender As System.Object, ByVal e As System.EventArgs _
    ) Handles MyBase.Load
        'Form1.vb[デザイン]でプロパティを設定してもよい。
        Me.Text = "bijin-tokei"
        Me.Size = New System.Drawing.Size(285, 450)
        WebBrowser1.ScrollBarsEnabled = False
        WebBrowser1.ScriptErrorsSuppressed = True   'スクリプトエラーを非表示にする

        'bt.html が起動フォルダになければ作る。
        If Not My.Computer.FileSystem.FileExists("bt.html") Then MakeBtHtml()

        Try
            'WebBrowser1.Url = New Uri(strUrl)　'←こちらの方が正式!?
            WebBrowser1.Navigate(strUrl)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    '起動フォルダを得る。
    Private Function GetStartupPath() As String
        Dim result As String = Application.StartupPath
        If Not result.EndsWith("\") Then result += "\"
        Return result
    End Function

    'bt.html を作る。
    Private Sub MakeBtHtml()
        Try
            My.Computer.FileSystem.WriteAllText( _
                "bt.html", strSrc, False, System.Text.Encoding.Default)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    '表示後のフォームのサイズ調整
    Private Sub WebBrowser1_Navigated( _
        ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs _
    ) Handles WebBrowser1.Navigated
        Dim strUrl As String = WebBrowser1.Url.ToString() 'ブラウザ表示後にURLを文字列として得る

        If strUrl.StartsWith("file:///") And strUrl.EndsWith("bt.html") Then
            Me.Size = New System.Drawing.Size(285, 450)
        ElseIf strUrl = "http://www.bijint.com/en/" Then
            Me.Size = New System.Drawing.Size(855, 655)
        ElseIf strUrl = "http://www.bijint.com/jp/" Then
            Me.Size = New System.Drawing.Size(855, 760)
        Else
            'その他は手動
        End If
    End Sub
End Class

※参考URL
●美人時計(bijin-tokei)ブログパーツ
●bijin-tokei（美人時計）公式ウェブサイト - Japanese
●Basic Icons by PixelMixer