' Imports System.Net.Mail
' メールメッセージ
' 引数の from には投稿に使用するメールアドレスを指定
' 引数の to には ブログのメールアドレスを指定
Dim message = New MailMessage(
              "from@example.jp",
              "***.your_spaces_name@spaces.live.com",
              "タイトル",
              "本文")
Using client = New SmtpClient("smtp.example.jp", 587) ' SMTPサーバーアドレスとポート番号を指定
    ' メール送信
    client.Send(message)
End Using

' メールメッセージ
' 引数の from には投稿に使用するメールアドレスを指定
' 引数の to には ブログまたはアルバムのメールアドレスを指定
Dim message = New MailMessage(
              "from@examlple.jp",
              "***.album_id.your_spaces_name@spaces.live.com",
              "タイトル",
              "本文")
Using client = New SmtpClient("smtp.example.jp", 587) ' SMTPサーバーアドレスとポート番号を指

    ' メールに写真を添付
    Dim file = "kasukabe.jpg"
    Dim data = New Attachment(file, Net.Mime.MediaTypeNames.Application.Octet)
    message.Attachments.Add(data)

    ' メール送信
    client.Send(message)
End Using

https://storage.msn.com/storageservice/MetaWeblog.rpc

<?xml version="1.0" encoding="utf-8"?>
<methodCall>
  <methodName>metaWeblog.newPost</methodName>
  <params>
    <param>
      <value>
        <string>MyBlog</string>
      </value>
    </param>
    <param>
      <value>
        <string>*userName*</string>
      </value>
    </param>
    <param>
      <value>
        <string>*password*</string>
      </value>
    </param>
    <param>
      <value>
        <struct>
          <member>
            <name>title</name>
            <value>
              <string>タイトル</string>
            </value>
          </member>
          <member>
            <name>description</name>
            <value>
              <string>本文</string>
            </value>
          </member>
          <member>
            <name>categories</name>
            <value>
              <array>
                <data>
                  <value>
                    <string>Books</string>
                  </value>
                </data>
              </array>
            </value>
          </member>
          <member>
            <name>dateCreated</name>
            <value>
              <dateTime.iso8601>2010-03-30T03:30:00</dateTime.iso8601>
            </value>
          </member>
        </struct>
      </value>
    </param>
    <param>
      <value>
        <boolean>1</boolean>
      </value>
    </param>
  </params>
</methodCall>

' Imports System.Net
' サービスエンドポイント
Dim serviceEndpoint = "https://storage.msn.com/storageservice/MetaWeblog.rpc"

' パラメーター
Dim blogId = "MyBlog" ' Live Spaces の場合 MyBlog で固定
Dim userName = "***" ' Live Spaces の URL に含む文字列
Dim password = "***" ' 秘密のキーワード
Dim publish = True ' 投稿 True / 下書き False
Dim categories = New List(Of String) From {"Books"} ' カテゴリー（Live Spaces はひとつのカテゴリー指定しか対応していません）

' content 構造体に指定する項目
Dim title = "タイトル" ' 記事タイトル
Dim description = "本文" ' 記事の本文
Dim dateCreated = DateTime.UtcNow ' 投稿日時

' 要求時に送信するXML
Dim requestXml =
    <?xml version="1.0" encoding="utf-8"?>
    <methodCall>
        <methodName>metaWeblog.newPost</methodName>
        <params>
            <param><value><string><%= blogId %></string></value></param>
            <param><value><string><%= userName %></string></value></param>
            <param><value><string><%= password %></string></value></param>
            <param>
                <value>
                    <struct>
                        <member>
                            <name>title</name>
                            <value><string><%= title %></string></value>
                        </member>
                        <member>
                            <name>description</name>
                            <value><string><%= description %></string></value>
                        </member>
                        <member>
                            <name>categories</name>
                            <value>
                                <array>
                                    <%= From c In categories
                                        Select <data><value><string><%= c %></string></value></data>
                                    %>
                                </array>
                            </value>
                        </member>
                        <member>
                            <name>dateCreated</name>
                            <value><dateTime.iso8601><%= dateCreated.ToString("s") %></dateTime.iso8601></value>
                        </member>
                    </struct>
                </value>
            </param>
            <param><value><boolean><%= If(publish, 1, 0) %></boolean></value></param>
        </params>
    </methodCall>

' XML を Byte 配列に変換
Dim data() As Byte
Using ms = New System.IO.MemoryStream
    requestXml.Save(ms)
    data = ms.ToArray
End Using

' WebClient オブジェクトを作成し XML として送信する必要がある
Dim client = New WebClient
client.Headers.Add(HttpRequestHeader.ContentType, "text/xml")

' XML の送信（記事の投稿）と応答の受信
Dim responseData = client.UploadData(serviceEndpoint, data)
Dim responseStream = New System.IO.MemoryStream(responseData)

' BOM(Byte Order Mark) がレスポンスの先頭についている場合、削除してから XML へ変換する必要がある
Dim bom = System.Text.Encoding.UTF8.GetPreamble ' BOM
Dim includesBom = True
For Each b In bom
    If responseStream.ReadByte <> b Then
        includesBom = False
        responseStream.Seek(0, System.IO.SeekOrigin.Begin)
        Exit For
    End If
Next

' XDocument に変換
Dim doc As XDocument
If includesBom Then
    Dim buf(responseStream.Length - bom.Length - 1) As Byte
    For i = 0 To buf.Length - 1
        buf(i) = responseStream.ReadByte
    Next
    doc = XDocument.Parse(System.Text.Encoding.UTF8.GetString(buf))
Else
    doc = XDocument.Parse(System.Text.Encoding.UTF8.GetString(responseStream.ToArray))
End If

responseStream.Close()

'レスポンスの参照とブログへ移動
Dim postId = doc.<methodResponse>.<params>.<param>.<value>.Value
Process.Start("http://" & userName & ".spaces.live.com/blog/cns!" & postId & ".entry")

<?xml version="1.0" encoding="utf-8"?>
<methodResponse xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <params>
    <param>
      <value>AFE8504AA8CD166F!1165</value>
    </param>
  </params>
</methodResponse>