The connection with the server was terminated abnormally

[mikeypsooner]

I am currently trying to pull some data on the internet using the code below but I am getting the run-time error message of "the connection with the server was terminated abnormally" This code used to work but I recently got upgraded to Windows10 and I just now tried and didnt work. Any thoughts?

Sub http()
Dim MyRequest As Object


    Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    MyRequest.Open "GET", _
    "http://www.google.com"


    ' Send Request.
    MyRequest.send


    'And we get this response
    MsgBox MyRequest.responseText


End Sub

 

[mikeypsooner]

I actually changed the web address to "https://www.google.com" I added the "s" and it worked. But I am trying to enter the web address "http://bigcharts.marketwatch.com/quotes/multi.asp?view=qc&msymb=" and I get the same error message The connection with the server was terminated abnormally

Thoughts?