Subject: Gtalk Bot Problem
- Imports agsXMPP
- Imports Microsoft.Win32
- Partial Class gtalk
- Inherits System.Web.UI.Page
- Dim username As String, Password As String, automaticstart As Boolean, message As String
- Dim objXmpp As agsXMPP.XmppClientConnection
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim xmpp As New XmppClientConnection
- xmpp.Server = "gmail.com"
- xmpp.ConnectServer = "talk.google.com"
- xmpp.Username = "abc@gmail.com"
- xmpp.Password = "123456"
- xmpp.Open()
- Dim jid1 As Jid
- jid1 = New Jid("ggnwt1@gmail.com")
- xmpp.MessageGrabber.Add(jid1, New agsXMPP.Collections.BareJidComparer(), New MessageCB(AddressOf ChatResponseReceived), Nothing)
- 'xmpp.MessageGrabber.Add(JID, new agsXMPP.Collections.BareJidComparer(), new MessageCB(delegate(object sender, agsXMPP.protocol.client.Message msg, object data){ }), null)
- Dim msg As protocol.client.Message = New agsXMPP.protocol.client.Message()
- msg.Type = agsXMPP.protocol.client.MessageType.chat
- msg.To = jid1
- msg.Body = "www.mydomain.edu " + DateTime.Now.ToString()
- xmpp.Send(msg)
- End Sub
- Private Shared Sub ChatResponseReceived(ByVal sender As Object, ByVal msg As agsXMPP.protocol.client.Message, ByVal data As Object)
- End Sub
- End Class
Please Check WHy This Code Is Not Sending Message To Gtalk Messenger
This post was edited on 2013-12-21, 12:24 by Alex.