• Nonestop
  • NEWBIE
  • 0 Points
  • Member since 2013

  • Chatter
    Feed
  • 0
    Best Answers
  • 0
    Likes Received
  • 0
    Likes Given
  • 2
    Questions
  • 0
    Replies

Hi, Everyone.
Now I'm working with SOAP in VB6 and I have some trouble.
What I need is to send SOAP to web server and save the result into a XML file.

Here is HttpRequest sample scraped from the site.

POST /Conllect/ExportSvc_JRJC.asmx HTTP/1.1
Host: www.ftp360.net
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://tempuri.org/ExportJRJC"
...

For more detailed information, please see the URL.
https://www.ftq360.net/Collect/ExportSvc_JRJC.asmx?op=ExportJRJC

Please use some information;
user:test106
pwd:test106ftq
Exportid:1001
intSendSchema:1

I installed SOAP Toolkit3.0 and added Microsoft SOAP3.0 Library in VB reference dialog.
After googling, I wrote some code as below and there is no error.
Private Sub Command1_Click()
Dim client
Dim strg As String
Set client = CreateObject("MSSOAP.SoapClient30")
client.MSSoapInit "https://www.ftq360.net/Collect/ExportSvc_JRJC.asmx?wsdl"
End Sub

My trouble is that what I have to do after that!
I'm good at VB but don't know anything about Web Service.
I hope your quick help.
Thanks everybody.

Hi, Everyone.

Now I'm working with SOAP in VB6 and I have some trouble.

What I need is to send SOAP to web server and save the result into a XML file.

 

Here is HttpRequest sample scraped from the site.

 

POST /Conllect/ExportSvc_JRJC.asmx HTTP/1.1

Host: www.ftp360.net

Content-Type: text/xml; charset=utf-8

Content-Length: length

SOAPAction: "http://tempuri.org/ExportJRJC"

...

 

For more detailed information, please see the URL.

https://www.ftq360.net/Collect/ExportSvc_JRJC.asmx?op=ExportJRJC

 

Please use some information;

user:test106

pwd:test106ftq

Exportid:1001

intSendSchema:1

 

I installed SOAP Toolkit3.0 and added Microsoft SOAP3.0 Library in VB reference dialog.

After googling, I wrote some code as below and there is no error.

Private Sub Command1_Click()

Dim client
Dim strg As String
Set client = CreateObject("MSSOAP.SoapClient30")
client.MSSoapInit "https://www.ftq360.net/Collect/ExportSvc_JRJC.asmx?wsdl"

End Sub

 

My trouble is that what I have to do after that!

I'm good at VB but don't know anything about Web Service.

I hope your quick help.

Thanks everybody.