Пробую две библиотеки
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.
Dim txtURL As String, ReturnStr As String, strLogin As String, strPassw As String
Dim Stream As Object
Dim oHTTP5 As WinHttp.WinHttpRequest
Dim Wscript As Object
Set Wscript = CreateObject("WScript.Network")
Set oHTTP5 = New WinHttpRequest
On Error GoTo er_
txtURL = "https://212.26.144.104:1453/": strLogin = "tester3": strPassw = "test2013"
With oHTTP5
.Open "GET", txtURL, False ', strLogin, strPassw
.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:17.0) Gecko/17.0 Firefox/17.0"
.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300
.send
While .status <> 200
Wscript.Sleep 800
DoEvents
Wend
End With
Set Stream = CreateObject("ADODB.Stream")
With Stream
'.Type = adTypeText
.Type = adTypeBinary
.Open
.Write oHTTP5.responseBody
.SaveToFile "f:\test-2.html", adSaveCreateOverWrite '.SaveToFile stFile, adSaveCreateOverWrite
.Close
End With
С ентой стороны не могу пройти аутентификацию
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.
Dim txtURL As String, ReturnStr As String, strLogin As String, strPassw As String
Dim Stream As Object
Dim oHTTP5 As Object
Dim Wscript As Object
Set oHTTP5 = CreateObject("MSXML2.ServerXMLHTTP.4.0")
On Error GoTo er_
txtURL = "https://212.26.144.104:1453/": strLogin = "tester3": strPassw = "test2013"
With oHTTP5
.Open "GET", txtURL, False , strLogin, strPassw
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:17.0) Gecko/17.0 Firefox/17.0"
.SetProxy 2, "212.26.144.104:1453"
.setRequestHeader "Proxy-Connection", "Keep-Alive"
'.SetCredentials strLogin, strPassw
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
's.setRequestHeader "Authorization", "Basic " & Base64Encode("tester3:test2013")
.send
While .bus
Wscript.Sleep 800
DoEvents
Wend
End With
Set Stream = CreateObject("ADODB.Stream")
With Stream
'.Type = adTypeText
.Type = adTypeBinary
.Open
.Write oHTTP5.responseBody
.SaveToFile "f:\test-2.html", adSaveCreateOverWrite '.SaveToFile stFile, adSaveCreateOverWrite
.Close
End With
А так не могу пройти сертификат
Выдает ошибку
Недопустимого или неправильного центра сертификации
run-time error '-2147012851 (80072f0d)'
До аутентификации не дошел
"Логин:пароль@212.26.144.104:1453/" на ресурсе не канает
