VB6 局域网检测自写EXE版本,及提示更新!
Private Sub Command1_Click()
Dim 自身版本号 As String
'判断局域网主机是否在线,在线则执行
If IPValid("127.0.0.1") = True Then
'定义主机地址
Const 文件地址 As String = "\\127.0.0.1\vb\下载器.exe"
'获取自身版本号
自身版本号= App.Major & "." & App.Minor & ".0" & "." & App.Revision
'定义运程文件版本号
Dim 运程文件版本号 As String
'定义文件系统对象
Dim fso As FileSystemObject
'定义为新文件系统对象
Set fso = New FileSystemObject
'获取远程文件版本号
运程文件版本号 = fso.GetFileVersion(文件地址)
'判断文件版本号是否一样,不一样则提示更新并打开,更新地址!否则退出!
If 自身版本号 = 运程文件版本号 Then
MsgBox "恭喜你!!软件已是最新版本"
Else
MsgBox "发现新版本,请点击更新"
Shell "explorer \\127.0.0.2\vb\", 1
End If
Else
Exit Sub
End If
End Sub