お久しぶりです。
今回はニコニコ静画に使えるネタを紹介します。

静画のAPI（一部）
殆どPIRA Blog参考にしました（http://pita.s374.xrea.com/blog/archives/94）

※ココに書いてある[画像番号]とはim0000のimを取った0000の事を言う

ニコニコから取れる画像の形式はjpg,png,gifの三種類
だが拡張子が付いてない

どの画像がどの拡張子かを判別する方法は2つ
①保存するときレスポンスヘッダのContent-Typeを見て判断する　（昔この方法だった）
②画像のバイナリー文字列の先頭の文字で判断する　（今回はこの方法）

こちらのサイトを参考しました
PNG, GIF, JPEG のバイナリーデータなどについて | ヨモツネット
（http://www.yomotsu.net/wp/?p=504）

こうなっているので簡単に判別ができる
ね？簡単でしょ？

以下ソース

        Dim url As String = "http://seiga.nicovideo.jp/image/source?id=[画像番号]"

        Dim wc As New System.Net.WebClient
        wc.Headers.Add("Cookie", "user_session=ユーザーセッション")

        Dim imageByte As Byte() = wc.DownloadData(url)
        Dim str As String = Nothing

        For index = 0 To 5
            Dim hoge As String = Convert.ToString(imageByte(index), 16) '16進数に変換
            str = str & " " & hoge
        Next
        str = str.ToUpper() 'すべて大文字にする
        Console.WriteLine("→" & str)

        If str.StartsWith(" 89 50 4E 47") = True Then
            Console.WriteLine("PNG")
        End If


        If str.StartsWith(" 47 49 46 38 39 61") = True Then
            Console.WriteLine("GIF(89a)")
        End If


        If str.StartsWith(" 47 49 46 38 37 61") = True Then
            Console.WriteLine("GIF(87a)")
        End If


        If str.StartsWith(" FF D8 FF") = True Then
            Console.WriteLine("JPEG")
        End If

VB.netでパケットキャプチャーを作ってみる

[C#] System.Net.Sockets.Socketを使ってパケットモニタ (3)
こちらのサイトを参考にしました

目的
　・開いたサイトのアドレスとかもリアルタイムで分かるのでコメントビューアに使いたかった
　・通信内容が直で分かるので、ニコ生のゲットプレーヤーステータスが暗号化されてても接続できるようにする
です。

これが書いたソースです。

    Private Sub Test()
        Dim ip As String = "192.168.11.2"

        Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Raw, ProtocolType.IP)

        socket.Bind(New IPEndPoint(IPAddress.Parse(ip), 0))
        socket.SetSocketOption(SocketOptionLevel.IP, SocketOptionName.AcceptConnection, True)
        socket.IOControl(IOControlCode.ReceiveAll, New Byte() {1, 0, 0, 0}, New Byte() {0, 0, 0, 0})

        Dim buffer As Byte() = New Byte(4096) {}
        Dim k As Integer

        Do
            socket.Receive(buffer)

            Dim message As String = Encoding.UTF8.GetString(buffer)
            'Console.WriteLine(message) '←何故かココでプログラムが止まってしまう。原因教えて下さい


            '送信元IP
            Dim source As String = String.Format("{0}.{1}.{2}.{3}", buffer(12), buffer(13), buffer(14), buffer(15))
            '送信先IP
            Dim destination As String = String.Format("{0}.{1}.{2}.{3}", buffer(16), buffer(17), buffer(18), buffer(19))


            If message.Contains("<chat") = True AndAlso source.Contains(ip) = False Then

                'For Each item As String In buffer
                '    Console.WriteLine(item)
                'Next

                Dim dstPort10 As String = Convert.ToString(buffer(22), 16) & Convert.ToString(buffer(23), 16)
                Dim srcPort10 As String = Convert.ToString(buffer(20), 16) & Convert.ToString(buffer(21), 16)
                Dim dstPort As Integer = Convert.ToInt32(dstPort10, 16)
                Dim srcPort As Integer = Convert.ToInt32(srcPort10, 16)


                Dim match = System.Text.RegularExpressions.Regex.Match(message, "thread=""(?<thread>[0-9]+)""")
                Dim thread As Integer = CInt(match.Groups("thread").Value)


                Console.WriteLine()
                Console.WriteLine(k)
                Console.WriteLine("送信元{0}  -  送信先{1}", source, destination)
                Console.WriteLine("ポート{0}  -  {1}", srcPort, dstPort)
                Console.WriteLine("スレッド{0}", thread)
                k = k + 1
            End If


        Loop
    End Sub

はいこれが、パケットキャプチャーのソースです。
以下説明

自分のIP

        Dim ip As String = "192.168.11.2"

messageの中にはパケットのバイナリ？をUTF-8でエンコードした物が一応入ってます。

Dim message As String = Encoding.UTF8.GetString(buffer)
'Console.WriteLine(message) '←何故かココでプログラムが止まってしまう。原因教えて下さい

bufferの中にパケットの16進数（バイナリ？）を10進数に直した1バイトが入ってます。
（写真1）

12,13,14,15 送信元
16,17,18,19 送信先アドレス
が.区切り？で入ってるのでIPの形に直して入れます。
(写真2)

            '送信元IP
            Dim source As String = String.Format("{0}.{1}.{2}.{3}", buffer(12), buffer(13), buffer(14), buffer(15))
            '送信先IP
            Dim destination As String = String.Format("{0}.{1}.{2}.{3}", buffer(16), buffer(17), buffer(18), buffer(19))

messageの中にコメントで使われる形式の”
っとなっているので、threadの値を正規表現で取ります。

                Dim match = System.Text.RegularExpressions.Regex.Match(message, "thread=""(?<thread>[0-9]+)""")
                Dim thread As Integer = CInt(match.Groups("thread").Value)

以上です。ありがとうございました。

前回は正規表現で文字列を一つだけ取りましたね？

今回は全部取ってみたいと思います。

前回の続きで書いていきます。

まず、ボタン2を置きます。（無い場合はテキストボックスをフォームに置きます。）
前回読んだ人はスルーしてください。
テキストボックスには↓ココから

<li><a href="html/index.html">トップページ</a></li>
<li><a href="html/test.html">実験用テストページ</a></li>
<li><a href="hoge/index.html">テストのトップページ</a></li>
<li><a href="homu/homu.html">ほむほむ</a></li>

↑ココまで
を入れときます。

ボタン2のソースはこんな感じ

        '. $ ^ { [ ( | ) * + ?  を含む場合は、文字の前にをつける　例： (1)→((?<value>[0-9]*)
　　　　
        '<li><a href="html/index.html">トップページ</a></li>
        Dim pattern As String = "<li><a href=""(?<url>.*)"">(?<text>.*)</a></li>"
        Dim m As Match = Regex.Match(TextBox1.Text, pattern, RegexOptions.IgnoreCase Or RegexOptions.Compiled)

        Do While m.Success

            Console.WriteLine("URL:{0}  -  タイトル:{1}", m.Groups("url").Value, _
                                                      m.Groups("text").Value)

            m = m.NextMatch()
        Loop

実行すると…

URL:html/index.html – タイトル:トップページ
URL:html/test.html – タイトル:実験用テストページ
URL:hoge/index.html – タイトル:テストのトップページ
URL:homu/homu.html – タイトル:ほむほむ

全部出てくれましたね！
こんな感じで、難しい事書かなくてもできます。

ね？簡単でしょ？

今回は正規表現を使って文字を抜き出したいと思います。
次回は正規表現を使って複数の文字を抜き出したいと思います。

まず、ボタンとテキストボックスをフォームに置きます。
テキストボックスには↓ココから

<li><a href="html/index.html">トップページ</a></li>
<li><a href="html/test.html">実験用テストページ</a></li>
<li><a href="hoge/index.html">テストのトップページ</a></li>
<li><a href="homu/homu.html">ほむほむ</a></li>

↑ココまで
を入れときます。

ボタン1のソースはこんな感じ

        '. $ ^ { [ ( | ) * + ?  を含む場合は、文字の前にをつける　例： (1)→((?<value>[0-9]*)
　　　　
        '<li><a href="html/index.html">トップページ</a></li>
        Dim matchText = Regex.Match(TextBox1.Text, _
                                    "<li><a href=""(?<url>.*)"">(?<text>.*)</a></li>")



        Console.WriteLine(matchText.Groups("url").Value)
        Console.WriteLine(matchText.Groups("text").Value)
        '↑↓どちらでもおｋ
        'Console.WriteLine(matchText.Groups(1).Value)
        'Console.WriteLine(matchText.Groups(2).Value)

実行すると…

html/index.html
トップページ

って出ますね、足りないですね！
このソースだと1つしか出せないのです。

次は、正規表現を使って複数の物を抽出してみましょう！

どうでしたか？意外と簡単でしょ？
正規表現の書き方などは他のサイトを参考にしてください。

よくJSONなどで使われてる
「u5143u6c17u3067u3059u304buff1fuff01」
こんな奴。

ニコ動のAPIでエラーで帰ってる奴にこれが使われてたので、頑張って調べた結果…

分からなかった！(´・ω・`)

なので、5zjさんに教えてもらいましたｗ
コード

'u3042(あ)からuを抜いた文字列を入れる
Dim hoge As String = "3042"
Dim intData As Integer = Convert.ToInt32(hoge, 16)
Dim mozi As String = ChrW(intData)

終わり。

次は長い文字列から直してみる
作り方は簡単！文字列をuで区切ればいいだけ！
で、こうなった

        Dim mes As String = ""
        Dim txt As String = "u5143u6c17u3067u3059u304buff1fuff01"
        Dim stArrayData As String() = Split(txt, "u")

        For Each stData As String In stArrayData
            If stData.Length = 4 Then
                Dim intData As Integer = Convert.ToInt32(stData, 16)
                Dim mozi As String = ChrW(intData)
                'Console.WriteLine(mozi)
                mes = mes & mozi
            End If
        Next
        Console.WriteLine(mes)

実行すると、「元気ですか？！」って出てきてくるはずです。

出てきたら、終わりです。ありがとうございました。

余談で、

Dim hoge As String() = txt.Split(CChar("u"))

と

Dim hoge As String() = Split(txt, "u")

で結果が違った…気づくのに結構時間が掛かった…orz