[Bug 18671] New: Getting Error while Calling XMLHTTP using VB6

[wine-bugs at winehq.org]

http://bugs.winehq.org/show_bug.cgi?id=18671

           Summary: Getting Error while Calling XMLHTTP  using VB6
           Product: Wine
           Version: 1.1.21
          Platform: PC
        OS/Version: Windows XP
            Status: UNCONFIRMED
          Severity: enhancement
          Priority: P2
         Component: -unknown
        AssignedTo: wine-bugs at winehq.org
        ReportedBy: gowrishankar at wondersoft.in
                CC: gowrishankar at wondersoft.in


'-------------------------------------------------------------------------
Hi i am getting system error : - 2146697206 
and using mxxml.dll and msxml2.dll as reference for this vb coding
kindly help me to solve this issue

'-------------------------------------------------------------------------
Option Explicit
Dim HttpReq As XMLHTTP


Private Sub Command1_Click()
On Error GoTo err
    Dim strURL
    strURL = "http://XXXXXXXXXXXXXXXXXXXXX.aspx"



    '==============================================
    '===> Creating XMLIsland to send to Server <===
    '==============================================
    Dim xmlString
    xmlString = "<xml><Authenticate "
    xmlString = xmlString & "UserName='admin' "
    xmlString = xmlString & "Password ='new' "
    xmlString = xmlString & "/></xml>"

    '=====================================
    '===> Sending XMLIsland to Server <===
    '=====================================
    Set HttpReq = New XMLHTTP

    HttpReq.open "POST", strURL, False

    HttpReq.send xmlString

    '==========================================================
    '===> Receiving and Analyzing the response from Server <===
    '==========================================================
    Dim Response As String
    Response = HttpReq.responseText

    MsgBox Response
Exit Sub
err:
MsgBox err.Number & " " & err.Description
End Sub

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.