Robot pour windows messenger (avec api)

Télécharger le projet
Commenter

Description

Ce code permet de répondre automatiquement à un contact sous windows messenger.
Il fonctionne avec une base de donnée externe en txt, enregistre des logs et peut fournir des réponses aléatoires.
Pour l'utiliser, loggez vous avec windows messenger (à télécharger ici, par exemple http://www.winfuture.de/news,8401.html), et lancez le programme.

Windows messenger n'est PAS msn messenger, mais fonctionne sur le meme réseau. Ainsi, votre compte msn marchera aussi sur windows messenger.
Ce petit programme pose juste quelques bases pour la creation d'un vrai chatterbot (à venir bientot, j'espere :|).

Merci de m'avoir lut !

Source / Exemple : 


Option Explicit
Public WithEvents msn As MsgrObject
Dim test As Integer

Private Sub Form_Load()
Set msn = New MsgrObject
Open App.Path & "\log.txt" For Append As #2
Print #2, "*** Session open the " & Date; " at " & Time() & " ***"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Print #2, "*** Session close the " & Date; " at " & Time() & " ***"
Close #2
End Sub

Private Sub msn_OnTextReceived(ByVal pIMSession As Messenger.IMsgrIMSession, ByVal User As Messenger.IMsgrUser, ByVal bstrMsgHeader As String, ByVal Usersay As String, pfEnableDefault As Boolean)
Dim replystring As String
Dim question() As String
Dim replies() As String
Dim nbrrep As Integer
Dim randomnbr As Integer
If Usersay <> vbCrLf Then
Print #2, "User :" & Usersay
End If
'convertit en minuscule
Usersay = LCase(Usersay)
'ouvre un fichier
Open App.Path & "\replies.txt" For Input As #1
Do Until EOF(1) 'repete tout ca jusqu'a la fin du fichier texte
'lit une line du fichier et la stocke dans replystring
Line Input #1, replystring
question = Split(replystring, "#")
'regarde si ce que dis le contact est dans le replystring
test = InStr(Usersay, question(0))
If test > 0 Then
   'regarde s'il y a plusieur barres | et quitte s'il n'y en a aucune
   test = InStr(question(1), "|")
   If test < 1 Then
   User.SendText bstrMsgHeader, question(1), MMSGTYPE_ALL_RESULTS
    Print #2, "Bot :" & question(1)
    Close #1
   Exit Sub
   End If
  'trouve le nombre de barres apres #
replies = Split(question(1), "|")
nbrrep = UBound(replies)
  'créé un nombre aléatoire entre 0 et nbrrep
Randomize
randomnbr = Int(Rnd() * (nbrrep - 0 + 1)) + 0
'si il n'y a rien à répondre (deux barres ||), on quitte
If replies(randomnbr) = "" Then
Close #1
Exit Sub
End If
  'on répond avec le nombre aléatoire
User.SendText bstrMsgHeader, replies(randomnbr), MMSGTYPE_ALL_RESULTS
Close #1
Exit Sub
 If replies(randomnbr) <> vbCrLf Then
 Print #2, "Bot :" & replies(randomnbr)
 End If
End If
Loop
Close #1
End Sub

Conclusion :


Merci au forum vb de bot-depot.com, à developpez.com et surtout à vbfrance qui m'a fournit toutes mes bases en VB : )

Explication rapide sur le fichier texte :
hello#hi|hello|hey !|Hi|hi there.
Si le bot detecte "hello" dans la phrase du contact, il répondra soi hi, soit hello, soit Hey...etc

(C'est ma premiere source ici, salut à tous !)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_trotter)