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: ICMP, HTTP and HTTPs with support for proxy servers and secure web sites, Telnet, NTP time protocol, RSH remote shell script interface, SNMP (Simple Network Management Protcol), SNMP Traps, Sockets (TCP and UDP), WOL (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':

(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:

(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:

(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, True
    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/asocket.

The ActiveSocket tool is a Network Communications ActiveX software component (SDK). This control supports SNMP, SMTP, POP3, Telnet, TCP, NTP, RSH, HTTP, HTTPs, FTP, DNS, ICMP and more, and can be used by any Windows development platform, including Visual Basic .NET, Visual CSharp .NET, ASP .NET (VB,CS), ASP, Visual Basic, Visual Studio/Visual C++, Delphi, PHP, ColdFusion, HTML, VBScript and any other ActiveX/COM compliant platform. The ActiveSocket Toolkit is an ActiveXperts Software B.V. Product.