Subject: Connection problems
Hi Im a newbie to VB.NET and the xmpp protocol. Im trying to write a simple program in vb.net to send and recieve messages in a windows mobile 5.0 platform. See my code below:
Private Sub FUNC_OnLogin(ByVal sender As Object)
Button1.Enabled = False
Button2.Enabled = True
MsgBox("test")
End Sub
Private Sub FUNC_OnError(ByVal sender As Object, ByVal ex As System.Exception)
MsgBox(ex.Message)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conn As New agsXMPP.XmppClientConnection
Dim Jid As agsXMPP.Jid
Dim cb As agsXMPP.MessageCB
With Conn
AddHandler .OnLogin, AddressOf FUNC_OnLogin
AddHandler .OnError, AddressOf FUNC_OnError
.SocketConnectionType = agsXMPP.net.SocketConnectionType.Direct
.Server = "trakm8.net"
.ConnectServer = "athena.trakm8.net"
.Username = "oluxda2020Fleet@athena.trakm8.net"
.Password = "oluxda"
.Port = "5222"
.Status = "Online"
.Priority = 5
.AutoResolveConnectServer = True
.RegisterAccount = False
.Show = agsXMPP.protocol.client.ShowType.chat
.Open()
End With
End Sub
when i run the above i get the following error message "A socket operation encountered a dead network".
Please any help will be very much appreciated
Private Sub FUNC_OnLogin(ByVal sender As Object)
Button1.Enabled = False
Button2.Enabled = True
MsgBox("test")
End Sub
Private Sub FUNC_OnError(ByVal sender As Object, ByVal ex As System.Exception)
MsgBox(ex.Message)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conn As New agsXMPP.XmppClientConnection
Dim Jid As agsXMPP.Jid
Dim cb As agsXMPP.MessageCB
With Conn
AddHandler .OnLogin, AddressOf FUNC_OnLogin
AddHandler .OnError, AddressOf FUNC_OnError
.SocketConnectionType = agsXMPP.net.SocketConnectionType.Direct
.Server = "trakm8.net"
.ConnectServer = "athena.trakm8.net"
.Username = "oluxda2020Fleet@athena.trakm8.net"
.Password = "oluxda"
.Port = "5222"
.Status = "Online"
.Priority = 5
.AutoResolveConnectServer = True
.RegisterAccount = False
.Show = agsXMPP.protocol.client.ShowType.chat
.Open()
End With
End Sub
when i run the above i get the following error message "A socket operation encountered a dead network".
Please any help will be very much appreciated