VBNet - Форум - Нужен исходник простого сетевого Чата.....

Вопрос: Нужен исходник простого сетевого Чата..... Добавлено: 20.11.03 02:37

Автор вопроса: VC Spy

Мне нуже исходник, пример простого чата для локальной сети.

Он (чат) не обязатель должен быть навороченным, мне главное посмотреть принцип его написания...

Помогите, плиз.

Спасибо.

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| Цитата \| #1	Добавлено: 20.11.03 10:25
	Поищи на www.sources.ru Elf's Chat Ответить

Номер ответа: 2
Автор ответа:

Pendalf

ICQ: 281656216

Вопросов: 10
Ответов: 14

Профиль | Цитата | #2

Добавлено: 21.11.03 04:15

***********************<СОЗДАЙ НОВЫЙ ПРОЭКТ 'SERVER'>**********************************

Private Sub Command1_Click()

'послать данные

Winsock2.SendData Text1.Text

End Sub

Private Sub Form_Load()

Winsock1.LocalPort = 1000 ' локальный порт

'слушать порт

Winsock1.Listen 'после этого лучше поставить DoEvents

DoEvents

End Sub

Private Sub Winsock2_Close()

'если клиент отключился то надо бы закрыть соединение

Winsock2.Close

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

'даём согласие на подключение клиента !!!***Winsock2***!!!

Winsock2.LocalPort = 1000

Winsock2.Accept requestID

End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)

' процедура выполняется когда клиент прислал данные

Dim S As String

'присваиваем данные переменной S

Winsock2.GetData S, vbString

Text2.Text = Text2.Text & S

End Sub

***************************************************************************************

***********************<СОЗДАЙ НОВЫЙ ПРОЭКТ 'CLIENT'>**********************************

Private Sub Command1_Click()

'послать данные

Winsock1.SendData Text1.Text

End Sub

Private Sub Command2_Click()

Winsock1.RemoteHost = "127.1.0.0" ' - твой IP адресок

Winsock1.RemotePort = 1000

Winsock1.Connect

Command2.Enabled = False

Command3.Enabled = True

End Sub

Private Sub Command3_Click()

'откл. от сервера

Winsock1.Close

End Sub

Private Sub Winsock1_Close()

Command3.Enabled = False

Command2.Enabled = True

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

' процедура выполняется когда клиент прислал данные

Dim S As String

'присваиваем данные переменной S

Winsock1.GetData S, vbString

Text2.Text = Text2.Text & S

End Sub

**************************************************************************************

Если чё не понятно пиши на Georgiy_2003@rambler.ru или на аську 281656216.

Goga.

Ответить

Страница: 1 |