測試我用WLW在CSDN上的第一篇部落格

CSDN上寫部落格讓人很糾結，因為很慢，而且會丟失資訊，這讓我很鬱悶，為了這個我都想將CSDN上的部落格搬家到CNBLOG上去了。但是發現使用WLW既可以寫CSDN的部落格，也可以寫CNBLOG的部落格，我有想試一下，如果可以的話就不搬家了。我還是喜歡CSDN的環境。

下面測試代碼能否插入。這裡使用了外掛程式Paste AS VS Code，而不是使用WindowsLiveWriter.SourceCode.dll這個外掛程式。

Code Snippet

1. Private Sub cmdImportUsers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImportUsers.Click
2.          Dim xmlDoc As New XmlDocument
3.          xmlDoc.LoadXml(txtUserXML.Text)
4.          ' update the user record in the database
5.          Dim responseBuilder As StringBuilder = New StringBuilder()
6.          For Each xmlItem As XmlElement In xmlDoc.SelectNodes("/Users/User")
7.  
8.              Dim oUserInfo As New UserInfo
9.              oUserInfo.PortalID = 0
10.              oUserInfo.Membership.Username = GetXmlItemValue(xmlItem, "Username")
11.              oUserInfo.Username = GetXmlItemValue(xmlItem, "Username")
12.              oUserInfo.Profile.FirstName = GetXmlItemValue(xmlItem, "FirstName")
13.              oUserInfo.FirstName = GetXmlItemValue(xmlItem, "FirstName")
14.              oUserInfo.Profile.LastName = GetXmlItemValue(xmlItem, "LastName")
15.              oUserInfo.LastName = GetXmlItemValue(xmlItem, "LastName")
16.              oUserInfo.Profile.Unit = GetXmlItemValue(xmlItem, "Unit")
17.              oUserInfo.Profile.Street = GetXmlItemValue(xmlItem, "Street")
18.              oUserInfo.Profile.City = GetXmlItemValue(xmlItem, "City")
19.              oUserInfo.Profile.Region = GetXmlItemValue(xmlItem, "Region")
20.              oUserInfo.Profile.PostalCode = GetXmlItemValue(xmlItem, "PostalCode")
21.              oUserInfo.Profile.Country = GetXmlItemValue(xmlItem, "Country")
22.              oUserInfo.Profile.Telephone = GetXmlItemValue(xmlItem, "Telephone")
23.              oUserInfo.Membership.Email = GetXmlItemValue(xmlItem, "Email")
24.              oUserInfo.Email = GetXmlItemValue(xmlItem, "Email")
25.              oUserInfo.Membership.Approved = True
26.              oUserInfo.AffiliateID = Null.NullInteger
27.              oUserInfo.Membership.Password = GetXmlItemValue(xmlItem, "Password")
28.          Dim createStatus As UserCreateStatus = UserController.CreateUser(oUserInfo)
29.  
30.          '    If createStatus = UserCreateStatus.Success Then
31.          '    responseBuilder.AppendLine(String.Format("User '{0}' created successfully", oUserInfo.Username))
32.  
33.          '    Else
34.          '    responseBuilder.AppendLine(String.Format("User '{0}' creation failed: {1}", oUserInfo.Username, [Enum].GetName(GetType(UserCreateStatus), createStatus)))
35.  
36.          'End If
37.          '只輸出匯入不成功的使用者。
38.          If createStatus <> UserCreateStatus.Success Then
39.              responseBuilder.AppendLine(String.Format("User '{0}' creation failed: {1}", oUserInfo.Username, [Enum].GetName(GetType(UserCreateStatus), createStatus)))
40.          End If
41.  
42.          Next
43.          txtUserXML.Text = responseBuilder.ToString()
44.      End Sub

然後是測試圖片能夠上傳