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(a)winehq.org ReportedBy: gowrishankar(a)wondersoft.in CC: gowrishankar(a)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.