Найти IP???

[artyuha]

Привет всем!

Вот задумал я написать прогу которая качала бы HTML-код ресурса по http-протоколу. Решил пользоваться элементом Winsock. Для удачного конекта Winsock требует такие параметры: номер порта (80-по умолчанию в http-протоколе) и IP-сервера. Как мне узнать этот IP, зная только URL нужной мне страници.

[Cyrax]

не обязательно IP-адрес... можно и доменное имя сайта (т.е. www.ya.ru, например

[Zer]

А можно й бяку им заслать, которая регулярно тебе всё высылает...

[artyuha]

Спасибо за помощь.

Но вот тут ёще одна проблемка. Нажимаю на кнопку с таким содержанием:

Private Sub cmdConnect_Click()
ws.Close
ws.RemoteHost = "www.yandex.ru"
ws.RemotePort = 80
ws.Connect
End Sub

всё отлично ws.State =7 (следовательно, я подключен к севаку) и жму на кнопку:

Private Sub cmdDeConnect_Click()
ws.Close
End Sub


всё отлично (ws.State =0) .
Жму повторно cmdConnect_Click и тут генерируется ошибка связи (ws.State =9).
Перезапускаю приложение – снова ошибка связи. Отключаюсь от сети, подключаюсь по новой – таже фишка. И лишь гораздо позже (видно когда провайдера дал мне другой IP) удалось подключиться, но история повторилась после отключения.

[tyomitch]

После ws.Close сбрасывай ws.LocalPort в 0, может поможет

[artyuha]

Спасибо отлично работает.

Да вот тут ещё одна проблема. И суть её в том, что без вашего форума ни шагу вперёд . Помогите, если не надоел.

С конектом, деконектом с сервером вроде всё путём. Стал я добиваться от сервока чтоб он мне страничку переслал, а тот не в какую – молчит как партизан. Грешил сначала на http – код, который передаю серваку, да вроде не в нём дело. Сверял его с шаблоном многократно – всё вроде верно, да и сервак всё равно переслать что-то обязан (хотя бы сообщение об ошибке).
Взгляните на код мастерским взглядом, авось что-то снова напортачил.

Этим кодом я подключаюсь к серваку:
ws.Close
ws.RemoteHost = www.microsoft.com
ws.RemotePort = 80
ws.Connect

Этим кодом я отсылаю Http - запрос:
(естественно код этот запускаю не сразу после предыдущего, а после полного конекта ws.State = sckConnected)

Dim l As String
l = "TRACE /index.html HTTP/1.1 Connction: Keep-Alive User-Agent: SuperProga/1.0 Host: www.microsoft.com Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf
‘отсылаю http-запрос
ws.SendData l

Этот код должен получить ответ, но не получает:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
ws.GetData Data

Print Data
End Sub

[tyomitch]

l = "TRACE /index.html HTTP/1.1 Connction: Keep-Alive User-Agent: SuperProga/1.0 Host: www.microsoft.com Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf

Какой-то странный у тебя запрос...
Я бы написал:

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

l = "GET / HTTP/1.1" & vbCrLf & "Connction: Keep-Alive" & vbCrLf & "User-Agent: SuperProga/1.0" & vbCrLf & "Host: www.microsoft.com" & vbCrLf & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf & vbCrLf

[artyuha]

Спасибо tyomitch. Говори где живёш, буду проежать завезу пиво .

Скачал 2 статьи с описанием http ни в одной не упоминается о разделении частей запроса символами перевода каретки .

[Cyrax]

статьи это одно... а вот RFC это совсем другое...
посмотреть можна тут:
http://helper10.narod.ru/ac0.htm
или результаты Яndex

[PatriotIK]

Во народ. Мимо проходил, решил тоже завалить вопросами.
В кратце обрисую ситуацию.
У меня выдел, анлим. Локалки как токовой нет, но зато инета завались.
Как можно мне связаться с соседом через стенку (который подключен все к той же выделенке и не имеет со мной прямой связи), зная его IP.
Для начала мне бы хотелось, зделать так чтоб, я был серваком, а он само собой клиентом. Все на всего надо чтоб он(опятьже зная мой IP), отослал мне текст, который я потом смог бы нормально прочесть.
ws1.RemoteHost = "234.22.244.201" - вот ето не пашет сразу говорю.
Вот вопросик, да?!
Если кто знает, пожалуйста помогите!

[GSerg]

Имейте совесть.
Просверлите, блин, дырочку и протяните кабель! Мы всегда так делаем
А если рядом розетка на обе квартиры, так и сверлить не нужно

[tyomitch]

Неа, через форточку круче - сверлить ничего не надо.

[PatriotIK]

Млин! это конечно все просто замечательно, но хотел то я зделать ето не только для нас двоих, а для всех своих друзей,, по всему району то кабель не протянеш.

[GSerg]

О, если бы ты знал, во что вылилось протягивание кабеля по всему району одним челом, которого я знаю
Теперь это компания по организации локальных сетей. Вернее, это одна большая сеть.

[PatriotIK]

Млин может всеже мне ктонить, чтонить посоветует, ну пожалуста!
И воще мне кабель то как токавой с ним и не нужен провайдер нас наградил скоростью 1мб в сек, так что ....

[Cyrax]

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

[PatriotIK]

Cyrex, ну и засыпал же ты меня!
Я уже создавал тему по етому вопросу и мне дали пример типа клиент-сервер.
Все работает, но только если я на своей машине запускаю и клиента и сервера.
А делая вот так ws1.RemoteHost = "234.22.244.201- это мой IP" (при включеном серваке на моем и вкл. клиенте на его машине), ничего не пашет. ХЗ что делать, просто не знаю, а так хочется!

[tyomitch]

Какой-то ненастоящий у тебя айпи... tracert на нём обламывается конкретно.
На немаршрутизируемый похож... Может, это у тебя внутренний айпи такой?
Где ты его, вообще, взял, этот айпи? И уверен ли, что он именно такой?

[PatriotIK]

Да ето из-за всяких там соображений безопасности такой напечатал
На самом деле вот он 172.16.212.201.

[tyomitch]

Да ето из-за всяких там соображений безопасности такой напечатал
На самом деле вот он 172.16.212.201.

Вроде бы - нормальный айпи, не может с ним не работать. Может, у вас у кого-то фаервол стоит и все соединения режет?

Последуй совету Cyrax-а, пропингуй айпи. От меня - не пингуется.

[hCORe]

От меня тоже. Странный IP какой-то. Может быть внутрисетевой?

Обмен пакетами с 172.16.212.201 по 32 байт:

Превышен интервал ожидания для запроса.

Статистика Ping для 172.16.212.201:
Пакетов: отправлено = 1, получено = 0, потеряно = 1 (100% потерь)

[PatriotIK]

Вот гатство! у ся тож пропинговал и фигня какаето!
Ну прям не знаю что и делать. Соседский IP нармалек все, а мой ну прям подстава какаета.
Значит по вашему, все из-за моего IP?

[alibek]

Да, это твой внутренний IP.
Если у тебя выделенка, то сделай ipconfig /all и результаты в студию.

[PatriotIK]

УРА!!!!!!! заработала!!!
Спасибо народ! примного благодарин!
Вот только вопросик есть, маленький такой
как мне узнать IP клиента подключенного к моему серваку?!

[tyomitch]

Winsock.RemoteHostIP