110,533
社区成员
发帖
与我相关
我的任务
分享
AddHandler messenger.Nameserver.ContactAdded, AddressOf Nameserver_ContactAdded
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
messenger.Nameserver.AddNewContact(Me.TextBox1.Text.ToString)
End Sub
Private Sub Nameserver_ContactAdded(ByVal sender As Object, ByVal e As XihSolutions.DotMSN.ListMutateEventArgs)
SetStatus((e.Contact.Mail + " is added."))
messenger.Nameserver.AddContactToList(e.Contact, XihSolutions.DotMSN.MSNLists.AllowedList)
Invoke(New UpdateContactlistDelegate(AddressOf UpdateContactlist))
End Sub 'Nameserver_ContactAdded
private void AddUser(string mail)
{
WhiteLog("准备加入" + mail + "到好友列表");
messenger.Nameserver.AddNewContact(mail);
Contact con = messenger.Nameserver.ContactList[mail];
messenger.Nameserver.AddContactToList(con, MSNLists.AllowedList);
messenger.Nameserver.AddContactToList(con, MSNLists.ForwardList);
WhiteLog("已经向" + mail + "请求加入");
}