[VB]VB中调用MSN 6.2 API函数

前端之家收集整理的这篇文章主要介绍了[VB]VB中调用MSN 6.2 API函数前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

VB中调用MSN 6.2 API函数

  了解这方面内容的起因是早上有位朋友让我看一段关于MSN开发程序,现在无法运行,我打开工程发现是针对4.7编写的,而他的计算机安装的6,2,因为我也用6.2所以我在VB中查看了一下,发现是缺少Messenger Type Library。但是多了Messenger API Type Library,可能是做为Messenger Type Library的替代,但是发现它的功能不如以前的Messenger Type Library 全面,起码我现在就发现它不能修改本地的MyFriendlyName,不明白为什么把它弄成只读的,MyStatus是可写。

  下面简单用VB距离说明怎么调用它:

  首先当然是引用对象Messenger API Type Library了。

  然后声明一个对象MessengerAPI.Messenger:

  我们需要的东西都在这里边,简单介绍几个:

  MyContacts:IMessengerContacts 对象
  MyFriendlyName: 当前的昵称
  MyGroups: IMessengerGroupss对象
  MyPhoneNumber:返回电话号码
  MyProperty:现在没有使用
  MyServiceId :返回Service id应该是{9b017612-c9f1-11d2-8d9f-0000f875c541}]
  MyServiceName:返回Service name应该是 .NET Messenger Service
  MySigninName:返回当前的签名,eMail地址
  MyStatus:返回当前状态,MISTATUS枚举值

  其实本地属性和通过PrimaryService得到的一样

  做几个简单的演示:

  首先是登陆演示,使用MessengerAPI.Messenger的 SignIn 或者AutoSignin方法


  获取全部用户列表:

  通过Messenger的MyContacts对象(它是只读的)

  它其实就是一个IMessengerContacts对象,而IMessengerContacts类又是IMessengerContact类的一个集合,在IMessengerContact中保存联系人信息。

  因此可以这样遍历联系人。

  getStatusDesc函数用来返回状态文本描述:

  获取组列表:

  方法获取联系人,只是换了一下对象.

  下面就是将组和用户关联起来:

  明白上面的方法,这个很容易实现,IMessengerGroup类的对象中含有IMessengerContact类对象的集合。

  在介绍一下服务:

  也是用样道理:

  我现在怎么觉得PrimaryService的意义不大,IMessengerServices中就一个PrimaryService可用,还是只读的。  当然各个对象可能还有一些相应的方法就不多介绍,我介绍的这些通过对象浏览器就可以看明白,其中还有对象或成员我现在还没学会使用,现在只是大致了解一下,我希望看到这篇文章的人也有了一点初步了解。

原文链接:https://www.f2er.com/vb/262660.html

猜你在找的VB相关文章