WebService series Teaching (9)-How to call WebService (Vb6.0,vbscript)

Vbscript|web 4. 8 using the vb6.0 call
Need to download MsSoapToolkit20.exe
Add Reference: Microsoft Soap Type Library
Location: "C:\Program Files\Common Files\mssoap\binaries\ MSSOAP1.dll"
Call Method:
Dim cc as New mssoaplib.soapclient
Routines:
New Project  Standard Exe add 3 TextBox controls, Text1,text2,text3 Add a button control Command1
The code is as follows:
Option Explicit
Dim cc as New mssoaplib.soapclient
Private Sub Command1_Click ()
Cc.mssoapinit "Http://192.168.0.4/yundan/Service1.asmx?WSDL"
Me.Text3.Text = Cc.test (CInt (Text1.Text), CInt (Text2.text))
End Sub
4. 9 using VBScript to invoke
Need to download MsSoapToolkit20.exe
Reference: Mssoap.soapclient
Routines:
Option Explicit
Const Wsdl_url = "HTTP://192.168.0.4/YUNDAN/SERVICE1.WSDL"
WScript.Echo "Connecting:" & Wsdl_url
Dim Calc
Set Calc = CreateObject ("Mssoap.") SoapClient ")
Calc.mssoapinit Wsdl_url
Dim Answer
Answer = Calc.test (14,28)
WScript.Echo "14+28=" & Answer
Save it as a Domo.vbs file and double-click to run it directly.