HTTP-Server

Private WithEvents Server As HttpServer Sub StartServer() Server.RootDirectory = "c:\" Server.Port = 80 Server.Group = "" Server.User = "" Server.Password = "" Server.Running = True If Not Server.Running Then MsgBox "Cannot Listen!", 48 End Sub Sub StopServer() Server.Running = False End Sub Private Sub Form_Load() Set Server = New HttpServer End Sub Private Sub Form_Unload(Cancel As Integer) Server.Running = False Set Server = Nothing End Sub

FTP-Server

Private WithEvents Server As FtpServer Sub StartServer() Server.Running = True If Not Server.Running Then MsgBox "Cannot Listen!", 48 End Sub Sub StopServer() Server.Running = False End Sub Private Sub Form_Load() Set Server = New FtpServer Server.Port = 21 Server.Authentication.Add "anonymous,*,c:\" Server.Authentication.Add "thfu,test,c:\daten,\share" End Sub Private Sub Form_Unload(Cancel As Integer) Server.Running = False Set Server = Nothing End Sub

benötigt zusätzlich aus dem Download-Paket:
Socket.cls
Socket.bas
FtpServer.cls
FtpServerConnection.cls