ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vb6 inet1 ошибка 35756
7 сообщений из 7, страница 1 из 1
vb6 inet1 ошибка 35756
    #37918911
vnuk2002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vnuk2002
Гость
есть программа, которая командой
Код: vbnet
1.
Inet1.Execute xml_path, "GET"


получает xml-файл из интернета и далее его обрабатывает. Случайно обнаружилась проблема - если в браузере поставить "Работать автономно", то программа вылетает с сообщением

Run-time error '35756';
Unable to complete request

Повторные попытки запуска из оболочки VB6 вызывают

Run-time error '35764';
Still executing last request

пробовал поставить
Код: vbnet
1.
Inet1.Cancel


не помогает...

Есть ли какой-то способ проверки включения автономного режима и отключения его?
спасибо за внимание...
...
Рейтинг: 0 / 0
16.08.2012, 10:54
| Ответить | Цитировать | Написать  
vb6 inet1 ошибка 35756
    #37919130
vnuk2002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vnuk2002
Гость
в общем ничего путнего не нашел ((
вставил такой костыль на время

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
    ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long

Dim lngRetVal As Long

lngRetVal = URLDownloadToFile(0, xmlServ_name & "/NoExistFile.qwe", "", 0, 0)

Select Case lngRetVal
    Case -2146697210 'INET_E_OBJECT_NOT_FOUND
        Inet1.Execute xmlServ_name & xmlRequest, "GET"
    Case -2146697208 'INET_E_DOWNLOAD_FAILURE
        MsgBox "Ошибка!!!" & vbCr & "Эта страница не доступна в автономном режиме." & vbCr & "Проверьте пожалуйста...", vbOKOnly + vbCritical   
    Case Else
        MsgBox "Ошибка!!!" & vbCr & "Проблемы с интернетом/программой." & vbCr & "Проверьте пожалуйста...", vbOKOnly + vbCritical   
End Select



В функции URLDownloadToFile запрашиваю несуществующий файл на сервере, потому как если использовать реальный файл - функция всегда возвращает 0, даже если стоит автономный режим...
Пока работает так, если кто напишет нормальное решение проблемы - большое спасибо..
...
Рейтинг: 0 / 0
16.08.2012, 12:24
| Ответить | Цитировать | Написать  
vb6 inet1 ошибка 35756
    #37919196
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vnuk2002если кто напишет нормальное решение проблемы - большое спасибоМожно скачивать файлы через MSXML2
...
Рейтинг: 0 / 0
16.08.2012, 12:45
| Ответить | Цитировать | Написать  
vb6 inet1 ошибка 35756
    #37919617
vnuk2002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vnuk2002
Гость
в настоящий момент программа построена так, что через
Код: vbnet
1.
Inet1.Execute xmlServ_name & xmlRequest, "GET"


скачивается файл в переменную xml_string, а потом грузится
Код: vbnet
1.
XmlLoaded = xmlDoc.loadXML(xml_string)



зачем так сделано - фиг знает... попробовал
Код: vbnet
1.
XmlLoaded = xmlDoc.Load(xmlServ_name & xmlRequest)


результат тотже самый, + прога не вылетает, недостатков пока не заметил

спасибо большое!

хотя даже этот способ не решил проблему как перейти из режима "Работать автономно" в обычный режим ((
...
Рейтинг: 0 / 0
16.08.2012, 15:42
| Ответить | Цитировать | Написать  
vb6 inet1 ошибка 35756
    #37919698
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Насколько я понял, "Работать автономно" - это настройка IE?
А если попробовать проверять/управлять через реестр? За автономную работу отвечает ключ
Код: vbnet
1.
HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\GlobalUserOffline
...
Рейтинг: 0 / 0
16.08.2012, 16:26
| Ответить | Цитировать | Написать  
vb6 inet1 ошибка 35756
    #37920246
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
А поискать?
Распознать/отключить автономный режим IE
Код: vbnet
\r\nOption Explicit\r\n  \r\nPrivate Type INTERNET_CONNECTED_INFO\r\n    dwConnectedState As Long\r\n    dwFlags As Long\r\nEnd Type\r\n\r\nConst INTERNET_OPTION_CONNECTED_STATE = 50\r\nConst INTERNET_STATE_CONNECTED = 1\r\nConst INTERNET_STATE_DISCONNECTED = 2\r\nConst INTERNET_STATE_DISCONNECTED_BY_USER = &H10\r\nConst INTERNET_STATE_IDLE = &H100\r\nConst INTERNET_STATE_BUSY = &H200\r\nConst ISO_FORCE_DISCONNECTED = 1\r\n\r\nPrivate Declare Function InternetSetOption Lib "wininet.dll" Alias _\r\n    "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, _\r\n    lpBuffer As INTERNET_CONNECTED_INFO, ByVal dwBufferLength As Long) As _\r\n    Boolean\r\n\' Queries an Internet option on the specified handle\r\nPrivate Declare Function InternetQueryOption Lib "wininet.dll" Alias _\r\n    "InternetQueryOptionA" (ByVal hInternet As Long, _\r\n       ByVal lOption As Long, ByRef sBuffer As Any, _\r\n       ByRef lBufferLength As Long) As Integer\r\n\r\n\r\n\' Force the OffLine or OnLine mode\r\n\r\nPublic Sub SetOffLineMode(ByVal offLineMode As Boolean)\r\n    Dim ci As INTERNET_CONNECTED_INFO\r\n    Dim retValue As Boolean\r\n\r\n    If offLineMode Then\r\n        ci.dwConnectedState = INTERNET_STATE_DISCONNECTED_BY_USER\r\n        ci.dwFlags = ISO_FORCE_DISCONNECTED\r\n    Else\r\n        ci.dwConnectedState = INTERNET_STATE_CONNECTED\r\n    End If\r\n    retValue = InternetSetOption(0&, INTERNET_OPTION_CONNECTED_STATE, ci, _\r\n        LenB(ci))\r\nEnd Sub\r\n\r\nPublic Function get_Offline() As Boolean \' (VARIANT_BOOL * bOffline)\r\n    Dim hr As Long\r\n    Dim ci As INTERNET_CONNECTED_INFO\r\n    Dim ci_len As Long\r\n    ci_len = 8\r\n    Dim ret As Long\r\n\r\n    ret = InternetQueryOption(0, INTERNET_OPTION_CONNECTED_STATE, _\r\n      ci, ci_len)\r\n    get_Offline = Not ((ci.dwConnectedState And INTERNET_STATE_CONNECTED) = INTERNET_STATE_CONNECTED)\r\nEnd Function\r\n\r\nPublic Function IfInternetPossible() As Boolean\r\n    \'включаетт и один раз перепроверяет\r\n    If get_Offline Then\r\n        SetOffLineMode False\r\n        If get_Offline Then\r\n            IfInternetPossible = False\r\n        Else\r\n            IfInternetPossible = True\r\n        End If\r\n    Else\r\n        IfInternetPossible = True\r\n    End If\r\nEnd Function\r\n
\r\n
...
Рейтинг: 0 / 0
17.08.2012, 04:32
| Ответить | Цитировать | Написать  
vb6 inet1 ошибка 35756
    #37920343
vnuk2002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vnuk2002
Гость
О!!
это ж как раз то что надо!
и без лишнего шаманства.

Большое спасибо!
...
Рейтинг: 0 / 0
17.08.2012, 09:45
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vb6 inet1 ошибка 35756
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37919130&tid=2157505]:
 0ms
get settings:
 12ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 59ms
get topic data:
 16ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 18ms
total:  183ms
созд. / загр.: 183ms
x
x
Закрыть


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