利用 VB.Net 新增CS 2007.1用戶

Tuesday, 4 December 2007 14:19 by admin

 如果想用程式碼加入用戶或是將之前的用戶匯入,以下的程式碼就可以達成

' 建立一個 UserQuery
Dim objQuery As UserQuery = New CommunityServer.UserQuery()
objQuery.Status = UserAccountStatus.Approved
objQuery.IncludeHiddenUsers = True

' 抓取 users 從 UserQuery , 並不使用快取
Dim objUserSet As UserSet = CommunityServer.Users.GetUsers(objQuery, False)

' 建立一個 StringBuilder 存放資料
Dim strTemp As New StringBuilder(1000)

' 用 For Each 重複 User
For Each tempuser As User In objUserSet.Users
' 將資料寫到 strTemp
strTemp.Append(String.Format("{0},{1},{2}", tempuser.UserID, tempuser.Username, tempuser.Email) & vbCrLf)
Next

TextBox4.Text = strTemp.ToString

' 如果需要抓取單一用戶
Users.GetUser("testuser")

 

如果想看C# 版本,可以參考 Keyvan Nayyeri 寫的 CS Dev Guide: User manipulation