FIX: Inet Control Method OpenURL Fails If No Proxy Selected

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Internet Explorer 4.0.
2. From the View menu, select Internet Options.
3. Click the Connection tab.
4. Clear the "Access the Internet using a proxy server" check box.
5. Put the code below in a HTML page.
6. Bring up the HTML page you just created in Internet Explorer 4.0.
7. Enter the URL you want to access.
8. Click the "Test Me with OpenUrl" command button. The OpenUrl method fails.
9. Click the "Test Me with Get" command button. The HTML page is retrieved as expected

   <HTML>
   <BODY>

   <FORM NAME="MyForm">
    <INPUT TYPE="BUTTON" NAME="MyButton" VALUE="Test Me with OpenUrl">
    Enter URL you want to access:<INPUT TYPE="TEXT" NAME="MyText" VALUE="">
    <INPUT TYPE="BUTTON" NAME="Get" VALUE="Test Me with Get">
   </FORM>

   <OBJECT ID="Inet1"
    CLASSID="CLSID:48E59293-9880-11CF-9754-00AA00C00908">
   </OBJECT>

   <SCRIPT Language="VBScript">
   <!--
   Sub MyButton_onClick()
    Response = Inet1.OpenURL(MyForm.MyText.Value)
    If Inet1.ResponseCode <> 0 Then
     MsgBox ("ErrorCode: " & Inet1.ResponseCode)
     MsgBox ("Error: " & Inet1.ResponseInfo)
    Else
      MsgBox(Response)
    End If
   End Sub

   Sub Get_onClick()
     Response = Inet1.Execute(MyForm.MyText.Value, "GET")
     If Inet1.ResponseCode <> 0 Then
       MsgBox ("ErrorCode: " & Inet1.ResponseCode)
       MsgBox ("Error: " & Inet1.ResponseInfo)
     End If
   End Sub

   Sub Inet1_StateChanged(State)

    Select Case State
    ' ... Other cases not shown.

    Case 12

         Dim strData: StrData = ""
         Dim vtData
         Dim bDone : bDone = 0

        ' Get first chunk.
        vtData = Inet1.GetChunk(10240, icString)

        Do While bDone = 0

           strData = strData & vtData
            ' Get next chunk.
            vtData = Inet1.GetChunk(10240, icString)
            If Len(vtData) = 0 Then
                bDone = 1
            End If

        Loop
        MsgBox strData
    End Select

   end sub

   -->
   </SCRIPT>

   </BODY>
   </HTML>