Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

[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Öб£´æÁªÏµÈËÐÅÏ¢¡£
¡¡¡¡Òò´Ë¿ÉÒÔÕâÑù±éÀúÁªÏ


Ïà¹ØÎĵµ£º

ÓÃVB Winsock¿Ø¼þ´´½¨TCP/IP¿Í»§»ú/·þÎñÆ÷³ÌÐò


ת×Ô£ºhttp://www.52arm.com/Article_Show.asp?ArticleID=186
 
×÷Õߣºweidian    ---±¾Õ¾Ô­´´    µã»÷Êý£º4721    ·¢±íʱ¼ä£º2008-5-7    ±à¼­£ºsanzang
 
Winsock¿Ø¼þ½¨Á¢ÔÚTCP¡¢UDPЭÒéµÄ»ù´¡ÉÏ£¬Íê³ÉÓëÔ¶³Ì¼ÆËã»úµÄ ......

VB ×ÊÁϵ¼³ö

Ôںܶà VB µÄ×ÊÁÏ¿âÊé¼®ÖУ¬¶¼»áºÜÍêÕûµÄÌáµ½£ºÈçºÎÓÉÆäËûÖÖÀàµÄÎļþÖн«×ÊÁϵ¼Èë×ÊÁϿ⣬µ«ÊÇÈ´ºÜÉÙÓÐÊéÌáµ½£ºÈçºÎ½«×ÊÁÏ¿âÖеÄ×ÊÁÏ£¬µ¼³öµ½¸÷ÖÖ²»Í¬µÄÎļþÀàÐ͵ÄÎļþÖУ¬Á¬ VB µÄ Help ÖÐÒ²ÊÇÕâÑù£¡
»òÐíÊÇ´ó¼Ò¶¼ÈÏΪ×ÊÁÏ¿âÖ÷ÌâµÄÖØµãÊÇÔÚ×ÊÁϿⱾÉí°É£¡
µ«ÊÇ£¬ÔÚʵ¼ÊµÄ×ÊÁÏ¿â³ÌÐòÔËÓÃÖУ¬È´³£³£ÐèÒª½«×ÊÁϿ⵼³öµ½¸÷ÖÖ ......

VBÏÔʾ͸Ã÷FLASHЧ¹û

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 ......

VBÎÞËù²»ÄÜÖ®Áù£º¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø ת

×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈα༭: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾ­Ð´µ½Á˵ÚÁù¸ö£¬½ñÌìдµãÊ²Ã´ÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖưɡ£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡Ô­Ðͺ¯Êý¼ò ......

VBÓëC#»¥×ª¹¤¾ß

http://www.carlosag.net/Tools/CodeTranslator/ Õâ¸öÒ²Ðíѧ¼ÆËã»úµÄ¸ç¸ç½ã½ãÃÇ»áÓõõ½£¬£¬¾ÍתÁËÏ£Íû¶à¶àÖ§³ÖŶ Î÷Î÷  Óõõ½¾Í¶¥Å¶
²îµãÍüÁËŶ    £¬Åº»¹ÓÐÒ»¸ösqlµÄ²å¼þºÜºÃÓõÄѽ¡£¡£¡£¡£ÓÐÏëÒªµÄ¾ÍÁôÑÔÏÂÒª¿©¡£¡£¡£¡£¡£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ