32 lines
1.1 KiB
QBasic
32 lines
1.1 KiB
QBasic
Attribute VB_Name = "usage_http"
|
|
Private Assert As New Selenium.Assert
|
|
|
|
Sub Test_Native_HttpRequest()
|
|
' https://msdn.microsoft.com/en-us/library/ms535874(v=vs.85).aspx
|
|
|
|
Set http = CreateObject("MSXML2.XMLHTTP")
|
|
http.Open "GET", "https://vortex.data.microsoft.com/collect/v1", False
|
|
http.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36"
|
|
http.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
|
|
http.Send ""
|
|
Debug.Print http.responseText
|
|
End Sub
|
|
|
|
Sub Test_HttpRequest()
|
|
'https://developer.mozilla.org/fr/docs/Web/API/XMLHttpRequest
|
|
|
|
Dim drv As New Selenium.ChromeDriver
|
|
drv.Get "https://vortex.data.microsoft.com"
|
|
|
|
Const JS_HttpRequest As String = _
|
|
"var r = new XMLHttpRequest();" & _
|
|
"r.open('GET', arguments[0], 0);" & _
|
|
"r.send();" & _
|
|
"return JSON.parse(r.responseText);"
|
|
|
|
Set result = drv.ExecuteScript(JS_HttpRequest, "https://vortex.data.microsoft.com/collect/v1")
|
|
Assert.Equals 1, result("acc")
|
|
drv.Quit
|
|
End Sub
|
|
|