modinter.bas

vb网络通信协议,参考例程

Attribute VB_Name = "modInter"

Public bActiveSession As Boolean
'用以标示已经建立了FTP连接
Public hOpen As Long
'用InternetOpen（）函数建立Internet对话后返回的句柄
Public hConnection As Long
'用InternetConnect（）函数建立FTP连接后返回的句柄
Public dwType As Long
Public EnumItemNameBag As New Collection
'用以存放查找到的FTP目录下的文件名
Public EnumItemAttributeBag As New Collection
'用以存放与EnumItemNameBag中相对应的文件名的属性