• Home
 · 
• Miscellaneous
 · 
• Sends messages to a remote host ip and a port on that ip.. also waits for data incoming!

Sends messages to a remote host ip and a port on that ip.. also waits for data incoming!

Sends messages to a remote host ip and a port on that ip.. also waits for data incoming!

API Declarations


you can download this program at:
www.splamoni.iwarp.com
but if you are going to use this code please email me:
[email protected]
[email protected]
[email protected]
thanx..

'BY ADAM K DEAN
'WWW.SPLAMONI.IWARP.COM
'Create a winsock control name it to sckMain and change the protocol to UDP protocol
'Create 5 textboxes name them in order: txtRHost, txtRPort, txtLPort, txtOut, txtIn in txtOut set the Locked property to True
'Create 2 commandbuttons name them in order: cmdSend, cmdConnect





Rate Sends messages to a remote host ip and a port on that ip.. also waits for data incoming!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

sckMain.RemoteHost = txtRHost 'In this textbox it shall eigther be an IP address or a freindly computer name i.e. PC1 to the computer you´re about to connect to.
sckMain.RemotePort = txtRPort 'Here shall a remote port be filled in thats the port to the computer you´re about to connect to
sckMain.Bind txtLPort 'The port you are using, the other user uses this port for remote port
cmdConnect.Enabled = False
txtRHost.Enabled = False
txtRPort.Enabled = False
txtLPort.Enabled = False
Me.Caption = "Done..!"
End Sub

Private Sub cmdSend_click()
On Error Resume Next
'Send the data thats in txtIn to the other user if it´s not empty
If txtIn <> "" Then
sckMain.SendData txtIn.Text
End If
Me.Caption = "Data sent.."
txtIn.Text = ""
End Sub

Private Sub Form_Load()
lblIP.Caption = "Your IP: " & sckMain.LocalIP
End Sub

Private Sub sckMain_Dataarrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim tx$
'Shows the message from the other user in txtOut and makes a beep sound so the other user knows that he/she got a message
Me.Caption = "Data In.."
sckMain.GetData tx$
txtOut.Text = tx$
Beep
Me.Caption = "Data Got.."
End Sub