4.8使用vb6.0调用WebService
需下载msSoapToolkit20.exe
添加引用:Microsoft Soap Type Library
位置:”C:\Program Files\Common Files\MSSoap\Binaries\ MSSOAP1.dll”
调用方法:
Dim cc As New MSSOAPLib.SoapClient
例程:
新建工程?标准EXE?添加3个textbox控件,text1,text2,text3?添加一个button控件Command1
代码如下:
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看不懂啊,有高手逐一解释吗?
需下载msSoapToolkit20.exe
添加引用:Microsoft Soap Type Library
位置:”C:\Program Files\Common Files\MSSoap\Binaries\ MSSOAP1.dll”
调用方法:
Dim cc As New MSSOAPLib.SoapClient
例程:
新建工程?标准EXE?添加3个textbox控件,text1,text2,text3?添加一个button控件Command1
代码如下:
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看不懂啊,有高手逐一解释吗?
解决方案 »
- Const BS_BOTTOM = &H800& 和findwindowex函数
- 请帮忙介绍几本VB关于图形处理的经典电子书籍 十分感谢!!
- ■■报酬200-300元!做一个setup.exe 代替 setup.cmd的功能
- 怎么在CrystalReport中设置每页的固定记录条数?
- 如何关闭其他窗口?
- 国庆期间表面一片欢腾,暗里罪恶滋生,我的亲生遭遇,请广大市民提高警觉,特别是广州的要看看
- 我是新手,请大家不吝赐教!
- 加急:报表设计器!!!(刚发的就被删除,窦娥冤)
- 我想在vb的窗口上显示一个动画及唱一首歌,如何做?谢谢
- who can help me!ic卡的管理机功能有哪些?
- MSSOAP1.dll注册出错?请问怎么解决啊?
- 急急急!VB怎么寻找控件 下载!!!
Option Explicit '有这个 错误会提示
Dim cc As New MSSOAPLib.SoapClient' 定义CC 为 MSSOAPLib.SoapClient,其实就是把CC替换MSSOAPLib.SoapClient
Private Sub Command1_Click()'按钮事件
cc.mssoapinit "http://192.168.0.4/yundan/Service1.asmx?WSDL" 'MSSOAPLib.SoapClient中的函数 mssoapinit ,"http://192.168.0.4/yundan/Service1.asmx?WSDL" 这个是传进去的参数
Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))'给text3控件 赋值,cc.text 同上
End Sub'结束事件
我把次程序生成的程序包,在其他电脑上安装,结果出现MSSOAP1.dll注册出错?请问怎么解决啊?