Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VB и Internet 
:(
    Опции темы
max_crt
Дата 14.7.2003, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.7.2003

Репутация: 1
Всего: 1
Кто знает подскажите, можно ли средствами VB определить существует ли в Инете страница с определенным urlo'м?
PM MAIL   Вверх
Plamenk
Дата 15.7.2003, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3
Можно с помощью элемента Internet Transfer Control

Код
Inet.AccessType = icUseDefault
TextBox1.Text = Inet.OpenURL ("http://msa.km.ru/msa/vb/default.asp")


Из личного опыта могу сказать, что это достаточно глючный элемент, через прокси у меня так и не получилось подконектится к интернет странице, правда это было давно и к тому же я работал с протоколо FTP.
PM MAIL   Вверх
max_crt
Дата 17.7.2003, 08:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.7.2003

Репутация: 1
Всего: 1
Plamenk
Воспользовался твоей подсказкой и получил такие результаты:
-если поставлю явно не существующий адрес, напр. "http/eee.yyy", то получаю пустой текстбокс (сразу видно что такого URL не существует)
-если адрес поставить www.rambler.ru, то получаю такой текст
Код
<html><head>
<style type="text/css"><!--
A:hover {COLOR: #FF0000}
.form {font-size:14px;}
.formbut {font-size:9pt;}
.m1 {font-family:Arial Cyr,Arial,Helvetica,sans-serif;font-size:9pt;}
.trans {font-family:Arial Cyr,Arial,Helvetica,sans-serif;font-size:10px;}
.search {font-family:Arial Cyr,Arial,Helvetica,sans-serif;font-size:10pt;}
.txt {font-size:12px;}
.radios {background-color:#3366cc;}
.hdr {font-family:Arial Cyr,Arial,Helvetica,sans-serif;}
.rub1 {font-family:Arial Cyr,Arial,Helvetica,sans-serif;color:#000000;}
a.v {color:#0000cc;}
//-->
</style>
<link rel="SHORTCUT ICON" href="/rambler.ico?_URL=www.rambler.ru/">

<title>Rambler: ЙОЖПТНБГЙПООП-РПЙУЛПЧБС УЙУФЕНБ</title>
<script language="JavaScript" type="text/javascript"><!--
function onLoad() {
var fs = self.parent.frames;
for(i=0;i

, то есть вроде бы страница существует, а это ее текст

-когда ставлю страницу на www.rambler.ru, которая скорей всего не существует,напр. "www.rambler.ru/qqqqqqqqqqqqq", то получаю текст
Код

<html><head>
<style type="text/css"><!--
A:hover {COLOR: #FF0000}
.form {font-size:14px;}
.formbut {font-size:9pt;}
.m1 {font-family:Arial Cyr,Arial,Helvetica,sans-serif;font-size:9pt;}
.trans {font-family:Arial Cyr,Arial,Helvetica,sans-serif;font-size:10px;}
.search {font-family:Arial Cyr,Arial,Helvetica,sans-serif;font-size:10pt;}
.txt {font-size:12px;}
.radios {background-color:#3366cc;}
.hdr {font-family:Arial Cyr,Arial,Helvetica,sans-serif;}
.rub1 {font-family:Arial Cyr,Arial,Helvetica,sans-serif;color:#000000;}
a.v {color:#0000cc;}
//-->
</style>
<link rel="SHORTCUT ICON" href="/rambler.ico?_URL=www.rambler.ru/doc/missing.shtml">

<title>Rambler: ЙОЖПТНБГЙПООП-РПЙУЛПЧБС УЙУФЕНБ</title>
</head>
<body bgcolor="#ffffff" vlink="#3333CC" link="#0000cc" text="#000000" alink="Red" M


Полчается, что страница тоже существует?
PM MAIL   Вверх
Plamenk
Дата 17.7.2003, 16:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3
Дело в том, что на некоторых сайтах, когда запраживают несуществующую страницу выдаётся стандартная Web - страница у ведомляющая о том, что такой страницы нет. Так что с этим ничего не сделаешь.
И если тебе придётся иметь дело с такими сайтами, то можно посмотреть описание протокола HTTP, так как наверняка есть какой-то способ определять существование страницы, но эдесь Internet Transfer Control не поможет, а придётся иметь дело с WinSock.
Но это более сложная задача.
PM MAIL   Вверх
max_crt
Дата 20.7.2003, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.7.2003

Репутация: 1
Всего: 1
Plamenk спасибо за подсказку.
PM MAIL   Вверх
Unregistered
Дата 2.8.2003, 14:33 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Winsock - не помощник в таком деле
  Вверх
Plamenk
Дата 4.8.2003, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3
Интересно почему??
PM MAIL   Вверх
Unregistered
Дата 4.8.2003, 19:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Plamenk, а как ты себе это представляешь? WinSock для этих целей...

Интересная тема... Может кто разовьет ее до конца?
  Вверх
Plamenk
Дата 5.8.2003, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3
Именно на использовании Socket'ов и построенны так называемые роботы (которые сканируют HTML страницы в поисковых машинах типа Yandex и Rambler). Самое главное это правильно формировать запрос, который и передаётся на Web сервер с помощью WinSock.

А как интересно построены все PROXY серверы или Интернет проводники?

Это сообщение отредактировал(а) Plamenk - 5.8.2003, 17:20
PM MAIL   Вверх
Гость_Temp
Дата 10.8.2003, 13:05 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Пожалуйста ответьте можно ли средствами VB закрывать порты с определенным IP адресомconfused.gif
  Вверх
Гость_Jack
Дата 15.9.2004, 18:03 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Не подскажите как закрывать порты на VB
  Вверх
Guest
Дата 15.9.2004, 18:04 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
я знаю как открыть порт это делается примерно так
Winsock1.Close
Winsock1.LocalPort = "порт который нужно открыть"
Winsock1.Listen
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0608 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.