Skype Cleverbot funktioniert nicht

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von DrawCase.

    Skype Cleverbot funktioniert nicht

    Guten Morgen,
    Entschuldigung das ich euch mal wieder störe. Aber bei mir funktioniert aus Irgendein Grund Cleverbot nicht. Er sollte sobald jemand geschrieben hat, zurück antworten. Macht er aber nicht...

    VB.NET-Quellcode

    1. Imports ChatterBotAPI
    2. Imports SKYPE4COMLib
    3. Dim AxSkype As New Skype
    4. Public bChatbot As Boolean = False
    5. Public session As ChatterBotSession
    7. Public Function CreateSession(bot As ChatterBotType) As ChatterBotSession
    8. Dim chatterBotFactory As ChatterBotFactory = New ChatterBotFactory()
    9. Return chatterBotFactory.Create(ChatterBotType.CLEVERBOT).CreateSession()
    10. End Function
    12. Private Sub AxSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus)
    13. If Status = TChatMessageStatus.cmsReceived AndAlso Me.AxSkype.CurrentUserStatus = TUserStatus.cusAway AndAlso Me.bChatbot = True Then
    14. Dim chatterBotThought As ChatterBotThought = New ChatterBotThought()
    15. Dim body As String = pMessage.Body
    16. chatterBotThought.Text = body
    17. Dim text As String = Me.session.Think(chatterBotThought).Text
    18. pMessage.Chat.SendMessage(text)
    19. End If
    20. End Sub
    22. Private Sub ChromeButton1_Click(sender As Object, e As EventArgs) Handles ChromeButton1.Click
    23. If Not Me.bChatbot = True Then
    24. Me.bChatbot = True
    25. Me.AxSkype.CurrentUserStatus = TUserStatus.cusAway
    26. Me.session = Me.CreateSession(ChatterBotType.CLEVERBOT)
    27. Me.ChromeButton1.Text = "Cleverbot stoppen"
    28. ElseIf Me.bChatbot = True Then
    29. Me.bChatbot = False
    30. Me.AxSkype.CurrentUserStatus = TUserStatus.cusOnline
    31. Me.ChromeButton1.Text = "Cleverbot starten"
    32. End If
    33. End Sub


    Vielleicht kann mir jemand helfen.
    Danke

    Hast du das Event überhaupt abonniert, das geworfen wrid wenn dir einer schreibt (kenne mich mit der api nich aus):

    VB.NET-Quellcode

    1. Private Sub AxSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) handles xy.MessageEmpfangen
    2. If Status = TChatMessageStatus.cmsReceived AndAlso Me.AxSkype.CurrentUserStatus = TUserStatus.cusAway AndAlso Me.bChatbot = True Then
    3. Dim chatterBotThought As ChatterBotThought = New ChatterBotThought()
    4. Dim body As String = pMessage.Body
    5. chatterBotThought.Text = body
    6. Dim text As String = Me.session.Think(chatterBotThought).Text
    7. pMessage.Chat.SendMessage(text)
    8. End If
    9. End Sub


    @'KaskadekingDE

    Doch, die funktioniert noch.

    Moin,

    das sollte nur mit alten Skype-Versionen noch funktionieren, die neuen feuern entsprechende Events nicht mehr.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

Facebook
Telefonspende