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

改めて質問させていただきます。

前回の返答を参考に文法エラーが出てた箇所を下記のように
修正しデバッグできるようはなりました。

フォーム上にボタンを置きボタンを押すとグーグルの画像を
Blogサイトにアップするという動作確認用サンプルです。

ですが実行させてみると401エラーが発生し止まってしまいました。
色々と調べてみたのですがvb以外の仕様も多く理解できません

この行でエラーストップ
Dim retUp As Byte() = wc.UploadData(LdEntryUrl, "POST", imgBytes)       'ここでエラー:リモートサーバーエラー401
エラーは401（承認失敗？）です

何が問題でどう対処すればいいのでしょうか？

もしかしたらと考えている問題点
Livedoorが提供するAtomPubは新旧の2種類あり使おうとしてるの旧タイプ
新旧の違いによってAtomPubにつかうルートエンドポイントのURLが違う？
Web開発の知識が皆無なので問題点を解決する検索方法もわかりません。


必要になりそうな参考文献
LivedoorのAtomPubの仕様
http://help.blogpark.jp/archives/52288925.html


ソース
FormLoad時に
        System.Net.ServicePointManager.Expect100Continue = False

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button_PicUpload.Click
        Dim wc As New WebClient
        Dim wc2 As New WebClient
        Dim stream As IO.Stream
        Dim sr As StreamReader
        Dim enc As Encoding = Encoding.UTF8

        'Dim username As String = "abc"←元ソース
        'Dim password As String = "1234"←元ソース
        'Dim upurl As String = "http://livedoor.blogcms.jp/atom/blog/abc/article"←元ソース
        '↑を↓へ変更（値はLoad時に設定）
        '↓LivedoorBlogアカウントIdを設定
        'Dim LdUsername As String = "abc"
        '↓BlogアカウントパスワードではなくAtomPubキー生成で作られたパスワードを設定
        'Dim LdPassword As String = "1234"←アカウントパスワードではなくAtomPub用パスワードを設定
        '↓BlogUrlではなくAtomPubキー生成で作られたルートエンドポイントを設定
        'Dim LdEntryUrl As String = "https://livedoor.blogcms.jp/atompub/LivedoorBlogId" ←LivedoorBlogId部分は具体的なBlogIdだったので伏せてます

        Dim nonce As Byte() = makeRandamBytes(40)
        Dim created As String = DateTime.Now.ToString("yyyy-MM-ddTHH:mm:ssZ")

        Dim bytemain As New List(Of Byte)
        bytemain.AddRange(nonce)
        bytemain.AddRange(System.Text.Encoding.UTF8.GetBytes(created))
        bytemain.AddRange(System.Text.Encoding.UTF8.GetBytes(LdPassword))

        Dim sha1 As New SHA1Managed()
        Dim passwordDigest As Byte()
        passwordDigest = sha1.ComputeHash(bytemain.ToArray())

        Dim format As String = "UsernameToken Username=""{0}"", PasswordDigest=""{1}"", Nonce=""{2}"", Created=""{3}"""
        Dim wsseHeader As String = String.Format(format, LdUsername, _
                                    Convert.ToBase64String(passwordDigest), _
                                    Convert.ToBase64String(nonce), created)


        wc.Headers.Add("X-WSSE", wsseHeader)
        stream = wc.OpenRead("http://livedoor.blogcms.jp/atom/")
        sr = New StreamReader(stream, enc)

        TextBox_Top.Text = sr.ReadToEnd()     '←ここは拾えてるのでId/Passwordは承認されてる？


        'サンプルでグーグルの画像を設定してみた
        Dim imgBytes As Byte() = wc2.DownloadData("https://www.google.co.jp/images/srpr/logo11w.png")  '←一度ローカルに保存して画像が拾えてるのは確認
        wc.Headers.Add("X-WSSE", wsseHeader)
        wc.Headers.Add("Content-Type", "image/jpeg")


        'Dim retUp As Byte() = wWc.UploadData(imgurl, "POST", imgBytes)
        '↓imgurlは存在しない変数、上に使ってないURL変数があったのでそれに変更
        Dim retUp As Byte() = wc.UploadData(LdEntryUrl, "POST", imgBytes)       'ここでエラー:リモートサーバーエラー401

        TextBox_Bottom.Text = System.Text.Encoding.UTF8.GetString(retUp)

        wc.Dispose()
        wc2.Dispose()

    End Sub

    Private Function makeRandamBytes(ByVal ByteLength As Integer) As Byte()

        '指定数の文字の乱数を作成
        Dim r As New System.Random(1000)
        Dim bs As Byte() = New Byte(ByteLength) {}
        r.NextBytes(bs)

        Return bs

    End Function

■No93197 (kiku さん) に返信

すみません結果は以下のようになります。

NO	NAME	ID	NAME2	NO2
1.5	b	1	b	2
1.5	b	2	c	1
1.5	b	2	d	2
2.0	a	2	c	1
2.0	a	2	d	2
2.0	a	2	e	3
2.0	a	2	f	4


力ずくでやってみると以下のようになりました。
もっと簡単にできればいいのですが方法はありますでしょうか？

WITH
TB1	(NO, NAME)	AS	(
	SELECT	2, 'a'
	UNION SELECT 1.5, 'b'
	),
TB2	(ID, NAME, NO2)	AS	(
	SELECT	1, 'a', 1
	UNION SELECT	1, 'b', 2
	UNION SELECT	2, 'c', 1
	UNION SELECT	2, 'd', 2
	UNION SELECT	2, 'e', 3
	UNION SELECT	2, 'f', 4
	),
TB	AS	(
	SELECT	TB1.NO, TB1.NAME, TB2.ID, TB2.NAME AS NAME2, TB2.NO2
	FROM	TB1
	INNER	JOIN TB2
			ON CEILING(TB1.NO) = TB1.NO AND TB1.NO = TB2.ID
			OR CEILING(TB1.NO) <> TB1.NO AND (TB2.ID = CEILING(TB1.NO) OR TB2.ID = FLOOR(TB1.NO))
	),
TBM	AS	(
	SELECT	*,
			(
			SELECT	MIN(ID)
			FROM	TB AS TB1
			WHERE	TB1.NO = TB.NO
			) AS MINID
			,
			(
			SELECT	MAX(ID)
			FROM	TB AS TB1
			WHERE	TB1.NO = TB.NO
			) AS MAXID
	FROM	TB
	),
TBD	AS	(
	SELECT	*,
			(
			SELECT	COUNT(*)
			FROM	TBM AS TBM1
			WHERE	TBM1.ID = MINID
					AND TBM1.NO = TBM.NO
			) AS MINCNT,
			(
			SELECT	COUNT(*)
			FROM	TBM AS TBM1
			WHERE	TBM1.ID = MAXID
					AND TBM1.NO = TBM.NO
			) AS MAXCNT
	FROM	TBM
	)

SELECT	NO, NAME, ID, NAME2, NO2
FROM	TBD
WHERE	CEILING(TBD.NO) = TBD.NO
		OR CEILING(TBD.NO) <> TBD.NO
		AND	(
		TBD.ID = MINID AND TBD.NO2 >= TBD.MAXCNT / 2
		OR TBD.ID = MAXID AND TBD.NO2 <= TBD.MAXCNT / 2
		)