Question

vb里用inet控件从ftp上下载文件为0字节

我自己这里测试没问题,但是换了台电脑下载来的文件就为0字节cpu占用率很高

Answer 1

下载之前加入这个 函数
Private Sub Waitinet()
'新加入的
If vkey = True Then
MsgBox ("空间服务器正在执行，若还是连接不上，请与您的空间商联系")
Exit Sub '"如果为真，则不再执行下面代码"
Else

vkey = True

End If

doing = Inet1.StillExecuting

Do While doing

If vkey = False Then Exit Do

doing = Inet1.StillExecuting

DoEvents
Loop

vkey = False