急！关于INET控件使用的问题？

[iqwy98]

程序需求如下：
程序定时自动下载远程服务器上的数据包，如果数据包未到，每隔5分钟到服务器取一次数据。但在执行中发现INET控件在同一次执行中只有第一次可以下载，如果因数据包未到，每隔5分钟取包时重新执行本程序，但不管包到了没有，都认为是未到。我想是不是某个属性或方法用错了?以下是程序片断：

With Inet2
.RemoteHost = Trim(txt_ip.Text)
.RemotePort = Trim(txt_port.Text)
.UserName = "u0000"
.Password = "u0000"
.Protocol = icFTP
sb1.Panels(1).Text = "重新连接主机，下载公共数据......."

End With

' On Error GoTo err_mark:

varStr = "get " & TARName3 & " " & App.path & "\data\" & TARName3

'Debug.Print varStr
Inet2.Execute , varStr
sb1.Panels(1).Text = "正在下载" & TARName3 & "......."
' pb1.Visible = True
pb1.Value = 0
Do While Inet2.StillExecuting
DoEvents

If pb1.Value < pb1.Max Then
pb1.Value = pb1.Value + 1
Else
pb1.Value = 0
End If

Loop

sb1.Panels(1).Text = ""

... ...

If f1.FileExists(App.path & "\data\" & TARName3) = False Then
XZ_BZ = XZ_BZ & "G包未下载"
sb1.Panels(1).Text = XZ_BZ
'timerXz为定时器控件,如数据包未到,每隔5分钟重新调用本程序.
timerXz.SetEnable True
Exit Sub
End If

[aiur2000]

你是否将省略号前的代码放入timer中了。

[iqwy98]

没有啊?我观察定时器工作还是正常的.而且也调用了INET的EXECUTE方法,但好像是没找到文件,但此时服务器文件已经传到.于是我重新退出程序再执行程序,这次就可以下载了.不解!!!

[creazyfish]

我也有遇到过这个问题，我建议你查看下它的Err.Number
我后来是这么解决的,专门写了个错误处理函数，这样就没有问题，一些变量可能需要你自己改一下，在每个inet处理的时候加下面的错误处理就应该是可以的

Public Function error_handle()
Select Case Err.Number
Case 35754:
MsgBox "Cann't connect to remote server:" + vars.server + ", please check the server name username and password!"
Case 4000:
MsgBox "FTP API can't connect to remote server " + vars.server + ", please check the server!"
Case 4001:
Reboot
Case Else:
Reboot
End Select
Err.Clear
End Function

Public Function Reboot()
vars.textstream1.WriteLine CStr(Now) + " An fatal error ocoured! system will reboot automatically now!"
Form1.List1.AddItem CStr(Now) + " An fatal error ocoured! system will reboot automatically now!"
Form1.Refresh
Form1.Timer1.Enabled = False
Form1.Inet1.Cancel

Form1.Timer1.Enabled = True
End Function