Utilisation de librairie VBS [Résolu]

Signaler
Messages postés
286
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
16 juillet 2007
-
Messages postés
286
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
16 juillet 2007
-
Bonjour, comment utiliser la librairie de msn messenger en vbs?
Dans vb6 il faut cocher, mais en vbs je n'ai pas d'idée...
Ce code marcherait-il sans?
Set MSN = New MsgrObject 

merci d'avance.

5 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
Late Binding :
Il te suffit d'employer le nom de la librairie..... tout simplement

Set MSN = CreateObject("Messenger.MsgrObject")

Renfield
Admin CodeS-SourceS - MVP Visual Basic
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
286
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
16 juillet 2007

Ok merci bien !
Messages postés
286
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
16 juillet 2007

Par contre j'aurai une erreur:
J'ai trouvé dans un projet:
Public MSN As messengerapi.Messenger
...
Set MSN = New messengerapi.Messenger

Et lorsque en VBS je fais:
Set MSN = CreateObject("messengerapi.Messenger")
j'ai une erreur, tandis que sous VB6 ça marche...
Quelqu'un aurait une idée ?

Merci.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
ca doit être une histoire de droits (le FireWall se déclenche a ce moment là)

contrairement a ce que tu dis, sous VB6,
Set MSN = CreateObject("messengerapi.Messenger")

ne fonctionne guère plus....
Messages postés
286
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
16 juillet 2007

non, mais <!--StartFragment --> Set MSN = New messengerapi.Messenger marche...
Sous vbs il faut utiliser
Set msn = CreateObject("Messenger.UIAutomation.1")