WinSock без формы

[XairOn]

Здравствуйте. Не так давно на этом форуме обсуждалсась тема как использовать WinSock без формы, я воспользовался одним из
предложений, а именно: Winsock описывается в модуле класса и там же располагаются все процедуры: Connect, ConnectionRequest,
DataArrival и т.д. На моем компе все работает отлично, когда я попытался запустить программу на другом компе (Windows 2000
Pro там установлена) вылезла ошибка: Can't create object (или что-то вроде того, но какой-то объект программа не могла создать это точно). Я вот думаю, может стоит DLL'ку winsock'а подключить, потому что у меня там только вот это:

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

Private WithEvents Sock As MSWinsockLib.Winsock

- больше в разделе описаний ничего похожего на winsock вообще нету. Подскажите в какой именно DLL лежат функции winsock'а, что подключать надо и как?!

[GM]

Для работы с Winsock нужен mswinsck.ocx. Скопируй его в системную папку, и далее в командной строке введи:

regsvr32 mswinsck.ocx

Должно работать

[xenomorph]

А почему без формы если не секрет?

Открою большую тайну
даже используя АПИ тебе всё равто прийдёться делать окно, субклассировать его для перехвата сообщений от сокета и т.п. ЕстеБственно окно будет невидимое

Вопрос - а не проще ли делать его на форме и с компонентом?

Вариант 2 выпросить у меня 3 (!) варианта АПИ сокета в виде классов
--
Есть только один случай когда компонент - это нож в горло, а лишний килобайт можеи означать 15 ещё минут страха ))
Если да то мыль

[GSerg]

Винсоковые функции бывают синхронные, а бывают асинхронные... Синхронным окно зачем?

[XairOn]

Хорошо с окном всё понятно, а вот компонент я использовать не хочу потому, что придется его(OCX) за собой таскать и регистрировать повсюду в EXE'шник его тоже никак не запихнуть как я понял. Вобщем суть вопроса в том, как бы сделать что бы прога была независимой от всяких там OCX и DLL, можно ли сделать одним EXE файлом всё? Я вобщем-то ради этого и решил через Class Module делать, думал прога к DLL winsock'а будет обращаться и регистрировать ничего не надо будет и за собой таскать.

Посоветуйте как быть???

[xenomorph]

100%
но кто их юзает ???

[tyomitch]

Гуглу известны сотни Винсоков-в-cls:
http://www.vbip.com/winsock-api/csocket ... ass-01.asp
http://www.planet-source-code.com/vb/sc ... 2&lngWId=1
http://www.freevbcode.com/ShowCode.asp?ID=6485
http://www.a1vbcode.com/app.asp?ID=2880

[GSerg]

А мне пофигу... Всё равно, понадобится - напишу свой... Такой вот я нехороший человек...

[ALX_2002]

Челы !!! Не пугайте меня !! С какого такая надобность регить OCX

Создания объекта Winsock таким образом пашет 100%

1) Set wsock = CreateObject("MSWinsock.Winsock")
2) Set wsock = CreateObject("MSWinsock.Winsock.1")

И дальше всё обрабатывается БЕЗ КАКОЙ ЛИБО ФОРМЫ

[tyomitch]

ALX_2002, ты заблуждаешься.
Разрегистрируй mswinsck.ocx и посмотри, что получится.

[ALX_2002]

2 tyomitch: А на хрен разрегивать то ??? Логично, что тогда пахать не будет, но так то он в системе зареген по умолчанию....

На крайняк через Project -> References уго можно к проекту подрубить и тогда по идее вообще класть на то, что зареген он или нет ?

Али я чё то не знаю... Но для меня это шок ?!

P.S Каким же тогда макаром мой сетевой троян сидит у 14 человек моей сети и преспокойно выполняет любые команды ???

[GSerg]

Фигушки...
ocx есть там, где стоит VB. Или там, где его поставила для себя какая-то прога. А так - его нет, а есть wsock32.dll

[ALX_2002]

Ну вы что хотите сказать, что у всех челов, которым я сунул свою прогу стоит VB... Там люди сидят, которые о VB и не слышали..

[tyomitch]

На крайняк через Project -> References уго можно к проекту подрубить и тогда по идее вообще класть на то, что зареген он или нет ?

Да нет, конечно. Если не зарегистрирован - не будет работать, хоть ты из себя выйди.

Али я чё то не знаю... Но для меня это шок ?!

Очевидно, чего-то не знаешь

P.S Каким же тогда макаром мой сетевой троян сидит у 14 человек моей сети и преспокойно выполняет любые команды ???

У всех них - оказалось, что уже есть Студия, либо проги, юзающие Винсок. А вот XairOn не повезло так же, как тебе...

[ALX_2002]

2 all: Во странно.. Пойду разбираться и опрашивать своих... А лучше к ним в гости загляну... Пивка попью.... Разберусь чё к чему...

[ALX_2002]

Челы... Простите меня глупого !!!

Реально... У меня так оно и есть - я ж забыл у меня в папке этот OCX и лежит, а при копировании на целевой комп он туда и кидается и регится...

Я дурак, забыл об этом. У меня всё это в модуле отдельном сунуто....

Короче - БЫЛ НЕ ПРАВ.

Признан виновным и разжалован - в рядовые.. ::(:

[XairOn]

Господа хорошие, вы чего-то разогнались, я за вами не успеваю. Кто-нибудь может доступным языком объяснить: в принципе это возможно или нет - использовать функции winsock'а без OCX'ов и т.д. короче надо что бы прога работала на любом компе даже с неустановленным VB и незарегистрированным OXC'ом. И вообще скажите, зачем кому-то описывать winsock, как класс, какие от этого плюсы??? Я думал, что мне это поможет избавиться от регистрации OXC'ов и таскания их за собой. Я что, был неправ???

[tyomitch]

1. Это возможно.
2. Ты был прав.
3. Пройдись по ссылкам, что я накидал на первой странице, там подходящие тебе классы есть.

[ta_gena]

Это возможно, если написать свой WinSock и втыкать его в свою прогу.
Но по-моему, намного проще таскатьс собой dll и ocx.

[XairOn]

1. Это возможно.
2. Ты был прав.
3. Пройдись по ссылкам, что я накидал на первой странице, там подходящие тебе классы есть.

Спасибо большое, это я и хотел услышать!

[xenomorph]

Хорошаф идея .

Винсоки на АПИ бывают разны Низкоскоростные, белые, красные
Есть неработающие .

Небальшое но ВАЖНОЕ замечание -
Я имел дело с такой ситуацией -
Workstation NT 4.0 - c _ПОЛНОСТЬЮ_ закрытым доступом на
диск кроме рабочего стола
+ Распред доступ
+ Закрытый реестр
+ Злой админ с дубинкой сзади ...

Вообщем, системы _сильно_ оберегались от любителей халявы .

Компонент лежащий рядом с прогой нормально функционировал ...