复制代码 代码如下:

‘获取已初始化Soap对象

Public Function GetSoapClient(sURL)

Dim oSoap

Set oSoap = CreateObject(“MSSOAP.SoapClient”)

oSoap.mssoapinit sURL

Set GetSoapClient = oSoap

End Function

‘用户绑定对应序列号

sub BindCodeNumber()

Dim oSoap

Dim sURL

dim str

sURL = “”

‘sURL =””

Set oSoap = GetSoapClient(sURL)

‘str = oSoap.HelloWorld()

Set oSoap = Nothing

‘msgbox str

End sub

BindCodeNumber

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。