[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£º µ±Ç°µÄêdzÆ
¡¡¡¡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Öб£´æÁªÏµÈËÐÅÏ¢¡£
¡¡¡¡Òò´Ë¿ÉÒÔÕâÑù±éÀúÁªÏ
Ïà¹ØÎĵµ£º
ת×Ô£ºhttp://www.52arm.com/Article_Show.asp?ArticleID=186
×÷Õߣºweidian ---±¾Õ¾Ô´´ µã»÷Êý£º4721 ·¢±íʱ¼ä£º2008-5-7 ±à¼£ºsanzang
Winsock¿Ø¼þ½¨Á¢ÔÚTCP¡¢UDPÐÒéµÄ»ù´¡ÉÏ£¬Íê³ÉÓëÔ¶³Ì¼ÆËã»úµÄ ......
Ôںܶà VB µÄ×ÊÁÏ¿âÊé¼®ÖУ¬¶¼»áºÜÍêÕûµÄÌáµ½£ºÈçºÎÓÉÆäËûÖÖÀàµÄÎļþÖн«×ÊÁϵ¼Èë×ÊÁϿ⣬µ«ÊÇÈ´ºÜÉÙÓÐÊéÌáµ½£ºÈçºÎ½«×ÊÁÏ¿âÖеÄ×ÊÁÏ£¬µ¼³öµ½¸÷ÖÖ²»Í¬µÄÎļþÀàÐ͵ÄÎļþÖУ¬Á¬ VB µÄ Help ÖÐÒ²ÊÇÕâÑù£¡
»òÐíÊÇ´ó¼Ò¶¼ÈÏΪ×ÊÁÏ¿âÖ÷ÌâµÄÖØµãÊÇÔÚ×ÊÁϿⱾÉí°É£¡
µ«ÊÇ£¬ÔÚʵ¼ÊµÄ×ÊÁÏ¿â³ÌÐòÔËÓÃÖУ¬È´³£³£ÐèÒª½«×ÊÁϿ⵼³öµ½¸÷ÖÖ ......
VBÏÔʾ͸Ã÷FLASHЧ¹û
ÑÝʾЧ¹û£º
´úÂëÈçÏ£º
¹«¹²ÉùÃ÷ÇøÓò
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......
×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈαà¼: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾдµ½Á˵ÚÁù¸ö£¬½ñÌìдµãÊ²Ã´ÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖưɡ£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡ÔÐͺ¯Êý¼ò ......
http://www.carlosag.net/Tools/CodeTranslator/ Õâ¸öÒ²Ðíѧ¼ÆËã»úµÄ¸ç¸ç½ã½ãÃÇ»áÓõõ½£¬£¬¾ÍתÁËÏ£Íû¶à¶àÖ§³ÖŶ Î÷Î÷ Óõõ½¾Í¶¥Å¶
²îµãÍüÁËŶ £¬Åº»¹ÓÐÒ»¸ösqlµÄ²å¼þºÜºÃÓõÄѽ¡£¡£¡£¡£ÓÐÏëÒªµÄ¾ÍÁôÑÔÏÂÒª¿©¡£¡£¡£¡£¡£ ......