DOCUMENT:Q173265  29-AUG-1997  [vbwin]
TITLE   :BUG: Internet Transfer Control (SP2) Username and Password Fails
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0; WINDOWS NT:97sp2
OPER/SYS:NT WINDOWS
KEYWORDS:PrgCtrlsStd vb5all

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Professional and Enterprise Editions for
   Windows, version 5.0
 - Microsoft Visual Studio 97sp2
---------------------------------------------------------------------

SYMPTOMS
========

The Internet Transfer Control included in Service Pack 2 for Visual Studio
97 is unable to make authenticated connections for either the HTTP or FTP
protocols. Anonymous connections still work. If you try to specify the
Username and Password, you will get the following error:

   Run-time error '35754'
   Unable to connect to remote host

CAUSE
=====

This version of the control does not properly handle the Username and
Password properties.

RESOLUTION
==========

To temporarily restore this functionality, replace the Msinet.ocx included
with SP2 with the Msinet.ocx on the Visual Basic 5.0 CD.

STATUS
======

Microsoft 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
---------------------------

1. Start a new Standard EXE project. Form1 is added by default.

2. From the Project menu, click Components, and select the Internet
   Transfer Control 5.0 into the project if it is not already loaded.

3. Place an Internet Transfer Control 5.0 (Inet1) on Form1 and add the
   following code:

      Private Sub Inet1_StateChanged(ByVal State As Integer)
       Dim vtData As Variant ' Data variable.

       Select Case State
       ' ... Other cases not shown.
       Case icError ' 11
           ' In case of error, return ResponseCode and

      ' ResponseInfo.
           vtData = Inet1.ResponseCode & ":" & _
           Inet1.ResponseInfo

       Case icResponseCompleted  ' 12
           Dim strData As String: strData = ""
           Dim bDone As Boolean: bDone = False

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

           Do While Not bDone

               strData = strData & vtData
               ' Get next chunk.
               vtData = Inet1.GetChunk(1024, icString)
               DoEvents

               If Len(vtData) = 0 Then
                   bDone = True
               End If
           Loop

          MsgBox strData
       End Select
      End Sub

4. Place a CommandButton (Command1) on Form1 and add the following code:

      Private Sub Command1_Click()
          Inet1.UserName = "Username"
          Inet1.Password = "Password"
          Inet1.URL = "ftp://YourFTPServer"

          Inet1.Execute , "DIR"
     End Sub

5. From the Run menu, click Start (ALT, R, S) or press the F5 key to run
   the program. Click the Command1 button, and you will see error described
   above.

NOTE: The above sample demonstrates the problem with FTP, but it also
occurs for the HTTP protocol

======================================================================
Keywords          : PrgCtrlsStd vb5all
Technology        : kbInetDev
Version           : WINDOWS:5.0; WINDOWS NT:97sp2
Platform          : NT WINDOWS
Issue type        : kbbug

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1997.