ROBOT POUR WINDOWS MESSENGER (AVEC API)

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

Télécharger le zip

10 octobre 2005 01:31:21 :

Petite correction du code

10 octobre 2005 01:32:38 :

pareil