vb6web服务器_vb web

文章目录：

• 1、VB6通过webservice进行登陆认证，安全性应该怎么考虑
• 2、VB6 如何让WebBrowser成功打开和加载完毕存在且畅通的网页？
• 3、如何使用VB6.0调用webservice服务
• 4、vb6.0程序如何与java写的webservice通讯
• 5、vb6如何实现上传http站点呢？
• 6、如何在vb6中调用webservice函数，同时传递数组作为参数

VB6通过webservice进行登陆认证，安全性应该怎么考虑

参考答案 黑夜给了我黑色的眼睛，它却让我爱上黑夜给我的疼痛。

VB6 如何让WebBrowser成功打开和加载完毕存在且畅通的网页？

主要看你要实现什么目的！加载完成处理模拟登陆和相关操作，在Complete事件中就可以处理 ；如果要处理ajax伪静态或flash相关的网页，没有绝对的方法来判断是否加载成功，只能依靠定时器来相对判断；

如果你要进行某个操作，一定要在完全加载的基础上，你可以把网页和要进行的操作贴出来，主要目的是进行操作，而非完全加载！

如何使用VB6.0调用webservice服务

使用vb6.0调用需下载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 ExplicitDim cc As New MSSOAPLib.SoapClientPrivate Sub Command1_Click()cc.mssoapinit " "Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))End Sub4．9使用vbscript调用需下载msSoapToolkit20.exe引用：MSSOAP.SoapClient 例程：Option ExplicitConst WSDL_URL = " "WScript.echo "Connecting: " WSDL_URLDim CalcSet Calc = CreateObject("MSSOAP.SoapClient")Calc.mssoapinit WSDL_URLDim AnswerAnswer = Calc.test(14,28)WScript.Echo "14+28=" Answer将其存成domo.vbs文件，直接双击运行。

vb6.0程序如何与java写的webservice通讯

webservice是个容器，中间件很多，比如Tomcat，WebLogic等。这些中间厂商将一些跟数据打交道的东西已经包装好了，具体如果不会用，可以看看相关的帮助文档。比如java中可以用到java.net.*包，有四种方法都可以，具体记得不太清楚了（你可以查查java API），这里简单点用HttpServletRequest的getParameter（String s）方法可以接收容器中的数据，至于vb，本人没有研究过，我想原理差不多的。

vb6如何实现上传http站点呢？

1.使用socket方式,通过tcp连接web服务器的80端口,发送http协议命令.来实现传输.但太底层.都需要自己来实现.不好,

2.使用xmlhttp控件.vb使用他,快速简单,可以选择get/post方式

下面是使用的封装函数.

Function xmlread(url) As String ''用xml读网页文件

Set http = CreateObject("Microsoft.XMLHTTP")

http.open "post", url, False

http.setRequestHeader "Content-Type", "text/XML"

http.setRequestHeader "Content-Type", "gb2312"

http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

http.send

If http.readyState = 4 Then

xmlread = Trim(bytes2BSTR(http.responseBody))

Else: xmlread = "error"

End If

Set http = Nothing

End Function

Function xmlpost(url, Form) As String '''用xml传网页表单数据

Set http1 = CreateObject("Microsoft.XMLHTTP")

http1.open "post", url, False

http1.setRequestHeader "Content-Type", "text/XML"

http1.setRequestHeader "Content-Type", "gb2312"

http1.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

http1.send Form

If http1.readyState 4 Then

xmlpost = "error"

End If

Set http1 = Nothing

End Function

如何在vb6中调用webservice函数，同时传递数组作为参数

这个函数的用法，是传递两个string类型的参数。

你想直接传递数组是不可能的。

解决思路：

1、循环遍历数组，将数据拆成一对对的字符串，使用此函数

2、再重新定义一个函数，支持传递数组参数，内部功能与1类似。即重新封装一下。