C# と VB.NET の質問掲示板

こんにちは。こちらの掲示板は初めてお世話になります。
VB2008のExpress使用で自分用のWindows Formアプリを作っています。

ブラウザ（IE7,8がほとんど）のアドレスバーからアドレスやアイコンをTextBox1にドラッグ＆ドロップした際
TextBox1にブラウザの表示ページのURLを、TextBox2にはページのタイトルを取得したいと思っています。
URLは下記の方法で出来ましたが、タイトルの取得方法がわかりません（そもそも可能なのか？）。

何か良い方法がありましたらご教授お願いします。

　　'ドラッグ＆ドロップでTextBox1に表示ページのURL
    Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop

        Dim url As String = e.Data.GetData(DataFormats.Text).ToString()
        TextBox1.Text = url

    End Sub

■No49167 (よねＫＥＮ さん) に返信
>>アドレスバーのアイコンをデスクトップ等にドロップすると
>>ショートカットの名前がページタイトルになるので、情報は載っているものと思っていましたが・・・
> 
> 受け側であるデスクトップのプログラムが、ドロップされたURLから
> htmlを取得して<title>タグの情報を取得しているのではないでしょうか。

自分もそんな感じがして少し調べてみました。
結論から言うと、ショートカットに使用するファイル名（？）を含めたデータも一緒に渡されているようです。

どぼん！さんのこちらのページが少し参考になりました。
http://dobon.net/vb/dotnet/control/dropfromwebbrowser.html

MemoryStreamとして取れるようなので、その中の76バイト目からがファイル名になっているようです。
（本当はちゃんとした構造体の一部なのだと思いますが、そこまで調べるのは面倒だったので）
どぼん！さんはシフトJISで処理していましたが、Google ChromeなどはUnicodeでしか渡されないようだったので
Unicodeで取得しています。

ページのタイトルというわけにはいかないかもしれませんが（ショートカットのファイル名として渡されるもの
みたいだし）以下のコードでなんとかなるのではないかと。
当然ながらテストもしていませんし、保証はできませんので、何をしているか理解するために使用してください。

        private void Form_DragDrop(object sender, DragEventArgs e)
        {
            // FileGroupDescriptorWフォーマットのメモリーストリームを読む
            MemoryStream desciptor = (MemoryStream)e.Data.GetData("FileGroupDescriptorW");

            // 76バイト目からショートカットのファイル名らしきものが格納されている？
            desciptor.Seek(76, SeekOrigin.Begin);

            // Unicodeでファイルを読み取る
            List<byte> byteList = new List<byte>();
            while (true)
            {
                // 1文字分取得
                List<byte> letter = new List<byte>();
                for (int i = 0; i < 4; i++)
                {
                    int letterByte = desciptor.ReadByte();
                    if (letterByte == -1)
                    {
                        break;
                    }
                    letter.Add((byte)letterByte);
                }

                // 1文字分（4バイト）読み取れなかった、あるいは最後まで達していたら終了
                if (letter.Count != 4 || desciptor.Position > desciptor.Length)
                {
                    break;
                }

                // 4バイトすべてが0だったら終端
                if (letter[0] == 0 && letter[1] == 0 && letter[2] == 0 && letter[3] == 0)
                {
                    break;
                }

                // 1文字分のデータを追加
                byteList.AddRange(letter);
            }

            // タイトルを取得
            string title = Encoding.Unicode.GetString(byteList.ToArray()).TrimEnd('\0');

            // 終端に ".url" がついている場合は削除
            if (title.ToUpper().EndsWith(".URL") == true)
            {
                title = title.Substring(0, title.Length - 4);
            }

            System.Diagnostics.Debug.Print("タイトル：{0}", title);
        }

仕様がどこにあったかもう忘れてしまいましたが。
普通に読めばいいだけだったはず。

昔の私のコードではこんなになってます。

                Dim u As Uri = Nothing
                Dim memst As MemoryStream = TryCast(e.Data.GetData(ShellClipboardFormats.UniformResourceLocatorW), MemoryStream)
                Dim str As String
                Dim i As Integer

                If memst Is Nothing Then Exit Sub

                Using sr As New StreamReader(memst, System.Text.Encoding.Unicode) ' Unicodeで読む
                    str = sr.ReadToEnd()
                End Using
                i = str.IndexOf(vbNullChar)
                If i >= 0 Then str = str.Substring(0, i)

                If Not Uri.TryCreate(str, UriKind.Absolute, u) Then Exit Sub

とりあえず「W」付きじゃないほうはANSIなのでプラットフォーム依存です。

仕様はどこにあったっけなぁ？
他にもドラッグ中に発生する通信用のデータフォーマットとか、いろいろ規定されていたはずなんですが。