Close
Close é usado para liberar um objeto de soquete atribuído anteriormente.
Sintaxe
Close
Retorno
Nenhum dado retornado.
Exemplo
Este script mostra o banner de um servidor FTPProtocolo usado para transferir arquivos entre computadores da rede. cuja execução seja local. Ele pode funcionar em qualquer servidor FTP alterando o valor da variável “ip”:
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
'verifica se o Objeto retornou com sucesso
strResponse = SocketObject.Recv(1024)
echo(strResponse)
SocketObject.Close
End If
End Function