vb编程代理服务器

vb编程代理服务器 OptionExplicit PublicblnManagingDataAsBoolean PublicblnNewConnectionAsBoolean PublicSubaddLog(strEvent,intEventType) 'Addseventinformationtologfile/logwindow WithfrmMai.txtLog .Text=.Text&"!"&Date$&""&Time$&""&strEvent&vbCrLf