Вообщем разобрался что тут к чему, ео есть одно большое НО  После того как я скачал полностью рабочий исходник чата к себе на компьютер и решил затестить его мне вылетела такая ошибка Run-time Error 10014 invalid argument. Немного погуглив что же это за ошибка натолкнулся на что типо это ошибка microsoft и что скачав что то она будет исправлена. Вообщем скачал пакет обновлений поставил Visual basic 6.0 sp 6 ошибка так и осталась =(
| Код |
Private Sub Form_Load()
' Имя Winsock элемента udpPeerA
With udpPeerA
' Важно: правильно укажите значение RemoteHost
' компьютера, с которым предстоит соединение.
.RemoteHost = "PeerB"
.RemotePort = 1001 ' Имя порта для соединения.
.Bind 1002 ' Привязка к локальному порту.
End With
frmPeerB.Show ' Показать вторую форму.
End Sub
Private Sub txtSend_Change()
' Послать текст, как только он будет набран.
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
|
2 форма
| Код |
Private Sub Form_Load()
' Имя Winsock элемента udpPeerB.
With udpPeerB
' Будьте внимательны указывая имя или IP-адрес
' компьютера с которым предстоит соединение.
.RemoteHost = "PeerA"
.RemotePort = 1002 ' Номер порта для соединения.
.Bind 1001 ' Привязка к локальному порту.
End With
End Sub
Private Sub txtSend_Change()
' Пересылать текст, как только он будет набран в текстовом поле.
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
|
ошибкой выделяется udpPeerA.SendData txtSend.Text когда пытаешься что то ввести в поле txtSend
|
