Visual Basic 6.0

Check if the SSH Tunnel's Transport is Connected

Demonstrates the Chilkat SshTunnel.IsSshConnected method, which returns whether the SSH transport used by the tunnel is connected. It takes no arguments.

Background: A tunnel has two independent parts: the SSH transport to the server and the local listener that accepts connections to forward. This method reports only the first. The distinction matters because the listener can keep accepting local connections even after the SSH transport has dropped — those connections would then fail to forward — so a health check on a long-running tunnel should verify the SSH side explicitly.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the SshTunnel.IsSshConnected method, which returns whether the SSH transport used
'  by the tunnel is connected.  It takes no arguments.

Dim tunnel As New ChilkatSshTunnel

'  The tunnel forwards accepted local connections to this destination through the SSH server.
tunnel.DestHostname = "db.internal.example.com"
tunnel.DestPort = 5432

'  Connect to the SSH server.  This performs the TCP/proxy connection and SSH handshake, but
'  does not authenticate yet.
Dim sshPort As Long
sshPort = 22
success = tunnel.Connect("ssh.example.com",sshPort)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
Dim password As String
password = "mySshPassword"

success = tunnel.AuthenticatePw("mySshLogin",password)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If

'  Check whether the SSH transport is connected.  This is independent of the local listener
'  state -- the listener can still be accepting local connections even when this is 0,
'  though those connections would fail to forward.
If (tunnel.IsSshConnected()) Then
    Debug.Print "The SSH transport is connected."
Else
    Debug.Print "The SSH transport is not connected."
End If

Dim waitForThreadExit As Long
waitForThreadExit = 1
success = tunnel.CloseTunnel(waitForThreadExit)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If