Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Binding Messenger COM-object
Message
De
28/06/2004 03:14:06
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Binding Messenger COM-object
Divers
Thread ID:
00917852
Message ID:
00917852
Vues:
47
I'm using following code to bind VFP8 to MSN Messenger :

PUBLIC loVFPCOM,loOutlook,loLink

loVFPCOM = CREATEOBJECT("VFPCOM.COMUTIL")
loOutlook = CREATEOBJECT("Messenger.UIAutomation.1")
loLink = CREATEOBJECT("MessengerApplicationEvents")

loVFPCOM.BindEvents(loOutlook,loLink)

DEFINE CLASS MessengerApplicationEvents as Custom

PROCEDURE OnAppShutDown()
MESSAGEBOX("Close MSN")
ENDPROC

PROCEDURE OnTextReceived(plMSession, pSourceUser, bstrMsgHeader, bstrMsgText, pfEnableDefault)
MESSAGEBOX("User receives message")
ENDPROC

ENDDEFINE

When running this code I get 'Unknown COM status code'. I got the method 'OnTextReceived' and 'OnAppShutDown' from the object browser of the 'Messenger 1.0 Type Library'...
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform