update,

task1/task1-ticket1/_ref/Excel/Examples/usage_http.bas

@@ -0,0 +1,31 @@
+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
+