modserver.bas

来自「本书源码主要针对目前流行的FTP、HTTP、E-mail、Telnet、ICMP」· BAS 代码 · 共 18 行

Attribute VB_Name = "modServer"
Option Explicit

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Const MaxConnect = 20 '定义最大的连接数
Public ClientInfo(20) As ClsClient '存储客户端的信息的类数组
Public ServerInfoStr As String '存储提示信息
Public RootPath As String '服务器的根目录
Public ServerPort As Integer '服务器侦听的端口
Public bDir As Boolean '是否允许浏览目录
Public NeedPass As Boolean '是否需要身份验证
Public UserName As String '验证帐号
Public UserPass As String '验证密码
Public MaxTime As Integer '最大连接时间
Public PassStr As String '经编码后的验证字符串