サンプルコード005
おもしろYahooニュース。
1.実行ボタンをクリックするとYahooニュースが表示されます。
2.読みたい記事を読んでみましょう。きっと幸せになれます。
'CYTOLOGY2 おもしろYahooニュース 20130126
'---------------------------------------------------------------
'Copyright(C) 2013 ao-system エーオーシステム
'licensed under the LGPL
'ライセンスはLGPLに準じたものになります。詳しくは下記サイトを参照下さい。
'https://ao-system.net/cytology2/
'LGPLに準じ、この著作権表示は消去できません。
'---------------------------------------------------------------
'
'実行ボタンをクリックするとYahooニュースが表示されます
'読みたい記事を読んでみましょう。きっと幸せになれます。
'Yahooに限らず、その他のニュースや他のサイトでも楽しめます。
'
'---------------------------------------------------------------

Imports System.Drawing
Imports System.Windows.Forms

Public Class AddIn

    Private Const APPNAME As String = "おもしろYahooニュース"
    Private tabb As TabBrowser
    Private std As Std
    Private ddLabelNow As ToolStripLabel

    Public Sub New()
        tabb = New TabBrowser()
        std = New Std()
    End Sub

    Public Sub AddIn_Load()
        tabb.TabText = APPNAME
        Dim str As String = ""
        str &= "<!doctype html><html lang=""ja""><head><meta charset=""utf-8""><title>" & APPNAME & "</title></head><body>"
        str &= "<h2>" & APPNAME & "</h2>"
        str &= "実行ボタンをクリックするとYahooニュースが表示されます<br>"
        str &= "読みたい記事を読んでみましょう。きっと幸せになれます。<br>"
        str &= "<br>"
        str &= "記事が表示されない場合や表示がおかしい場合、<br>"
        str &= "または、正規の記事を表示したい場合はリロードボタンをクリックして下さい。<br>"
        str &= "<br>"
        str &= "Yahooに限らず、その他のニュースや他のサイトでも楽しめます。<br>"
        str &= "</body></html>"
        tabb.WebBrowser.DocumentText = str
    End Sub

    Public Sub AddIn_Stop()
        std.AddInMenuRemove()
        tabb.DocumentCompletedEventRemove(AddressOf demo1)
    End Sub

    Public Sub AddIn_Start()
        ddButtonInitial01()
        tabb.WebBrowser.Navigate("http://headlines.yahoo.co.jp/")
        tabb.DocumentCompletedEventRemove(AddressOf demo1)
        tabb.DocumentCompletedEventAdd(AddressOf demo1)
    End Sub

    Private Sub info(ByVal str As String, ByVal c As Color)
        If std.StopFlag Then Exit Sub
        ddLabelNow.Text = str
        ddLabelNow.ForeColor = c
        Application.DoEvents()
    End Sub

    Private Sub ddButtonInitial01()
        ddLabelNow = New ToolStripLabel("Ready!")
        ddLabelNow.ForeColor = Color.Black
        std.AddInMenuAddOnce(ddLabelNow)
    End Sub

    Private Sub demo1(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim rep As String(,) = New String(,) { _
              {"ください。", "くださいましー。"} _
            , {"ではない。", "じゃないかもー。"} _
            , {"したい。", "したいよー。いいでしょー。"} _
            , {"いない。", "いないそーです。なんでかな? "} _
            , {"ない。", "ないとさ。"} _
            , {"という。", "らしいけどよくわかんない。"} _
            , {"しょう。", "しょうねー。"} _
            , {"しています。", "していちゃったりして。ヤバいね。"} _
            , {"います。", "いますとも。"} _
            , {"えます。", "えますとも。はい。"} _
            , {"します。", "しますのよ。"} _
            , {"きます。", "きますとも。"} _
            , {"せます。", "せますー。ヤバいくらい。"} _
            , {"ります。", "りますー。ほんとヤバいくらい。"} _
            , {"です。", "ですのよ。おほほ。"} _
            , {"話す。", "話が出たけど隣のおばさんに聞いてみるね。"} _
            , {"す。", "すんだよ。"} _
            , {"ありそうだ。", "ありそうかも。うふ。"} _
            , {"あった。", "あったの知ってた?ほんとなんだよ。"} _
            , {"された。", "されたかもね~~。"} _
            , {"ていた。", "ていたにょ。楽しいね。"} _
            , {"なった。", "なったのよね~。"} _
            , {"まった。", "まったかな?"} _
            , {"られた。", "られたんだって!そうなんだ~。"} _
            , {"われた。", "われた。そんなこと聞いてなーい。"} _
            , {"いた。", "いたにゃん。"} _
            , {"えた。", "えたのよー。奥さん! "} _
            , {"きた。", "きたんだよ。"} _
            , {"けた。", "けたわん! "} _
            , {"げた。", "げたんだよー。"} _
            , {"した。", "したかも~。"} _
            , {"せた。", "せたぴょ。"} _
            , {"った。", "った感じね~。"} _
            , {"ねた。", "ねたにょん。"} _
            , {"べた。", "べたにょん。"} _
            , {"めた。", "めたって聞いたけどねー。"} _
            , {"れた。", "れたっていう秘密聞いたのよ。"} _
            , {"出た。", "出たのよー。でちゃったのよねー。"} _
            , {"だ。", "だったりして~。きゃっ! "} _
            , {"つ。", "つ用意をしているところですが。いいでしょ?"} _
            , {"など。", "などだよー。"} _
            , {"み。", "みだとさ。"} _
            , {"である。", "かもね~。"} _
            , {"ある。", "あるにょ。"} _
            , {"いる。", "いるそーです。やっぱりね。"} _
            , {"くる。", "きたね。このごろ。"} _
            , {"する。", "してもいいかな~?"} _
            , {"なる。", "なるんだね。"} _
            , {"める。", "めるとさっさ。"} _
            , {"れる。", "れるんだって!みんな知ってたかなー。"} _
            , {"る。", "るんですけどー。"} _
            , {"もらい、", "もらってね、えとー、"} _
            , {"いるが、", "いるんだけどね、え~、"} _
            , {"たが、", "たんですけど、えーっと、"} _
            , {"だが、", "たがね、"} _
            , {"ほか、", "ほかにね、"} _
            , {"なく、", "なくってね、"} _
            , {"しかし、", "えとね、しかーし、"} _
            , {"ただし、", "んとね、だだーし、"} _
            , {"し、", "しー、それとね、"} _
            , {"おらず、", "いなくってね、"} _
            , {"れず、", "れなくって、"} _
            , {"として、", "としてね、"} _
            , {"で、", "でね、んとね、"} _
            , {"がると、", "がっちゃうと、えとね、"} _
            , {"よると、", "よるとね、ちょっとまって今思い出すから、あ、"} _
            , {"など、", "などにね、"} _
            , {"に、", "にね、んとね、"} _
            , {"は、", "はね、そうそう、"} _
            , {"ため、", "ためにね、えっと、"} _
            , {"ごろ、", "ごろ、ちょっとあやふやだけど、"} _
            , {"から、", "からね、"} _
            , {"なっており、", "なっているんだけどね、"} _
            , {"られ、", "られーの、"} _
            , {"写真", "お写真さん"} _
            , {"スポーツ", "うんどう"} _
            , {"トピックス", "とぴっくす"} _
            , {"ニュース", "にゅ~~す"} _
            , {"ビジネス", "おしごと"} _
            , {"ページ", "ぺ~じ"} _
            , {"ヘルプ", "おたすけ"} _
            , {"Yahoo!", "やほー"} _
        }
        Static Dim lastUrl As String = ""
        tabb.DocumentCompletedEventRemove(AddressOf demo1)
        If lastUrl = tabb.WebBrowser.Url.ToString Then
            If ddLabelNow.Text = "+" Then
                info("-", Color.Blue)
            Else
                info("+", Color.Blue)
            End If
            tabb.DocumentCompletedEventAdd(AddressOf demo1)
            Exit Sub
        End If
        lastUrl = tabb.WebBrowser.Url.ToString
        info("変換中", Color.Blue)
        Dim elem As HtmlElement = tabb.WebBrowser.Document.GetElementsByTagName("body").Item(0)
        Dim str As String = elem.InnerHtml
        For i As Integer = 0 To rep.GetLength(0) - 1 Step 1
            str = Microsoft.VisualBasic.Replace(str, rep(i, 0), rep(i, 1))
        Next
        elem.InnerHtml = str
        info("*", Color.Blue)
        tabb.DocumentCompletedEventAdd(AddressOf demo1)
    End Sub

End Class
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
便




top of page