Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Спасибо, Lukas !!!
Бум делать клиент серверное предложение......

Будем с тобой по TPC общатится

==========================================

клиент
Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1" ' Указываем IP компа, на котором запущен сервер(В место IP'a можно указать имя компа(Мой Компьютер>>Панель управления>>Сеть>>Индефикация(Winsock1.RemoteHost = "Komp")))(если ты щас не в сети(ил в локалке), то твой IP всегда будет 127.0.0.1)
Winsock1.RemotePort = 101 ' Указываем порт сервера
Winsock1.Connect ' Подключаемся
Form1.Caption = "Клиент"
End Sub


Private Sub Text1_Change() ' Принимаем запрос
Winsock1.SendData Text1.Text ' Принимаем запрос
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ' Если сервер посылает текст то:
Dim DD As String ' Объявляем переменную для работы со строками
Winsock1.GetData DD ' Записываем в переменную текст, который был послан Сервером
Text2.Text = DD
End Sub