You are here:

ActiveXperts.com > ActiveSocket > How to Use ActiveSocket > Telnet > Visual Basic 5.x/6.x
ActiveSocket Toolkit Add network capabilities to any Windows or .NET application

Quicklinks

Visual Basic 5.x/6.x Telnet Sample Source Code

ActiveSocket provides an easy-to-use development interface to a variety of IP protocols. By using ActiveSocket, you can very easily create or enhance applications with network features.

ActiveSocket features the following: DNS, FTP, HTTP, HTTPs, ICMP Ping, IP-to-Country, MSN, NTP, RSH, SCP, SFTP, SNMP v1/v2c (Get, GetNext, Set), SNMP Traps, SNMP MIB, SSH, TCP, Telnet, TFTP, UDP, Telnet, Wake-On-LAN and more.

ActiveSocket can be well integrated into Visual Basic environments. This document describes how the ActiveSocket Toolkit can be integrated into Visual Basic 5.x/6.x projects.

Step 1: Download and install the ActiveSocket Toolkit

Download the ActiveSocket Toolkit from the ActiveXperts Download Site and start the installation. The installation guides you through the installation process.

Step 2: Create a new Visual Basic project

Launch 'Microsoft Visual Basic' from the Start menu, and choose 'New' from the 'File Menu'. The 'New Project' dialog appears. Select 'Standard Exe' and click 'OK':

Telnet Visual Basic

(Click on the picture to enlarge)

Step 3: Refer to the ActiveSocket Library and create the objects

A new Project is created, with a blank form.

First, you must add a reference to ActiveSocket in the project to be able to use the object. To do so, choose 'References...' from the 'Project' menu. In the 'References' dialog that pops up, enable the 'ActiveSocket 3.1 Type Library' reference as shown in the following picture:

Telnet Visual Basic

(Click on the picture to enlarge)

Click 'OK' to close the 'References...' dialog.

Then, select the Project form and choose 'View Code' from the context menu:

Telnet Visual Basic

(Click on the picture to enlarge)

On top of your code, declare the following object:

Public objSocket As ASOCKETLib.Tcp

Step 4: Create the object

From the Code window, select 'Form'. The Private Sub 'Form_Load()' will be displayed now. In the 'Form Load' function, create the object in the following way: 

Set objSocket = CreateObject("ActiveXperts.Tcp")

Step 5: Create a TCP/IP connection to a Telnet server

You can now create TCP/IP connections to servers.

The following code shows how create a siple telnet client using Visual Basic :

Option Explicit

Dim objSocket As ASOCKETLib.Tcp

Private Sub BTN_Connect_Click()
    objSocket.Connect TXT_Host, 23
    TXT_Result = "CONNECT: " & objSocket.LastError & " (" & objSocket.GetErrorDescription(objSocket.LastError) & ")"
End Sub

Private Sub BTN_Disconnect_Click()
    objSocket.Disconnect
    TXT_Result = "DISCONNECT: " & objSocket.LastError & " (" & objSocket.GetErrorDescription(objSocket.LastError) & ")"
End Sub

Private Sub BTN_Submit_Click()
    objSocket.SendString TXT_Command
    TXT_Result = "SEND: " & objSocket.LastError & " (" & objSocket.GetErrorDescription(objSocket.LastError) & ")"
End Sub

Private Sub Form_Load()
    Set objSocket = CreateObject("ActiveXperts.Tcp")
    objSocket.Protocol = objSocket.asPROTOCOL_TELNET
    
    TXT_Result = "N/A"
    TXT_Received = ""
End Sub

Private Sub Timer_Timer()
    While objSocket.HasData
        TXT_Received.Text = TXT_Received & objSocket.ReceiveString
    Wend
End Sub

There are many working samples included with the product. You can also find them on the ActiveXperts FTP site: ftp.activexperts-labs.com/samples/network-component.