(MSXML2.XMLHTTP, ADODB.Stream...) Windows 10 (EDGE)
|
|
, 15 2016 . 12:21
+
,
Windows 7 Windows 10. .
IE . ( W7 W10)
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 :
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
http://www.sql.ru/forum/1210045/ne-rabotaet-avtorizaciya-msxml2-xmlhttp-adodb-stream-pod-windows-10-edge
