OpenTcp
OpenTcp 用於使用 TCP 建立與遠端伺服器的連線。
語法
結果
Socket 物件。
範例
此指令碼顯示本機執行的 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