Крайне избитая тема про инет...

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
sslion
Постоялец
Постоялец
 
Сообщения: 334
Зарегистрирован: 12.04.2002 (Пт) 9:44
Откуда: Russia

Крайне избитая тема про инет...

Сообщение sslion » 26.03.2003 (Ср) 13:47

Пишу простенький чат но основе винсока. По локальной сети все работает отлично, но вот подключиться через инет не могу... (не знаю как)
Т.е. я знаю внешний ИП ихней пркси, знаю локальный ИП моего друга, но не знаю как указать винсоку подконектиться...
На серваке стоит ЛИНУХ и прокся СКВИД...
Прикол еще в том, что и меня выход через проксю...
Как мне проги связать?

sslion2000@mail.ru

Firestorm
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 946
Зарегистрирован: 02.05.2002 (Чт) 14:36
Откуда: Russia

Сообщение Firestorm » 26.03.2003 (Ср) 14:44

в чём конкретно проблема? проски помоему не помеха...
ws.connect IP,Port

а на серваке незабудь про авторизацию...
...просто гламурный падонак...
_________________
reborn! v.2 :twisted:
_________________

sslion
Постоялец
Постоялец
 
Сообщения: 334
Зарегистрирован: 12.04.2002 (Пт) 9:44
Откуда: Russia

Сообщение sslion » 26.03.2003 (Ср) 16:25

Firestorm писал(а):в чём конкретно проблема? проски помоему не помеха...
ws.connect IP,Port

а на серваке незабудь про авторизацию...


Проблема собственно в том, как адрес указать...
ИП ихнего сервака 212.212.212.212 (это я так для примера), а локальный ИП другана 192.168.11.63
Так вот как эти два адреса связать между собой?
У меня никак не получается...

sslion2000@mail.ru

Firestorm
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 946
Зарегистрирован: 02.05.2002 (Чт) 14:36
Откуда: Russia

Сообщение Firestorm » 26.03.2003 (Ср) 17:50

а попробуй коннектиться по имени компьютера (вместо айпишки)... не проверял, но может и работает на винсоке... :idea:
...просто гламурный падонак...
_________________
reborn! v.2 :twisted:
_________________

Лёха_Virus
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 168
Зарегистрирован: 24.03.2003 (Пн) 17:13
Откуда: Анграск

Сообщение Лёха_Virus » 26.03.2003 (Ср) 19:53

пробуй записать RemoteHost = ip ( не в RemoteHostIp ! :) )
я так вродь коннектился

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 26.03.2003 (Ср) 20:21

Ребята не парьте человека если не знаете

Через прокси у тебя сложновато получиться...

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

Фишка в том что IP у твоего друга НЕНАСТОЯЩИЙ в этом вся проблема...
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

sslion
Постоялец
Постоялец
 
Сообщения: 334
Зарегистрирован: 12.04.2002 (Пт) 9:44
Откуда: Russia

Сообщение sslion » 27.03.2003 (Чт) 7:01

Не, а как в таком случае аська работает? Я понимаю что она сначала к своему серваку конектится, но ведь она работает из локальной сети, в локальную сеть посылает... :shock:

ShadowCaster
Бывалый
Бывалый
 
Сообщения: 254
Зарегистрирован: 24.05.2002 (Пт) 10:52

...

Сообщение ShadowCaster » 27.03.2003 (Чт) 8:05

Код для программы, работающей ИЗ инета:

' На форме: CommandButton - Name="Command1"
'Winsock - Name = "ws"

Private Sub Command1_Click()
ws.Connect "1.2.3.4", 3128 ' IP и порт прокси
End Sub

Private Sub ws_Connect()
' DATA_TO_SEND - Переменная с данными для пересылки

ws.SendData "POST http://5.6.7.8:456/ HTTP/1.0" + vbCrLf
' 5.6.7.8 - IP компа ЗА проксей, 456 - Порт компа ЗА проксей.
ws.SendData "HOST: 5.6.7.8:456" + vbCrLf
ws.SendData "Content-length: " + CStr(DATA_TO_SEND)+vbCrLf+vbCrLf
ws.SendData DATA_TO_SEND + vbCrLf
End Sub

Private Sub ws_SendComplete()
ws.Close
End Sub

Код для проги ЗА проксей (т.е. в интрасети):

' На форме: CommandButton - Name="Command1"
'Winsock - Name = "ws"
'Имя формы = "Form1"

dim dt as string ' Здесь будут принятые данные

Private Sub Form_Load()
ws.LocalPort = 456 ' Понятно зачем
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(requestID as long)
ws.Accept requestID
end sub

Private Sub ws_DataArrival(bytesTotal as long)
dim s as string
ws.GetData s
dt =dt + s
End Sub

Private Sub ws_Close()
n = InStr(dt, vbCrLf+vbCrLf)+2
if n=2 then Exit Sub ' Ошибка - данные не те

dt = mid(dt, n) ' Режем
' Теперь в dt находятся нужные данные

Просто встрой эти 2 кода в форму (чуть-чуть изменив).
P.S. Признаю, есть неточности, но работать точно должно
P.P.S. Если прокси нужны авторизация, то добавь соответствушее поле "Proxy-Authorization"

ShadowCaster
Бывалый
Бывалый
 
Сообщения: 254
Зарегистрирован: 24.05.2002 (Пт) 10:52

...

Сообщение ShadowCaster » 27.03.2003 (Чт) 8:07

Принцип довольно прост: если прокси работает по протоколу HTTP, то и надо использовать его.

P.S. Аська соединяется по протоколу HTTPS.

sslion
Постоялец
Постоялец
 
Сообщения: 334
Зарегистрирован: 12.04.2002 (Пт) 9:44
Откуда: Russia

Сообщение sslion » 27.03.2003 (Чт) 9:31

Сенкс, щас попробую...

sslion2000@mail.ru

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 27.03.2003 (Чт) 14:37

Чё то я не думаю что прокси порт открыт на внешний IP
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 27.03.2003 (Чт) 15:08

А интересно, что это за протокол такой, HTTPS? ;)

deepslam
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 286
Зарегистрирован: 19.08.2002 (Пн) 2:25
Откуда: Russia

Сообщение deepslam » 16.12.2004 (Чт) 21:35

RayShade писал(а):А интересно, что это за протокол такой, HTTPS? ;)

Тотже http только с кодированием передаваемой информации

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 16.12.2004 (Чт) 21:44

Гы-гы... Тему полуторагодовой давности подняли, чтобы объяснить RayShade-у, что такое https :-)) :lol:
Изображение

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 16.12.2004 (Чт) 22:07

RayShade писал(а):А интересно, что это за протокол такой, HTTPS? ;)


Замечательный протокол! Который нифига не хочет работать у меня на linux'е :)
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

Лёха_Virus
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 168
Зарегистрирован: 24.03.2003 (Пн) 17:13
Откуда: Анграск

Сообщение Лёха_Virus » 16.12.2004 (Чт) 22:11

tyomitch писал(а):Гы-гы... Тему полуторагодовой давности подняли, чтобы объяснить RayShade-у, что такое https :-)) :lol:

гы гы =) ну дела
мне письмецо пришло :)

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Сообщение Sirik » 17.12.2004 (Пт) 9:54

Когда-то подымал данную тему... Ответов было поменьше чем у тебя :(
Ну это так воспоминание...

Дело вот в чём, самый реальный способ связи через инет я нашёл - это SOCK'и. Правда сложновато, но стабильно.

Если хоч, могу исходник скинуть использование SOCK 5.


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: Google-бот и гости: 21

    TopList  
cron