Ftp服务器

开发平台：

Visual Basic

MFtpSupport.bas：源码内容

							Attribute VB_Name = "MFtpSupport"
Public p_intCounter As Integer
 
Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
    p_intCounter = p_intCounter + 1
End Sub

						