Public Class Telnet 
   Inherits Dart.Common.PtyBase

Dim instance As Telnet

public class Telnet : Dart.Common.PtyBase 

public __gc class Telnet : public Dart.Common.PtyBase 

public ref class Telnet : public Dart.Common.PtyBase 

private Telnet telnet1;

private void button1_Click(object sender, EventArgs e)
{
    //Dynamically create an instance of the Telnet component
    //The component can also be dragged onto a form, so that the
    //properties and event handlers can be managed in the designer
    telnet1 = new Telnet();

    //Events should fire on the UI thread
    telnet1.SynchronizingObject = this;

    //Add event handlers
    telnet1.Data += new DataEventHandler(telnet1_Data);
    telnet1.Error += new Dart.Common.ComponentErrorEventHandler(telnet1_Error);
    telnet1.StateChanged += new EventHandler(telnet1_StateChanged);

    //Start the process on a worker thread
    telnet1.Start(automateSession, null);
}

private void automateSession(Telnet telnet, object notUsed)
{
    //This function executes on a worker thread, providing multi-threaded, asynchronous operation
    try
    {
        //Connect to the server
        telnet.Connect("myServer");

        //Login and marshal data to the UI thread
        telnet.Marshal(telnet.Login("myUsername", "myPassword", "$"), null);

        //Send a list command
        telnet.Write("ls -la\r");

        //Wait for prompt, marshal data to the UI thread
        telnet.Marshal(telnet.Read("$"), null);

        //Send an exit command; server will close the connection
        telnet.Write("exit\r");

        //Read any remaining data before the shutdown
        telnet.Marshal(telnet.ReadToEnd(), null);
    }
    catch (Exception ex)
    {
        //Report errors to the UI thread
        telnet.Marshal(ex);
    }
}

void telnet1_Data(object sender, DataEventArgs e)
{
    //Add data received to the textbox
    textBox1.AppendText(e.Data.ToString());
}

void telnet1_Error(object sender, Dart.Common.ComponentErrorEventArgs e)
{
    //Add error messages to the textbox
    textBox1.AppendText(e.GetException().Message);
}

void telnet1_StateChanged(object sender, EventArgs e)
{
    //Change appearance of textbox when connected
    textBox1.BackColor = (telnet1.State == ConnectionState.Closed)
    ? SystemColors.ControlDark
    : SystemColors.ControlLight;
}

Private telnet1 As Telnet

Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button2.Click
	'Dynamically create an instance of the Telnet component
	'The component can also be dragged onto a form, so that the
	'properties and event handlers can be managed in the designer
	telnet1 = New Telnet()

	'Events should fire on the UI thread
	telnet1.SynchronizingObject = Me

	'Add event handlers
	AddHandler telnet1.Data, AddressOf telnet1_Data
	AddHandler telnet1.Error, AddressOf telnet1_Error
	AddHandler telnet1.StateChanged, AddressOf telnet1_StateChanged

	'Start the process on a worker thread
	telnet1.Start(AddressOf automateSession, Nothing)
End Sub

Private Sub automateSession(ByVal telnet As Telnet, ByVal notUsed As Object)
    'This function executes on a worker thread, providing multi-threaded, asynchronous operation
    Try
        'Connect to the server
        telnet.Connect("myServer")

        'Login and marshal data to the UI thread
        telnet.Marshal(telnet.Login("myUsername", "myPassword", "$"), Nothing)

        'Send a list command
        telnet.Write("ls -la" & Constants.vbCr)

        'Wait for prompt, marshal data to the UI thread
        telnet.Marshal(telnet.Read("$"), Nothing)

        'Send an exit command; server will close the connection
        telnet.Write("exit" & Constants.vbCr)

        'Read any remaining data before the shutdown
        telnet.Marshal(telnet.ReadToEnd(), Nothing)
    Catch ex As Exception
        'Report errors to the UI thread
        telnet.Marshal(ex)
    End Try
End Sub

Private Sub telnet1_Data(ByVal sender As Object, ByVal e As DataEventArgs)
    'Add data received to the textbox
    textBox1.AppendText(e.Data.ToString())
End Sub

Private Sub telnet1_Error(ByVal sender As Object, ByVal e As Dart.Common.ComponentErrorEventHandler)
    'Add error messages to the textbox
    textBox1.AppendText(e.GetException().Message)
End Sub

Private Sub telnet1_StateChanged(ByVal sender As Object, ByVal e As EventArgs)
    'Change appearance of textbox when connected
    If (telnet1.State = ConnectionState.Closed) Then
        textBox1.BackColor = SystemColors.ControlDark
    Else
        textBox1.BackColor = SystemColors.ControlLight
    End If
End Sub