MSN MESSENGER BOTS

vjeux Messages postés 92 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 5 décembre 2003 - 7 juin 2003 à 20:22
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006 - 23 août 2006 à 08:41

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7367-msn-messenger-bots

frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006
23 août 2006 à 08:41

moi j'aime bien l'idee qu'il roule sous le windows messenger plustot que le msn messenger commen ca ca fais un serveur qui roule dans le coin dansdia que mon msn est ouvert pour chatter.

buzydoudou Messages postés 50 Date d'inscription mardi 24 août 2004 Statut Membre Dernière intervention 28 avril 2005
25 août 2004 à 11:46

Et il n'y a pas moyen de le faire marcher sur msn 6.0 ?!?

cs_crowy Messages postés 54 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 16 septembre 2003
1 sept. 2003 à 10:29

G JAMAIS ESSYER SUR LE 6

vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
31 août 2003 à 19:14

Ca marche pas sous 6 !!!!!

vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
31 août 2003 à 19:06

y marche pas sous le 6?

cs_crowy Messages postés 54 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 16 septembre 2003
21 août 2003 à 10:47

SUR Le 5

Programmeur1987 Messages postés 80 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 5 mars 2009
20 juil. 2003 à 23:34

Il roule sous quel Msn ?

cs_Jielde Messages postés 226 Date d'inscription mardi 17 octobre 2000 Statut Membre Dernière intervention 1 décembre 2010
8 juin 2003 à 16:10

il dit que msn n'ets pas en route.

cs_crowy Messages postés 54 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 16 septembre 2003
8 juin 2003 à 15:45

g pas essayer sur msn messenger 6.0 beta mais si le program salume et kil detecte les utilisateur, c kil marche.

cs_Jielde Messages postés 226 Date d'inscription mardi 17 octobre 2000 Statut Membre Dernière intervention 1 décembre 2010
8 juin 2003 à 15:13

ET sous MSN 6 beta, il marche pas ?

katarhackt669 Messages postés 22 Date d'inscription lundi 23 septembre 2002 Statut Membre Dernière intervention 21 juin 2004
8 juin 2003 à 14:08

oki, merci à toi crowy...
mais j'avais déjà essayé d'activer ces api, sans résultat...
je m'y remet tt de suit ;p
thx

cs_crowy Messages postés 54 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 16 septembre 2003
8 juin 2003 à 09:51

Il faut que tu regarde dans Projet>reference, et que tu active :

-messenger 1.0 type library
-messenger api type library
-messenger Extention type library

et normalement

katarhackt669 Messages postés 22 Date d'inscription lundi 23 septembre 2002 Statut Membre Dernière intervention 21 juin 2004
7 juin 2003 à 23:48

beau code!
j'arrive à lancer l'éxécutable mais mon vb6 ne veut pas le compiler, il me dit fonction non déclarée par l'utilisateur au début du prog (1ère lign :p) ou qq chose dans le genre ;p

cs_crowy Messages postés 54 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 16 septembre 2003
7 juin 2003 à 20:53

Merci, jvais le faire

vjeux Messages postés 92 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 5 décembre 2003
7 juin 2003 à 20:22

Pas mal !

Mais remplace ca

If MessagerControl.Services.PrimaryService.Status = MSS_NOT_LOGGED_ON Then MsgBox "MSN est pas ouvert": Unload Me
LoadUserList

par

If MessagerControl.Services.PrimaryService.Status = MSS_NOT_LOGGED_ON Then 
MsgBox "MSN est pas ouvert"
Unload Me
Exit Sub
End if
LoadUserList
Label2.Visible = False
Label1.Caption = "Bots fonction !" & vbCrLf & "Ecrire le message que vous voulez que vos cont@cts reçoivent !"
Label1.Alignment = 2

Comme ca apres le msg d'erreur ca fait plus l'erreur !

Puis

Sub LoadUserList()

par

Sub LoadUserList()
Dim x

DonneState = Etat & ") Nom répertorier"

Par

DonneState = Etat & ") Nom répertorié"

Ajoute

On Error Resume Next

apres

Dim a

Resume

Apres

    'OPTIONNEL SERT A ENVOYER UN MESSAGE

Ajoute

Dim x

apres

Sub LoadUserList()

Sinon ca fait une erreur sur

Public Sub ProcessData23(vsString As String, Connection As Integer, pSourceUser)

Discussions similaires

Client MSN Messenger 6 en VB6

meteo

MSN, Sniffer, SPY que faire, comment faire ?

Bot scrabble

Bot dofus

Votre réponse

Discussions similaires