ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / проверка наличие файла\страницы в инете
12 сообщений из 37, страница 2 из 2
  2  все
проверка наличие файла\страницы в инете
    #37785137
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофаBelowZero, там в каждом посте охи, ахи, да и том как путь пишется не сказано нигде
>могу выложить код, когда буду в городе(завтра, мб) - на этом и остановимся ой епт... первый пост этого топика прочитай!!! охи ахи? ... ты безнадежен, ищи сам
...
Рейтинг: 0 / 0
07.05.2012, 13:26
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37785203
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero, ух-ты как мы заговорили, я понял так
Код: vbnet
\r\nSub Макрос1()\r\n\r\nDim oXMLHTTP As Object\r\nSet oXMLHTTP = CreateObject("MSXML2.XMLHTTP")\r\noXMLHTTP.Open "GET", "/topic/934933&pg=1/1.txt"\r\noXMLHTTP.Send\r\n\r\nDo While oXMLHTTP.readyState <> 4\r\n    DoEvents\r\nLoop\r\n\r\nWith CreateObject("ADODB.Stream")\r\nПроверка = .setRequestHeader("If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC")\r\nEnd With\r\n\r\nEnd Sub\r\n
\r\n
получил отлуп, как надо?
...
Рейтинг: 0 / 0
07.05.2012, 14:25
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37785285
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: катастрофа
> получил отлуп, как надо?

Эндрю, какого лешего ты лепишь .setRequestHeader в объект ADOStream? Справку почитать так и неудосуживаешся :(

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
07.05.2012, 15:49
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37785299
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Игорь Горбонос, подожду Белова, пусть меня научит...
...
Рейтинг: 0 / 0
07.05.2012, 15:59
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37785358
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: катастрофа
> Игорь Горбонос, подожду Белова, пусть меня научит...

Я просто не понимаю вас с Беловым. Почему вы сознательно не хотите учится? За то время как ты появился на форуме,
мне понадобилась возможность получать из банка информацию по веб-интерфейсу. Я не разбирался так досконально как
Antonariy , но для моих нужд вполне достаточно. И за основу я взял пример 9662282 и всё.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
07.05.2012, 17:09
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786266
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофаBelowZero, ух-ты как мы заговорили сорь, просто разговоры об "охах и ахах" в моих топиках - это камень в мой огород)катастрофаподожду Белова, пусть меня научит...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
    .Open "GET", "http://qlewer.mgn-host.ru/836001.txt", False 'http://qlewer.mgn-host.ru/836001.txt это путь к файлу на хостинге, наличие которого(файла) проверяется
'false говорит о том, что запрос синхронный, и мы можем получить отчёт о наличии файла
    .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC" 'эта опция помогает всегда получать "обновлённые" данные
End With
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then 'если файл\страница существует
MsgBox "Файл есть"
End If
...
Рейтинг: 0 / 0
08.05.2012, 18:21
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786513
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero, спасибо, говорил, точно не знаю как путь к файлу на хостинге писать, как написал, получил отлуп:
Код: vbnet
\r\nSub Проверка_файла_страницы()\r\n\r\nDim oXMLHTTP As Object\r\nSet oXMLHTTP = CreateObject("MSXML2.XMLHTTP")\r\nWith oXMLHTTP\r\nDim Файл As String\r\nФайл = "http:///topic/934933&pg=1/1.txt"\r\n\'false говорит о том, что запрос синхронный, и можно получить отчёт о наличии файла\r\n.Open "GET", Файл, False\r\n\'эта опция помогает всегда получать "обновлённые" данные\r\n.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"\r\nEnd With\r\n\'Рун тайм эррор -2146697211(800с0005)!!!!!!!!!!!\r\noXMLHTTP.Send\r\n\'если файл\\страница существует\r\nIf oXMLHTTP.Status = 200 Then\r\nMsgBox "файл\\страница существует"\r\nElse\r\nMsgBox oXMLHTTP.Status & " " & "файл\\страница не существует"\r\nEnd If\r\n\r\nEnd Sub\r\n
\r\n
...
Рейтинг: 0 / 0
08.05.2012, 23:12
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786651
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофа
Код: vbnet
\r\nФайл = "http:///topic/934933&pg=1/1.txt"\r\n
\r\n это что? попробуй скопировать этот путь в строку браузера. тебе выдаст отчёт о том, что такого сервера нет. логично, что и прога отвергает эту строку.
я нажал правой кнопкой по ссылке "скачать", "копировать адрес ссылки"(опера). получил путь http://www.sql.ru/forum/actualfile.aspx?id=12517319 . вставляю его в код
Код: vbnet
\r\nФайл = "http://www.sql.ru/forum/actualfile.aspx?id=12517319"\r\n
\r\n работает
...
Рейтинг: 0 / 0
09.05.2012, 09:04
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786666
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero, открываю Ворд - пошагово запускаю код, получаю месседж
"500 файл\страница не существует"
прохожу снова не веря глазам, далее много много раз выдаёт "файл\страница существует"
Закрываю Ворд и всё описанное выше начинается сначала
Ересь?!
...
Рейтинг: 0 / 0
09.05.2012, 10:47
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786676
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофа,

при чём тут ворд?
...
Рейтинг: 0 / 0
09.05.2012, 11:36
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786684
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофа,

забей на этот файл. ты вводишь не прямое местонахождение файла на хосте, а посылаешь запрос к actualfile.aspx на получение файла. точное местоположение файла я сам хз... зарегись на любом бесплатном хосте, выложи туда файл и играйся
...
Рейтинг: 0 / 0
09.05.2012, 11:54
| Ответить | Цитировать | Написать  
проверка наличие файла\страницы в инете
    #37786872
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZeroкатастрофа,

при чём тут ворд?
при том, что на нём проще всего протестировать, на ВБ6 - тоже самое!!!!
...
Рейтинг: 0 / 0
09.05.2012, 15:02
| Ответить | Цитировать | Написать  
12 сообщений из 37, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / проверка наличие файла\страницы в инете
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&startmsg=37785137&tid=2157807]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 56ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 333ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]