怎样用Http协议实现软件的自动升级下载程序！

Question

关键是在于你的升级是如何实现，如果只是更新Exe文件 ，只要下载以后覆盖就行了呀

Answer 1

好像是用打包工具进行做成cab包，使用<Object></object>的方式嵌入网页就可以了

Answer 2

我就是要使用Winsocks的 功能将要升级更新的文件 自动下载下来应该怎么实现?

Answer 3

下面的代码哪里有问题?Option ExplicitDim myall As String
Private Sub Form_Load()
    '建立连接
    Winsock1.Protocol = 0
    Winsock1.RemoteHost = "http://www.16cn.com/"
    Winsock1.RemotePort = 80
    Winsock1.Connect '开始提取数据End Sub
Private Sub Winsock1_Connect()
    Dim Strcommand As String
    Dim StrWebpage As String
    
    StrWebpage = "http://www.16cn.com/index.asp"  '指定网页，这里是指搜狐的首页
    Strcommand = "Get " + StrWebpage + " HttP/1．0" + vbCrLf
    Strcommand = Strcommand + "accePt/" + vbCrLf
    Strcommand = Strcommand + "accePtteｘt/Html" + vbCrLf
    Strcommand = Strcommand + vbCrLf
    Winsock1.SendData Strcommand  '发送命令
End SubPrivate Sub Winsock1_DataarriVal(ByVal Bytestotal As Long)
 
    '开始下载，收到数据时，发生DataarriVal事件    On Error Resume Next
    Dim WebData As String
    Winsock1.GetData WebData, vbString    myall = myall + WebData   '取得相关的网页文件End Sub

Answer 4

我怎么能将取得的文件保存到硬盘上?Option ExplicitDim myall As StringPrivate Sub Form_Load()
    '建立连接
    Winsock1.Protocol = 0
    Winsock1.RemoteHost = "www.16cn.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect '开始提取数据
End Sub
Private Sub Winsock1_Connect()
    Dim StrCommand As String
    Dim StrWebpage As String
    
    StrWebpage = "http://www.16cn.com/ravstd.exe"  '指定网页，这里是指搜狐的首页
    StrCommand = "Get" + StrWebpage + "http/1.1" + vbCrLf
    StrCommand = StrCommand + "Accept/" + vbCrLf
    StrCommand = StrCommand + "Accept/ Teｘt/Html" + vbCrLf
    StrCommand = StrCommand + vbCrLf
    Winsock1.SendData StrCommand  '发送命令
End SubPrivate Sub Winsock1_DataarriVal(ByVal Bytestotal As Long)
 
    '开始下载，收到数据时，发生DataarriVal事件    On Error Resume Next
    Dim WebData As String
    Winsock1.GetData WebData, vbString
    
    myall = myall + WebData   '取得相关的网页文件
    MsgBox "bbbbbb" & myall
End Sub