關閉
Close 用於釋放之前分配的通訊端物件。
語法
關閉
結果
未傳回資料。
範例
此指令碼顯示本機執行的 ftp 伺服器的橫幅。 透過變更變數「ip」的值可使用任何 ftp 伺服器：
Function Main
Dim SocketObject As Object
Dim ip As String
Dim port As String
Dim strResponse As String
Ip = "127.0.0.1"
Port = "21"
Socket.SetTimeout 5000,5000
Set SocketObject = Socket.OpenTcp(Ip,Port)
If Not SocketObject is Nothing Then
'檢查以確保物件成功傳回
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function