You are here:
ActiveXperts.com > ActiveComport
Quicklinks
Adding serial communications capabilities to an application is never a simple matter.
It requires specialized knowledge that might be outside an individual programmer's expertise.
For years, VBScript, Visual Basic and Visual C++ developers have relied upon the power, flexibility and
reliability of the ActiveComport serial communications control from ActiveXperts Software.
Today, a new generation of .NET developers developers use the toolkit.
![]() |
![]() |
![]() |
![]() |
![]() |
| Startup screen after installation | Use ActiveComport with MS Visual Studio | ActiveComport in a .NET web application | ActiveComport in a .NET GUI forms application | ActiveComport in a console application |
ActiveComport is a COM component, providing an easy-to-use scripting interface for serial, asynchronous communications through a serial port. ActiveComport can control modems, ISDN modems, USB serial devices and other devices and machines that have a serial interface.
Use ActiveComport for different purposes:
ActiveComport features the following:
ActiveComport includes samples for many development tools, including:
ActiveComport is available as a 32-bit component and as a 64-bit component (both part of the product):
ActiveComport runs on the following Operating Systems:
ActiveComport is built on top of the Microsoft serial device drivers. It just uses these drivers. It neither replaces them, nor does it install any additional serial device drivers.
ActiveComport can be distributed easily to many PC's. Once you have purchased the licenses, you copy the AComport.dll to the PCs and register the DLL on that PC.
The following code snippets (VBScript) illustrate how to use ActiveComport.
For more samples, please check the Online ActiveComport Samples.
Initialize a modem using a direct COM port Set objComport = CreateObject( "ActiveXperts.Comport" ) ' Create a new Comport instance objComport.Device = "COM1" ' Use a COM port directly objComport.BaudRate = 56000 ' Set baudrate (default value: 9600) objComport.HardwareFlowControl = True ' Set Hardware Flow Control objComport.SoftwareFlowControl = False ' Set Software Flow Control objComport.Open ' Open the port Wscript.Echo "Open, result: " & objComport.LastError If( objComport.LastError <> 0 ) Then WScript.Quit End If objComport.WriteString( "at&f" ) ' Write command str = objComport.ReadString WScript.Echo "Received: [" & str & "]" ' Read the response objComport.Close ' Close the port
Initialize a modem using a Windows Telephony Driver Set objComport = CreateObject( "ActiveXperts.Comport" ) ' Create a new Comport instance objComport.Device = "Standard 9600 bps Modem" ' Use a Windows Telephony driver objComport.Open ' Open the port Wscript.Echo "Open, result: " & objComport.LastError If( objComport.LastError <> 0 ) Then WScript.Quit End If objComport.WriteString( "at&f" ) ' Write command str = objComport.ReadString WScript.Echo "Received: [" & str & "]" ' Read the response objComport.Close ' Close the port
Send an SMS using a GSM Modem connected to the PC; Enable logging Const RECIPIENT = "+31624896641" Const MESSAGE = "Hello, world!" Set objComport = CreateObject( "ActiveXperts.Comport" )' Create a new Comport instance objComport.Device = "Nokia 6680 SmartPhone" ' Use a Windows Telephony driver objComport.LogFile = "C:\ActiveComport.log" ' Enable logging objComport.Open ' Open the port Wscript.Echo "Open, result: " & objComport.LastError If( objComport.LastError <> 0 ) Then WScript.Quit End If WriteStr objComport, "at+cmgs=" & Chr( 34 ) & strNumber & Chr( 34 ) ReadStr objComport WriteStr objComport, strMessage strTermCmd = Chr( 26 ) ' Terminate message: [ctrl]z WriteStr objComport, strTermCmd objComport.Sleep 3000 ' Allow some time ReadStr objComport ' +CMGS: expected ReadStr objComport ' OK expected objComport.Close ' Close the port ' ******************************************************************** ' Sub Routines ' ******************************************************************** Sub WriteStr( obj, str ) obj.WriteString str WScript.Echo "-> " & str End Sub Sub ReadStr( obj ) str = "notempty" obj.Sleep 200 Do While str <> "" str = obj.ReadString If( str <> "" ) Then WScript.Echo "<- " & str End If Loop End Sub ' ********************************************************************
| Standard License AX003-0010 | Professional License AX003-0012 | Distribution License AX003-0020 | |
|---|---|---|---|
| Direct COM port support | X | X | X |
| Windows Telephony Device (TAPI) support | X | X | X |
| Configurable baudrate | X | X | X |
| Hardware flow control | X | X | X |
| Software flow control | X | X | X |
| Support for multiple ports (simultaneously) | - | X | X |
| High-speed data transmission | - | X | X |
| Use component on any computer in your organization | - | X | X |
| Distribution of component | - | - | X |
For detailed licensing information, click here.
To read more about ActiveComport, use one of the following links: