新建工程1添加控件：Micosoft Internet Transfer Control 6.0 (即：Msinet.ocx (Inet1))、COMMAND1、属性：Command1
Caption "检测版本"Form1代码：Private Sub Command1_Click()Command1.Enabled = FalseDim Str As StringOn Error GoTo err:Str = Inet1.OpenURL("TXT网络地址") '远程下载一个txt文本，然后读取文本内容。'如果有这个文件则接着读取文本内容Open App.Path & "\Update.txt" For Output...
