摘要：Option Explicit Private WithEvents k As vbRichClient5.cWebServer Private Sub Command1_Click() Set k = New cWebServer k.Listen "localhost", "127.0.0.1", 8891 End Sub Private Sub k_ConnAccepted(... 阅读全文