Конференция VBStreets

**Decaz** » 21.12.2004 (Вт) 19:22

Как написать простой прокси сервер для локальной сети, чтобы при загрузке его не было видно? Дайте пожалуйста код программы.

**Odrick** » 22.12.2004 (Ср) 12:41

Простой прокси-сервер??? :lol:

Это уже интерестно... Ну если чего придумеш - поделись. Самому любопытно.
А спрятать свою програму довольно просто - код можно писать без форм. Тогда ее не будет видно в панели задач. Либо в пропертях формы ставиш BorderStyle в None. Еффект тот же.
Если нужно спрятать из списка задач, можно использовать такое:

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

Public Sub MakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub

**tyomitch** » 22.12.2004 (Ср) 13:15

Odrick, ты забыл упомянуть - этот "метод" работает только в Win9x.

**Sebas** » 22.12.2004 (Ср) 14:30

В ВБ6 это очень не удобно, приходиться работать не на уровне запросов, а на уровне протокола через винсок.

Советую, начать сразу на VB2005 там очень много нового, как раз для сабжевых дел

**v-adix** » 22.12.2004 (Ср) 18:56

сабж

**tyomitch** » 22.12.2004 (Ср) 19:56

А почему в этом топике? :-|

Все загруженные формы перечислены в коллекции Forms. Проверяй, есть ли там твоя.

**v-adix** » 23.12.2004 (Чт) 14:03

tyomitch писал(а):А почему в этом топике?

Все загруженные формы перечислены в коллекции Forms. Проверяй, есть ли там твоя.

спасибо за ответ. извиняюсь, я перепутал "Новая тема" и "ответить" .... :oops:

**v-adix** » 23.12.2004 (Чт) 14:12

кстати насчет прокси. есть отличный пример прокси сервера, однако там тоже есть недоделки. мою почту (yandex.ru), он например отказывается проверять. файлы не скачивает ну и т.д.
ссылка:
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=11700&lngWId=1

**xenomorph** » 23.12.2004 (Чт) 21:32

Есть 2 сорса ...
+ Микропрокси на Ассемблее ...
А вообще наскольо серьёзно?
Если хош - можна вместе собирать

.
Я тоже на ВБ сильно проксик хотел ...
мыл личкой ...

**ArgoruS** » 25.12.2004 (Сб) 17:03

Есть вариант proxy но только с отправкой на один ip (зато поддерживать будет все программы)

На сервере ставишь много winsock'ов в режиме listen. Когда кто-то подлючается к такому, сразу создается клиент и подключается к заддному ip'у. Затем весь поток просто перенаправляется с этого клиента на winsock, который listen, и наоборот.

Таким образом у иеня 24 машины работало на одном модеме, который стоял на сервере. Плюс полная безопасность: нельзя подключиться к каому-то другому ip и накачать порнухи, наприер.

**Sebas** » 27.12.2004 (Пн) 11:41

ArgoruS писал(а):Есть вариант proxy но только с отправкой на один ip (зато поддерживать будет все программы)

На сервере ставишь много winsock'ов в режиме listen. Когда кто-то подлючается к такому, сразу создается клиент и подключается к заддному ip'у. Затем весь поток просто перенаправляется с этого клиента на winsock, который listen, и наоборот.

Таким образом у иеня 24 машины работало на одном модеме, который стоял на сервере. Плюс полная безопасность: нельзя подключиться к каому-то другому ip и накачать порнухи, наприер.

Таким образом ты можешь пернаправить запрос на прокси верхнего уровня, не более.

Конференция VBStreets

Как создать простой прокси сервер?

Как создать простой прокси сервер?

как проверить загружена ли форма?

Кто сейчас на конференции