客户端,与服务器更新的问题

[zzyhuian06142]

现在公司有个软件,当启动该程序的时候,会去调用一个由VB生成的DLL文件(我们对这个软件的二次开发,都是通过修改这个DLL来实现的)
现在的情况是这样:当我们每次生成一版新的DLL文件后,都必须到几十台电脑去更新原先的DLL文件(也就是说把旧版的DLL文件替换成新版的DLL文件)
问题:
我现在想写个程序,当该软件启动的时候,会自动的去检查该电脑上DLL的版本,如果就旧版的,则自动到服务器端下载最新的DLL文件并覆盖

请问这样的办法可以实现吗?
有没有什么好的办法,或者是相应的例子可以参考
在线等,谢谢!!!!!

[bitsbird]

http://www.cnblogs.com/winsex/archive/2006/01/06/312140.aspx
appupdater block 可以在微软网站上下载到

[51Crack]

关注
我也想做这样的功能

[Red_angelX]

类似于一些游戏的做法..

[Eray]

四个星应该没错了吧。收藏

[51Crack]

winform也能用吗

[hertcloud]

http://www.cnblogs.com/raya/archive/2006/11/11/557261.aspx

用微软的 Updater Application Block

[gui0605]

学习。。

[wugong]

用webservices下载，如果放在iis站点就就简单了

[zzydlx]

Private Sub cmdBegin_Click()
With DL
.FileURL = cboURL.Text
.SaveFilePath = "f:\"
LogItem "请求下载" & cboURL.Text
.BeginDownload
End With
cmdCancel.Enabled = True
End Sub

Private Sub cmdCancel_Click()
DL.CancelDownload
End Sub

Private Sub DL_DLBeginDownload()
LogItem "开始下载从" & DL.FileURL
End Sub

Private Sub DL_DLCanceled()
LogItem "取消下载"
End Sub

Private Sub DL_DLComplete(Bytes As Long)
'download terminated - bytes is > 0 if successful (file size)
cmdCancel.Enabled = False
If Bytes > 0& Then
LogItem "完成" & SizeString(Bytes) & "下载并保存到" & DL.SaveFileName
Else
LogItem "下载失败"
End If
End Sub

'Returns IP address of successful connection
Private Sub DL_DLConnected(ConnAddr As String)
LogItem "连接到 " & ConnAddr
End Sub
'Error! See UC code for different possible errors
'This event is always followed by DLComplete returning 0 bytes
Private Sub DL_DLError(E As bkDLError, Error As String)
Dim strErrType As String
Select Case E
Case bkDLEUnavailable
strErrType = "不可下载文件"
Case bkDLERedirect
strErrType = "重定向"
Case bkDLEZeroLength
strErrType = "没有字节返回"
Case bkDLESaveError
strErrType = "文件保存错误"
Case bkDLEUnknown
strErrType = "不明错误"
End Select
LogItem "错误 - " & strErrType & ": " & Error
End Sub

Private Sub DL_DLFileSize(Bytes As Long)
'Size in bytes. returned when connection to file is complete
'and download actually begins
LogItem "文件大小为" & SizeString(Bytes) & " (" & CStr(Bytes) & " bytes)"
End Sub

Private Sub DL_DLMIMEType(MIMEType As String)
'handy info!
LogItem "MIME类型是 " & MIMEType
End Sub

Private Sub DL_DLProgress(Percent As Single, BytesRead As Long, TotalBytes As Long)

lblProg.Caption = Format(Percent, "0%") & " of " & SizeString(TotalBytes)
End Sub

Private Sub DL_DLRedirect(ConnAddr As String)
'Returns path to file if redirected
'This event wont fire at all if FailOnRedirect is True! (DLError instead)
LogItem Index, "重定向到" & ConnAddr
End Sub

Private Sub Form_Load()
'initialize sample inputs

cboURL.ListIndex = 0

End Sub

Private Sub LogItem(strItem As String)
With lstOut
.AddItem "> " & strItem
If .NewIndex > .TopIndex + 17 Then
.TopIndex = .NewIndex - 16
End If
End With
End Sub

Private Function SizeString(lBytes As Long) As String
If lBytes < &H400& Then
SizeString = CStr(lBytes) & "b"
ElseIf lBytes < &H100000 Then
SizeString = CStr(lBytes \ 1024) & "k"
ElseIf lBytes < &H20000000 Then
SizeString = Replace$(Format$((lBytes \ 1024) / 1024, "0.0"), ".0", vbNullString) & "M"
Else
SizeString = Replace$(Format$((lBytes \ (1024 ^ 2)) / 1024, "#,##0.0"), ".0", vbNullString) & "G"
End If
End Function
VB的
参考下