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

' Uni_BVT.inc												 
' Created April, 1996
' By Ron Rohr

' This include file contains all the Functions used by the
' Uni_BVT.MST test Script

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

' Note: This file uses the Object Naming convention defined in the Visual Basic
' 4.0 Programmers Guide to name variables and contants associated with a control.

'$IFNDEF UNICODE_BVT_INC
'$DEFINE UNICODE_BVT_INC
 
'******************** Begin Procedure Declarations ****************************

Declare Sub      EndTest ()
Declare Sub		  SetWndTimeout ()
Declare Function DetectModem() as long
Declare Function StartTAPIBrowser(hTB20 as long, hTB_Child() as long, hTB_ChildID() as long) as long
Declare Sub	 	  GetChildhandles (hParent as long, hChild() as long, ChildID() as long)
Declare Function Call_LClose ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long
Declare Function Call_LConfigDialogW ( hTB20 as long, hTB_Child() as long, _
												  ParamSet as long, HDlg as long, ModemName as string ) as long
Declare Function Call_LDeallocateCall ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long
Declare Function Call_LDialW ( hTB20 as long, hTB_Child() as long, ParamSet as long, hDlg as long  ) as long
Declare Function Call_LDrop (hTB20 as long, hTB_Child() as long, _ 
					  ParamSet as long,  CallState as TAPIMSG) as long
Declare Function Call_LGetCountryW  (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									        Returnstr as string ) as long
Declare Function Call_LGetDevCapsW  ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long
Declare Function Call_LGetIDW (hTB20 as long, hTB_Child() as long, ParamSet as long, _
					  Returnstr as string ) as long
Declare Function Call_LGetTranslateCapsW  (hTB20 as long, hTB_Child() as long, _
					  ParamSet as long, Returnstr as string ) as long
Declare Function Call_LInitialize (hTB20 as long, hTB_Child() as long, _
					  ParamSet as long, hLine as long, Num_Dev as short ) as long
Declare Function Call_LInitializeExW (hTB20 as long, hTB_Child() as long, ParamSet as long, _
					  hLine as long, Num_Dev as short, Returnstr as string ) as long
Declare Function Call_LMakeCallW (hTB20 as long, hTB_Child() as long, ParamSet as long,_ 
					  CallState as TAPIMSG, returnstr as string) as long
Declare Function Call_LNegotiateAPIVer (hTB20 as long, hTB_Ctrl() as long, _
					  ParamSet as long, lNegVerRtn as lNegAPIV) as  long
Declare Function Call_LOpenW ( hTB20 as long, hTB_Child() as long, ParamSet as long, _
					  RtnlOpen as LOpenParam ) as long
Declare Function Call_LSetCurrentLocation ( hTB20 as long, hTB_Child() as long, _
                 ParamSet as long, CurCountryID as string, Returnstr as string ) as long  
Declare Function Call_LShutDown ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long
Declare Function Call_LTranslateAddressW (hTB20 as long, hTB_Child() as long, _
		           Paramset as long, Returnstr as string ) as long
Declare Function Call_LTranslateDialogW ( hTB20 as long, hTB_Child() as long, _
					  hDlg as long, ParamSet as long ) as long
Declare Function TCloseHandle (hTB20 as long, hTB_Child() as long, ParamSet as long, _
					  returnstr as string) as long

Declare Function GetEditResults (hTB20 as long,hTBEdit as long, API_CALL as string) as string
Declare Function GetModemName ( Returnstr as string, strhObject as string) as string
Declare Function SetParamState (hTB20 as long, State as long)	as long
Declare Function SetParamAttrib (API_CALL as string)	as long
Declare Function MsgSplitter (Returntxt as string, MsgStruct as TAPIMSG) as long
Declare Function DeleteESPtsp () as short
Declare Sub      RestoreProviders ()
Declare Sub      SetupProviders ()
Declare Function LineCallState (CALLSTATEMSG as TAPIMSG, Editstr as string) as long 
Declare Function LineReturnValue  (ErrorStr as string) as long
Declare Function LineReturnString (ErrorVal as long) as string


'******************** Begin Procedure Definitions *****************************

'******************************************************************************
'Name   : EndTest
'Desc   : On End cleanup procedure.
' 
'Parms  : None
'
'Return : None. 
'
'History: 04/22/96 : a-rrohr: Created
'*****************************************************************************
Sub EndTest ()

'$IFDEF Already_Validated
'$ENDIF 'Already_Validated

RestoreProviders ()


CloseCase (TEST_SCRIPT_TITLE)

CloseLog ()

Statusbox "The TAPI Build Verification Test is now Complete" + CRLF + _
			 "Test Case Number " + ltrim$(str$(TC_ID)), 0,0,0,0, TRUE, TRUE 
Sleep 4
 
End Sub 'EndTest

'******************************************************************************
'Name   : SetWndTimeout
'Desc   : Sets the timeout variable used by the WFndWnd function.
'			 Some of the platforms tested on are very slow and if the timeout isn't
'			 long enough then	the test continues with out finding the Window and its
'			 handle, dooming all subsequent test (that are dependent on this handle)
'			 to complete and utter failure.
' 
'Parms  : None
'
'Return : None. Sets the Global String variables WTIMEOUT
'
'History: 02/22/96 : a-rrohr: Created
'*****************************************************************************

 Sub SetWndTimeout ()

 dim ProcArch as string									' Generic string variable
 dim ProcLevel as string

 SetActiveTimeout	(150)
 SetDefaultWaitTimeout (2)

 ProcArch = space(40)
 ProcArch = environ$("PROCESSOR_ARCHITECTURE")
 ProcLevel = space(40)
 ProcLevel = environ$("PROCESSOR_LEVEL")

 select case ProcArch

	case "MIPS", "PPC"
		WTIMEOUT = 5		
		SlowPC = FALSE
	case "x86"
		select case ProcLevel
			case "5"					'Pentium class PCs
				WTIMEOUT = 5		
				SlowPC = FALSE
			case "4"					'486 class PCs
				WTIMEOUT = 10		
				SlowPC = TRUE
				SetDefaultWaitTimeout (4)
		end select
	case  "Alpha"
		WTIMEOUT = 20		
		SlowPC = TRUE
		SetDefaultWaitTimeout (8)
	case else
		WTIMEOUT = 30		
	   WritelogItem ("" ,"SetWndTimeout Subroutine - TAPI_BVT.inc")
	   WritelogItem ("" ,"Unable to set WTIMEOUT: Unknown Processor Architecture")
	   WritelogItem ("" ,"Processor Architecture	environment variable = " +  ProcArch)
	   WritelogItem ("" ," ")
end select

'$IFDEF NUMEGA
		WTIMEOUT = WTIMEOUT + 5 'If using BoundsChecker then add a few more seconds
'$ENDIF

end Sub  'SetWndTimeout ()

'******************************************************************************
'Name   : DetectModem
'Desc   : Runs Modem.cpl and determines if a modem is installed by which modem
'			 dialog appears
'			 
'Parms  : None
'
'Return : True  if a Modem is set up on this computer
'			 False if not.
'
'History: 04/15/96 : a-rrohr: Created
'******************************************************************************

Function DetectModem() as long

dim w_Flags as long
dim handle  as long, hCtrl as long
dim Close_cmdID as long
dim SysDirPath as string
dim rtn as long

'Initialize variables

Close_cmdID = &h01&	'Close Command button ID on Modem Properties dialog
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST OR FW_NOERROR _
			 OR FW_FOCUS OR FW_NOCASE  
SysDirPath = string$(168, chr$(0))	 'create a null terminated string
rtn = GetSystemDirectory (SysDirPath, len(SysDirPath))

'$ifdef NUMEGA
	run "control.exe " + SysDirPath + MODEM_APPLET, BoundsChecker
'$else
	run "control.exe " + SysDirPath + MODEM_APPLET, nowait
'$endif 'NUMEGA

DetectModem = FALSE	 'Set default return value

'if the Modems Properties dialog appears then a modem is set up on the computer

handle =  WFndWndC (MODEM_PROP_CAPTION, DIALOG_CLASS, w_Flags, WTIMEOUT)

if handle > 0 then	'a Modem is set up on this computer
	hCtrl = GetDlgItem (handle, Close_cmdID)
	WButtonClick (_hwnd(hCtrl))
   WritelogItem ("" , "Modem Connected")
	DetectModem = TRUE
	Goto EndOFFunction
endif

'if the Install New Modem dialog appears then a modem is not set up on the 
'computer and will need to be before the test can continue.

handle =  WFndWndC (INSTALL_MODEM_CAPTION, DIALOG_CLASS, w_Flags, WTIMEOUT)

if handle > 0 then	'No Modems are set up on this computer
   WritelogItem ("" , INSTALL_MODEM_CAPTION + " dialog Found")
   WritelogItem ("" , "There are no Modems Setup on this computer")
   WritelogItem ("" , " ")
endif

EndOFFunction:
end Function 'DetectModem


'******************************************************************************
'Name   : StartTAPIBrowser
'Desc   : Starts TAPI Browser and retrives all handles
'			 
'Parms  : hTB20 handle to TAPI Browser
'			 hChild_TB() array of child handles 
'			 all params are sent by reference and filled by this function 
'
'Return : True  if a TAPI Browser is started successfully
'			 False if not.
'
'History: 04/16/96 : a-rrohr: Created
'*****************************************************************************
Function StartTAPIBrowser(hTB20 as long, hTB_Child() as long, hTB_ChildID() as long) as long

static TBCalledCount as short  'Number of times TAPI Browser has been started
dim w_flags		as long			 'used with WFndWnd function
dim hDlg			as long			 'Generic dialog handle
dim hCtrl		as long			 'Generic control handle
dim OKcmd_ID	as long			 'hold ID to Using the TAPI Browser OK button
dim SysDirPath as string		 'holds path to windows system directory
dim rtn			as long			 'generic return variable
dim Param_lstID as long
dim Value_cboID as long
dim OK_cmdID	 as long
dim cbo_EditID  as long

'Initialize variables

StartTAPIBrowser = FALSE 'Set default return value
OKcmd_ID = &h01&
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
             OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE  
Param_lstID	  =&h03E8&
Value_cboID	  =&h03EA&
OK_cmdID		  =&h01&
cbo_EditID	  =&h03E9&


'Look for the "Using the TAPI Browser" dialog. This dialog appears automatically
'the first time TB is invoked and never again. it must be closed before the test
'can proceed.

SysDirPath = string$(168, chr$(0))	 'create a null terminated string
rtn = GetSystemDirectory (SysDirPath, len(SysDirPath))

if exists (SysDirPath + TAPI_BROWSER) then	'if tapi browser is present, run

	'$ifdef NUMEGA
		run SysDirPath + TAPI_BROWSER, BoundsChecker
	'$else
		run SysDirPath + TAPI_BROWSER, nowait
	'$endif 'NUMEGA
else														'otherwise abort test

   WritelogItem ("Unable to run ", SysDirPath + TAPI_BROWSER)
   WritelogItem ("This Test Will Terminate ", "")
   WritelogItem ("Please install Tapi Browser 2.0 prior to running this test", "")
	end
end if

if TBCalledCount = 0 then
	hDlg = WFndWndC (USING_TB_CAPTION, DIALOG_CLASS, w_flags, 5)

	if hDlg > 0 then
		'Get handle to Using the TAPI Browser OK button and close dialog
		hCtrl	= GetDlgItem(hDlg, OKcmd_ID)	 
		WButtonClick  (_hwnd(hCtrl), TIMEOUT)
	end if
end if

hTB20 = WFndWndC (TB20_CAPTION, DIALOG_CLASS, w_flags, WTIMEOUT)

'if valid TB handle then get child handles and return true
if hTB20 > 0 then
	GetChildHandles((hTB20), hTB_Child, (hTB_ChildID))
	StartTAPIBrowser = TRUE
endif

if TBCalledCount = 0 then
	WMenuSelect (MOPTIONS + "\" + MDEFAULT)
	hDlg = WFndWndC (DEFAULT_VALUES_CAPTION, DIALOG_CLASS, w_flags, WTIMEOUT)

	hCtrl = GetDlgItem ( hDlg, Param_lstID)
	WlistItemClk (_hwnd(hCtrl), BUFFER_SIZE)

	hCtrl = GetDlgItem ( hDlg, Value_cboID)
	hCtrl = GetDlgItem ( hCtrl, cbo_EditID)
	WEditSetText (_hwnd(hCtrl), SIZE_2K)
	
	hCtrl = GetDlgItem ( hDlg, OK_cmdID)
	WButtonClick (_hwnd(hCtrl))
end if

TBCalledCount = TBCalledCount + 1

end Function 'StartTAPIBrowser

'*****************************************************************************
'Name   : GetChildhandles 
'Desc   : Fills the hChild array with the handles to the child controls of hParent 
'         
'Parms  : hTab = handle to My Location Tab
'			 hChild = array of My Location child control handles.  
'			 ChildID = array of child control IDs
' 
'Return : Void:   Subroutine fills in the hChild array parameter
'
'History: 02/10/96 : a-rrohr: Created
'*****************************************************************************
sub GetChildhandles (hParent as long, hChild() as long, ChildID() as long)

dim count	  as short
dim beginning as short
dim ending    as short

beginning = lbound(hChild)
ending    = ubound(hChild)

for count = beginning to ending
	hChild(count) = GetDlgItem (hParent, ChildID(count))
next	
end sub

'******************************************************************************
'Name   : Call_LClose
'Desc   : Invokes the lineClose function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineClose return value
'			 
'History: 04/19/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LClose ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim hDlg as long					'handle to parameter dialog


WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_Close, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_Close)
	if rtn = FALSE then
		Call_LClose = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_Close )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

'Retieve lineClose return
rtn = instr(1, tempstr, "returned")
tempstr = ltrim$(right$(tempstr, len(tempstr) - rtn - len("returned")))

Call_LClose = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LClose 

'******************************************************************************
'Name   : Call_LConfigDialogW
'Desc   : Invokes the lineConfigureDialog function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineConfigDialog return value
'			 
'History: 05/09/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LConfigDialogW ( hTB20 as long, hTB_Child() as long, ParamSet as long, _
											HDlg as long, ModemName as string ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim w_flags as long           'used with WFndWnd function
dim ViewListID as long		   'IDs
dim hctrl as long					'Generic control handle
dim cmdOKID as long				'IDs
dim cmdCloseID as long
dim hTab as long					'Handle to Modems Properties General Tab
dim SysDirPath as string		'Path to Windows\System32 directory
dim ModemCaption as string		'Holds caption to Config dialog 

cmdOKID			 = &h00000001&
cmdCloseID		 = &h00000001&
ViewListID		 = &h00000071&
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
             OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE 

if ParamSet then
	rtn = SetParamAttrib (LAPI_ConfigDialogW)
	if rtn = FALSE then
		Call_LConfigDialogW = FALSE
		goto EndOfFunction
	endif
endif

'Start the control panel Modem applet
SysDirPath = space$(168)
rtn = GetSystemDirectory (SysDirPath, 168)
run "control.exe " + SysDirPath + "\Modem.CPL", NoWait

' Find Modems Properties dialog and retrieve Modem name
hDlg = WFndWndC (MODEM_PROP_CAPTION, DIALOG_CLASS, W_Flags, WTIMEOUT)

if hDlg <> 0 then
	hTab =  WFndWndC ("General", DIALOG_CLASS, W_Flags, WTIMEOUT)

	if hTab <> 0 then
		hctrl = GetDlgItem (hTab, ViewListID)
		if hctrl <> 0 then
			ModemName = " "
			ModemName = ViewItemText (_hwnd(hctrl), "@1", "Modem", WTimeout)
			ModemCaption = ModemName + " " + PROPERTIES
		endif
	endif
	'Close Modems Properties
	hctrl = GetDlgItem (hDlg, cmdCloseID)
	WButtonClick (_hwnd(hctrl))
endif

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_ConfigDialogW, TimeOut)
sleep .1

' Find Config dialog, save the handle and close and close it
hDlg = 0
hDlg = WFndWndC (ModemCaption, DIALOG_CLASS, W_Flags, WTIMEOUT)

if hDlg <> 0 then
	cmdOKID = &h00000001&
	hctrl = GetDlgItem (hdlg, cmdOKID)
	WButtonClick (_hwnd(hctrl))
else
	WritelogItem ("Unable to Find Dialing Properties dialog " , "")
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_ConfigDialogW )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

'Retieve lineClose return
rtn = instr(1, tempstr, "returned")
tempstr = ltrim$(right$(tempstr, len(tempstr) - rtn - len("returned")))

Call_LConfigDialogW = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LConfigDialogW 

'******************************************************************************
'Name   : Call_LDeallocateCall
'Desc   : Invokes the lineDeallocateCall function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineClose return value
'			 
'History: 04/25/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LDeallocateCall ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim hDlg as long					'handle to parameter dialog

Call_LDeallocateCall = FALSE

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_DeallocateCall, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_DeallocateCall)
	if rtn = FALSE then
		Call_LDeallocateCall = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_DeallocateCall )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

'Retieve lineClose return
rtn = instr(1, tempstr, "returned")
tempstr = ltrim$(right$(tempstr, len(tempstr) - rtn - len("returned")))

Call_LDeallocateCall = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LDeallocateCall 

'******************************************************************************
'Name   : Call_LDialW
'Desc   : Invokes the lineDialW function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet:  state of param checkbox
'			 hDlg:      handle to Call Status dialog
'
'Return : lineDialW return value
'			 
'History: 05/10/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LDialW ( hTB20 as long, hTB_Child() as long, ParamSet as long, hDlg as long ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim hCtrl as long
dim w_flags  as long
dim TalkID	 as long				'ID for Call Status Talk button
dim HangUpID as long				'ID for Call Status Hang Up button

TalkID	= &h0514&
HangUpID = &h0515&
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
             OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE  
Call_LDialW = FALSE

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_DialW, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_DialW)
	if rtn = FALSE then
		Call_LDialW = FALSE
		goto EndOfFunction
	endif
endif

hDlg = WFndWndC (CALL_STATUS_CAPTION, DIALOG_CLASS, w_flags, 5)

if hDlg > 0 then
	WSetActWnd (hTB20) 'Make TB the active window and get result string
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_DialW )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

if hDlg > 0 then 'Hangup
	WSetActWnd (hDlg)     'Make Call Status the active window and hangup
	sleep .1
	hCtrl = GetDlgItem (hDlg, HangUpID)
	WButtonClick (_hwnd(hctrl))	
	Call_LDialW = TRUE
endif

EndOfFunction:
End Function 'Call_LDialW 

'******************************************************************************
'Name   : Call_LDrop
'Desc   : Invokes the lineMakeCall function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineGetCallStatus return value and CALLSTATE structure
'			 
'History: 04/25/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LDrop (hTB20 as long, hTB_Child() as long, _ 
					  ParamSet as long,  CallState as TAPIMSG) as long

dim Count as long					'Generic counter
dim rtn as long, rtn2 as long	'Generic function return variable
dim tempstr  as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_Drop, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_Drop)
	if rtn = FALSE then
		Call_LDrop = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
count = 0
tempstr = space$ (1)
'Wait until LineGetCallStatus appears in text before proceeding (text takes time to appear completely)
do
	tempstr = edittext(_hwnd(hTB_Child(TB_ResEdit)), 1)
	if len(tempstr) > 0 then
		rtn = instr(1, tempstr, "lineGetCallStatus")
	endif
	count = count + 1
	sleep .5
loop until rtn > 1 or count > 10
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_Drop )

Call_LDrop = LineCallState (CallState, (tempstr))

EndOfFunction:
end Function 'Call_LDrop

'******************************************************************************
'Name   : Call_LGetCountryW 
'Desc   : Invokes the lineGetCountry function on TB 
'			 
'Parms  : hChild_TB(): array of child handles
'			 Returnstr: string containg return text
'
'Return : lineGetCountry return and Edit box text
'			 
'History: 05/08/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LGetCountryW  (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									Returnstr as string ) as long

dim rtn as long					'Generic function return variable
dim CRLFrtn as long
dim startchar as long
dim tempstr as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_GetCountryW , TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_GetCountryW )
	if rtn = FALSE then
		Call_LGetCountryW  = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_GetCountryW  )

'Retieve lineGetTranslateCaps return
rtn = instr(1, Returnstr, "returned")
CRLFrtn = instr(rtn, Returnstr, CRLF)
startchar = rtn + len("returned")
tempstr = ltrim$(mid$(Returnstr, startchar ,  CRLFrtn - Startchar))

Call_LGetCountryW  = LineReturnValue (tempstr)
 
EndOfFunction:

End Function 'Call_LGetCountryW 

'******************************************************************************
'Name   : Call_LGetDevCapsW 
'Desc   : Invokes the lineClose function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineGetDevCaps return value
'			 
'History: 04/26/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LGetDevCapsW  ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim hDlg as long					'handle to parameter dialog

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_GetDevCapsW, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_GetDevCapsW)
	if rtn = FALSE then
		Call_LGetDevCapsW  = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_GetDevCapsW )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

'Retieve lineClose return
rtn = instr(1, tempstr, "returned")
tempstr = ltrim$(right$(tempstr, len(tempstr) - rtn - len("returned")))

Call_LGetDevCapsW  = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LGetDevCapsW  

'******************************************************************************
'Name   : Call_LGetIDW
'Desc   : Invokes the lineTranslateAddress function on TB 
'			 
'Parms  : hChild_TB(): array of child handles
'			 Returnstr: string containg return text
'
'Return : lineTranslateAddress return and Edit box text
'			 
'History: 05/10/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LGetIDW (hTB20 as long, hTB_Child() as long, ParamSet as long, _
							 Returnstr as string ) as long

dim rtn as long					'Generic function return variable
dim CRLFrtn as long
dim startchar as long
dim tempstr as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_GetIDW, TimeOut) 

if ParamSet then
	rtn = SetParamAttrib (LAPI_GetIDW)
	if rtn = FALSE then
		Call_LGetIDW = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_GetIDW )

'Retieve lineGetID return
rtn = instr(1, Returnstr, "returned")
CRLFrtn = instr(rtn, Returnstr, CRLF)
startchar = rtn + len("returned")
tempstr = ltrim$(mid$(Returnstr, startchar , CRLFrtn - Startchar))

Call_LGetIDW = LineReturnValue (tempstr)
 
EndOfFunction:

End Function 'Call_LGetIDW

'******************************************************************************
'Name   : Call_LGetTranslateCapsW 
'Desc   : Invokes the lineGetTranslateCaps function on TB 
'			 
'Parms  : hChild_TB(): array of child handles
'			 Returnstr: string containg return text
'
'Return : lineGetTranslateCaps return and Edit box texe
'			 
'History: 05/03/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LGetTranslateCapsW  (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									      Returnstr as string ) as long

dim rtn as long					'Generic function return variable
dim CRLFrtn as long
dim startchar as long
dim tempstr as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_GetTranslateCapsW , TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_GetTranslateCapsW )
	if rtn = FALSE then
		Call_LGetTranslateCapsW  = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_GetTranslateCapsW  )

'Retieve lineGetTranslateCaps return
rtn = instr(1, Returnstr, "returned")
CRLFrtn = instr(rtn, Returnstr, CRLF)
startchar = rtn + len("returned")
tempstr = ltrim$(mid$(Returnstr, startchar ,  CRLFrtn - Startchar))

Call_LGetTranslateCapsW  = LineReturnValue (tempstr)
 
EndOfFunction:

End Function 'Call_LGetTranslateCapsW 

'******************************************************************************
'Name   : Call_LInitialize
'Desc   : Invokes the lineInitialize function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'
'Return : lineInitialize return value
'			 
'History: 04/17/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LInitialize (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									hLine as long, Num_Dev as short ) as long

dim listItemCount as long		'holds number of items in results list box
dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim firststr as string			'First Edit box string	(function return)
dim secstr as string				'Second Edit box string (Number of devices)

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_Initialize, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_Initialize)
	if rtn = FALSE then
		Call_LInitialize = FALSE
		goto EndOfFunction
	endif
endif

'Get hListApp item number, should be last item
listItemCount = WListCount	(_hwnd(hTB_Child(TB_ResList)), Timeout)

'Retrieve Usage handle from Results list box

tempstr = ListItemText (_hwnd(hTB_Child(TB_ResList)), listItemCount, Timeout)
rtn = instr(1, tempstr, "=x")
if rtn > 0 then
	tempstr = "&h" + ltrim$(right$(tempstr, len(tempstr) - rtn -1))
	hLine =  val(tempstr)
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_Initialize )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	firststr	= left$ (tempstr, rtn -1)
	secstr   = right$(tempstr, len(tempstr) - rtn -1)
endif

'Retieve lineInitiate return
rtn = instr(1, firststr, "returned")
tempstr = ltrim$(right$(firststr, len(firststr) - rtn - len("returned")))

Call_LInitialize = LineReturnValue (tempstr)

'remove CRLF from second string
rtn = instr(1, secstr, CRLF)

if rtn > 0 then
	secstr = left$(secstr, rtn -1)
endif

'retrieve number of devices from second string
rtn = instr(1, secstr, "=")
if rtn > 0 then
	tempstr = right$(secstr, len(secstr) - rtn)
	Num_Dev = val(tempstr)
else
	Num_Dev = 0
endif
 
EndOfFunction:
End Function 'Call_LInitialize

'******************************************************************************
'Name   : Call_LInitializeExW
'Desc   : Invokes the lineInitializeEx function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'
'Return : lineInitializeExW return value
'			 
'History: 05/28/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LInitializeExW (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									hLine as long, Num_Dev as short, Returnstr as string ) as long

dim listItemCount as long		'holds number of items in results list box
dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim firststr as string			'First Edit box string	(function return)
dim secstr as string				'Second Edit box string (Number of devices)

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_InitializeExW, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_InitializeExW)
	if rtn = FALSE then
		Call_LInitializeExW = FALSE
		goto EndOfFunction
	endif
endif

'Get hListApp item number, should be last item
listItemCount = WListCount	(_hwnd(hTB_Child(TB_ResList)), Timeout)

'Retrieve Usage handle from Results list box

tempstr = ListItemText (_hwnd(hTB_Child(TB_ResList)), listItemCount, Timeout)
rtn = instr(1, tempstr, "=x")
if rtn > 0 then
	tempstr = "&h" + ltrim$(right$(tempstr, len(tempstr) - rtn -1))
	hLine =  val(tempstr)
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_InitializeExW )
rtn = instr(1, Returnstr, CRLF)
if rtn > 0 then
	firststr	= left$ (Returnstr, rtn -1)
	secstr   = right$(Returnstr, len(Returnstr) - rtn -1)
endif

'Retieve lineInitiate return
rtn = instr(1, firststr, "returned")
tempstr = ltrim$(right$(firststr, len(firststr) - rtn - len("returned")))

Call_LInitializeExW = LineReturnValue (tempstr)

'remove CRLF from second string
rtn = instr(1, secstr, CRLF)

if rtn > 0 then
	secstr = left$(secstr, rtn -1)
endif

'retrieve number of devices from second string
rtn = instr(1, secstr, "=")
if rtn > 0 then
	tempstr = right$(secstr, len(secstr) - rtn)
	Num_Dev = val(tempstr)
else
	Num_Dev = 0
endif
 
EndOfFunction:
End Function 'Call_LInitializeExW

'******************************************************************************
'Name   : Call_LMakeCallW
'Desc   : Invokes the lineMakeCallW function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineMakeCallW return value	 or CALL STATUS
'			 
'History: 04/24/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LMakeCallW (hTB20 as long, hTB_Child() as long, ParamSet as long,_ 
					   CallState as TAPIMSG, returnstr as string) as long

dim Count as long					'Generic counter
dim rtn as long, rtn2 as long	'Generic function return variable
dim w_flags  as long
dim hDlg     as long
dim TalkID	 as long				'ID for Call Status Talk button
dim HangUpID as long				'ID for Call Status Hang Up button

TalkID	= &h0514&
HangUpID = &h0515&
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
             OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE  

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_MakeCallW, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_MakeCallW)
	if rtn = FALSE then
		Call_LMakeCallW = FALSE
		goto EndOfFunction
	endif
endif

hDlg = WFndWndC (CALL_STATUS_CAPTION, DIALOG_CLASS, w_flags, 5)

if hDlg > 0 then
	WSetActWnd (hTB20)
endif


'Get Edit box strings
count = 0
do
	returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_MakeCallW )
	count = count + 1
	sleep .5
loop until len(returnstr) > 1 or count > 10

'Get the params of CallState only if there is a callstate msg specified
if len(CallState.msg) > 0 then
	Call_LMakeCallW = LineCallState (CallState, (returnstr))
endif

EndOfFunction:
end Function 'Call_LMakeCall

'******************************************************************************
'Name   : Call_LNegotiateAPIVer
'Desc   : Invokes the lineNegotiateAPIVersion function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineNegotiateAPIVersion return value
'			 
'History: 04/22/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LNegotiateAPIVer (hTB20 as long, hTB_Child() as long, _ 
					  ParamSet as long, lNegVerRtn as lNegAPIV) as long

dim Count as long					'Generic counter
dim rtn as long, rtn2 as long	'Generic function return variable
dim tempstr as string			'Generic String variable
dim returnstr as string			'Holds Return String
dim Versionstr as string		'holds API Version
dim IDstr		as string		'holds ID strings

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_NegotiateAPIVersion, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_NegotiateAPIVersion)
	if rtn = FALSE then
		Call_LNegotiateAPIVer = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
count = 0
tempstr = space$ (1)
do
	tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_NegotiateAPIVersion )
	count = count + 1
	sleep .5
loop until len(tempstr) > 1 or count > 10

'Separate the Function return from the rest of the string
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	returnstr	= left$ (tempstr, rtn -1)
endif

if len (tempstr) > rtn + 1 then 'if text has more than return then
  
'save string minus return in versionstr (lines 2&3)
	tempstr  = right$(tempstr, len(tempstr) - rtn -1)

'Separate the API Version From the ID numbers
	rtn = instr(1, tempstr, CRLF)
	if rtn > 0 then
		Versionstr	= left$ (tempstr, rtn -1)
		IDstr       = right$(tempstr, len(tempstr) - rtn -1)
	endif

'Retrieve API Version
	rtn = instr(1, Versionstr, "=x")
	if rtn > 0 then
		lNegVerRtn.API_Ver = right$(Versionstr, len(Versionstr) - rtn)
	else
		lNegVerRtn.API_Ver = "x0"
	endif

'remove CRLF from ID string
	rtn = instr(1, IDstr, CRLF)

	if rtn > 0 then
		IDstr = left$(IDstr, rtn -1)
	endif

'retrieve ID number of devices from ID string
	for count = 0 to 3
		rtn  = instr(1, IDstr, "=")
		rtn2 = instr(1, IDstr, ",")
		lNegVerRtn.ID(count) = mid$(IDstr, rtn +1, (rtn2) - (rtn + 1))
		idstr = right$ (idstr, len (idstr) - rtn2 - 1)
	next
else
	lNegVerRtn.API_Ver	= "x0"
	lNegVerRtn.ID(0)		= ""
	lNegVerRtn.ID(1)		= ""
	lNegVerRtn.ID(2)		= ""
	lNegVerRtn.ID(3)		= ""
endif

'Retieve lineNegotiateAPIVersion return
rtn = instr(1, returnstr, "returned")
if rtn > 0 then 
	tempstr = ltrim$(right$(returnstr, len(returnstr) - rtn - len("returned")))
end if

Call_LNegotiateAPIVer = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LNegotiateAPIVer

'******************************************************************************
'Name   : Call_LOpenW
'Desc   : Invokes the lineOpen function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'			 ID - holds value of id returned by lineOpen
'
'Return : lineOpen return value
'			 
'History: 04/18/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LOpenW ( hTB20 as long, hTB_Child() as long, ParamSet as long, RtnlOpen as LOpenParam ) as long

dim listItemCount as long		'holds number of items in results list box
dim BeginCount						'Number of Item before lineOpen is double clicked
dim rtn as long, rtn2 as long	'Generic function return variable
dim tempstr as string			'Generic String variable
dim firststr as string			'First Edit box string	(function return)
dim hDlg as long					'handle to parameter dialog


BeginCount = WListCount	(_hwnd(hTB_Child(TB_ResList)), Timeout)

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_OpenW, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_OpenW)
	if rtn = FALSE then
		Call_LOpenW = FALSE
		goto EndOfFunction
	endif
endif

'Get listbox return values
listItemCount = WListCount	(_hwnd(hTB_Child(TB_ResList)), Timeout)

if listItemCount > BeginCount then

	tempstr = ListItemText (_hwnd(hTB_Child(TB_ResList)), listItemCount, Timeout)
	rtn = instr(1, tempstr, "=x")
	if rtn > 0 then
		tempstr = right$(tempstr, len(tempstr) - rtn -1)
		rtn = instr(1, tempstr, "id")
		firststr	= "&h" + ltrim$(left$( tempstr, rtn -1))
		RtnlOpen.hLine =  val(firststr)

		tempstr = right$(tempstr, len(tempstr) - rtn -1)
		rtn = instr(1, tempstr, "=")
		rtn2 = instr(rtn, tempstr, " ")
		firststr = mid$(tempstr, rtn + 1, (rtn2-1) - (rtn + 1))
		RtnlOpen.DevID = val(firststr)	
	
		RtnlOpen.Priv = Space$(1)
		RtnlOpen.Priv = ltrim$(right$(tempstr, len(tempstr) - rtn -1))
	endif

endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_OpenW )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	firststr	= left$ (tempstr, rtn -1)
endif

'Retieve lineOpen return
rtn = instr(1, firststr, "returned")
tempstr = ltrim$(right$(firststr, len(firststr) - rtn - len("returned")))

Call_LOpenW = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LOpen 

'******************************************************************************
'Name   : Call_LSetCurrentLocation 
'Desc   : Invokes the lineSetCurrentLocation function on TB 
'			 
'Parms  : hChild_TB(): array of child handles
'			 Returnstr: string containg return text
'
'Return : lineSetCurrentLocation return and Edit box texe
'			 
'History: 05/03/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LSetCurrentLocation  (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									      CurCountryID as string, Returnstr as string ) as long

dim rtn as long					'Generic function return variable
dim CRLFrtn as long
dim startchar as long
dim tempstr as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_SetCurrentLocation, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_SetCurrentLocation)
	if rtn = FALSE then
		Call_LSetCurrentLocation  = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_SetCurrentLocation )

'Retieve lineGetTranslateCaps return
rtn = instr(1, Returnstr, "returned")
CRLFrtn = instr(rtn, Returnstr, CRLF)
startchar = rtn + len("returned")
tempstr = ltrim$(mid$(Returnstr, startchar ,  CRLFrtn - Startchar))

Call_LSetCurrentLocation  = LineReturnValue (tempstr)
 
EndOfFunction:

End Function 'Call_LSetCurrentLocation 

'******************************************************************************
'Name   : Call_LShutDown
'Desc   : Invokes the lineClose function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineClose return value
'			 
'History: 04/19/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LShutDown ( hTB20 as long, hTB_Child() as long, ParamSet as long ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim hDlg as long					'handle to parameter dialog

Call_LShutDown = FALSE

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_ShutDown, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_ShutDown)
	if rtn = FALSE then
		Call_LShutDown = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_ShutDown )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

'Retieve lineClose return
rtn = instr(1, tempstr, "returned")
tempstr = ltrim$(right$(tempstr, len(tempstr) - rtn - len("returned")))

Call_LShutDown = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LShutDown 

'******************************************************************************
'Name   : Call_LTranslateAddressW
'Desc   : Invokes the lineTranslateAddress function on TB 
'			 
'Parms  : hChild_TB(): array of child handles
'			 Returnstr: string containg return text
'
'Return : lineTranslateAddress return and Edit box text
'			 
'History: 05/08/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LTranslateAddressW (hTB20 as long, hTB_Child() as long, ParamSet as long, _
									      Returnstr as string ) as long

dim rtn as long					'Generic function return variable
dim CRLFrtn as long
dim startchar as long
dim tempstr as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_TranslateAddressW, TimeOut) 
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_TranslateAddressW)
	if rtn = FALSE then
		Call_LTranslateAddressW = FALSE
		goto EndOfFunction
	endif
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_TranslateAddressW )

'Retieve lineGetTranslateCaps return
rtn = instr(1, Returnstr, "returned")
CRLFrtn = instr(rtn, Returnstr, CRLF)
startchar = rtn + len("returned")
tempstr = ltrim$(mid$(Returnstr, startchar ,  CRLFrtn - Startchar))

Call_LTranslateAddressW = LineReturnValue (tempstr)
 
EndOfFunction:

End Function 'Call_LTranslateAddressW

'******************************************************************************
'Name   : Call_LTranslateDialogW
'Desc   : Invokes the lineTranslateDialog function on TB 
'			 
'Parms  : hChild_TB() array of child handles
'			 ParamSet - state of param checkbox
'
'Return : lineTranslateDialog return value
'			 
'History: 05/08/96 : a-rrohr: Created
'*****************************************************************************
Function Call_LTranslateDialogW ( hTB20 as long, hTB_Child() as long, HDlg as long, _
											ParamSet as long ) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable
dim w_flags as long           'used with WFndWnd function
dim txtAreaCodeID as long		'IDs
dim txtAccessCodeID as long
dim cmdCloseID as long
dim cmdOKID as long
dim hctrl as long					'Generic control handle
dim handle as long				'Generic handle

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), LAPI_TranslateDialogW, TimeOut)
sleep .1

if ParamSet then
	rtn = SetParamAttrib (LAPI_TranslateDialogW)
	if rtn = FALSE then
		Call_LTranslateDialogW = FALSE
		goto EndOfFunction
	endif
endif

w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST _
             OR FW_NOERROR OR FW_FOCUS OR FW_NOCASE 'FW_PART OR 

' Find Location Information window and if it exists close it
handle =  WFndWndC (LOC_INFO_CAPTION, DIALOG_CLASS, W_Flags, WTIMEOUT)

if handle <> 0 then
   txtAreaCodeID   = &h0000040E&
   txtAccessCodeID = &h0000040C&
	cmdCloseID		 = &h00000001&
	WSetActWnd (handle)

	hctrl = GetDlgItem (handle, txtAreaCodeID)
	if hctrl <> 0 then
		WEditSetText  (_hwnd(hctrl), "333")
	end if

	hctrl = GetDlgItem (handle, txtAccessCodeID)
   if hctrl <> 0 then
      WEditSetText  (_hwnd(hctrl), "7")
	end if

	hctrl = GetDlgItem (handle, cmdCloseID)
	WButtonClick (_hwnd(hctrl))

endif

' Find Dialing Properties window and close it
hDlg = WFndWndC (PROPERTIES_CAPTION, DIALOG_CLASS, W_Flags, WTIMEOUT)

if hDlg <> 0 then
	cmdOKID = &h00000001&
	hctrl = GetDlgItem (hdlg, cmdOKID)
	WButtonClick (_hwnd(hctrl))
else
	WritelogItem ("Unable to Find Dialing Properties dialog " , "")
endif

'Get Edit box strings
tempstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), LAPI_TranslateDialogW )
rtn = instr(1, tempstr, CRLF)
if rtn > 0 then
	tempstr	= left$ (tempstr, rtn -1)
endif

'Retieve lineClose return
rtn = instr(1, tempstr, "returned")
tempstr = ltrim$(right$(tempstr, len(tempstr) - rtn - len("returned")))

Call_LTranslateDialogW = LineReturnValue (tempstr)

EndOfFunction:
End Function 'Call_LTranslateDialogW 

'******************************************************************************
'Name   : TCloseHandle
'Desc   : Invokes the CloseHandle function on TB 
'			 
'Parms  : hChild_TB(): array of child handles
'			 Returnstr: string containg return text
'
'Return : Close Handle return and Edit box text
'			 
'History: 05/10/96 : a-rrohr: Created
'*****************************************************************************
Function TCloseHandle (hTB20 as long, hTB_Child() as long, ParamSet as long,_ 
							  returnstr as string) as long

dim rtn as long					'Generic function return variable
dim tempstr as string			'Generic String variable

WListItemDblClk (_hwnd(hTB_Child(TB_APIList)), CLOSE_HANDLE, TimeOut) 
TCloseHandle = FALSE

if ParamSet then
	rtn = SetParamAttrib (CLOSE_HANDLE)
	if rtn = FALSE then
		goto EndOfFunction
	endif
endif

'Get Edit box strings
Returnstr = GetEditResults ((hTB20), hTB_Child(TB_ResEdit), CLOSE_HANDLE )

rtn = instr(1, Returnstr, "err")
if rtn = 0 then 
	TCloseHandle = True
endif 
EndOfFunction:

End Function 'CloseHandle

 '******************************************************************************
'Name   : GetEditResults
'Desc   : Retrives text from TB20 edit box, saves it to a file and then clears
'			 the edit box 
'			 
'Parms  : hTB20: handle to TB20
'			 hTBEdit: handle to TB20 editbox
'			 API_CALL: TAPI call that generated the text in the edit field
'
'Return : TAPI API Call results value
'			 
'History: 04/18/96 : a-rrohr: Created
'*****************************************************************************
Function GetEditResults (hTB20 as long, hTBEdit as long, API_CALL as string) as string

dim tempstr as string
dim LogFilename as string
dim rtn as long
dim FileNum as short
Static FileOutputCount as short

if SlowPC then
	sleep .6
else
	sleep .1
end if

tempstr = space$(1)
tempstr = edittext(_hwnd(hTBEdit), 1)

LogFilename = Space$(168)
rtn = GetWindowsDirectory (LogFilename, len(LogFilename))
LogFilename = LogFilename + TB_EDIT_FILE

if FileOutputCount = 0 then
	FileNum = FreeFile
	Open  LogFilename for Output as FileNum
	Print #FileNum,"TEST CASE " + ltrim$(str$(TC_ID)) + " " + API_CALL
	Print #FileNum, tempstr
	Close FileNum
else
	FileNum = FreeFile
	Open  LogFilename for Append as FileNum
	Print #FileNum,"TEST CASE " + ltrim$(str$(TC_ID)) + " " + API_CALL
	Print #FileNum, tempstr
	Close FileNum
endif

WSetActWnd (hTB20)
WMenuSelect (MFILE + "\" + MCLEAR, TIMEOUT)

GetEditResults = tempstr

FileOutputCount = FileOutputCount + 1

end function 'GetEditResults

'******************************************************************************
'Name   : GetModemName
'Desc   : Retrives Modem name hObject (as string) from returnstr.  
'			 
'Parms  : Returnstr: string containg return text from lineDial function call
'
'Return : Modem Name, Also hObject is modified by the function
'			 
'History: 05/10/96 : a-rrohr: Created
'*****************************************************************************
Function GetModemName ( Returnstr as string, strhObject as string) as string

dim tempstr as string
dim rtn as long
dim CRLFrtn as long
dim periodrtn as long
dim count as short

GetModemName = ""

'Get hObject
rtn = instr(1, returnstr, "dwStringOffset")
CRLFrtn = instr(rtn, returnstr, CRLF)
strhObject = ltrim$(mid$(returnstr, CRLFrtn + 2, 12))

'Get ModemName
periodrtn = instr(CRLFrtn, returnstr, "."+ CRLF)
tempstr = " "
count = 0
while (Periodrtn > CRLFrtn AND count < 10)
	TempStr = TempStr + Mid$(returnstr, CRLFrtn + 2 + 41, 16)
	CRLFrtn = instr(CRLFrtn + 2, returnstr, CRLF)
	count = count + 1
wend

tempstr = Ltrim$(Rtrim$(tempstr))
rtn = instr(1, tempstr, ("." + CRLF))
if rtn > 0 then
	tempstr = left$(tempstr, len(tempstr) - (len(tempstr) - rtn + 1))
	GetModemName = left$(tempstr, len(tempstr) - (len(tempstr) - rtn + 1))
endif

End Function 'GetModemName 

'******************************************************************************
'Name   : SetParamState
'Desc   : Set the Param checkbox to the desired state 
'			 
'Parms  : hTB20 handle to TAPI Browser
'			 State state to set Param checkbox
'
'Return : TRUE if Param checkbox is set
'			 FALSE if Param checkbox is reset
'			 
'History: 04/18/96 : a-rrohr: Created
'*****************************************************************************
Function SetParamState (hTB20 as long, State as long)	as long

dim ParamID as long
dim hParam	as long

ParamID = &h03F9&

hParam = GetDlgItem (hTB20, ParamID)

select case State

	case CHECKED
		WCheckCheck (_hwnd(hParam), TIMEOUT)
		SetParamState = TRUE
	case UNCHECKED
		WCheckUnCheck (_hwnd(hParam), TIMEOUT)
		SetParamState = FALSE

end select

end Function 'SetParamState 

'******************************************************************************
'Name   : SetParamAttrib
'Desc   : Set the Parameters of the TAPI call 
'			 
'Parms  : API_CALL: Title of the dialog caption
'			 Uses Global array ParamTraits
'
'Return : TRUE if Parameters as set correctly
'			 otherwise FALSE 
'			 
'History: 04/18/96 : a-rrohr: Created
'*****************************************************************************
Function SetParamAttrib (API_CALL as string)	as long

dim w_flags       as long	'flags for WFndWndC
dim Param_lstID   as long	'Parameter list box id
dim Value_cboID   as long	'Value combobox id
dim BitFlag_lstID as long	'BitFlag list box id
dim OK_cmdID      as long
dim Cancel_cmdID  as long
dim cbo_EditID    as long	'Value combobox editbox id
dim cbo_ListID    as long	'Value combobox listbox id
dim hDlg				as long  'handle to Parameter dialog
dim hParam			as long	'handle to Parameter listbox
dim hValue			as long	'handle to Value Combobox
dim hBitFlag		as long	'handle to BitFlag listbox
dim hValueEdit		as long	'handle to Value Combobox Edit box
dim hValueList		as long	'handle to Value Combobox List box
dim hOK_cmd 		as long	'handle to OK Button
Dim NumSelections As short
Dim Item				As short
Dim intarray		As Pointer To LONG
dim count as long, lArrayLimit as long, uArrayLimit as long

w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST OR FW_NOERROR _
			 OR FW_FOCUS OR FW_NOCASE  

Param_lstID	  =&h03E8&
Value_cboID	  =&h03EA&
BitFlag_lstID =&h03E9&
OK_cmdID		  =&h01&
Cancel_cmdID  =&h02&
cbo_EditID	  =&h03E9&
cbo_ListID	  =&h03E8&

SetParamAttrib = TRUE

'Get handle to Parameter dialog or exit
hDlg = WFndWndC (API_CALL, DIALOG_CLASS, w_Flags, WTIMEOUT)

if hDlg = 0 then
	SetParamAttrib = FALSE
   WritelogItem ("Unable to locate Parameter dialog for", API_CALL)
	GoTo EndOfFunction
endif

'Get handles to dialog controls
hParam	= GetDlgItem (hDlg, Param_lstID)
hValue	= GetDlgItem (hDlg, Value_cboID)
	hValueEdit	= GetDlgItem (hValue, cbo_EditID)
	hValueList	= GetDlgItem (hValue, cbo_ListID)
hBitFlag = GetDlgItem (hDlg, BitFlag_lstID)
hOK_cmd  = GetDlgItem (hDlg, OK_cmdID)

lArrayLimit = lbound(ParamTraits)
uArrayLimit = ubound(ParamTraits)

'Set Parameters of dialog
for count = lArrayLimit to uArrayLimit

	if ParamTraits(count).Param <> "" then
		WListItemClk (_hwnd(hParam), ParamTraits(count).Param, TIMEOUT) 
	endif

	if ParamTraits(count).BitFlagList <> "" then
		if count = 0 then 
			'if any items in the bitflag list are selected prior to setting the first bitflag
			'then deselect them 
			NumSelections = WListSelCount(_hwnd(hBitFlag))

			If (NumSelections > 0) Then
				Allocate intarray, NumSelections
				WListSelItems (_hwnd(hBitFlag), intarray)
				For item = 1 to NumSelections
					WListItemClk(_hwnd(hBitFlag), _ord(intarray[item-1]))
				Next item
				DeAllocate intarray
			endif
		endif
		WListItemClk (_hwnd(hBitFlag), ParamTraits(count).BitFlagList, TIMEOUT) 

	endif

	if ParamTraits(count).ValueEdit <> "" then	
		WEditSetText (_hwnd(hValueEdit), ParamTraits(count).ValueEdit, TIMEOUT)
	endif

	if ParamTraits(count).ValueList <> "" then
		WComboItemClk (_hwnd(hValue), ParamTraits(count).ValueList, TIMEOUT) 
	endif
next 'count
'Close dialog
WButtonClick(_hwnd(hOK_cmd), TIMEOUT)	 

EndOfFunction:
end function 'SetParamAttrib

'******************************************************************************
'Name   : MsgSplitter
'Desc   : Takes the Returntxt and looks for the given message (MsgStruct.Msg).
'			 If found then the removes the message (and all proceeding text from
'			 the tesxt string and copies the message parameters into MsgStruct.
'			 The MsgStruct and revised text string is then returned along with 
'			 Function = True
'			 else The function returns False.
'			 
'Parms  : Retundtxt: Text in TAPI Browser edit box returned by TAPI call
'			 MsgStruct: Message structure with parameter
'
'Return : True is Message is found otherwis False
'			 
'History: 05/02/96 : a-rrohr: Created
'*****************************************************************************
Function MsgSplitter (Returntxt as string, MsgStruct as TAPIMSG) as long

dim tempstr as string, editstr as string, fieldstr as string
dim rtn as long, CRLFrtn as long, paramrtn as long
dim count as short

tempstr = space$(1)

rtn = instr (1, Returntxt, MsgStruct.Msg)
if rtn > 0 then

	'remove LINE_CALLSTATE 
	CRLFrtn = instr(rtn, Returntxt, CRLF)
	editstr = right$(Returntxt, len(Returntxt) - CRLFrtn -1)
	'Fill CALLSTATEMSG structure
	for count = 1 to 5
		paramrtn = instr(1, editstr, "=") 
		CRLFrtn = instr(paramrtn, editstr, CRLF)
		if paramrtn > 0 AND CRLFrtn > 0 then
			fieldstr = mid$(editstr, paramrtn + 1, CRLFrtn - paramrtn -1)
			editstr = right$(editstr, len(editstr) - CRLFrtn -1)
			select case count
				case 1
					MsgStruct.device = fieldstr 
				case 2 
					MsgStruct.cbInst = fieldstr 
				case 3 
					MsgStruct.param1 = fieldstr 
				case 4 
					MsgStruct.param2 = fieldstr 
				case 5 
					MsgStruct.param3 = fieldstr 
			end select
		end if  'paramrtn > 0 AND CRLFrtn > 0
	next 'count
else
	MsgSplitter = FALSE
endif

end function 'MsgSplitter

'*****************************************************************************
'Name   : DeleteESPtsp 
'Desc   : Calls the Registry editor and sets Telephony locations 
'			 NumEntries value equal to zero 
'         
'Parms  : None 
'			 
'Return : TRUE if successful in setting NumEntries equal to zero, 
'			 otherwise false
'
'History: 02/14/96 : a-rrohr: Created
'*****************************************************************************

Function DeleteESPtsp () as short

dim handle as long, hTree as long, hList as long		'handles for regedit
dim hdialog as long, hEdit as long, hOKcmd as long		'handles for Edit dialog
dim hButton as long, w_flags as long, exitdoloop as long
dim treepath as string
dim Windowpath as string
dim Viewitem   as string
dim providername as string
dim rtn as long, count as short
dim Value_txtID as long, OK_cmdID as long					'Edit dialog control IDs

Value_txtID = &h03E9&
OK_cmdID =&h0001&
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST OR FW_NOERROR _
			 OR FW_FOCUS OR FW_NOCASE  

WindowPath = space$(64)
GetWindowsDirectory (WindowPath, len(WindowPath))

Run (WindowPath + "\Regedit.exe"), NOWAIT

handle = WFndWndC (REGEDIT_CAPTION, REGEDIT_CLASS , w_flags, WTIMEOUT)

if handle = 0 then
	DeleteESPtsp = FALSE
   WritelogItem ("", "Invailid handle to Registry Editor")
	goto End_Of_Sub 
end if

hTree = GetDlgItem (handle, &h00000001)
if hTree = 0 then
	DeleteESPtsp = FALSE
   WritelogItem ("", "Invailid handle to Registry Editor Tree")
	goto End_Of_Sub 
end if

hList = GetDlgItem (handle, &h00000002)
if hList = 0 then
	DeleteESPtsp = FALSE
   WritelogItem ("", "Invailid handle to Registry Editor List")
	goto End_Of_Sub 
end if

WTreeItemExpand (_hwnd(hTree), REG_lOC_PATH, TIMEOUT)
WTreeItemClk (_hwnd(hTree), REG_lOC_PATH, VK_LBUTTON, TIMEOUT)
sleep 1

' The first time dialing properties is invoked the NumEntries dword may not exist.

viewitem = Space$(1)
count = 0
do
  exitdoloop = TRUE
  viewitem = "ProviderFilename" + ltrim$(str$(count))
  if WViewItemExists (_hwnd(hList), viewitem, TIMEOUT) then
    exitdoloop = FALSE
	WViewItemDblClk (_hwnd(hList), viewitem, VK_LBUTTON, TIMEOUT)
	hDialog = WFndWndC ("Edit String", DIALOG_CLASS , w_flags, WTIMEOUT)
	if hDialog = 0 then
		DeleteESPtsp = FALSE
		WritelogItem ("", "Invailid handle to Edit dialog")
		goto End_Of_Sub 
	end if
	hEdit = GetDlgItem (hDialog, Value_txtID) 
	if hEdit = 0 then
		DeleteESPtsp = FALSE
		WritelogItem ("", "Invailid handle to Edit dialog Value data edit box")
		goto End_Of_Sub 
	end if
	hOKcmd = GetDlgItem (hDialog, OK_cmdID)
	if hOKcmd = 0 then
		DeleteESPtsp = FALSE
		WritelogItem ("", "Invailid handle to Edit dialog OK button")
		goto End_Of_Sub 
	end if
	providername = editText (_hwnd(hEdit), Timeout)
	WButtonClick (_hwnd(hOKcmd), Timeout)
	if providername = "esp32.tsp" then
        exitdoloop = TRUE
		WMenuSelect ("&Edit\Delete")
		hDialog = WFndWndC ("Confirm Value Delete", DIALOG_CLASS , w_flags, WTIMEOUT)
		hButton = GetDlgItem (hDialog, &h6&)
		WButtonClick (_hwnd(hButton), Timeout)
	endif
  endif
  count = count + 1

loop until exitdoloop

DONE:' if numentries doesn't exist then jump here

handle = WFndWndC (REGEDIT_CAPTION, REGEDIT_CLASS , w_flags, WTIMEOUT)

WSetActWnd (handle)
WMenuSelect ("&Registry\E&xit", TIMEOUT)

End_Of_Sub:  'line lable

end Sub 'DeleteESPtsp

'*****************************************************************************
'Name   : RestoreProviders 
'Desc   : Restores Telephony Providers information saved with function
'			 SetupProviders
'         
'Parms  : None 
'			 
'Return : None 
'
'History: 05/16/96 : a-rrohr: Created
'*****************************************************************************

Sub RestoreProviders ()

dim handle as long, hReg as long, hLocal as long		'handles for regedit
dim Windowpath as string, SystemPath as string
dim FindWhatID as long, FindNextID as long, count as long					'Find dialog control IDs
dim OKID as long, YesID as long, KeyNameID as long
dim FileNameID as long, CancelID as long
dim hCtrl as long, w_flags as long, hDlg as long					
dim RegPath(5) as string

RegPath(0) = "Software"
RegPath(1) = "Microsoft"
RegPath(2) = "Windows"
RegPath(3) = "CurrentVersion"
RegPath(4) = "Telephony"
RegPath(5) = "Providers"

'Find dialog IDs
FindWhatID = &h0480&
FindNextID = &h0001&
CancelID   = &h0002&

'Other IDs
OKID		  = &h0001& 
YesID		  = &h0006& 
KeyNameID  = &h0068&
FileNameID = &h0480&

	'Open Registry Editor 32 and put the focus on the Telephony\Provider key
	WindowPath = space$(64)
	GetWindowsDirectory (WindowPath, len(WindowPath))
	SystemPath = space$(64)
	GetSystemDirectory (SystemPath, len(SystemPath))

	Run (SystemPath + "\Regedt32.exe"), NOWAIT

	handle = WFndWndC (REGEDIT_CAPTION, REGEDIT_CLASS , w_flags, TIMEOUT)

	hReg = WFndWndC (LOC_MACH_CAPTION, REGWIN_CLASS , w_flags, TIMEOUT)
	WMaxWnd (hReg)

	'Go to Providers key
	For count = lbound(RegPath) to ubound(RegPath)
		WMenuSelect (MView	+ "\" + MFKey, TIMEOUT)	
		hDlg = WFndWndC (FIND_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
		hctrl = GetDlgItem (hDlg, FindWhatID ) 
		WEditSetText (_hwnd(hCtrl), RegPath(Count), Timeout )
		hctrl = GetDlgItem (hDlg, FindNextID) 
	 	WButtonClick(_hwnd(hCtrl), Timeout )
	next
	'Close Find key dialog
	hctrl = GetDlgItem (hDlg, CancelID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )

	'Select Registry, Restore Key Menu and complete dialog 
	WMenuSelect (MREG + "\" + MRESTORE, TIMEOUT)
	hDlg = WFndWndC (RESKEY_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, FileNameID)
	WEditSetText (_hwnd(hCtrl), Windowpath + KEY_FILENAME, Timeout )
	hctrl = GetDlgItem (hDlg, OKID)
 	WButtonClick(_hwnd(hCtrl), Timeout )

	'Close Warning Dialog
	hDlg = WFndWndC (WARNING_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, YesID)
  	WButtonClick(_hwnd(hCtrl), Timeout )


	'Delete file %windir%\Providers.key
	if exists (Windowpath + KEY_FILENAME) then
		Kill (Windowpath + KEY_FILENAME)
	endif

	'Close Registry Editor 32
	WResWnd (hReg)
	WSetActWnd (handle)
	WMenuSelect (MREG + "\" + MExit, TIMEOUT)
 
End Sub 'RestoreProviders

'*****************************************************************************
'Name   : SetupProviders 
'Desc   : Calls the Registry editor, saves Telephony\Providers in a file 
'			 and configures the providers to kmddsptsp and unimdm.tsp 
'         
'Parms  : None 
'			 
'Return : None 
'
'History: 05/15/96 : a-rrohr: Created
'*****************************************************************************

Sub SetupProviders ()

dim handle as long, hReg as long, hLocal as long		'handles for regedit
dim Windowpath as string, SystemPath as string
dim rtn as long, count as short
dim FindWhatID as long, FindNextID as long					'Find dialog control IDs
dim CancelID as long, UpID as long, DownID as long
dim OKID as long, YesID as long, KeyNameID as long
dim FileNameID as long
dim hCtrl as long, w_flags as long, hDlg as long					
dim RegPath(5) as string
dim ProviderParam(5) as ParamInfo
dim ValueNameID as long, DataTypeID as long, DataEditID as long

RegPath(0) = "Software"
RegPath(1) = "Microsoft"
RegPath(2) = "Windows"
RegPath(3) = "CurrentVersion"
RegPath(4) = "Telephony"
RegPath(5) = "Providers"

ProviderParam(0).VName = "NextProviderID"
ProviderParam(0).DType = "REG_DWORD"
ProviderParam(0).Value = "3"
ProviderParam(1).VName = "NumProviders"
ProviderParam(1).DType = "REG_DWORD"
ProviderParam(1).Value =  "2"
ProviderParam(2).VName = "ProviderFilename0"
ProviderParam(2).DType = "REG_SZ"
ProviderParam(2).Value = "kmddsp.tsp"
ProviderParam(3).VName = "ProviderFilename1"
ProviderParam(3).DType = "REG_SZ"
ProviderParam(3).Value = "unimdm.tsp"
ProviderParam(4).VName = "ProviderID0"
ProviderParam(4).DType = "REG_DWORD"
ProviderParam(4).Value = "1"
ProviderParam(5).VName = "ProviderID1"
ProviderParam(5).DType = "REG_DWORD"
ProviderParam(5).Value = "2"

'Find dialog IDs
FindWhatID = &h0480&
FindNextID = &h0001&
CancelID   = &h0002&
UpID		  = &h0420&
DownID	  = &h0421&

'Other IDs
OKID		  = &h0001& 
YesID		  = &h0006& 
KeyNameID  = &h0068&
FileNameID = &h0480&

ValueNameID = &h012E& 
DataTypeID  = &h012D&
DataEditID  = &h02C1&

TIMEOUT = 3
w_flags = FW_ALL OR FW_CHILDOK OR FW_DIALOGOK OR FW_EXIST OR FW_NOERROR _
			 OR FW_FOCUS OR FW_NOCASE  

WindowPath = space$(64)
GetWindowsDirectory (WindowPath, len(WindowPath))
SystemPath = space$(64)
GetSystemDirectory (SystemPath, len(SystemPath))

Run (SystemPath + "\Regedt32.exe"), NOWAIT

handle = WFndWndC (REGEDIT_CAPTION, REGEDIT_CLASS , w_flags, TIMEOUT)

hReg = WFndWndC (LOC_MACH_CAPTION, REGWIN_CLASS , w_flags, TIMEOUT)
WMaxWnd (hReg)

'Go to Providers key
For count = lbound(RegPath) to ubound(RegPath)
	WMenuSelect (MView	+ "\" + MFKey, TIMEOUT)	
	hDlg = WFndWndC (FIND_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, FindWhatID ) 
	WEditSetText (_hwnd(hCtrl), RegPath(Count), Timeout )
	hctrl = GetDlgItem (hDlg, FindNextID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )
next
'Close Find key dialog
	hctrl = GetDlgItem (hDlg, CancelID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )

'Save Providers key in Windows directory
	if exists (Windowpath + KEY_FILENAME) then
		Kill (Windowpath + KEY_FILENAME)
	endif
	WMenuSelect (MREG + "\" + MSAVE_KEY, TIMEOUT)
	hDlg = WFndWndC (SAVEKEY_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, FileNameID)
	WEditSetText (_hwnd(hCtrl), Windowpath + KEY_FILENAME, Timeout )
	hctrl = GetDlgItem (hDlg, OKID)
 	WButtonClick(_hwnd(hCtrl), Timeout )

'Delete Providers Key
   WMenuSelect (MEDIT + "\" + MDEL, TIMEOUT)
	hDlg = WFndWndC (WARNING_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, YesID)
  	WButtonClick(_hwnd(hCtrl), Timeout )

'Make way back to Telphony key
	WMenuSelect (MView	+ "\" + MFKey, TIMEOUT)	
	hDlg = WFndWndC (FIND_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	'Set Up Option Button
	hctrl = GetDlgItem (hDlg, UpID ) 
	WOptionClick (_Hwnd(hctrl), TIMEOUT)
	'Set key to Telephony
	hctrl = GetDlgItem (hDlg, FindWhatID ) 
	WEditSetText (_hwnd(hCtrl), RegPath(4), Timeout )
	hctrl = GetDlgItem (hDlg, FindNextID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )
   'Close Find key dialog
	hctrl = GetDlgItem (hDlg, CancelID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )

'Add new Providers key
	WSetActWnd (handle)
	WMenuSelect (MEDIT + "\" + MADDKEY, TIMEOUT)	
	hDlg = WFndWndC (ADDKEY_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, KeyNameID ) 
	WEditSetText (_hwnd(hCtrl), RegPath(5), Timeout )
	hctrl = GetDlgItem (hDlg, OKID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )

	'Put focus back on Providers
	WMenuSelect (MView	+ "\" + MFKey, TIMEOUT)	
	hDlg = WFndWndC (FIND_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	'Set Up Option Button
	hctrl = GetDlgItem (hDlg, DownID ) 
	WOptionClick (_Hwnd(hctrl), TIMEOUT)
	'Set key to Telephony
	hctrl = GetDlgItem (hDlg, FindWhatID ) 
	WEditSetText (_hwnd(hCtrl), RegPath(5), Timeout )
	hctrl = GetDlgItem (hDlg, FindNextID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )
   'Close Find key dialog
	hctrl = GetDlgItem (hDlg, CancelID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )

'Add Providers key parameters

For count = lbound(ProviderParam) to ubound(ProviderParam)
	WMenuSelect (MEDIT +"\"+ MADDVAL, TIMEOUT)	
	hDlg = WFndWndC (ADDVALUE_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	hctrl = GetDlgItem (hDlg, ValueNameID ) 
	WEditSetText (_hwnd(hCtrl), ProviderParam(Count).VName, Timeout )
	hctrl = GetDlgItem (hDlg, DataTypeID) 
 	WComboItemClk(_hwnd(hCtrl), ProviderParam(Count).DType, Timeout )
	hctrl = GetDlgItem (hDlg, OKID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )

	if ProviderParam(Count).DType = "REG_SZ" then
		hDlg = WFndWndC (RSTR_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	else
		hDlg = WFndWndC (DWORD_CAPTION, DIALOG_CLASS , w_flags, TIMEOUT)
	endif
	hctrl = GetDlgItem (hDlg, DataEditID ) 
	WEditSetText (_hwnd(hCtrl), ProviderParam(Count).Value, Timeout )
	hctrl = GetDlgItem (hDlg, OKID) 
 	WButtonClick(_hwnd(hCtrl), Timeout )
	Sleep 1
next

WResWnd (hReg)
WSetActWnd (handle)
WMenuSelect (MREG + "\" + MExit, TIMEOUT)

End Sub 'SetupProviders

'******************************************************************************
'Name   : LineCallState
'Desc   : Checks the TAPI call for LINE_CALLSTATE, and verifies param1
'			 
'Parms  : CallStateMsg 
'			 EditString
'
'Return : True if LINE_CALLSTATE param1 is expected value, otherwise false
'			 also fills CallStateMsg with data returned by call
'
'History: 04/25/96 : a-rrohr: Created
'*****************************************************************************
Function LineCallState (CALLSTATEMSG as TAPIMSG, Editstr as string) as long 

dim tempstr as string
dim rtn as long, paramrtn as long, CRLFrtn as long, count as long, functstate as long
dim param1str as string, fieldstr as string

LineCallState = FALSE
functstate    = FALSE
param1str	  = CALLSTATEMSG.param1


rtn = instr (1, EditStr, CALLSTATEMSG.Errorstr)
if rtn = 0 then
	CALLSTATEMSG.Errorstr = ""
endif
do
	'Find LINE_CALLSTATE in return text
	rtn = instr (1, EditStr, "LINE_CALLSTATE")
	if rtn > 0 then   'Fill CallStateMsg with LINE_CALLSTATE parameters
		
		'remove LINE_CALLSTATE 
		CRLFrtn = instr(rtn, editstr, CRLF)
		editstr = right$(editstr, len(editstr) - CRLFrtn -1)
		'Fill CALLSTATEMSG structure
		for count = 1 to 5
			paramrtn = instr(1, editstr, "=") 
			CRLFrtn = instr(paramrtn, editstr, CRLF)
			if paramrtn > 0 AND CRLFrtn > 0 then
				fieldstr = mid$(editstr, paramrtn + 1, CRLFrtn - paramrtn -1)
				editstr = right$(editstr, len(editstr) - CRLFrtn -1)
				select case count
					case 1
						CALLSTATEMSG.device = fieldstr 
					case 2 
						CALLSTATEMSG.cbInst = fieldstr 
					case 3 
						CALLSTATEMSG.param1 = fieldstr 
					case 4 
						CALLSTATEMSG.param2 = fieldstr 
					case 5 
						CALLSTATEMSG.param3 = fieldstr 
				end select
			end if  'paramrtn > 0 AND CRLFrtn > 0
		next 'count
		'test for param1

		paramrtn = instr(1, CALLSTATEMSG.param1, ",")
		tempstr = ltrim$(rtrim$(right$(CALLSTATEMSG.param1, len(CALLSTATEMSG.param1) - paramrtn -1)))

		if tempstr = param1str then
			LineCallState = TRUE
			functstate	  = TRUE
		else
			LineCallState = FALSE
			functstate	  = FALSE
		endif	'CALLSTATEMSG.param1 = param1str
		
	endif	'rtn > 0

loop until (rtn = 0) or (functstate = TRUE)

end Function 'LineCallState 

'******************************************************************************
'Name   : LineReturnValue
'Desc   : Returns the numeric error code associated with the line error string 
'			 
'Parms  : Line Error String
'
'Return : Error code
'			 
'History: 04/18/96 : a-rrohr: Created
'******************************************************************************
Function LineReturnValue  (ErrorStr as string) as long

select case ErrorStr

   case "SUCCESS"
		LineReturnValue = &h0&
	case "LINEERR_ALLOCATED"                   
	   LineReturnValue = &h80000001
   case "LINEERR_BADDEVICEID"
      LineReturnValue = &h80000002
   case "LINEERR_BEARERMODEUNAVAIL"           
	   LineReturnValue = &h80000003
   case "LINEERR_CALLUNAVAIL"                 
	   LineReturnValue = &h80000005
   case "LINEERR_COMPLETIONOVERRUN"           
	   LineReturnValue = &h80000006
   case "LINEERR_CONFERENCEFULL"              
	   LineReturnValue = &h80000007
   case "LINEERR_DIALBILLING"                 
	   LineReturnValue = &h80000008
   case "LINEERR_DIALDIALTONE"                
	   LineReturnValue = &h80000009
   case "LINEERR_DIALPROMPT"                  
	   LineReturnValue = &h8000000A
   case "LINEERR_DIALQUIET"
	   LineReturnValue = &h8000000B
   case "LINEERR_INCOMPATIBLEAPIVERSION"      
	   LineReturnValue = &h8000000C
   case "LINEERR_INCOMPATIBLEEXTVERSION"      
	   LineReturnValue = &h8000000D
   case "LINEERR_INIFILECORRUPT"              
	   LineReturnValue = &h8000000E
   case "LINEERR_INUSE"                       
	   LineReturnValue = &h8000000F
   case "LINEERR_INVALADDRESS"                
	   LineReturnValue = &h80000010
   case "LINEERR_INVALADDRESSID"              
	   LineReturnValue = &h80000011
   case "LINEERR_INVALADDRESSMODE"            
	   LineReturnValue = &h80000012
   case "LINEERR_INVALADDRESSSTATE"           
	   LineReturnValue = &h80000013
   case "LINEERR_INVALAPPHANDLE"              
	   LineReturnValue = &h80000014
   case "LINEERR_INVALAPPNAME"                
	   LineReturnValue = &h80000015
   case "LINEERR_INVALBEARERMODE"             
	   LineReturnValue = &h80000016
   case "LINEERR_INVALCALLCOMPLMODE"          
	   LineReturnValue = &h80000017
   case "LINEERR_INVALCALLHANDLE"             
	   LineReturnValue = &h80000018
   case "LINEERR_INVALCALLPARAMS"             
	   LineReturnValue = &h80000019
   case "LINEERR_INVALCALLPRIVILEGE"          
	   LineReturnValue = &h8000001A
   case "LINEERR_INVALCALLSELECT"             
	   LineReturnValue = &h8000001B
   case "LINEERR_INVALCALLSTATE"              
	   LineReturnValue = &h8000001C
   case "LINEERR_INVALCALLSTATELIST"          
	   LineReturnValue = &h8000001D
   case "LINEERR_INVALCARD"                   
	   LineReturnValue = &h8000001E
   case "LINEERR_INVALCOMPLETIONID"           
	   LineReturnValue = &h8000001F
   case "LINEERR_INVALCONFCALLHANDLE"         
	   LineReturnValue = &h80000020
   case "LINEERR_INVALCONSULTCALLHANDLE"      
	   LineReturnValue = &h80000021
   case "LINEERR_INVALCOUNTRYCODE"            
	   LineReturnValue = &h80000022
   case "LINEERR_INVALDEVICECLASS"            
	   LineReturnValue = &h80000023
   case "LINEERR_INVALDEVICEHANDLE"           
	   LineReturnValue = &h80000024
   case "LINEERR_INVALDIALPARAMS"             
	   LineReturnValue = &h80000025
   case "LINEERR_INVALDIGITLIST"              
	   LineReturnValue = &h80000026
   case "LINEERR_INVALDIGITMODE"              
	   LineReturnValue = &h80000027
   case "LINEERR_INVALDIGITS"                 
	   LineReturnValue = &h80000028
   case "LINEERR_INVALEXTVERSION"             
	   LineReturnValue = &h80000029
   case "LINEERR_INVALGROUPID"                
	   LineReturnValue = &h8000002A
   case "LINEERR_INVALLINEHANDLE"             
	   LineReturnValue = &h8000002B
   case "LINEERR_INVALLINESTATE"             
	   LineReturnValue = &h8000002C
   case "LINEERR_INVALLOCATION"               
	   LineReturnValue = &h8000002D
   case "LINEERR_INVALMEDIALIST"              
	   LineReturnValue = &h8000002E
   case "LINEERR_INVALMEDIAMODE"              
	   LineReturnValue = &h8000002F
   case "LINEERR_INVALMESSAGEID"              
	   LineReturnValue = &h80000030
   case "LINEERR_INVALPARAM"                  
	   LineReturnValue = &h80000032
   case "LINEERR_INVALPARKID"                 
	   LineReturnValue = &h80000033
   case "LINEERR_INVALPARKMODE"               
	   LineReturnValue = &h80000034
   case "LINEERR_INVALPOINTER"                
	   LineReturnValue = &h80000035
   case "LINEERR_INVALPRIVSELECT"             
	   LineReturnValue = &h80000036
   case "LINEERR_INVALRATE"           
	   LineReturnValue = &h80000037
   case "LINEERR_INVALREQUESTMODE"            
	   LineReturnValue = &h80000038
   case "LINEERR_INVALTERMINALID"             
	   LineReturnValue = &h80000039
   case "LINEERR_INVALTERMINALMODE"           
	   LineReturnValue = &h8000003A
   case "LINEERR_INVALTIMEOUT"                
	   LineReturnValue = &h8000003B 
   case "LINEERR_INVALTONE"                   
	   LineReturnValue = &h8000003C
   case "LINEERR_INVALTONELIST"               
	   LineReturnValue = &h8000003D
   case "LINEERR_INVALTONEMODE"               
	   LineReturnValue = &h8000003E
   case "LINEERR_INVALTRANSFERMODE"           
	   LineReturnValue = &h8000003F
   case "LINEERR_LINEMAPPERFAILED"            
	   LineReturnValue = &h80000040
   case "LINEERR_NOCONFERENCE"                
	   LineReturnValue = &h80000041
   case "LINEERR_NODEVICE"                    
	   LineReturnValue = &h80000042
   case "LINEERR_NODRIVER"                    
	   LineReturnValue = &h80000043
   case "LINEERR_NOMEM"                       
	   LineReturnValue = &h80000044
   case "LINEERR_NOREQUEST"                   
	   LineReturnValue = &h80000045
   case "LINEERR_NOTOWNER"                    
	   LineReturnValue = &h80000046
   case "LINEERR_NOTREGISTERED"               
	   LineReturnValue = &h80000047
   case "LINEERR_OPERATIONFAILED"             
	   LineReturnValue = &h80000048
   case "LINEERR_OPERATIONUNAVAIL"            
	   LineReturnValue = &h80000049
   case "LINEERR_RATEUNAVAIL"                 
	   LineReturnValue = &h8000004A
   case "LINEERR_RESOURCEUNAVAIL"             
	   LineReturnValue = &h8000004B
   case "LINEERR_REQUESTOVERRUN"              
	   LineReturnValue = &h8000004C
   case "LINEERR_STRUCTURETOOSMALL"           
	   LineReturnValue = &h8000004D
   case "LINEERR_TARGETNOTFOUND"              
	   LineReturnValue = &h8000004E
   case "LINEERR_TARGETSELF"                  
	   LineReturnValue = &h8000004F
   case "LINEERR_UNINITIALIZED"               
	   LineReturnValue = &h80000050
   case "LINEERR_USERUSERINFOTOOBIG"          
	   LineReturnValue = &h80000051
   case "LINEERR_REINIT"                      
	   LineReturnValue = &h80000052
   case "LINEERR_ADDRESSBLOCKED"              
	   LineReturnValue = &h80000053
   case "LINEERR_BILLINGREJECTED"             
	   LineReturnValue = &h80000054
   case "LINEERR_INVALFEATURE"
	   LineReturnValue = &h80000055
   case "LINEERR_NOMULTIPLEINSTANCE"          
	   LineReturnValue = &h80000056

end select

End Function 'LineReturnValue

'******************************************************************************
'Name   : LineReturnString
'Desc   : Returns the numeric error code associated with the line error string 
'			 
'Parms  : Line Error String
'
'Return : Error code
'			 
'History: 04/18/96 : a-rrohr: Created
'******************************************************************************
Function LineReturnString  (ErrorVal as long) as string

select case ErrorVal

case &h0&
   LineReturnString = "SUCCESS"
case &h80000001
	LineReturnString = "LINEERR_ALLOCATED"                   
case &h80000002
   LineReturnString = "LINEERR_BADDEVICEID"
case &h80000003
   LineReturnString = "LINEERR_BEARERMODEUNAVAIL"           
case &h80000005
   LineReturnString = "LINEERR_CALLUNAVAIL"                 
case &h80000006
   LineReturnString = "LINEERR_COMPLETIONOVERRUN"           
case &h80000007
   LineReturnString = "LINEERR_CONFERENCEFULL"              
case &h80000008
   LineReturnString = "LINEERR_DIALBILLING"                 
case &h80000009
   LineReturnString = "LINEERR_DIALDIALTONE"                
case &h8000000A
   LineReturnString = "LINEERR_DIALPROMPT"                  
case &h8000000B
   LineReturnString = "LINEERR_DIALQUIET"
case &h8000000C
   LineReturnString = "LINEERR_INCOMPATIBLEAPIVERSION"      
case &h8000000D
   LineReturnString = "LINEERR_INCOMPATIBLEEXTVERSION"      
case &h8000000E
   LineReturnString = "LINEERR_INIFILECORRUPT"              
case &h8000000F
   LineReturnString = "LINEERR_INUSE"                       
case &h80000010
   LineReturnString = "LINEERR_INVALADDRESS"                
case &h80000011
   LineReturnString = "LINEERR_INVALADDRESSID"              
case &h80000012
   LineReturnString = "LINEERR_INVALADDRESSMODE"            
case &h80000013
   LineReturnString = "LINEERR_INVALADDRESSSTATE"           
case &h80000014
   LineReturnString = "LINEERR_INVALAPPHANDLE"              
case &h80000015
   LineReturnString = "LINEERR_INVALAPPNAME"                
case &h80000016
   LineReturnString = "LINEERR_INVALBEARERMODE"             
case &h80000017
   LineReturnString = "LINEERR_INVALCALLCOMPLMODE"          
case &h80000018
   LineReturnString = "LINEERR_INVALCALLHANDLE"             
case &h80000019
   LineReturnString = "LINEERR_INVALCALLPARAMS"             
case &h8000001A
   LineReturnString = "LINEERR_INVALCALLPRIVILEGE"          
case &h8000001B
   LineReturnString = "LINEERR_INVALCALLSELECT"             
case &h8000001C
   LineReturnString = "LINEERR_INVALCALLSTATE"              
case &h8000001D
   LineReturnString = "LINEERR_INVALCALLSTATELIST"          
case &h8000001E
   LineReturnString = "LINEERR_INVALCARD"                   
case &h8000001F
   LineReturnString = "LINEERR_INVALCOMPLETIONID"           
case &h80000020
   LineReturnString = "LINEERR_INVALCONFCALLHANDLE"         
case &h80000021
   LineReturnString = "LINEERR_INVALCONSULTCALLHANDLE"      
case &h80000022
   LineReturnString = "LINEERR_INVALCOUNTRYCODE"            
case &h80000023
   LineReturnString = "LINEERR_INVALDEVICECLASS"            
case &h80000024
   LineReturnString = "LINEERR_INVALDEVICEHANDLE"           
case &h80000025
   LineReturnString = "LINEERR_INVALDIALPARAMS"             
case &h80000026
   LineReturnString = "LINEERR_INVALDIGITLIST"              
case &h80000027
   LineReturnString = "LINEERR_INVALDIGITMODE"              
case &h80000028
   LineReturnString = "LINEERR_INVALDIGITS"                 
case &h80000029
   LineReturnString = "LINEERR_INVALEXTVERSION"             
case &h8000002A
   LineReturnString = "LINEERR_INVALGROUPID"                
case &h8000002B
   LineReturnString = "LINEERR_INVALLINEHANDLE"             
case &h8000002C
   LineReturnString = "LINEERR_INVALLINESTATE"             
case &h8000002D
   LineReturnString = "LINEERR_INVALLOCATION"               
case &h8000002E
   LineReturnString = "LINEERR_INVALMEDIALIST"              
case &h8000002F
   LineReturnString = "LINEERR_INVALMEDIAMODE"              
case &h80000030
   LineReturnString = "LINEERR_INVALMESSAGEID"              
case &h80000032
   LineReturnString = "LINEERR_INVALPARAM"                  
case &h80000033
   LineReturnString = "LINEERR_INVALPARKID"                 
case &h80000034
   LineReturnString = "LINEERR_INVALPARKMODE"               
case &h80000035
   LineReturnString = "LINEERR_INVALPOINTER"                
case &h80000036
   LineReturnString = "LINEERR_INVALPRIVSELECT"             
case &h80000037
   LineReturnString = "LINEERR_INVALRATE"           
case &h80000038
   LineReturnString = "LINEERR_INVALREQUESTMODE"            
case &h80000039
   LineReturnString = "LINEERR_INVALTERMINALID"             
case &h8000003A
   LineReturnString = "LINEERR_INVALTERMINALMODE"           
case &h8000003B 
   LineReturnString = "LINEERR_INVALTIMEOUT"                
case &h8000003C
   LineReturnString = "LINEERR_INVALTONE"                   
case &h8000003D
   LineReturnString = "LINEERR_INVALTONELIST"               
case &h8000003E
   LineReturnString = "LINEERR_INVALTONEMODE"               
case &h8000003F
   LineReturnString = "LINEERR_INVALTRANSFERMODE"           
case &h80000040
   LineReturnString = "LINEERR_LINEMAPPERFAILED"            
case &h80000041
   LineReturnString = "LINEERR_NOCONFERENCE"                
case &h80000042
   LineReturnString = "LINEERR_NODEVICE"                    
case &h80000043
   LineReturnString = "LINEERR_NODRIVER"                    
case &h80000044
   LineReturnString = "LINEERR_NOMEM"                       
case &h80000045
   LineReturnString = "LINEERR_NOREQUEST"                   
case &h80000046
   LineReturnString = "LINEERR_NOTOWNER"                    
case &h80000047
   LineReturnString = "LINEERR_NOTREGISTERED"               
case &h80000048
   LineReturnString = "LINEERR_OPERATIONFAILED"             
case &h80000049
   LineReturnString = "LINEERR_OPERATIONUNAVAIL"            
case &h8000004A
   LineReturnString = "LINEERR_RATEUNAVAIL"                 
case &h8000004B
   LineReturnString = "LINEERR_RESOURCEUNAVAIL"             
case &h8000004C
   LineReturnString = "LINEERR_REQUESTOVERRUN"              
case &h8000004D
   LineReturnString = "LINEERR_STRUCTURETOOSMALL"           
case &h8000004E
   LineReturnString = "LINEERR_TARGETNOTFOUND"              
case &h8000004F
   LineReturnString = "LINEERR_TARGETSELF"                  
case &h80000050
   LineReturnString = "LINEERR_UNINITIALIZED"               
case &h80000051
   LineReturnString = "LINEERR_USERUSERINFOTOOBIG"          
case &h80000052
   LineReturnString = "LINEERR_REINIT"                      
case &h80000053
   LineReturnString = "LINEERR_ADDRESSBLOCKED"              
case &h80000054
   LineReturnString = "LINEERR_BILLINGREJECTED"             
case &h80000055
   LineReturnString = "LINEERR_INVALFEATURE"
case &h80000056
   LineReturnString = "LINEERR_NOMULTIPLEINSTANCE"          

end select

End Function 'LineReturnString

'$ENDIF UNICODE_BVT_INC