参考论坛的解决办法:>下载之前加入这个 函数
Private Sub Waitinet()
'新加入的
If vkey = True Then
MsgBox ("空间服务器正在执行,若还是连接不上,请与您的空间商联系")
Exit Sub '"如果为真,则不再执行下面代码"
Else
vkey = True
End If
doing = Inet1StillExecuting
Do While doing
If vkey = False Then Exit Do
doing = Inet1StillExecuting
DoEvents
Loop
vkey = False
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)