Licensed.vbs

This example demonstrates how to create licensed component from VBScript.

See also:

PacketX , Factory

'
'// File:         Licensed.vbs
'//
'// Description:  This script demonstrates how to create licensed component
'//
'// Notes:        Run the script from command line using the cscript.exe program
'//
'// Created:      May 10, 2004
'//
'// Copyright (c) 2000-2004 BeeSync Technologies.
'

'// Create factory
Set oFactory = CreateObject("PktX.Factory")

'// Create licensed object
Set oPktX = oFactory.CreateLicensedObject("PktX.PacketX","Valid serial number","Your Name")

'// Connect events to script 
WScript.ConnectObject oPktX, "PacketX_" 

'// Start
oPktX.Start
WScript.Sleep(60000)
oPktX.Stop

'// Disconnect from script
WScript.DisconnectObject oPktX  

'// Packet event handler
Public Sub PacketX_OnPacket(ByRef oPacket)
  WScript.Stdout.Write "A"
End Sub