MSN MESSENGER BOTS

Commentaire de vjeux le 07/06/2003 20:22:22

Pas mal !

Mais remplace ca [code]
If MessagerControl.Services.PrimaryService.Status = MSS_NOT_LOGGED_ON Then MsgBox "MSN est pas ouvert": Unload Me
LoadUserList[/code]
par
[code]
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
[/code]
Comme ca apres le msg d'erreur ca fait plus l'erreur !

Puis
[code]Sub LoadUserList()[/code]
par
[code]Sub LoadUserList()
Dim x[/code]

[code]DonneState = Etat & ") Nom répertorier"[/code]
Par
[code]DonneState = Etat & ") Nom répertorié"[/code]

Ajoute
[code]On Error Resume Next[/code]
apres
[code]Dim a[/code]

et [code]Resume[/code] Apres [code]    'OPTIONNEL SERT A ENVOYER UN MESSAGE[/code]


Ajoute [code]Dim x[/code] apres [code]Sub LoadUserList()[/code]


Sinon ca fait une erreur sur
[code]Public Sub ProcessData23(vsString As String, Connection As Integer, pSourceUser)[/code]

Commentaire de katarhackt669 le 07/06/2003 23:48:21

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

Commentaire de katarhackt669 le 08/06/2003 14:08:05

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

Commentaire de crowy le 08/06/2003 15:45:43

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

Commentaire de Programmeur1987 le 20/07/2003 23:34:00

Il roule sous quel Msn ?

Commentaire de vincentescalade le 31/08/2003 19:06:15

y marche pas sous le 6?

Commentaire de crowy le 01/09/2003 10:29:09

G JAMAIS ESSYER SUR LE 6