Dim n, i
Dim OFbyt As Variant '讀入檔案的緩衝
Dim data As Variant '檔案分解的緩衝
Command1.Enabled = False
Open Text2.Text For Binary As #1 ' 開啟檔案。
i = 1
OFbyt = InputB(LOF(i), i)
For n = 0 To (LOF(i) / 2000) '將檔案以...byte分成一段一段
Label4.Caption = "傳送中"
Text1.Text = n
data = MidB(OFbyt, n * 2000 + 1, 2000)
WinSock1.SendData data
Do Until Text3.Text = "Next"
DoEvents
Loop
Text3.Text = "Wait"
Next
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()