![]() |
在已经建立的 TCP 连接上面接受一个新的已经建立了 SSL 通道的 Socket 对象
Set newSSLSocket = Socket.SSLAccept
Socket.SSLAccept 只可对 Socket.Listen 成功的 Socket 对象使用,否则返回结果将为空。如果接受到一个 TCP 连接,而不能正常与对方建立 SSL 通道,则此连接将被抛弃,而 Socket.SSLAccept 继续等待下一个连接请求。
作为 SSL 通道连接的接受者,Socket.SSLAccept 必须提供证书与私钥,具体的装载方法参见 Shell.LoadPrivateKey。
下面的例子创建一个 NetBox.Socket 对象,在 443(telnet) 端口建立侦听,接受一个请求并输出一个字符串,然后退出。
Shell.LoadPrivateKey "test.key", "test.crt" Set Socket = CreateObject("NetBox.Socket") Socket.Listen "", 443 Set Socket1 = Socket.SSLAccept Socket1.WriteLine "Hello! I'm here!!!!"