# Re: 谁来救救我 如何用 Modem 传图档 ......

Posted by 老怪 on September 09, 1998 at 23:47:49:

In Reply to: 谁来救救我 如何用 Modem 传图档 ...... posted by 小可怜 on August 20, 1998 at 22:15:38:

: 那位高手 能告诉我 如何用 Modem 传图档 , 如何传档 及如何接档 ?
:

: 感激不尽 ........
: 小可怜

图档你就把它当二进位档案传，请参考下例。

Dim FileHandle As Integer
Dim SendBuff() As Byte
FileHandle = FreeFile
Open "YourFilePathAndName" For Binary As #FileHandle
ReDim SendBuff(LOF(FileHandle) - 1)
Get #FileHandle, , SendBuff
Winsock1.SendData SendBuff

Follow Ups: