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

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

这里对Winsock控件的属性、方法和事件的介绍限于篇幅就不介绍了，下面以最简单的C/S模式下一台服务器和一台客户机的连接来说明其整个连接过程。 　　用框图表示如图1所示。首先运行服务器端的程序，使TcpServer处于监听状态，然后运行客户机端的程序，单击【连接服务器】按钮后，客户机端调用Connect方法呼叫服务器（根据RemoteHostIP远程计算机IP地址和RemotePort远程计算机端口号两个参数），然后客户机便处于正在连接服务器状态，等待服务器的响应。客户机调用Connect方法触发了服务器ConnectRequest事件，这时服务器端可以在此事件中判断是否要接受客户机的请求，如要就调用Accept方法，并置标志位说明已成功连接客户机。服务器端调用Accept方法后又触发了客户机端Connect事件，说明服务器端接受客户端的请求，双方已经建立连接了，这时再置客户机端的标志位，这就是一个完整的连接过程。当服务器或客户机调用Close方法关闭连接时，都会触发对方的Close事件，使其关闭连接。另外建立连接后发送数据的情况是客户机通过调用SendData方法发送数据给服务器，会触发服务器端的DataArrival事件，在这个事件中，服务器端可以调用GetData或PeekData方法把客户机发来的数据保存起来。服务器给客户机发信息同理。要注意一点的是，在服务器的Close事件中应该加上继续监听的代码，这样客户机才可以继续呼叫服务器。

朋友你好 你想学做网站是吧我可以教你免费的不要钱 首先你要找一个网站带asp空间的这个我可以给你提供一个： http://www.9yz.cc 去这个网站注册吧 然后你在这个网站左边找一个 （如何上传网站内容？）点击一下，找到 下载leapftp软件，下载地址为： http://down.v1.9yz.com/down/3.rar 下载这个软件 这个是上传文件用的工具 最后就是你自己在你的电脑里面做出一个网站在上穿就ok了 做网站可以用这个软件： macromedia_dreamweaver_8.msi 这个你就去百度找一下就ok了 里面有提供你做网站的 页面和站版等的工具 要是在不明加我qq教你 ： 17119969 记得给我分噢！！