'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