PacketX: Licensed.vbs

00001 '
00002 '// File:         Licensed.vbs
00003 '//
00004 '// Description:  This script demonstrates how to create licensed component
00005 '//
00006 '// Notes:        Run the script from command line using the cscript.exe program
00007 '//
00008 '// Created:      May 10, 2004
00009 '//
00010 '// Copyright (c) 2000-2004 BeeSync Technologies.
00011 '
00012 
00013 '// Create factory
00014 Set oFactory = CreateObject("PktX.Factory")
00015 
00016 '// Create licensed object
00017 Set oPktX = oFactory.CreateLicensedObject("PktX.PacketX","Valid serial number","Your Name")
00018 
00019 '// Connect events to script 
00020 WScript.ConnectObject oPktX, "PacketX_" 
00021 
00022 '// Start
00023 oPktX.Start
00024 WScript.Sleep(60000)
00025 oPktX.Stop
00026 
00027 '// Disconnect from script
00028 WScript.DisconnectObject oPktX  
00029 
00030 '// Packet event handler
00031 Public Sub PacketX_OnPacket(ByRef oPacket)
00032   WScript.Stdout.Write "A"
00033 End Sub