BUG: Inet Control Method OpenURL Fails If No Proxy SelectedLast reviewed: November 6, 1997Article ID: Q176419 |
The information in this article applies to:
SYMPTOMSIf the Internet Explorer 4.0 option, "Access the Internet using a proxy server," check box is not selected when using the Internet Transfer control "OpenUrl" method within an HTML page, then the OpenURL method will fail.
CAUSEThe problem is inherited from a bug in the Internet Explorer 4.0 WinInet API function InternetOpenUrl. The problem occurs only on computers that have Internet Explorer 4.0 installed, rather than Internet Explorer 3.x.
RESOLUTIONUsing the Inet control "Execute" method with the "GET" verb retrieves a file if the "Access the Internet using a proxy server" check box is not selected. The complete HTML code page is shown later in the MORE INFORMATION section.
STATUSMicrosoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this bug and will post new information here in the Microsoft Knowledge Base as it becomes available.
MORE INFORMATION
Steps to Reproduce Behavior
<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 & chr(13) & chr(10) & "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 & chr(13) & chr(10) & "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> REFERENCESFor additional information, please see the following article in the Microsoft Knowledge Base:
ARTICLE-ID: Q176420 TITLE : BUG: InternetSetOption Does Not Set Timeout Values Keywords : vb5all vb5win kbcode Technology : kbInetDev Version : WINDOWS:4.0,5.0 Platform : WINDOWS Issue type : kbbug |
================================================================================
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |