I am getting an error and its really bothering me. I am writing a simple program to receivce data on a port, write it to a file and send it out another port. I have no problem getting it in the first port (winsock1) and writing it to a file. But as soon as i try to send it out winsock2 i get the following error "Runtime error '10047' address family not supported. It shows me the error is at this line: Call Winsock2.SendData("hi")
what up with that error??? if you look at my code you will see that i am pretty much using the exact code for winsock1 as i am 2.
Both winsocks are set to udp, i even copy and past winsock1 as winsock2. Its intresting to note that with this line Call Winsock2.SendData(message) i get an error but with this line Call Winsock2.SendData("") i don't. what the heck is up with this?
attached is my code
Code:Option Explicit
Dim message As String
Dim fso As New FileSystemObject
Dim fsoStream As TextStream
Private Sub Form_Load()
' set up local port and wait for connection
Call Winsock1.Bind(1234)
Call Winsock2.Bind(4242)
Set fsoStream = fso.CreateTextFile("c:\junk.txt", True)
End Sub
Private Sub Form_Terminate()
Call Winsock1.Close
Call Winsock2.Close
fsoStream.Close
Set fsoStream = Nothing
Set fso = Nothing
End Sub
Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Call Winsock1.GetData(message) ' get data from client
fsoStream.WriteLine message
TxtDebug.Text = TxtDebug.Text & message
Call Winsock2.SendData(message)
End Sub
