windows-server-2003/net/tapi/skywalker/h323/test/fdemo.htm

<!-- This page allow the user to originate a call from a given address and using the selected address type 
     This sample is also able to accept incoming calls.
     
     What is covered by this sample:
			1. Address enumerations and registering on address in order to receive call notifications
			2. Call operations: create, connect, answer, disconnect
			3. Setting application priority (which application will receive notifications about incoming calls)
			4. Processing of TAPI events.
			5. QOS usage.
			6. Call forwarding setup (minimal)
			
	  What is not covered:
			This page does not manage the positioning of video windows. 
			(In order to do this, you can change the sample to use an ActiveX control that is able 
			to set properties in IVideoWindow. This requires window handle values - HWND - which 
			are not available in vbscripting).
			
 -->
     
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">

<html>
<head>
</head>
<meta content="text/html; charset=unicode" http-equiv="Content-Type">
<title>Call operations</title>

<SCRIPT LANGUAGE="JavaScript"><!--

    var ua = navigator.userAgent;
    var an = navigator.appName;

    // Is it IE?
    bMSIE = (ua.indexOf("MSIE")>=1);
    if (! bMSIE)
    {
     alert("You need to use IE to run this page");
     window.close;
    }
//-->
</SCRIPT>


<script LANGUAGE="VbScript">

Const CallerName ="name1" 

'Constants section
'These constants are copied from tapi3if.idl
Const TAPIMEDIAMODE_AUDIO  = &H08&
Const TAPIMEDIAMODE_VIDEO = &H8000&
Const S_MEDIA_AUDIOVIDEO = &H8008&
Const TD_CAPTURE  = 0
Const TD_RENDER = 1
Const QSL_NEEDED = 1
Const AS_INSERVICE = 0
Const DC_NORMAL = 0
Const TE_CALLSTATE = 8
Const TE_CALLNOTIFICATION = 4
Const TE_DIGITEVENT       = &H00008000&
Const CS_DISCONNECTED = 3
Const CS_IDLE = 0
Const CS_OFFERING = 4
Const CS_CONNECTED = 2
Const CNE_OWNER =  0
Const CIS_CALLERIDNAME = 0
Const CIS_CALLERIDNUMBER = 1
Const CIS_REDIRECTINGIDNAME = 8
Const CIS_REDIRECTINGIDNUMBER = 9

Const CIS_DISPLAYABLEADDRESS = 12
Const CIS_COMMENT = 11
Const CIS_CALLINGPARTYID = 13
Const CIS_CALLEDPARTYFRIENDLYNAME = 10

Const CIL_REASON = 8
Const LINEDIGITMODE_DTMF = 2

'Interface IDs for casting 
'Note: you can find the following IID-s in tapi3.idl, tapi3if.idl or rend.idl

Const IID_String_ITMediaSupport = "{B1EFC384-9355-11D0-835C-00AA003CCABD}"
Const IID_String_ITTerminalSupport="{B1EFC385-9355-11D0-835C-00AA003CCABD}"

Const IID_String_ITBasicCallControl = "{B1EFC389-9355-11D0-835C-00AA003CCABD}"

'Const IID_String_ITCallInfo = "{B1EFC390-9355-11d0-835C-00AA003CCABD}"
'New interface
Const IID_String_ITCallInfo = "{350F85D1-1227-11D3-83D4-00C04FB6809F}"
Const IID_String_ITStreamControl= "{EE3BD604-3868-11D2-A045-00C04FB6809F}"
Const IID_String_ITDirectoryObjectConference= "{F1029E5D-CB5B-11D0-8D59-00C04FD91AC0}"
Const IID_String_ITCallStateEvent = "{62F47097-95C9-11d0-835D-00AA003CCABD}"
Const IID_String_ITCallNotificationEvent = "{895801DF-3DD6-11d1-8F30-00C04FB6809F}"

Const IID_String_ITDigitDetectionEvent   = "{80D3BFAC-57D9-11d2-A04A-00C04FB6809F}"


' IID of IVideoWindow 
' Note: you can find this IID defined in control.h (from your sdk\inc directory), 
' which contains the interface to type library QuartzTypeLib for quartz.dll;
' (search for the interface IVideoWindow)
Const IID_String_IVideoWindow = "{56A868B4-0AD4-11CE-B03A-0020AF0BA770}"

' The following CLSID is defined in tapi3.h 
'(and it's used for creating a terminal of class "video window terminal")
Const CLSID_String_VideoWindowTerm = "{F7438990-D6EB-11d0-82A6-00AA00B5CA1B}"


'****************************************************************************
'Global variable section
'****************************************************************************

DIM spITAddress

spITAddress = Empty

'Set on True when we are unable to complete the connecting phase, to skip rest of processing
DIM sUnableToComplete
DIM sbNeedToExit
sUnableToComplete = False
sbNeedToExit = False

' If we want to receive incoming calls, we have to register on the corresponding addresses.
'We don't really use the values returned by registration (they are supposed to be used 
'for unregistration), because Unregistration is performed automatically when we shutdown the TAPI object

'The variable pRegisteredCallNotification is an array that contains cookies returned by RegisterCallNotifications;
'these would normally be used to call UnregisterNotifications.

'The variable pRegisteredName holds correspondent AddressName 

DIM pRegisteredCallNotification(50)
DIM pRegisteredName(50)
DIM iQtaRegistered
iQtaRegistered = 0


'Set by radio button "Select Address Type" 
DIM sCurrentAddressType
sCurrentAddressType = -1

' This variable will hold a references to the currently established calls
Const MaxCallNumber = 20
DIM spITCall(20)
DIM spCallState(20)  
DIM spCallerCallee(20)
DIM spTerminalState(20)
DIM spDtmfDetected(20)
DIM spCallOnHold(20)

spTerminalsNumber = 0

DIm pVideoWindow1
DIm pVideoWindow2

DIM FwdType
FwdType = 0

</script>


<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">

'Simplest error processing
Sub CheckError(strMsg)
if not Err.number = 0 Then
	MsgBox strMsg & ":" & Err.number & ";"&Err.description
	sbNeedToExit = True
	Err.Clear
End If

End Sub
	
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
' Enumerate addresses, register for incoming calls and fill listbox 
Sub window_onload
On Error Resume Next

' If TAPI object is not initialized, we can't do anything, so exit.
If sUnableToComplete = True Then
  Exit Sub
End If  

radioFType.value = ""

'Listen on ALL available addresses
DIM intTmp
intTmp = Find_Address_And_Register()

If sbNeedToExit Then
 Exit Sub
End If 

If intTmp = 0  Then
  MsgBox "Unable to find any valid address. Try to reload page.",0,"Initializing"
  Exit Sub
End If
  
' Select first address option
selAddress.options(0).selected = True
   
call changeOptionsState()

Call PopulateFwdRules
window.status = "Done."

End Sub

'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
' Find all addresses that have state "in service" and have at least audio capabilities.
'  Register the app as "owner" on all these addresses 
' Return number of addresses for which we registered...
Function Find_Address_And_Register()
On Error Resume Next
 DIM bUsefulAddress
 DIM bSupportVideoOrAudio
 DIM bSupportVideo
 
 Find_Address_And_Register = 0
 For Each  pITAddress in TAPIOBJ.Addresses
 
  	 bUsefulAddress = False

  	 if  pITAddress.State = AS_INSERVICE Then
  	    'Check if this address supports Audio or Video  	    
	    'Obtain ITMediaSupport
        DIM pITMediaSupport

        Set pITMediaSupport = MAPPER.QueryDispatchInterface(_
           IID_String_ITMediaSupport,pITAddress)

        'If this address does not support streaming 
		'(such as the addresses exposed by RemoteSP, data modems, etc,) 
		'skip it
        if not  Err.number = 0 Then
           Err.Clear
        Else  
        
          'Check if	audio or video are supported
        
          bSupportVideo = pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_VIDEO)

          bSupportVideoOrAudio = _
    	     pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_AUDIO)	or  bSupportVideo
	                         	
          call CheckError("Find_Address_And_Register:ITMediaSupport.QueryMediaType"	)

           bUsefulAddress = bSupportVideoOrAudio     
        End If
    End If
   
   if bUsefulAddress and pITAddress.AddressName="H323 Line" Then             	      
	   ' This address should be used:
	   ' register the application to receive notifications on this address
		iQtaRegistered =	iQtaRegistered + 1

		Set spITAddress = pITAddress		

		if  bSupportVideo Then		
		  modes = S_MEDIA_AUDIOVIDEO
		Else
		  modes = TAPIMEDIAMODE_AUDIO
		End If
		    
		'Register as Owner of any incoming call    
		pRegisteredCallNotification(iQtaRegistered) = TAPIOBJ.RegisterCallNotifications(pITAddress,True,True,modes,0)
		pRegisteredName(iQtaRegistered) = pITAddress.AddressName	 
		
		if not Err.number = 0 Then 'Probably this address does not support incoming calls
			 iQtaRegistered	= iQtaRegistered - 1
			 Err.Clear
		Else
		     Find_Address_And_Register = Find_Address_And_Register + 1	 
		End If	 

        
        'Fill address list
        DIM oOption
	    Set	oOption	= document.createElement("OPTION") 
		oOption.text	 = pITAddress.AddressName
		oOption.value = pITAddress.AddressName
		selAddress.add(oOption)
		 
		Set oOption = Nothing		 
    End IF
 Next


'This section shows how to override Application Priority:
'after the execution of the following lines, our app will always receive incoming calls
'even if there are other running tapi apps that had registered for receiving calls before our app.

call TAPIOBJ.SetApplicationPriority("IEXPLORE.EXE",TAPIMEDIAMODE_AUDIO,TRUE)
call TAPIOBJ.SetApplicationPriority("IEXPLORE.EXE",TAPIMEDIAMODE_VIDEO,TRUE)
 
End Function


'******************************************************************
'******************************************************************
'******************************************************************
'fired when user changes selected outgoing address radio button
Sub changeOptionsState
On Error Resume Next

'Find address selected
Selstr = ""

bSupportVideo = false
For i = 0 to selAddress.length - 1  
   If selAddress.options(i).selected = True Then 
     selstr = selAddress.options(i).value 
     Exit For
   End If    
Next

'Find this address and check if video is supported
For Each  pITAddress in TAPIOBJ.Addresses

  if   pITAddress.AddressName =SelStr Then
   'Obtain ITMediaSupport
   DIM pITMediaSupport
   
   Set pITMediaSupport = MAPPER.QueryDispatchInterface(_
   IID_String_ITMediaSupport,pITAddress)

   call CheckError("changeOptionsState:Query ITAddress for ITMediaSupport" )
 
  'Check if video is supported
   bSupportVideo = _
    pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_VIDEO)
    
   call CheckError("changeOptionsState:ITMediaSupport.QueryMediaType" )
   Set pITMediaSupport = Nothing
  
   Exit For
  End If
 Next
call CheckError("changeOptionsState:After enumerating the Addresses")
checkAOnly.disabled = not bSupportVideo
checkNoOutgoingVideo.disabled = not bSupportVideo

End Sub


'******************************************************************
'******************************************************************
'******************************************************************
' Check parameters of a call before connecting it
Sub PressConnect
On Error Resume Next
DIM iAddressType
DIM pConnectTo
DIM addressFrom
DIM selStr

' Find new entry in call array
DIM CallNumber
CallNumber = 0
For i = 1 to MaxCallNumber 
	if IsEmpty(spITCall(i)) Then
		CallNumber = i
	    Exit For
	End If
Next 

If CallNumber = 0 Then
  MsgBox "Maximum number of calls reached. Disconnect call first",0,"connect"
  Exit Sub
End If

 
If txtAddress.value = "" Then
    MsgBox "You have not entered a destination address",0,"connect"
    Exit Sub        
End If

'Check if type is supplied
if sCurrentAddressType < 0 Then
   MsgBox "You have not selected addres type",0,"connect"
   Exit Sub
End If

  ' Address type. This app uses only type = 1 ("Phone") and type = 16 ("ip address")
  iAddressType =  CInt(sCurrentAddressType)

  pConnectTo =  txtAddress.value
  
  'Find selected originating address 
  For i = 0 to selAddress.length - 1  
     If selAddress.options(i).selected = True Then 
       addressFrom = selAddress.options(i).value 
       Exit For
     End If    
  Next
  
  If addressFrom = "" Then
    MsgBox "Originating Address is not selected or doesn't exist at all: uable to connect",0,"COnnect"
    Exit Sub
  End If   

 Call Connect(CallNumber, pConnectTo,iAddressType,addressFrom,checkAOnly.value="on" or checkAOnly.disabled,checkNoOutgoingVideo.value="on" or checkNoOutgoingVideo.disabled)
 
End Sub

'******************************************************************
'******************************************************************
'******************************************************************
' Create Call object, setup terminals, connect call
Sub Connect(CallNumber, pConnectTo,iAddressType,addressFrom,blnAOnly,blnNoOutVideo)
On Error resume Next

sUnableToComplete = False

window.status = "Connecting to " & pConnectTo & "..."


'Create new internal call representation 

'Find address selected
DIM pITAddress_Connect
DIM blnFoundAddress
blnFoundAddress = False 
DIM pITAddress
 
 For Each  pITAddress in TAPIOBJ.Addresses 
    if pITAddress.AddressName = addressFrom Then
     'Obtain ITMediaSupport
     DIM pITMediaSupport
     Set pITMediaSupport = MAPPER.QueryDispatchInterface(_
        IID_String_ITMediaSupport,pITAddress)

     call CheckError("connect:Query ITAddress for ITMediaSupport" )
 
     'Check what is supported
     bSupportVideo = _
      pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_VIDEO)
    
     call CheckError("connect:ITMediaSupport.QueryMediaType" )
     blnFoundAddress = True
     Set pITAddress_Connect = pITAddress
     Exit For
  End If    
 Next

 Set pITAddress = Nothing

 if not blnFoundAddress Then
   MsgBox "Sorry, outgoing address " & addressFrom & "does not exist",0,"Connect"
   window.status = "Call to "& pConnectTo & " failed."
   Exit Sub
 End If    

 Call UnselectTerminals
 
 Call CheckError("Connect: before CreateCallWindow")    
  Call CreateCallWindow(pITAddress_Connect,blnAOnly or not bSupportVideo,blnNoOutVideo or not bSupportVideo)
  Call CheckError("Connect: after CreateCallWindow")    
 
 'Obtain Terminal support
  DIM pITTerminalSupport
  
  'Set pITTerminalSupport = MAPPER.QueryDispatchInterface(_
  'IID_String_ITTerminalSupport,pITAddress_Connect)
  Set pITTerminalSupport =  pITAddress_Connect
  call CheckError("connect:Query ITAddress for ITTerminalSuport" )
   
 'Create a Call
 DIM MediaTypes
  
 If not bSupportVideo or  blnAOnly Then
   MediaTypes = TAPIMEDIAMODE_AUDIO
 Else  
   MediaTypes = S_MEDIA_AUDIOVIDEO
 End If

 Set pCall = pITAddress_Connect.CreateCall(pConnectTo,iAddressType,MediaTypes)
 
 call CheckError("connect:CreateCall" )
 
 
 window.status = "Configure terminals..."
 Call AssignTerminals(CallNumber,pCall,blnAOnly,blnNoOutVideo,True, False)    
 call CheckError("connect:after AssignTerminals" )
 
 if sUnableToComplete Then
   Call DisconnectCall(CallNumber,1)
   window.status = "Call to "& pConnectTo & " failed."
   Exit Sub
 End If

DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _ 
    IID_String_ITCallInfo, pCall)

 call CheckError("connect:get CalllInfo from Call" )
  
 'XXXX-XX  
 pITCallInfo.CallInfoString(CIS_CALLINGPARTYID) = CallerName

 call CheckError("connect:Set caller name" )


 window.status = "Connecting..."


 Call pCall.Connect(false)
 
 ' Check for error "invalid address" (see in tapi3err.h TAPI_E_INVALADDRESS=(HRESULT)0x8004000C)
 if Err.Number = &H8004000C Then
  Err.Clear
  Call DisconnectCall(CallNumber,1)
  window.status = "Call to "& pConnectTo & " failed: Address is invalid"
  Set pCall = Nothing

Else
  if not Err.Number = 0 Then 
    Err.Clear
    Call DisconnectCall(CallNumber,1)
    window.status = "Call to "& pConnectTo & " failed: error " & Hex(Err.number)
    Set pCall = Nothing
  Else
	Set spITCall(CallNumber) = pCall
	spCallState(CallNumber) = "Connecting..."
	spCallerCallee(CallNumber) = "To " & pConnectTo
	spDtmfDetected(CallNumber) = ""

	Call RefreshCallTable

    
  End if
   
End If
 
call CheckError("connect:main connect" )

Set pCall = Nothing

End Sub
'
'
' Refreshing Call Table
'
'
Sub RefreshCallTable
On error Resume Next
' Delete all entries

    For i = 0 to selectCalls.options.length
      selectCalls.remove(0)
    Next    

    For i = 1 to MaxCallNumber

		if Not IsEmpty(spITCall(i)) Then
		    if Not spCallerCallee(i) = "" Then 
				CallString = spCallerCallee(i) & "   " & spCallState(i)
			
				if spCallOnHold(i) Then
					CallString = CallString & "(On Hold)"
				End If

				if  spTerminalState(i) Then
					CallString = "==>" & CallString
				End IF

				if Not spDtmfDetected(i) = "" Then
					CallString = CallString & " DTMF:" & spDtmfDetected(i)
				End If
				Set  oOption = document.createElement("OPTION") 
				oOption.text  = CallString
				oOption.value = i
				selectCalls.add(oOption)  
			End If
		End if

    Next

End Sub


'*
'* Unselect terminals from the call which has them
'*
'*  
Sub UnselectTerminals
On Error Resume Next
'Find call which have terminals selected
ActiveCall = 0

For i = 1 to MaxCallNumber
	if spTerminalState(i) = TRUE Then
		ActiveCall = i
		Exit For
	End If
Next

if ActiveCall = 0 Then
	Exit Sub
End If 

 DIM pITStreamControl
  'Set pITStreamControl = MAPPER.QueryDispatchInterface(_
  'IID_String_ITStreamControl, spITCall(ActiveCall))
  
  Set pITStreamControl = spITCall(ActiveCall)
  if Not Err.Number = 0 Then
     Err.Clear
     Exit Sub
   End If
  
 
 DIM pITStream
 DIM lMediaType
 DIM lDirection
 DIM pITTerminal

Set pVideoWindow1 = Nothing
Set pVideoWindow2 = Nothing
spTerminalsNumber = 0

spTerminalState(ActiveCall) = FALSE
 
 'Unselect all audio terms...     
 For Each pITStream in pITStreamControl.Streams
    pITStream.StopStream
    If Not Err.Number = 0  Then ' most likely call is already closed 
	Err.Clear
	Exit Sub
    End If 

     For Each pITTerminal in pITStream.Terminals
       pITStream.UnselectTerminal(pITTerminal)
           If Not Err.Number = 0  Then ' most likely call is already closed 
		Err.Clear
	   End If
     Next
     Set pITTerminal = Nothing
     
 Next


End Sub
 
'******************************************************************
'******************************************************************
'******************************************************************
' For static terminals: get default static terminal, select it on stream and start the stream
Sub AssignTerminals(CallNumber,pCall, is_no_video, is_no_render,bSetQOS, StartStreams)
On Error Resume Next

' Terminals may already selected somewhere
'Find call which have terminals selected
ActiveCall = 0
For i = 1 to MaxCallNumber
	if spTerminalState(i) = TRUE Then
		ActiveCall = i
		Exit For
	End If
Next

if Not ActiveCall = 0 Then
	'Exit Sub
End If 

DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _ 
    IID_String_ITCallInfo, pCall)

    
Call CheckError("AssignTerminals:query for pITCallInfo")

DIM pITAddress
Set pITAddress = pITCallInfo.Address

Call CheckError("AssignTerminals:pITCallInfo.Address")

DIM pITTerminalSupport
  
'Set pITTerminalSupport = MAPPER.QueryDispatchInterface(_
'  IID_String_ITTerminalSupport,pITAddress)
Set pITTerminalSupport =  pITAddress
Call CheckError("AssignTerminals:query for pITTerminalSupport")


 DIM pITStreamControl
  'Set pITStreamControl = MAPPER.QueryDispatchInterface(_
  'IID_String_ITStreamControl,pCall)
  Set pITStreamControl =  pCall
  call CheckError("AssignTerminals:Query ITCall for ITStreamControl" ) 
 
 DIM pITStream
 DIM lMediaType
 DIM lDirection
 
 'Setup all static terminals: video capture,
 ' and both audio terminals (microphone and speakers)
      
 For Each pITStream in pITStreamControl.Streams
   lMediaType = pITStream.MediaType
   lDirection = pITStream.Direction
   'Try to find correspondent terminal (if we need one ;))
   
   if not ((is_no_video and lMediaType = TAPIMEDIAMODE_VIDEO) or _
           (is_no_render  and lMediaType = TAPIMEDIAMODE_VIDEO and lDirection=TD_CAPTURE) ) Then
     
     if (lMediaType = TAPIMEDIAMODE_VIDEO) and (lDirection=TD_RENDER) Then
      is_error = false
     Else
     
      Set pITTerminal = pITTerminalSupport.GetDefaultStaticTerminal(lMediaType,lDirection)
 
      if not (Err.number = 0) Then 'No such terminal? 
        is_error = True
        Err.Clear
      Else
        is_error =  False 
        pITStream.SelectTerminal(pITTerminal)
      End if
       
      call CheckError("AssignTerminals:SelectTerminal" )
     End If
     
        
   if  is_error Then 'Maybe unnecessary
   ' Maybe join audio only - special case
      if  (lMediaType =  TAPIMEDIAMODE_VIDEO and lDirection=TD_CAPTURE) Then
        'MsgBox "Unable to find video capture device: attach video receive only"
      Else
        if   (lMediaType =  TAPIMEDIAMODE_AUDIO and lDirection=TD_CAPTURE) Then
          'MsgBox "Unable to find audio recording device: attach audio receive only"
        Else
          MsgBox "Unable to find audio playback device."
          Err.Clear
          sUnableToComplete = True
          Exit Sub
        End If
      End if
    
   Else 'No errors, start this stream!
     

    'call CheckError("AssignTerminals:StartStream" )
    'And now setup specific devices: video windows...
    
    if (lMediaType = TAPIMEDIAMODE_VIDEO ) Then 
	'for Video Capture we will create a "Preview Window"terminal
	'for Video Render we will create a "Video Window" Terminal

	      if lDirection = 0 Then	'see TD_CAPTURE = 0 in tapi3if.idl

            'Preview window
  	       pITStream.SelectTerminal(pVideoWindow2)
			call CheckError("AssignTerminals: SelectTerminalStream")
       	          	   
       	   'Show preview window (this will show the video stream sent by our app to the other party)
       	   Dim pIVideoWindow2
       	   Set pIVideoWindow2 = MAPPER.QueryDispatchInterface(IID_String_IVideoWindow, pVideoWindow2)
       	   call CheckError("AssignTerminals: query for IVideoWindow")
		   pIVideoWindow2.AutoShow = True		
   		  'pIVideoWindow2.Visible = TRUE	       	   
	       	   
       	   call CheckError("AssignTerminals: set visibility")
       	   

          End If
                     
	      if lDirection = 1 Then	'see TD_RENDER = 1 in tapi3if.idl

    	     pITStream.SelectTerminal(pVideoWindow1)
		
	         call CheckError("AssignTerminals: SelectTerminalStream")

       	   'Show window (this will show us the video stream received by our app from the other party)
       	   Dim pIVideoWindow1
       	   Set pIVideoWindow1 = MAPPER.QueryDispatchInterface(IID_String_IVideoWindow, pVideoWindow1)
       	   call CheckError("AssignTerminals: query for IVideoWindow")
		   pIVideoWindow1.AutoShow = True		
		   'pIVideoWindow1.Visible = TRUE	       	   
       	   call CheckError("AssignTerminals: set visibility")
            
           
          End If

	      call CheckError("AssignTerminals: SelectTerminalStream")
	      	      
    End If 'Create Preview  
   End if 'have error      

 End if 'our Stream
   
  call CheckError("AssignTerminals:GeneralChecking1" )

    if StartStreams Then
	Call pITStream.StartStream	
        Err.Clear
    End If

   
 Next  ' End cycle for ITStreams
  

spTerminalState(CallNumber) = TRUE

   
 call CheckError("AssignTerminals:Streams cycle problems" )
   
 
if bSetQOS Then 
'Let's try to setup QoS level for video and audio
if not is_no_video Then
  call pCall.SetQOS(TAPIMEDIAMODE_VIDEO,QSL_NEEDED)
  call CheckError("AssignTerminals:set QOS_REQUIRED for Video" )
End If
  
call pCall.SetQOS(TAPIMEDIAMODE_AUDIO,QSL_NEEDED)
call CheckError("AssignTerminals:set QOS_REQUIRED for Audio" )
End IF

End Sub


'******************************************************************
'******************************************************************
'******************************************************************
' Create two new Video Window terminals
Sub CreateCallWindow(pITAddress, AOnly,NoOutgoingVideo)
On Error Resume Next

 'Obtain Terminal support
  DIM pITTerminalSupport
  
  'Set pITTerminalSupport = MAPPER.QueryDispatchInterface(_
  'IID_String_ITTerminalSupport,pITAddress)
Set pITTerminalSupport =  pITAddress
  call CheckError("CreateCallWindow:Query ITAddress for ITTerminalSuport" )
 
   if not AOnly Then 'create window for your party

      Set pVideoWindow1 = pITTerminalSupport.CreateTerminal(CLSID_String_VideoWindowTerm,TAPIMEDIAMODE_VIDEO,TD_RENDER)
   End If
   
   if not AOnly and not NoOutgoingVideo Then
   
      Set pVideoWindow2 = pITTerminalSupport.CreateTerminal(CLSID_String_VideoWindowTerm,TAPIMEDIAMODE_VIDEO,TD_RENDER)
   End If 'Create window for preview
   
  call CheckError("CreateCallWindow:GeneralChecking1" )

End Sub
                    
'******************************************************************
'******************************************************************
'******************************************************************
' Tapi events processing: 
' - call state events ("connected", "disconnected") 
' - and call notification events (these calls will be in "offering" state)
Sub TAPIOBJ_Event(event_type, tapi_event)
On Error Resume Next  
DIM pITCallInfo
DIM pITCall

'MsgBox CStr(event_type)

if event_type = 2 Then
 Call PopulateFwdRules
End if

'Check For disconnected call
if event_type = TE_CALLSTATE Then

  DIM pITCallStateEvent
  
  Set pITCallStateEvent = MAPPER.QueryDispatchInterface(_
  IID_String_ITCallStateEvent,tapi_event)

  call CheckError("TAPIOBJ_Event:unable to map" )

  iCallState = pITCallStateEvent.State 
  'MsgBox "Call state" &Cstr(iCallState)
  call CheckError("TAPIOBJ_Event:get CallState" )

  Set pITCallInfo = pITCallStateEvent.Call
  call CheckError("TAPIOBJ_Event:get CallInfo" )

  Set pITCall = MAPPER.QueryDispatchInterface( _ 
        IID_String_ITBasicCallControl, pITCallInfo)
  call CheckError("TAPIOBJ_Event:get Call from CallInfo" )

  if iCallState= CS_DISCONNECTED or iCallState= CS_IDLE Then


   cause = pITCallStateEvent.Cause

   strinnerHTML = ""
   Select Case cause
     Case 1 '  CEC_DISCONNECT_NORMAL
		' Normal disconnect
     Case 2 '  CEC_DISCONNECT_BUSY
       strinnerHTML =  "Your Party is busy.Try Later."
     Case 3 '  CEC_DISCONNECT_BADADDRESS
       strinnerHTML =  "Address is invalid"
     case 4 '  CEC_DISCONNECT_NOANSWER
       strinnerHTML =  "No answer from your party."
     case 0 'CEC_NONE
       strinnerHTML =  "No answer from your party."
     Case Else
       strinnerHTML =  "Your call is cancelled, rejected or failed"       
   End Select
   
   window.status = "Done."
   
   'Find call entry
    ActiveCall = 0
    For i = 1 to MaxCallNumber
		if spITCall(i) Is pITCall Then
			ActiveCall = i 
			Exit For
		End If
	Next

	if ActiveCall = 0 Then
	 'Bogus call : no such call
	 Exit Sub
	End If 	
    
    if strinnerHTML= "" Then 
       window.status =  "Disconnected"    
    Else
       window.status = strinnerHTML   
    End if   

	spCallState(ActiveCall) = window.status
	Call UnselectTerminals
	
	Call RefreshCallTable	
  
                 
  End If  'Call is disconnected
  
  if iCallState = CS_CONNECTED Then 'Call is connected
   window.status =  "Call is connected."

   'Find call entry
    ActiveCall = 0
    For i = 1 to MaxCallNumber
		if spITCall(i) Is pITCall Then
			ActiveCall = i 
			Exit For
		End If
	Next

	if ActiveCall = 0 Then
	 'Bogus call : no such call
	 Exit Sub
	End If 	
    
	
	spCallState(ActiveCall) = "Connected"
	
	Call RefreshCallTable	
   

	 ' Set digit detection

	 spITCall(ActiveCall).DetectDigits LINEDIGITMODE_DTMF

	 call CheckError("connect:Detect digits" )

  End If 'Call is connected
End If ' event: call state


'Check only for incoming calls
if event_type = TE_CALLNOTIFICATION Then ' We have an incoming call (an "offering" call)

  DIM pITCallNotificationEvent
  Set pITCallNotificationEvent = MAPPER.QueryDispatchInterface(_
  IID_String_ITCallNotificationEvent,tapi_event)

  Call CheckError("TAPIOBJ_Event:query for pITDirectoryObjectUser")   
      
  CallOwnership = pITCallNotificationEvent.Event

  
  Set pITCallInfo = pITCallNotificationEvent.Call
  
  Call CheckError("TAPIOBJ_Event:get pITCallInfo")   

  if not blnShowOnlyOnce and  pITCallInfo.CallState  = CS_OFFERING and not ( CallOwnership = CNE_OWNER) Then
    MsgBox "Unable to accept incoming calls: is other instance of this app running?",0,"Info"
     blnShowOnlyOnce  = True
    Exit Sub
  End IF
    
  if CallOwnership = CNE_OWNER Then  'We are the owner!
 
	'Create new call entry

  ' Find new entry in call array
	DIM CallNumber
	CallNumber = 0
	For i = 1 to MaxCallNumber 
		if IsEmpty(spITCall(i)) Then
			CallNumber = i
			Exit For
		End If
	Next 

	If CallNumber = 0 Then
		MsgBox "Maximum number of calls reached. Disconnect call first",0,"connect"
		Exit Sub
	End If
      
    if  pITCallInfo.CallState  = CS_OFFERING Then 'Offering
  
      sCalleeName = pITCallInfo.CallInfoString(CIS_CALLERIDNAME)
        
    
      if not Err.number = 0 then ' Caller ID name is not supported 
        sCalleeName =  "Unknown"
        Err.Clear
      End if

      sCallerNumber = pITCallInfo.CallInfoString(CIS_CALLERIDNUMBER)

      if not Err.number = 0 then ' Caller ID number is not supported 
        sCallerNumber =  ""
        Err.Clear
      Else
	sCallerNumber = " {" &  sCallerNumber & "}"
      End If

      sCalleeName = sCalleeName & sCallerNumber
 
      sRName2 = pITCallInfo.CallInfoString(CIS_REDIRECTINGIDNAME)

      if not Err.number = 0 then 
	sRName2 = ""
        Err.Clear
      End If

      sRNumber = pITCallInfo.CallInfoString(CIS_REDIRECTINGIDNUMBER)

      if not Err.number = 0 then ' Caller ID number is not supported 
        sRNumber =  ""
        Err.Clear
      Else
	sRNumber = " {" &  sRNumber & "}"
      End If
     
      sRName2 = sRName2 & sRNumber

	
      if not sRName2 = "" Then 
	 ' Trying to get forwarding reason
	  dueTo = ""
	  reason = pITCallInfo.CallInfoLong( CIL_REASON)
	  if not Err.number = 0 then ' non che
	    Err.Clear
	  Else
		'tapi.h:#define LINECALLREASON_FWDBUSY                  0x00000002
		'tapi.h:#define LINECALLREASON_FWDNOANSWER              0x00000004
		'tapi.h:#define LINECALLREASON_FWDUNCOND                0x00000008
	     if reason = 2 Then
		dueTo = " since original caller was busy"
	     Else
	  	   if reason = 4 Then
			dueTo = " since original caller does not answer"
		   End If
              End If
	  End if 

	  sRName2 = " ( Forwarded from " & sRName2 & dueTo &" )" 

      End if

              
      DIM pITCallOffer
      Set pITCallOffer = MAPPER.QueryDispatchInterface( _ 
        IID_String_ITBasicCallControl, pITCallInfo)

      Call CheckError("TAPIOBJ_Event:query for pITCall")   
      

	  Set spITCall(CallNumber) = pITCallOffer
	  spCallState(CallNumber) = "Offering..."
	  spCallerCallee(CallNumber) = "Incoming " & sCalleeName &" " &  sRName2
	  spTerminalState(CallNumber) = FALSE
	  spDtmfDetected(CallNumber) = ""

	  Call RefreshCallTable
      
      if AutoAnswer.value ="on" Then
        Call AcceptIncomingCall(CallNumber,pITCallOffer, pITCallInfo)
      End If  
    End If 'Call is offering
   End If 'We are owner   
  
End If 'Call Notification has arrived  

'DTMF detection
if event_type = TE_DIGITEVENT Then

  DIM pITDigitDetectionEvent
  Set pITDigitDetectionEvent = MAPPER.QueryDispatchInterface(_
  IID_String_ITDigitDetectionEvent,tapi_event)

  Call CheckError("TAPIOBJ_Event:query for pITDigitDetectionEvent")   

  digit = pITDigitDetectionEvent.Digit
 
  Set  pITCallInfo = pITDigitDetectionEvent.Call
  call CheckError("TAPIOBJ_Event:get CallInfo" )

  Set pITCall = MAPPER.QueryDispatchInterface( _ 
        IID_String_ITBasicCallControl, pITCallInfo)
  call CheckError("TAPIOBJ_Event:get Call from CallInfo" )

   'Find call entry
    ActiveCall = 0
    For i = 1 to MaxCallNumber
		if spITCall(i) Is pITCall Then
			ActiveCall = i 
			Exit For
		End If
	Next

	if ActiveCall = 0 Then
	 'Bogus call : no such call
	 Exit Sub
	End If 	
    
	spDtmfDetected(ActiveCall) = spDtmfDetected(ActiveCall) & Chr(digit)
	
	Call RefreshCallTable	

End if


End Sub 
'*
'*
'*
'*
Sub AnswerCall

On Error Resume Next
if check_call() Then
    ActiveCall = selectCalls.value

	DIM pITCallInfo
	Set pITCallInfo = MAPPER.QueryDispatchInterface( _ 
		IID_String_ITCallInfo,spITCall(ActiveCall))
	
	Call CheckError("Get CallInfo from Call in AnswerCall")

    Call AcceptIncomingCall(ActiveCall,spITCall(ActiveCall), pITCallInfo)


    Call RefreshCallTable
End If

End Sub

'******************************************************************
'******************************************************************
'******************************************************************
' Sub for incoming calls processing
Sub AcceptIncomingCall(CallNumber,pITCallIncoming,pITCallInfoIncoming)
On Error Resume Next
 'Get address 
 
 sUnableToComplete = False
 DIM pITAddress
 Set pITAddress = pITCallInfoIncoming.Address
 Call CheckError("AcceptIncomingCall:pITCallInfo.Address")


 sname1 = pITCallInfoIncoming.CallerIDName
 if not Err.number = 0 Then
   sname1 = "Unknown"
   Err.Clear
 End If
   
  
Call CheckError("AcceptIncomingCall:sFriendltName")

Call UnselectTerminals


'sAddressName = pITAddress.AddressName
Call CheckError("AcceptIncomingCall:AddressName")

Call CreateCallWindow(pITAddress,False,False)

Call CheckError("AcceptIncomingCall: after CreateCallWindow")   
  
 
 window.status = "Configure terminals."

 Call AssignTerminals(CallNumber,pITCallIncoming,False,False,False, False)    
 call CheckError("AcceptIncomingCall:after AssignTerminals" )

 if sUnableToComplete or sbNeedToExit Then
   window.status = ""
   pITCallIncoming.Disconnect 6   'rejected
   Exit Sub
 End If

 window.status = "Answering..."

 Call pITCallIncoming.Answer()
 window.status = "Connected."
 
 call CheckError("AcceptIncomingCall:main connect" )
 
 
 window.status = "Done."
 End Sub

'******************************************************************
'******************************************************************
'******************************************************************
' Disconnect current call
Sub DisconnectCall(CallNumber,callDisc)
On Error resume Next

if not IsEmpty(spITCall(CallNumber)) Then

if not callDisc = 8 and not callDisc = 0 Then 
  ' We need some kind of message pump here. The following call to MsgBox does exactly this:
  MsgBox "A call is disconnected",0,"Disconnect"  
End If  

Set pVideoWindow1 = Nothing
Set pVideoWindow2 = Nothing

window.status =  "You are disconnected"  
 
if callDisc=0  Then
  spITCall(CallNumber).Disconnect(DC_NORMAL)
End If
  spITCallTransferred(ActiveCall) = Empty

End If
Call RefreshCallTable
End Sub

'******************************************************************
'******************************************************************
'******************************************************************
' Disconnect call if we have one and shutdown TAPI object on exit from page
Sub window_onunload
On Error Resume Next

Call DisconnectCall(0)
 
TAPIOBJ.Shutdown
End Sub 


'******************************************************************
'******************************************************************
'******************************************************************
' Used by radio button: address type
Sub change_type
 sCurrentAddressType = CInt(window.event.srcElement.value )
End Sub 


'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'small function to change value of checkboxes in a more appropriate
' manner.
Sub  togglechk()
'Toggle state of checkbox
 If (window.event.srcElement.value = "off") Then 
   window.event.srcElement.value ="on"
 Else
   window.event.srcElement.value ="off"
 End IF  
End Sub

'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
Sub PressCreateRule
	buttFCreate.disabled = True
	editDestination.value = ""
	editCaller.value = ""	
	FwdInfo.style.visibility = "visible"
End Sub

'******************************************************************
'******************************************************************
'******************************************************************
' Used by radio button: forward type
Sub changeF_type
On Error resume Next
 FwdType = CInt(window.event.srcElement.value )
End Sub 

'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
Sub FRuleCancel
On Error resume Next
	buttFCreate.disabled = False
	FwdInfo.style.visibility = "hidden"
End Sub
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 

Sub FRuleCreate
On Error resume Next

if FwdType = 0 Then
	MsgBox "Forwarding type is not selected"
	Exit Sub
End if

'Find address selected
DIM pITAddress_Connect

Set pITAddress_Connect = spITAddress

 call CheckError("Before create" )

 Set pCall = pITAddress_Connect.CreateCall("",1,S_MEDIA_AUDIOVIDEO)

 call CheckError("CreateCall" )


 Set pForwarding = pITAddress_Connect.CreateForwardInfoObject

 call CheckError("CreateForwardInfoObject" )

 pForwarding.NumRingsNoAnswer = 2

 call CheckError("NumRingsNoAnswer" )

 if editCaller.value = "" Then
	if FwdType = 1 Then
 		FwdT = 1
	elseif FwdType = 2 Then
 		FwdT = 16
	elseif FwdType = 3 Then
 		FwdT = 256
        else
 		FwdT = 4096
        end if 
       
 else
	if FwdType = 1 Then
 		FwdT = 8
	elseif FwdType = 2 Then
 		FwdT = 128
	elseif FwdType = 3 Then
 		FwdT = 2048
        else
 		FwdT = 32768
        end if 
 end if

 pForwarding.SetForwardType  FwdT, editDestination.value, editCaller.value

 call CheckError("An error occured while preparing forward information" )


 pITAddress_Connect.Forward pForwarding, pCall

 
 call CheckError("An error occured while setting forward information" )

Call FRuleCancel

Call PopulateFwdRules

End Sub
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
'******************************************************************** 
Sub PopulateFwdRules
On Error resume Next
  ' clear select
     'Remove all from list
    'For i = 0 to selectRules.options.length
    '  selectRules.remove(0)
    'Next    

    'get forward info
    Set CurrentFwd = spITAddress.CurrentForwardInfo
    call CheckError("CurrentForwardInfo" )

    'now lets find all about it...
    
	FwdT = 1

    fRule.innerHTML = ""

    For i = 1 to 18
	s1 =""
	s2 =""
	s2 = CurrentFwd.ForwardTypeCaller(FwdT)
        call CheckError("GetForwardType" )
	s1 = CurrentFwd.ForwardTypeDestination(FwdT)
        call CheckError("GetForwardType1" )
	if Not (s1 ="") Then
		

	if FwdT = 1 or FwdT = 8 Then
 		s4 = "always"
	elseif FwdT = 16 or FwdT = 128 Then
 		s4 = "when we are busy"
	elseif FwdT = 256 or FwdT = 2048 Then
 		s4 = "on no answer"
        else
 		s4 = "on no answer or busy"
        end if 
       
		if Not (Asc(s1) = 63)  Then
			s5 = "from "& s1 & " "
		else
			s5 = " "
		end if
 
		s3 = "Forward calls "& s5 & s4 & " to "& s2 	
	
		'Set  oOption = document.createElement("OPTION") 
		'oOption.text  = s3
		'oOption.value = s3
		'selectRules.add(oOption)  
		fRule.innerHTML = fRule.innerHTML & s3 & "<BR>"
	End if

	FwdT = FwdT * 2
    Next

    if fRule.innerHTML = ""  Then
	fRule.innerHTML = "No rules are active"
    End if
End Sub


'
''
''
''
'
'********************************************************************
Function check_call
On Error Resume Next
check_call = True
if selectCalls.value = "" or IsEmpty(selectCalls.value) Then
  MsgBox "You need to select call first",0,"Operations"
  check_call= False
End if
End Function  
'
''
''
''
Sub DeleteCall
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value
  Set spITCall(ActiveCall) = Nothing 
  spITCall(ActiveCall) = Empty
  spCallerCallee(ActiveCall) = ""
  Call RefreshCallTable
End If

End Sub
'
'
'
'
'
Sub DisconnectThisCall
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value
  Call DisconnectCall(ActiveCall, 0)
  Call RefreshCallTable
End If

End Sub

'
'
'
'
'
Sub HoldCall
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value

  if ISEmpty(spCallOnHold(ActiveCall)) Or spCallOnHold(ActiveCall) = FALSE Then
	spCallOnHold(ActiveCall) = TRUE
  Else
	spCallOnHold(ActiveCall) = FALSE
  End If

  spITCall(ActiveCall).Hold(spCallOnHold(ActiveCall))
  
  Call CheckError("HoldCall: ITBAsicCallControl.Hold")
    
  Call RefreshCallTable
End If

End Sub


'
'
'
'
'
Sub BlindTransferCall
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value
  sDestinationAddress= InputBox("Enter destination for call transfer", "Blind Transfer")

  spITCall(ActiveCall).BlindTransfer(sDestinationAddress)
  spCallerCallee(ActiveCall) = spCallerCallee(ActiveCall) & "(BTRNSF:"&sDestinationAddress& ")"

  CheckError("Call BlindTransfer")
End If
End Sub

'
'
'
'
'
Sub RedirectCall
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value
  sDestinationAddress= InputBox("Enter new destination for call", "Call Redirection")

  spITCall(ActiveCall).BlindTransfer(sDestinationAddress)
  spCallerCallee(ActiveCall) = spCallerCallee(ActiveCall) & "(Blind TRSFR:"&sDestinationAddress& ")"
  CheckError("Call BlindTransfer")
End If
End Sub

'
'
'
'
'
'
Sub SelectTerminals
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value
  Call UnselectTerminals
  
    DIM pITCallInfo
    Set pITCallInfo = MAPPER.QueryDispatchInterface( _ 
     IID_String_ITCallInfo, spITCall(ActiveCall))

  Set pITAddress  = pITCallInfo.Address
  call CheckError("connect:get CalllInfo from Call" )
  Call CreateCallWindow(pITAddress,False,False)

  Call CheckError("SelectTerminals: after CreateCallWindow")   
     
  Call AssignTerminals(ActiveCall,spITCall(ActiveCall),False,False,False, True)    
  Call RefreshCallTable
End If

End Sub
'
'
'
'
'
Sub TransferCall
'Not yet fully implemented, workaroud for now..
On Error Resume Next
if check_call() Then
  ActiveCall = selectCalls.value
  sDestinationAddress= InputBox("Enter destination for call transfer", "Transfer")

  spCallerCallee(ActiveCall) = spCallerCallee(ActiveCall) & "(TRNSFR:"&sDestinationAddress& ")"

    DIM pITCallInfo
    Set pITCallInfo = MAPPER.QueryDispatchInterface( _ 
     IID_String_ITCallInfo, spITCall(ActiveCall))

   
    Set pITAddress  = pITCallInfo.Address

    Set pCall = pITAddress.CreateCall(sDestinationAddress,16, S_MEDIA_AUDIOVIDEO)
    CheckError("Call Transfer: Create Call")

    Set Call1= spITCall(ActiveCall)

    'Unselect Terminals from previous call
    'if Not spCallOnHold(ActiveCall) Then
    '    Call1.Hold(TRUE)
    '    CheckError("Call Transfer: Hold Call")
    '    spCallOnHold(ActiveCall) = TRUE
    'End If
    Call UnselectTerminals

    'Set spITCallTransferred(ActiveCall) = pCall
  
    'do not make Call UnselectTerminals
  
    ' Find new entry in call array
    DIM CallNumber
    CallNumber = 0
    For i = 1 to MaxCallNumber 
	if IsEmpty(spITCall(i)) Then
		CallNumber = i
	    Exit For
	End If
   Next 

   If CallNumber = 0 Then
     MsgBox "Maximum number of calls reached. Disconnect call first",0,"connect"
     Exit Sub
   End If

   Set spITCall(CallNumber) = pCall
   spCallState(CallNumber) = "Initiating transfer..."
   spCallerCallee(CallNumber) = "To " & pConnectTo
   spDtmfDetected(CallNumber) = ""
   'Select Terminals 
   Call CreateCallWindow(pITAddress,False,False)

   Call CheckError("Call Transfer: after CreateCallWindow")   
  
   window.status = "Configure terminals."

   Call AssignTerminals(CallNumber,pCall,False,False,False,False)    
   call CheckError("Call Transfer:after AssignTerminals" )

   Call1.Transfer pCall , FALSE 

   Call CheckError("CreateTransfer: Transfer")   
End If


Call RefreshCallTable


End Sub

Sub FinishTransferCall
On Error Resume Next

if check_call() Then

  ActiveCall = selectCalls.value
  Set Call1= spITCall(ActiveCall)
  'if IsEmpty(spITCallTransferred(ActiveCall)) Then
'	MsgBox "Wrong call to finish transfer"
'	Exit Sub
 ' End If

  Call1.Finish   0
  Call CheckError("FinishTransferCall: Finish")   
 
  spITCallTransferred(ActiveCall) = Empty

End If  

End Sub


'
'
'
'
DIM sKeypadCall
Sub SendDTMF
if check_call() Then
  ActiveCall = selectCalls.value
  sKeypadCall = ActiveCall
  divKeypad.style.visibility = "visible"
End If
End Sub


Sub CancelDtmf
  divKeypad.style.visibility = "hidden"
End Sub


'******************************************************************
'******************************************************************
'******************************************************************

Sub DoClick
On Error Resume Next
 window.event.cancelBubble = True
 '1. Determine element that is clicked
 Set sCurrentlyClickedButton = window.event.srcElement

 '2. Change background to blue
 sCurrentlyClickedButton.style.background = "blue"
 
 'Send DTMF code
 spITCall(sKeypadCall).GenerateDigits sCurrentlyClickedButton.value,2 'DTMF mode
 Call CheckError("DoClick:pITLegacyCallMediaControl.GenerateDigits")   
 sCurrentlyClickedButton.style.background = "gray"
  
  
End Sub  
  
    
</script>

<div id="AllElementsNonSimple" style="position:absolute;top:5px" >
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 0px;width:400px;background:blue;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Dialing center
</p>

<div id="UserSelectionSection" style="position:absolute;Width:300px">

<p style="HEIGHT: 20px;  background:#000080;POSITION: absolute; TOP: 20px;width:200px;LEFT:20px;FONT-SIZE:16px;COLOR:white;TEXT-ALIGN:center">
Address to call
</p>

<p style="HEIGHT: 20px; POSITION: absolute;  background:#000080;TOP: 75px;width:200px;LEFT:20px;FONT-SIZE:16px;COLOR:white;TEXT-ALIGN:center">
Address type
</p>

<input id="txtAddress" style="HEIGHT: 30px; POSITION: absolute; TOP: 40px;LEFT:20px;FONT-SIZE:16px;COLOR:black;WIdth:200px">

<div id="divRadioGroup" style="BORDER-BOTTOM: black 2px solid; BORDER-LEFT: black 2px solid; BORDER-RIGHT: black 2px solid; BORDER-TOP: black 2px solid; HEIGHT: 80px; LEFT: 20px; POSITION: absolute; TOP: 100px; WIDTH: 200px">
<font style="COLOR: black; FONT-SIZE: 12px;font-style:oblique">


<input id="radioAddressType" name="radioAddressType" onclick="change_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:10px" type="radio" value="16" title="IP Address">

<input id="radioAddressType" name="radioAddressType" onclick="change_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 40px; LEFT:10px" type="radio" value="1" title="Phone Number">

<p style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:40px">
IP Address
</p>

<p style="HEIGHT: 20px; POSITION: absolute; TOP: 40px;LEFT:40px">
Phone Number
</p>
 
</font>
</div>

</div>


<div id="Separator3" style="position:absolute;BORDER-BOTTOM: blue 2px solid; BORDER-LEFT: blue 2px solid; BORDER-RIGHT: blue 2px solid; BORDER-TOP: blue 2px solid; HEIGHT: 305px; LEFT:405px; POSITION: absolute; TOP: 0px; WIDTH: 0px">
</div>

<div id="PropertiesSelectionSection" style="LEFT:0px;ALIGN:CENTER;position:absolute;top:190px;Width:400px">
<p style="HEIGHT: 10px; POSITION: absolute; TOP: 0px;background:#808080;width:100%;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Originating address and call properties
</p>

<p style="HEIGHT: 20px; POSITION: absolute;background:#000080; TOP: 20px;width:200px;LEFT:0px;FONT-SIZE:16px;COLOR:white;TEXT-ALIGN:center">
Address
</p>
<select id="selAddress" name="selAddress" onchange="changeOptionsState()" style="position:absolute;width:200px;Left:0px;FONT-SIZE:16px;COLOR:black;top:40px"> 
</select>
 
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 20px;width:150px;LEFT:200px;FONT-SIZE:16px;COLOR:black;TEXT-ALIGN:center">
Setup audio only
</p>

<p style="HEIGHT: 20px; POSITION: absolute; TOP: 40px;width:150px;LEFT:200px;FONT-SIZE:16px;COLOR:black;TEXT-ALIGN:center">
Setup no video-out
</p>

<input type="checkbox" id="checkAOnly" name="checkAROnly" value="off" onclick="togglechk()" style="HEIGHT:  20px; LEFT: 350px; POSITION: absolute; TOP: 20px; WIDTH: 20px" title="Connect Audio Only">

<input type="checkbox" id="checkNoOutgoingVideo" value="off" onclick="togglechk()" style="HEIGHT:  20px; LEFT: 350px; POSITION: absolute; TOP: 40px; WIDTH: 20px" title="Do not send outgoing video">


</div>

</div>


<INPUT type=button id="buttConnect" style="cursor:hand;LEFt:40px; HEIGHT: 30px; POSITION: absolute; WIDTH: 300px; top:270px"  onclick="PressConnect()" value="Create new call" title="Create new call">	 


<!--p id=ConnANN style="HEIGHT: 20px; POSITION: absolute; TOP: 305px;width:100%;background:blue;LEFT:3px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
</p-->
<hr id=secHr1243 size=1 ALIGN=RIGHT style="color:blue;position:absolute;Top:310px;Left:0px;width:100%">


<div style="HEIGHT: 150px; POSITION: absolute; TOP: 315px;width:100%;LEFT:10px;FONT-SIZE:18px;COLOR:black">
<p style="POSITION: absolute; background:blue; TOP: 10px;width:400px;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Forwarding information
</p>

<P id=FRule style="FONT-SIZE: 16px;color:blue;z-index:10; HEIGHT: 100px; LEFT: 20px; POSITION: absolute; TOP: 35px; WIDTH: 350px;BORDER-BOTTOM: blue 1px solid; BORDER-LEFT: blue 1px solid; BORDER-RIGHT: blue 1px solid; BORDER-TOP: blue 1px solid">
</P> 

<INPUT type=button id="buttFCreate" style="cursor:hand;LEFt:20px; HEIGHT: 30px; POSITION: absolute; WIDTH: 350px; top:140px"  onclick="PressCreateRule()" value="Create New Forward rule" title="Create New Forward rule">	 

<!--INPUT type=button id="buttFClear" style="visibility:hidden;cursor:hand;LEFt:20px; HEIGHT: 30px; POSITION: absolute; WIDTH: 200px; top:100px"  onclick="PressClearForward()" value="Clear Forwarding" title="Clear Forwarding"-->	 

<!--hr id=secHr1 size=1 ALIGN=RIGHT style="color:blue;position:absolute;Top:135px;Left:0px;width:300px"-->

<!--p style="POSITION: absolute; TOP: 140px;width:100%;LEFT:50px;FONT-SIZE:18px;COLOR:black">
Current forward rules
</p-->

<!--SELECT size=2 id=selectRules name=selectRules
style="FONT-SIZE: 12px;z-index:10; HEIGHT: 150px; LEFT: 20px; POSITION: absolute; TOP: 160px; WIDTH: 200px">
</SELECT-->
<!--INPUT type=button style="cursor:hand;LEFt:30px; HEIGHT: 20px; POSITION: absolute; WIDTH: 180px; top:320px"  onclick="PopulateFwdRules()" value="refresh" title="Refresh Rules"-->	 
<hr id=secHr1 size=2 ALIGN=RIGHT style="color:blue;position:absolute;Top:180px;Left:0px;width:405px">

<div id="Separator3" style="position:absolute;BORDER-BOTTOM: blue 2px solid; BORDER-LEFT: blue 2px solid; BORDER-RIGHT: blue 2px solid; BORDER-TOP: blue 2px solid; HEIGHT: 250px; LEFT:405px; POSITION: absolute; TOP: -10px; WIDTH: 0px">
</div>
<p style="POSITION: absolute; background:blue; TOP: 190px;width:400px;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Application features
</p>

<input disabled type="checkbox" id="AutoAnswer" name="AutoAnswer" value="off" onclick="togglechk()" style="HEIGHT:  20px; LEFT: 140px; POSITION: absolute; TOP: 220px; WIDTH: 20px" title="Auto Answer">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 220px;LEFT:20px">
Auto Answer
</p>

<!--p style="POSITION: absolute; TOP: 250px;width:100%;LEFT:50px;FONT-SIZE:18px;COLOR:black">
DTMF digits detected
</p>

<P id=DTMFD style="FONT-SIZE: 16px;color:blue;z-index:10; HEIGHT: 100px; LEFT: 20px; POSITION: absolute; TOP: 280px; WIDTH: 200px">
</P--> 
<div id=TransfInfo style="visibility:hidden;POSITION: absolute; TOP: 0px;width:350;LEFT:420px;FONT-SIZE:22px;COLOR:black;background-color:grey">
<p style="POSITION: absolute; TOP: 10px;width:350px;LEFT:20px;FONT-SIZE:22px;COLOR:white;background:blue">
Call Transfer 
</p>

<p id=transp style="POSITION: absolute; TOP: 50px;width:350px;LEFT:20px;FONT-SIZE:22px;COLOR:black">
</p>

<INPUT type=button style="cursor:hand;LEFt:10px; HEIGHT: 30px; POSITION: absolute; WIDTH: 150px; top:200px"  onclick="CreateTransfer()" value="Make Transfer" title="Make Transfer">	 
<INPUT type=button style="cursor:hand;LEFt:180px; HEIGHT: 30px; POSITION: absolute; WIDTH: 150px; top:200px"  onclick="CancelTransfer()" value="Cancel Transfer" title="Cancel Transfer">	 

</div>

<div id=FwdInfo style="visibility:hidden;POSITION: absolute; TOP: 0px;width:350;LEFT:420px;FONT-SIZE:22px;COLOR:black;background-color:grey">
<p style="POSITION: absolute; TOP: 10px;width:100%;LEFT:20px;FONT-SIZE:22px;COLOR:black">
New Forward Rule
</p>

<p style="POSITION: absolute; TOP: 50px;width:100%;LEFT:20px;FONT-SIZE:18px;COLOR:black">
Forward to 
</p>

<INPUT id="editDestination" style="LEFt:20px; HEIGHT: 25px; POSITION: absolute; WIDTH: 120px; top:70px" >	 

<p style="POSITION: absolute; TOP: 100px;width:100%;LEFT:20px;FONT-SIZE:18px;COLOR:black">
When 
</p>


<div style="HEIGHT: 200px; LEFT: 20px; POSITION: absolute; TOP: 110px; WIDTH: 300px">
<font style="COLOR: black; FONT-SIZE: 12px;font-style:oblique">

<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:10px" type="radio" value="1" title="Unconditional forward">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:40px">
Always
</p>


<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 30px;LEFT:10px" type="radio" value="2" title="Forward when we are busy">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 30px;LEFT:30px">
Forward when we are busy
</p>


<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 50px;LEFT:10px" type="radio" value="3" title="Forward on no answer">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 50px;LEFT:30px">
Forward on no answer
</p>


<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 70px;LEFT:10px" type="radio" value="4" title="Forward on no answer or busy">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 70px;LEFT:30px">
Forward on no answer or busy
</p>

</font>

</div>
<p style="POSITION: absolute; TOP: 200px;width:100%;LEFT:20px;FONT-SIZE:18px;COLOR:black">
Forward only this caller:
</p>

<INPUT id="editCaller" style="LEFt:20px; HEIGHT: 25px; POSITION: absolute; WIDTH: 120px; top:220px" >	 

<INPUT type=button id="buttFRule" style="cursor:hand;LEFt:20px; HEIGHT: 30px; POSITION: absolute; WIDTH: 100px; top:250px"  onclick="FRuleCreate()" value="Create" title="Create Rule">	 
<INPUT type=button id="buttFRule" style="cursor:hand;LEFt:140px; HEIGHT: 30px; POSITION: absolute; WIDTH: 100px; top:250px"  onclick="FRuleCancel()" value="Cancel" title="Cancel Rule Creation">	 

</div>
</div>

<div style="position:absolute;top:0px;left:410px">
<p style="POSITION: absolute; TOP: 5px;width:580px;background:blue;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center;LEFT:20px;FONT-SIZE:18px;COLOR:white">
Call Table
</p>

<SELECT size=2 id=selectCalls name=selectCalls
style="FONT-SIZE: 10px;z-index:10; HEIGHT: 262px; LEFT: 20px; POSITION: absolute; TOP: 40px; WIDTH: 380px">
</SELECT>

<INPUT type=button id="buttAnswer" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:35px"  onclick="AnswerCall()" value="Answer Call" title="Answer Call">	
<INPUT type=button id="buttRedirect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:60px"  onclick="RedirectCall()" value="Redirect Call" title="Redirect Call">	
<INPUT type=button id="buttBlindTransfer" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:85px"  onclick="BlindTransferCall()" value="Blind Transfer" title="Blind Transfer">	
<INPUT type=button id="buttTransfer" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:110px"  onclick="TransferCall()" value="Start Transfer" title="StartTransfer">	 
<INPUT type=button id="buttDisconnect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:135px"  onclick="FinishTransferCall()" value="Finish Transfer" title="Finish Transfer">	 

<INPUT type=button id="buttDisconnect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:160px"  onclick="DisconnectThisCall()" value="Disconnect" title="Disconnect">	 
<INPUT  type=button id="buttHold" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:185px"  onclick="HoldCall()" value="Hold/UnHold" title="Hold/UnHold">	 
<INPUT  type=button id="buttUnselect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:210px"  onclick="SelectTerminals()" value="SelectTerminals" title="SelectTerminals">	 
<INPUT type=button id="buttDelete" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:235px"  onclick="DeleteCall()" value="Delete Call" title="Delete Call">	 
<INPUT type=button id="buttDTMF" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:260px"  onclick="SendDTMF()" value="Send DTMF" title="Send DTMF">	 

</div>


<div id=divKeypad style="visibility:hidden;HEIGHT: 200px; LEFT: 460px; POSITION: absolute; TOP: 305px; WIDTH: 150px">

<div style="BORDER-BOTTOM: black 2px solid; BORDER-LEFT: black 2px solid; 
BORDER-RIGHT: black 2px solid; BORDER-TOP: black 2px solid; 
HEIGHT: 180px; LEFT: 0px; POSITION: absolute; TOP: 20px; WIDTH: 150px;background:#000080;">

<INPUT id=butt1 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:10px;left:20px;width:30px" 
value="1"> 
<INPUT id=butt2 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:10px;left:60px;width:30px" 
value="2"> 
<INPUT id=butt3 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:10px;left:100px;width:30px" 
value="3"> 
<INPUT id=butt4 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:50px;left:20px;width:30px" 
value="4"> 
<INPUT id=butt5 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:50px;left:60px;width:30px" 
value="5"> 
<INPUT id=butt6 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:50px;left:100px;width:30px" 
value="6"> 
<INPUT id=butt7 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:90px;left:20px;width:30px" 
value="7"> 
<INPUT id=butt8 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:90px;left:60px;width:30px" 
value="8"> 
<INPUT id=butt9 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:90px;left:100px;width:30px" 
value="9"> 
<INPUT id=buttA onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:130px;left:20px;width:30px" 
value="*"> 
<INPUT id=butt0 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:130px;left:60px;width:30px" 
value="0"> 
<INPUT id=buttD onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:130px;left:100px;width:30px" 
value="#"> 

<INPUT type=button style="cursor:hand;LEFt:0px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:200px"  onclick="CancelDTMF()" value="Cancel" title="Cancel">	 

</div>


<!-- Listed objects : TAPI(tapi3.idl),  DispatchMapper(tapi3.idl) --> 
<object classid="clsid:21D6D48E-A88B-11D0-83DD-00AA003CCABD" id="TAPIOBJ"></object>

<object classid="clsid:E9225296-C759-11d1-A02B-00C04FB6809F" id="MAPPER"></object>

<script LANGUAGE="vbscript">

' Be shure that you call TAPIOBJ.Initialize before window_onload, otherwise you'll
' never receive events from tapi... 
On Error Resume Next
window.status = "Initialization phase started..."

call TAPIOBJ.Initialize
sUnableToComplete = False
TAPIOBJ.EventFilter = &H1FFFF&

 
if Not Err.number = 0  Then
   MsgBox "Unable to perform Tapi3 initialization",0,"Init"
   sUnableToComplete = True
End If  


</script>

</body></html>