tcptrans.bas

来自「vb发送文件,检查邮件,串口操作,查看文件等关于socket的源代码!」· BAS 代码 · 共 24 行

Attribute VB_Name = "tcpTrans"
Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

' 使用 Winsock 传送文件

Public Sub Main()
    Load FrmSender
    FrmSender.Show
    
    Load FrmRec
    FrmRec.Show
End Sub

Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub