Support forums - Trying to add "Add Contact" feature on my asp/vb .net forum

Support forums » Products » Cute Chat and Cute Web Messeng... » Re: Trying to add "Add Contact" feature on my asp/vb .net forum

Trying to add "Add Contact" feature on my asp/vb .net forum

Last post 02-20-2010, 7:38 PM by Kenneth. 1 replies.


	Sort Posts: Previous Next

02-11-2010, 3:20 PM 58672

vince11111
Joined on 02-11-2010
Posts 9

Trying to add "Add Contact" feature on my asp/vb .net forum

Reply Quote

Hi all,

i was wondering if anyone knew how to make a button for a site (more specifically, for my forum) which allows me to add a contact to my contact list. I currently have the following:

Imports CuteSoft.Chat
Partial Class Support_addbuddy
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Code for adding the author for the current message as IM contact
If Request.QueryString("memberID") <> Request.QueryString("BuddyID") Then
Dim senderID As Int32 = UserInfoHelper.GetCuteIMUserObjectIDByProgramUserID(Request.QueryString("memberID"))
Dim buddyID As Int32 = UserInfoHelper.GetCuteIMUserObjectIDByProgramUserID(Request.QueryString("buddyID"))
Dim senderChatUserID As Int32 = UserInfoHelper.GetCuteChatUserIDByCuteIMObjectID(senderID)
Dim buddyChatUserID As Int32 = UserInfoHelper.GetCuteChatUserIDByCuteIMObjectID(buddyID)
Try
ChatApi.AddContact(senderChatUserID, buddyChatUserID)
ChatApi.SyncContacts(senderID, True)
ChatApi.SyncContacts(buddyID, True)
Catch ex As Exception
ReportError(ex)
End Try
End If
End Sub
End Class

For some reason it doesn't work. Please advise.

Thanks!

Filed under: asp, add, vb .net, contact

02-20-2010, 7:38 PM 58864 in reply to 58672

Kenneth
Joined on 02-13-2008
Posts 3,886

Re: Trying to add "Add Contact" feature on my asp/vb .net forum

Reply Quote

Hi vince11111,

Below is an example to show you how to add user "terry" into friend list of ken.

Dim portal As CuteChat.ChatPortal = CuteChat.ChatSystem.Instance.GetCurrentPortal()
SyncLock portal
Dim myid As CuteChat.ChatIdentity = New CuteChat.AppChatIdentity("nickname", False, "User:ken", "0.0.0.0")
portal.DataManager.AddContact(myid, "User:terry")
End SyncLock

Regards,

Ken