iqwy98 2004年12月27日
急!关于INET控件使用的问题?
程序需求如下:
程序定时自动下载远程服务器上的数据包,如果数据包未到,每隔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


...全文
76 点赞 收藏 3
写回复
3 条回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

2738

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告