modmain.bas

尝试做了一个利用WINSOCK控件的自动分包发送机制的东东(VB6.0)

Attribute VB_Name = "ModMain"
Option Explicit

Public Type MyType
    theData() As Byte           '收到的数据
    theLength As Long           '数据长度
    theFileName As String       '客户端文件名
    theSaveName As String       '保存到本地硬盘时的全文件名
    FileNumber As Long          '当前文件号
    theState As Long            '当前通信状态
    WskIndex As Long            '绑定在一起的WINSOCK控件的索引
    ClientIP As String          '客户端的IP
End Type

Public PubMyType As MyType      '用于接收完成后传递值的公共变量

Sub Main()
    frmMain.Show
End Sub