[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：
Private WithEvents oMSN As 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方法：
Public Sub SignIn(ByVal bAuto As Boolean, Optional ByVal sSignInName As String, Optional ByVal sPassword As String)
On Error GoTo ErrorHandle
If bAuto = True Then
oMSN.AutoSignin
Else
ManualSignIn:
oMSN.SignIn 0, sSignInName, sPassword
End If
Exit Sub
ErrorHandle:
Dim MConstants As MSGRConstants
MConstants = err.Number
If MConstants = MSGR_E_FAIL Then
GoTo ManualSignIn
ElseIf MConstants = MSGR_E_ALREADY_LOGGED_ON Then
'已经登陆
End If
End Sub
获取全部用户列表：
通过Messenger的MyContacts对象（它是只读的）
它其实就是一个IMessengerContacts对象，而IMessengerContacts类又是IMessengerContact类的一个集合，在IMessengerContact中保存联系人信息。
因此可以这样遍历联�
相关文档：
ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言，默认的内置开发语言是VBScript，由于ASP和微软Windows系列操作系统的结合非常的好，使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。
他有着简单易学，方便快速开发的种种优点，但是他也有着致命的弱点，就是他是脚本语言解释执行的，速度会受到 ......
在很多 VB 的资料库书籍中，都会很完整的提到：如何由其他种类的文件中将资料导入资料库，但是却很少有书提到：如何将资料库中的资料，导出到各种不同的文件类型的文件中，连 VB 的 Help 中也是这样！
或许是大家都认为资料库主题的重点是在资料库本身吧！
但是，在实际的资料库程序运用中，却常常需要将资料库导出到各种 ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
文章来源:vb大世界 作者：王国荣
「VB 没有提供这样的功能， 必须呼叫 Windows API」， 当笔者这样回答读者之後，有些读者会要求笔者介绍 Windows API 方面的书籍， 尤其是中文书， 但实际上，目前市面上只看到一本原文书(ZD Press 出版的 Visual Basic 5.0 Programming Guide to Win32 API)， 中文书则未见过， 为什麽没� ......
在开发中保持良好的编码规范是十分重要的。我所采用的新的VB.net/ASP.NET编码规范，是一种被证明能明显改善代码可读性，并有助于代码管理、分类的编码规范。采用这种编码规范，能避免如匈牙利命名法带来的繁长前缀，便于记忆变量的用途。下面的介绍这种编码规范。
一、类型级单位的命名
1、类
□以Class声明的类，都必须 ......
