Доброе время суток,
Недавно обновился с Windows 7 на Windows 10. И теперь перестал подхватываться авторизация.
Следующий код открывает IE и вводит логин и пароль. (Работает нормально и под W7 и W10)
1.
2.
3.
4.
5.
Set ie = ConnectServer_PRODIGY ' авторизуемся на сервере
ie.Visible = True
Set IEdoc = ie.Document ' получаем ссылку на документ
While ie.Busy Or (ie.ReadyState <> 4): DoEvents: Wend
ie.Quit: Set ie = Nothing
Далее, так как логин и пароль был только что введен то W7 для себя где-то его каширует и последующий код работает нормально, а под W10 отрабатывает какбудто я не смог авторизоваться:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Start_time = Now
s_login = "*********"
s_password = "*********"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
'подключение
oXMLHTTP.Open "POST", "https://PRODIGY.COM/show", False, s_login, s_password
s_st = Format(Text_DR_from.Value, "DD-MM-YYYY")
s_en = Format(Text_DR_to.Value, "DD-MM-YYYY")
s_param = "submit_select=1&msg_status=delivered&st=" + s_st + "&en=" + s_en + "&date_order=0&web_users=1&deleted=0&orderBy=4&orderDesc=0&page=1"
oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'oXMLHTTP.setRequestHeader "Authorization", "Basic " + Base64Encode(s_login + ":" + s_password)
'получение файла
oXMLHTTP.Send s_param
'Debug.Print oXMLHTTP.responsetext
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
'сохранение (с перезаписью файла при необходимости)
MyPath = CurrentProject.Path + "\!IMPORTED_DATA\04PRODIGY\"
MyName = "bulk_list.csv"
oADOStream.SaveToFile MyPath & MyName, 2
