'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 &= "" & APPNAME & "" str &= "

" & APPNAME & "

" str &= "実行ボタンをクリックするとYahooニュースが表示されます
" str &= "読みたい記事を読んでみましょう。きっと幸せになれます。
" str &= "
" str &= "記事が表示されない場合や表示がおかしい場合、
" str &= "または、正規の記事を表示したい場合はリロードボタンをクリックして下さい。
" str &= "
" str &= "Yahooに限らず、その他のニュースや他のサイトでも楽しめます。
" str &= "" 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