Создание чата на VB

[GRS]

Привет всем!

Думаю создать свой чат на VB.
Это возможно? Какая схема реализации? Что нужно для этого? Может у кого есть уже опыт?
Буду рад любой информации.

[SSecurity]

Если делаешь в локалке, тогда юзай ВИНСОК, сколько приятных возможностей модераторства ты получишь .... пишешь свои команды и усе, тока смотри не раздавай список команд другим:) а то будешь не одинок в администрировании.

[GRS]

Если делаешь в локалке, тогда юзай ВИНСОК, сколько приятных возможностей модераторства ты получишь .... пишешь свои команды и усе, тока смотри не раздавай список команд другим:) а то будешь не одинок в администрировании.

Слушай, а если я хочу разместить его в интернете, на своем сайте, к примеру (NAROD.RU), то что в этом случае? Я имею ввиду - возможно ли создать это на VB и если да, то примерно каким образом?
Спасибо за ответ, уважаемый SSecurity

[Max!]

Создай 3 формы
1)frmClient
2)frmServer
3)frmConnecting
Подключи к проэкту Winsock и назови его wsk1
Теперь на форме 3)frmConnecting помести 2'а Textbox'a и назови их:
1)Ip
2)Nick
Патом кнопку и назови ее cmConnecting
Вот код в кнопку:

Код: Выделить всё

dim a as integer
dim sn as string
if me.caption = "Client" then
If Ip.text = "" and Nick.text = "" then
a = msgbox("Вы незаполнили адно из полей",vbcritical,"ERROR")
Else
frmClient.wsk1.Close
frmClient.wsk1.Connect IPtxt.Text, "199"
frmClient.wsk1.senddata  "sn" & Nick.text
End if   

Else

If Ip.text = "" and Nick.text = "" then
a = msgbox("Вы незаполнили адно из полей",vbcritical,"ERROR")
Else

frmServer.wsk1.Close
frmServer.wsk1.LocalPort = CLng(199)
frmServer.wsk1Listen
frmServer.server.caption = Nick.Text
frmServer.show
End if   



Патом еще две кнопки :
1)cmCreateServer
2)cmConnecttoServer

Код 1):

Код: Выделить всё

me.caption = "SERVER"

Kod 2):

me.caption = "Client"



Теперь на форме 1)frmServer создаем 2'а Textbox'a , кнопку и 2'а Label
TextBox:
1)ChatText
2)SendText
Button:
1)SendText
Labels:
1)Server
2)Client
***********
И тоже ставим компонент Winsock и назовем его wsk1

В кнопку код:

Код: Выделить всё

Dim T as string
ChatText.SelText = SERVER.Caption & ":     " & SendText.Text
wsk1.SendData "T" & SendText.Text
SendText.Text = ""


В компонент Winsock:

Код: Выделить всё


Private Sub wsk1_ConnectionRequest(ByVal requestID As Long)

If wsk1.State <> sckClosed Then wsk1.Close
wsk1.Accept requestID


wsk1.SendData "C" & Nick.Caption 
ChatText.SelText = "******Connected*******"
End Sub


В форму 1)frmClient делаем все точно также (Названия итд...)

Код кнопки и Winsock'a

Код: Выделить всё

V knopku:
ChatText.SelText = Nick.Caption & ":     " & SendText.Text
wsk1.SendData "T" & SendText.Text
SendText.Text = ""
V Winsock:
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
SendText.SelText = "****Connected*****"
end sub


Фу Все должно работать!

[hCORe]

Если размещать это все на каком-нибудь сайте - то выбери тип проекта ActiveX Document Dll или ActiveX Document Exe. Принципы работы - те же самые, что и с обычными формами.
Тогда VB при компиляции сгенерит файл .vbd (Visual Basic ActiveX Document), который открывается в IE 3.0+.

[GRS]

Если размещать это все на каком-нибудь сайте - то выбери тип проекта ActiveX Document Dll или ActiveX Document Exe. Принципы работы - те же самые, что и с обычными формами.
Тогда VB при компиляции сгенерит файл .vbd (Visual Basic ActiveX Document), который открывается в IE 3.0+.

hCORe, спасибо тебе огромное за совет, в жизнь бы не догадался. Только есть еще один вопросик , каким образом эти файлы засунуть (и поглубже) в HTML файл . Они работают как JAVA аплеты, да? Насколько это уязвимо (относится к хакерам )?

[hCORe]

Вот ответы на все твои вопросы:

1) Как засунуть в HTML - точно не знаю. Наверное, через тэг <EMBED>:

Код: Выделить всё

<EMBED SRC="Мой_Любимый_Чат.vbd"></EMBED>

2) Работают они как ActiveX-элементы в Visual Basic. VB - контейнер ActiveX, а различные контролы в него помещаются. Тут - так же. Только в роли контейнера выступает Internet Explorer.
3) ActiveX документы уязвимы настолько же, насколько и обычные интернет-приложения (используешь же ты winsock по протоколу TCP/IP, а данные можно перехватить ). Скорее всего, данные лучше передавать в зашифрованном виде. Даже примитивнейшая "ксорка" (XOR) с трех-пятизначным случайным для каждого сообщения ключом серьезно затруднит жизнь взломщику, а пропускной способности канала серьезного ущерба не нанесет.

[SSecurity]

Слушай, а если я хочу разместить его в интернете, на своем сайте, к примеру (NAROD.RU), то что в этом случае? Я имею ввиду - возможно ли создать это на VB и если да, то примерно каким образом?
Спасибо за ответ, уважаемый SSecurity

На народе нет, единственное что на народе доступно это VBS и Java.
НЕВОЗМОЖНО. так как тебе необходим ASP, который не поддерживается НАРОДом.
Ты можешь разместить свою прогу на компе с постоянным IP, а потом всем раздовать программы, которые будут коннектится к твоему серваку. Получится нечто наподобии аськи. тока на серваке ты можешь обрабатывать сообщения и отображать каждому пользователю все сообщения ...

[SSecurity]

Вообщето ... Юзеровский Документ втыкается в таком виде в HTML
пример

Код: Выделить всё

<OBJECT ID="clsDataLogic" CLASSID="clsid:B3693DE9-7D78-11CF-B5AC-0020AFC31239" CODEBASE="http://www.wingspan-t.com/Docs/Document.CAB#version=1,0,0,0"></object>


[burik]

А как получить этот самый "Document.CAB"?

[keks-n]

Package & Deployment Wizard

[burik]

Кстати на Народе можно размещать скрипты .vbd
вот пример: http://burikella.narod.ru/UserDocument1.vbd

[Хакер]

burik
Прикинь, там можно размещать даже скрипты ASP и PHP. Размещать. Вот только работать они не будут, а будут тупо скачиваться как бинарные файлы.

[alibek]

Хакер, в данном случае твой комментарий не по существу.
Проект работать будет и на народе.

[Хакер]

alibek
Мой комментарий вообще никак не относится к проекту. Он указывает на ошибку в посте burik-а, а имеено на то, что не следует путать понятия "сервер позволяет размещать на нём php и asp файлы" и "сервер будет обрабатывать эти php и asp файлы должным образом".