请问可以去掉第三方控件实现txt下载吗

Question

因为加上控件Inet1控件就出现，想搞个绿色软件，请问还有没有其他的办法弹出更新提示，谢谢
Private Sub Form_Load()
Text1.Text = Inet1.OpenURL("/update/gx.txt")
bTopMost = FalseEnd SubPrivate Sub Text1_Change()
If Text1.Text = "有更新" Then If MsgBox("发现新的软件可以更新，请问是否更新", vbYesNo, "更新提示") = vbYes Then Form3.Show
End Sub

Answer 1

用API下载.
自定义一个控件,也可以下载.
下载文件的方法多了.

Answer 2

http://www.m5home.com/blog/article.asp?id=395一个文件下载类,可获取下载进度与速度等详细信息(VB6.0代码)

Answer 3

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
   URLDownloadToFile 0, "http://cbm666.net/gx.txt", "C:\gx.txt", 0, 0 ‘路径自己改
End Sub