Problems with

Blitz3D Forums/Blitz3D Programming/Problems with

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Oops! Forget to enter UDP in the Topic.
Im trying to write a program kind of like a proxy server. I can't seem to ever be able to connect. I ran a packet sniffer program while it was connecting and noticed that the source port is the same port that is in my program and the destination port is something really different. What is wrong? Thanks
AppTitle "FlightGear2FlightSimulator"

fgUDP = CreateUDPStream(5500)

fsUDP = CreateUDPStream(23456)

SendUDPMsg(fsUDP,DotToInt%("84.61.21.241"))

While Not KeyHit(1)

If RecvUDPMsg(fsUDP) Then
	Print ReadLine$(fsUD)
EndIf

WriteLine(fsUDP,Input$("")

Wend

Function DotToInt%(ip$)
	off1=Instr(ip$,".")	  :ip1=Left$(ip$,off1-1)
	off2=Instr(ip$,".",off1+1):ip2=Mid$(ip$,off1+1,off2-off1-1)
	off3=Instr(ip$,".",off2+1):ip3=Mid$(ip$,off2+1,off3-off2-1)
	off4=Instr(ip$," ",off3+1):ip4=Mid$(ip$,off3+1,off4-off3-1)
	Return ip1 Shl 24 + ip2 Shl 16 + ip3 Shl 8 + ip4
End Function