modwinsock.bas

关于WINSOCK控件基本编程的例程,提供电子邮件例程

Attribute VB_Name = "modwinsock"
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub SendFile(FileName As String, WinS As Winsock)

Dim FreeF As Integer
Dim LenFile As Long
Dim nCnt As Long
Dim LocData As String
Dim LoopTimes As Long
Dim i As Long

FreeF = FreeFile

Open FileName For Binary As #99

nCnt = 1

LenFile = LOF(99)

WinS.SendData "|FILESIZE|" & LenFile
DoEvents

Sleep (400)


Do Until nCnt >= (LenFile)
  
    LocData = Space$(1024)

  
  Get #99, nCnt, LocData
  
  If nCnt + 1024 > LenFile Then
      WinS.SendData Mid$(LocData, 1, (LenFile - nCnt))
  Else
  
    WinS.SendData LocData
  End If
  
  nCnt = nCnt + 1024
 
Loop


Close #99

End Sub