mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1675 lines
43 KiB
1675 lines
43 KiB
'TB BVT
|
|
'
|
|
|
|
' WARNING: This is a piece of junk. No warrantee implied.
|
|
'spaghetti, not authored by me, just scribbled by me, (ajohnh, some time in '95)
|
|
'$INCLUDE 'c:\msdev\include\RECORDER.INC'
|
|
'$include 'c:\msdev\include\winapi.inc'
|
|
'$INCLUDE 'c:\MSDEV\INCLUDE\TBPOKE.H'
|
|
|
|
'//////////////////////////////////////////
|
|
'////// borrowed from my in-work TBPoke:
|
|
'logging
|
|
global sOutLogName as string
|
|
global sScriptName as string
|
|
global sComment as string
|
|
|
|
global hwndViewport as long
|
|
global lCountSpace as long
|
|
global lCountFunc as long
|
|
global lCountTab as long
|
|
global MAX_BLANK as long
|
|
global sFuncString as string
|
|
|
|
'end reporting
|
|
global sEndingMessage as string
|
|
global sEndTitle as string
|
|
|
|
'checkbox function
|
|
global sCheckbox as string
|
|
global lState as long
|
|
|
|
'system metrics
|
|
global ScreenX as long
|
|
global ScreenY as long
|
|
|
|
'time value
|
|
global MY_TIMEOUT as long
|
|
global PACER as long
|
|
|
|
global PARAMS as long
|
|
global NOPARAMS as long
|
|
|
|
global hwndTapiControl as hwndTAPI_CONTROL
|
|
global ScenarioLog as LOGINITSTRUCT
|
|
|
|
global sdwPrivileges as array of string
|
|
global sPrivileges as string
|
|
global sdwMediaModes as array of string
|
|
global sMediaModes as string
|
|
|
|
'
|
|
global hLineApp as array of string
|
|
global hLine as array of string
|
|
global hCall as array of string
|
|
|
|
redim sdwPrivileges(1 to 3) as string
|
|
redim sdwMediaModes(1 to 14) as string
|
|
|
|
global sdwNumRings as string
|
|
|
|
redim hLineApp(1 to 5) as string 'limit 5 for now
|
|
redim hLine(1 to 5) as string
|
|
redim hCall(1 to 5) as string
|
|
'redim hCall(5) as string
|
|
|
|
global hLineAppIndex as pointer to string
|
|
|
|
global slpszDestAddress as string
|
|
|
|
'counts
|
|
global ldwPrivilegesBitFlag as long
|
|
global ldwMediaModesBitFlag as long
|
|
global ldwPrivilegesBitFlagChaos as long
|
|
global ldwMediaModesBitFlagChaos as long
|
|
|
|
global lLineApp as long
|
|
global lLine as long
|
|
global lCall as long
|
|
|
|
global GenCount as long
|
|
global lCountLineApp as long
|
|
global GenCount2 as long
|
|
|
|
global OutCount as long 'benchmarker
|
|
|
|
'coverage statistics
|
|
'not yet implemented
|
|
global TapiStatistic as TAPI_STATISTIC
|
|
|
|
global Tracelevel as long 'debug output
|
|
|
|
global Benchmark as long 'benchmarker
|
|
|
|
'duh
|
|
hwndTapiControl.TapiHandle = WFndWnd("TAPI32 Browser", FW_DEFAULT) 'find TAPI32 BROWSER
|
|
'by ID, note VT will probably be using the decimal form throughout:
|
|
hwndTapiControl.ParamsCheckbox =&h000003f9
|
|
hwndTapiControl.LineAppPlusButton =&h000003ee
|
|
hwndTapiControl.LineAppMinusButton =&h000003ef
|
|
hwndTapiControl.LinePlusButton =&h000003f0
|
|
hwndTapiControl.LineMinusButton =&h000003f1
|
|
hwndTapiControl.CallPlusButton =&h000003f2
|
|
hwndTapiControl.CallMinusButton =&h000003f3
|
|
hwndTapiControl.PhoneAppPlusButton =&h000003f4
|
|
hwndTapiControl.PhoneAppMinusButton =&h000003f5
|
|
hwndTapiControl.PhoneOpenPlusButton =&h000003f6
|
|
hwndTapiControl.PhoneOpenMinusButton =&h000003f7
|
|
hwndTapiControl.ClearEditButton =&h000003f8
|
|
hwndTapiControl.BlankButton0 =&h000003fa
|
|
hwndTapiControl.BlankButton1 =&h000003fb
|
|
hwndTapiControl.BlankButton2 =&h000003fc
|
|
hwndTapiControl.BlankButton3 =&h000003fd
|
|
hwndTapiControl.BlankButton4 =&h000003fe
|
|
hwndTapiControl.BlankButton5 =&h000003ff
|
|
hwndTapiControl.Listbox0 =&h000003e8 'middle box
|
|
hwndTapiControl.Listbox1 =&h000003e9 'left box
|
|
hwndTapiControl.Editbox =&h000003eb 'right box
|
|
|
|
'// assign
|
|
sOutLogName=curdir$ + "\tapibvt.log"
|
|
lCountSpace=0
|
|
lCountFunc=0
|
|
lCountTab=1
|
|
MAX_BLANK=20 'static
|
|
'const MY_TIMOUT=2*Benchmark '//THIS IS DEFINED AFTER BENCHMARK//
|
|
PACER = 1
|
|
PARAMS=1
|
|
NOPARAMS=0
|
|
const BUSYLINE="9,5569440" 'ISDN, switch will report busy
|
|
const ANSWERLINE="9,9366991" 'ITG dial-up modem pool
|
|
const NOLINE=" "
|
|
|
|
const sOutBenchName="benchmrk.txt" 'benchmarker
|
|
|
|
'debug; 0=no debug; 3 low, 2 med, 1 high --I know it is backward
|
|
Tracelevel=0
|
|
|
|
ScreenX=GetSystemMetrics(SM_CXSCREEN)
|
|
ScreenY=GetSystemMetrics (SM_CYSCREEN)
|
|
|
|
ScenarioLog.LogOutputType = LogTypeFile
|
|
ScenarioLog.MinDetailLevel = 3
|
|
ScenarioLog.ProductVersion = "4"
|
|
ScenarioLog.MachineName = "Undefined"
|
|
ScenarioLog.LogLocation = "tapibvt.log"
|
|
ScenarioLog.Language = "US English"
|
|
|
|
'WATCH IT
|
|
'dwPrivileges string in the form of sdwPrivileges
|
|
|
|
'change these to pointers ASAP
|
|
global NONE as long, MONITOR as long, OWNER as long
|
|
sdwPrivileges(1)="NONE"
|
|
NONE=1
|
|
sdwPrivileges(2)="MONITOR"
|
|
MONITOR=2
|
|
sdwPrivileges(3)="OWNER"
|
|
OWNER=3
|
|
|
|
'dwMediaModes string in the form of sdwMediaModes
|
|
'edit this, this is bulky & hacked:
|
|
|
|
global UNKNOWN as long, INTERACTIVEVOICE as long, AUTOMATEDVOICE as long
|
|
global DATAMODEM as long, G3FAX as long, TDD as long, G4FAX as long
|
|
global DIGITALDATA as long, TELETEX as long, VIDEOTEX as long
|
|
global TELEX as long, MIXED as long, ADSI as long, VOICEVIEW as long
|
|
|
|
sdwMediaModes(1)="UNKNOWN"
|
|
UNKNOWN=1
|
|
sdwMediaModes(2)="INTERACTIVEVOICE"
|
|
INTERACTIVEVOICE=2
|
|
sdwMediaModes(3)="AUTOMATEDVOICE"
|
|
AUTOMATEDVOICE=3
|
|
sdwMediaModes(4)="DATAMODEM"
|
|
DATAMODEM=4
|
|
sdwMediaModes(5)="G3FAX"
|
|
G3FAX=5
|
|
sdwMediaModes(6)="TDD"
|
|
TDD=6
|
|
sdwMediaModes(7)="G4FAX"
|
|
G4FAX=7
|
|
sdwMediaModes(8)="DIGITALDATA"
|
|
DIGITALDATA=8
|
|
sdwMediaModes(9)="TELETEX"
|
|
TELETEX=9
|
|
sdwMediaModes(10)="VIDEOTEX"
|
|
VIDEOTEX=10
|
|
sdwMediaModes(11)="TELEX"
|
|
TELEX=11
|
|
sdwMediaModes(12)="MIXED"
|
|
MIXED=12
|
|
sdwMediaModes(13)="ADSI"
|
|
ADSI=13
|
|
sdwMediaModes(14)="VOICEVIEW"
|
|
VOICEVIEW=14
|
|
|
|
dim StartTime as long 'for benchmarker
|
|
dim EndTime as long
|
|
|
|
'/////////////////////////////////
|
|
'/////// END HEADER /////////////
|
|
'/////////////////////////////////
|
|
|
|
'prototypes
|
|
'lineInitialze()
|
|
'lineShutdown(hLineApp)
|
|
'lineOpen(hLineApp, dwDeviceID, lphLine, APIVersion, dwExtVersion, dwCallbackInstance, dwPrivileges, dwMediaModes, lpCallParams)
|
|
'
|
|
'BENCHMARKER 'hack hack hack
|
|
'delete benchmark file
|
|
if exists(sOutLogName) then
|
|
kill sOutLogName
|
|
end if
|
|
|
|
'timer is double precision
|
|
if exists(sOutBenchName) then
|
|
kill sOutBenchName
|
|
end if
|
|
|
|
StartTime=timer
|
|
|
|
for OutCount=1 to 100
|
|
PerfBox(str$(OutCount))
|
|
GenTimeOut(str$(OutCount))
|
|
next OutCount
|
|
|
|
EndTime=timer
|
|
Benchmark=Endtime-StartTime
|
|
|
|
GenTimeOut("Benchmark: " + str$(Benchmark))
|
|
|
|
StatusBox Close
|
|
|
|
if Benchmark > 3 then
|
|
msgbox "YOUR SYSTEM REALLY SUCKS." + chr$(010) + chr$(010) + "Please use a faster system.", MB_OK OR MB_ICONEXCLAMATION, "Slow Bench Warning"
|
|
end if
|
|
|
|
function GenTimeOut(OutCount as string) 'generate/generic file-i/o
|
|
Open sOutBenchName for append as #1
|
|
print #1, OutCount + chr$(009) ' + time
|
|
Close #1
|
|
end function
|
|
|
|
function PerfBox(OutCount as string)
|
|
StatusBox "Profiling System Performance..." + chr$(010) + OutCount,0,0,300,100,TRUE,TRUE,"Courier",8,400
|
|
end function
|
|
|
|
'// set timout, now that we have benched
|
|
MY_TIMEOUT = 2 + (2 * Benchmark)
|
|
'//END BENCHMARKER
|
|
|
|
viewport on
|
|
viewport clear
|
|
|
|
on KeyPress (27,FSHIFT) call KeyPressHandler
|
|
sub KeyPressHandler (notification_data AS VARIANT)
|
|
statusbox close
|
|
'idyes:6 & idno:7
|
|
msgbox "Stop tests?", MB_YESNO OR MB_ICONQUESTION OR MB_DEFBUTTON2, "Interruption"
|
|
if idyes then
|
|
statusbox close
|
|
EndMsg()
|
|
End
|
|
end if
|
|
end sub
|
|
|
|
' // Run things
|
|
|
|
StartApps()
|
|
if WMenuExists ("&Options\Log &structures\by n&one", MY_TIMEOUT) then
|
|
WMenuSelect("&Options\Log &structures\by n&one", MY_TIMEOUT)
|
|
endif
|
|
|
|
'do these after apps are running, duh
|
|
hwndViewport = WFndWnd("Visual Test Viewport",FW_DEFAULT)
|
|
GenOut("Getting Some")
|
|
|
|
hwndTapiControl.TapiHandle= WFndWnd("TAPI32 Browser", FW_DEFAULT) 'find TAPI32 BROWSER
|
|
'by ID, note VT will probably be using the decimal form throughout:
|
|
|
|
WSetActWnd (hwndTapiControl.TapiHandle)
|
|
'maximize window so button clicks work
|
|
'WMaxWnd (hwndTapiControl.TapiHandle)
|
|
|
|
GenOut("Logfile= " + chr$(009) + curdir$+sOutLogName)
|
|
if Tracelevel > 2 then
|
|
GenOut("TAPI Browser handle= " + hex$(hwndTapiControl.TapiHandle))
|
|
GenOut("GetProcessHeap(): " + hex$(GetProcessHeap()))
|
|
GenOut("GetCurrentProcess(): " + hex$(GetCurrentProcess()))
|
|
GenOut("GetCurrentProcessID(): " + hex$(GetCurrentProcessID()))
|
|
GenOut("GetThread(): " + chr$(009) + hex$(GetCurrentThread()))
|
|
GenOut("GetCurrentThreadID(): " + hex$(GetCurrentThreadID()))
|
|
end if
|
|
GenOut(chr$(010)+chr$(010)+chr$(010))
|
|
|
|
WSetActWnd (hwndTapiControl.TapiHandle)
|
|
|
|
'ensure edit box is clean
|
|
WButtonClick( _id(hwndTapiControl.ClearEditButton), MY_TIMEOUT ) 'do not uncheck this
|
|
|
|
'********************
|
|
'START YOUR ENGINES
|
|
|
|
'lineGetProviderList()
|
|
WSetActWnd (hwndTapiControl.TapiHandle) 'scatter a few of these since ESP steals focus
|
|
'End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
FUNKY:
|
|
|
|
Scenario "lineMakeCall (stuff)"
|
|
Box("lineMakeCall (verify busy)")
|
|
GenOut("Scenario:" + chr$(009) + "lineMakeCall (verify busy)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineMakeCall(lLine, lCall, BUSYLINE) 'doing this stranglely for now
|
|
lineDrop(lCall)
|
|
lineDeallocateCall(lCall)
|
|
'lineClose(lLine)
|
|
'lineShutdown(lLineApp)
|
|
|
|
Box("lineMakeCall, (status)")
|
|
GenOut ("Scenario:" + chr$(009) + "lineMakeCall, (status)")
|
|
|
|
'line should be open from earlier routine
|
|
'lineInitialize(lLineApp)
|
|
'lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineMakeCall(lLine, lCall, ANSWERLINE) 'doing this stranglely for now
|
|
|
|
lineGetNewCalls(lLine)
|
|
lineGetAddressStatus(lLine)
|
|
lineGetCallInfo(lCall)
|
|
lineGetCallStatus(lCall)
|
|
lineSetAppSpecific(lCall)
|
|
|
|
lineDrop(lCall)
|
|
lineGetCallInfo(lCall)
|
|
lineGetCallStatus(lCall)
|
|
|
|
lineDeallocateCall(lCall)
|
|
|
|
Box("lineMakeCall, (lineGetAppSpecific)")
|
|
GenOut ("Scenario:" + chr$(009) + "lineMakeCall, (lineGetAppSpecific)")
|
|
|
|
lineMakeCall(lLine, lCall, ANSWERLINE)
|
|
lineDrop(lCall)
|
|
lineDeallocateCall(lCall)
|
|
|
|
Box("lineMakeCall, (Null lpszDestAddress)")
|
|
GenOut ("Scenario:" + chr$(009) + "lineMakeCall, (Null lpszDestAddress)")
|
|
|
|
lineMakeCall(lLine, lCall, NOLINE)
|
|
lineDial(lCall, ANSWERLINE)
|
|
|
|
lineDrop(lCall)
|
|
lineDeallocateCall(lCall)
|
|
lineClose(lLine)
|
|
lineShutdown(lLineApp)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetAddressCaps (default)"
|
|
Box("lineGetAddressCaps (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetAddressCaps (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineGetAddressCaps(lLineApp)
|
|
lineShutdown(lLineApp)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetAddressID (default)"
|
|
Box("lineGetAddressID (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetAddressID (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetAddressID(lLine)
|
|
lineClose(lLine)
|
|
lineShutdown(lLineApp)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetAddressStatus (default)"
|
|
Box("lineGetAddressStatus (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetAddressStatus (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetAddressStatus(lLine)
|
|
lineClose(lLine)
|
|
lineShutdown(lLineApp)
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetDevConfig (default)"
|
|
Box("lineGetDevConfig (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetDevConfig (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineGetDevConfig() 'no arguments, yet
|
|
lineShutdown(lLineApp)
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetDevCaps (default)"
|
|
Box("lineGetDevCaps (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetDevCaps (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineGetDevCaps(lLineApp)
|
|
lineShutdown(lLineApp)
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetID (default)"
|
|
Box("lineGetID (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetID (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetID(lLine)
|
|
lineShutdown(lLineApp) 'will close too
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetLineDevStatus (default)"
|
|
Box("lineGetLineDevStatus (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetLineDevStatus (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetLineDevStatus(lLine)
|
|
lineShutdown(lLineApp) 'will close too
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetNewCalls (default)"
|
|
Box("lineGetNewCalls (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetNewCalls (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetNewCalls(lLine)
|
|
lineShutdown(lLineApp) 'will close too
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetNumRings (default)"
|
|
Box("lineGetNumRings (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetNumRings (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetNumRings(lLine)
|
|
lineShutdown(lLineApp) 'will close too
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineGetStatusMessages (default)"
|
|
Box("lineGetStatusMessages (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineGetStatusMessages (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineGetStatusMessages(lLine)
|
|
lineShutdown(lLineApp) 'will close too
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineHold (default)"
|
|
Box("lineHold (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineHold (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineMakeCall(lLine, lCall, ANSWERLINE) 'doing this stranglely for now
|
|
lineHold(lCall)
|
|
lineDrop(lCall)
|
|
lineDeallocateCall(lCall)
|
|
lineClose(lLine)
|
|
lineShutdown(lLineApp)
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineSetNumRings (default)"
|
|
Box("lineSetNumRings (default)")
|
|
GenOut("Scenario:" + chr$(009) + "lineSetNumRings (default)")
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
sdwNumRings="9"
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineSetNumRings(lLine, sdwNumRings)
|
|
lineShutdown(lLineApp) 'will close too
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
ENDME:
|
|
|
|
|
|
'END 'END 'END
|
|
|
|
'********************
|
|
'********************
|
|
'lineInitialize with one good pass, then individual null params
|
|
Scenario "lineInitialize (many)"
|
|
Box("lineInitialize (many)")
|
|
WSetActWnd (hwndTapiControl.TapiHandle) 'freshen
|
|
|
|
for lLineApp= 0 to 4
|
|
CallAPI("lineInitialize",0)
|
|
next lLineApp
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
'Scenario "lineGetTranslateCaps"
|
|
'Box("lineGetTranslate")
|
|
' lineGetTranslateCaps()
|
|
'End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
Scenario "lineShutdown (many)"
|
|
Box("lineShutdown (many)")
|
|
|
|
for lLineApp= 0 to 4 'note # of lineInitializes, I was too lazy to set a constant for limit
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
next lLineApp
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
Scenario "lineNegotiateAPIVersion (valid)"
|
|
Box("lineNegotiateAPIVersion (valid)")
|
|
'*** disable params, lineInitialize, lineNegotiateAPIVersion with valids, lineShutdown
|
|
'disable params child
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineNegotiateAPIVersion",0)
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
Scenario "lineNegotiateAPIVersion (invallow_valhi)"
|
|
Box("lineNegotiateAPIVersion (invallow_valhi)")
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineNegotiateAPIVersion with invallow and valhi
|
|
'*** disable params, lineShutdown
|
|
'no params
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineNegotiateAPIVersion",1)
|
|
|
|
SelectParam("dwAPILowVersion")
|
|
SetParamValue("Invalid")
|
|
SelectParam("dwAPIHighVersion")
|
|
SetParamValue("Valid")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
Scenario "lineNegotiateAPIVersion (vallow_invalhi)"
|
|
Box("lineNegotiateAPIVersion (vallow_invalhi)")
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineNegotiateAPIVersion with vallow and invalhi
|
|
'*** disable params, lineShutdown
|
|
'need params
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineNegotiateAPIVersion",1)
|
|
|
|
SelectParam("dwAPILowVersion")
|
|
SetParamValue("Invalid")
|
|
SelectParam("dwAPIHighVersion")
|
|
SetParamValue("Valid")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineNegotiateAPIVersion (invallow_invalhi)"
|
|
Box("lineNegotiateAPIVersion (invallow_invalhi)")
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineNegotiateAPIVersion with invallow and invalhi
|
|
'*** disable params, lineShutdown
|
|
'no params
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineNegotiateAPIVersion",1)
|
|
|
|
SelectParam("dwAPILowVersion")
|
|
SetParamValue("Invalid")
|
|
SelectParam("dwAPIHighVersion")
|
|
SetParamValue("Invalid")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineNegotiateAPIVersion_invaldev"
|
|
Box("lineNegotiateAPIVersion (invaldev)")
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineNegotiateAPIVersion with invalid device
|
|
'*** disable params, lineShutdown
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineNegotiateAPIVersion",1)
|
|
|
|
SelectParam("dwDeviceID")
|
|
SetParamValue("Invalid")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
Scenario "lineNegotiateExtVersion"
|
|
Box("lineNegotiateExtVersion")
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineNegotiateExtVersion
|
|
'*** disable params, lineShutdown
|
|
'no params
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineNegotiateExtVersion",0)
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineOpen with privilege
|
|
'*** disable params, lineShutdown
|
|
Scenario "linOpen_privileges (none)"
|
|
Box("linOpen_privileges (none)")
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("None")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineOpen with privilege
|
|
'*** disable params, lineShutdown
|
|
Scenario "linOpen_privileges (monitor)"
|
|
Box("linOpen_privileges (monitor)")
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Monitor")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineOpen with privilege
|
|
'*** disable params, lineShutdown
|
|
Scenario "linOpen_privileges (owner)"
|
|
Box("linOpen_privileges (owner)")
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Owner")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
Scenario "linOpen_privileges (multi)"
|
|
Box("linOpen_privileges (multi)")
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("None")
|
|
HitOK()
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Monitor")
|
|
HitOK()
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Owner")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
'*** BEGIN dwPrivileges, dwMediaModes strobing
|
|
'*** WATCH THIS: LOOP
|
|
'********************
|
|
'********************
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineOpen with defaults
|
|
'*** disable params, lineShutdown
|
|
|
|
'five times
|
|
for lLineApp = 0 to 4
|
|
Scenario "lineOpen_MediaModes, sdwPrivileges, dwMediaModes.DATAMODEM (TB default)"
|
|
Box("lineOpen_MediaModes, dwPrivileges.NONE, dwMediaModes.DATAMODEM (TB default)")
|
|
|
|
CallAPI("lineInitialize",0)
|
|
CallAPI("lineOpen",0) 'defaults are dwPrivileges.NONE, dwMediaModes.DATAMODEM
|
|
CallAPI("lineShutdown",0)
|
|
End Scenario
|
|
next lLineApp
|
|
|
|
'********************
|
|
'********************
|
|
'*** matrix privileges and MediaModes (STRAIGHT THROUGH)
|
|
'*** dwMediaModes strobing
|
|
'*** [attemts most combos]
|
|
|
|
for ldwPrivilegesBitFlag = 1 to 3
|
|
'dwPrivileges string in the form of sdwPrivileges
|
|
|
|
for ldwMediaModesBitFlag = 1 to 14
|
|
|
|
'one day, change this to a cleaner array
|
|
'********************
|
|
Scenario "lineOpen_MediaModes, (STRAIGHT THROUGH) " + sdwPrivileges(ldwPrivilegesBitFlag) + ", " + sdwMediaModes(ldwMediaModesBitFlag)
|
|
Box("lineOpen_MediaModes, (STRAIGHT THROUGH) " + sdwPrivileges(ldwPrivilegesBitFlag) + ", " + sdwMediaModes(ldwMediaModesBitFlag))
|
|
|
|
'This is a workaround to bypass the TAPI for NT hanging problem.
|
|
|
|
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag(sdwPrivileges(1)) 'clear default NONE (1)
|
|
SelectBitFlag(sdwPrivileges(ldwPrivilegesBitFlag)) 'set Bit flag
|
|
SelectParam("dwMediaModes")
|
|
SelectBitFlag(sdwMediaModes(4)) 'clear default DATAMODEM (4)
|
|
SelectBitFlag(sdwMediaModes(ldwMediaModesBitFlag))
|
|
HitOK()
|
|
|
|
MiddleSelect() 'just select anything in the list box
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
|
|
next ldwMediaModesBitFlag
|
|
next ldwPrivilegesBitFlag
|
|
|
|
'********************
|
|
'********************
|
|
'*** END dwMediaModes (STRAIGHT THROUGH)
|
|
'********************
|
|
'********************
|
|
'********************
|
|
'********************
|
|
|
|
goto SKIPCHAOS
|
|
|
|
'********************
|
|
'********************
|
|
'*** matrix privileges and MediaModes (CHAOTIC)
|
|
'*** dwMediaModes strobing
|
|
'*** [try simultaneous operations]
|
|
CHAOS:
|
|
for GenCount=1 to 200
|
|
'not used: randomize TIMER 'for "bound-ed" chaos
|
|
'********************
|
|
Scenario ("lineOpen_MediaModes, (CHAOTIC)")
|
|
|
|
Box("lineOpen_MediaModes, (CHAOTIC)")
|
|
'do 5
|
|
for lLineApp= 0 to 4
|
|
LineInitialize(lLineApp) 'returns hLineApp(lLineApp)
|
|
next lLineApp
|
|
|
|
'begin Chaos translation here so I may retain my pretty matrix blocks & to increase hits
|
|
|
|
for lLineApp=0 to 4
|
|
GenChaos() 'all globals
|
|
SelectLineApp(lLineApp)
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag(sdwPrivileges(1)) 'clear default NONE (1)
|
|
SelectBitFlag(sdwPrivileges(ldwPrivilegesBitFlagChaos)) 'set Bit flag
|
|
SelectParam("dwMediaModes")
|
|
SelectBitFlag(sdwMediaModes(4)) 'clear default DATAMODEM (4)
|
|
SelectBitFlag(sdwMediaModes(ldwMediaModesBitFlagChaos))
|
|
HitOK()
|
|
next lLineApp
|
|
|
|
'cleanup, do 5
|
|
'WILL NOT WORK WITHOUT HANDLES
|
|
for lLineApp= 0 to 4
|
|
LineShutdown(lLineApp)
|
|
next lLineApp
|
|
|
|
End Scenario
|
|
next GenCount
|
|
|
|
'********************
|
|
'********************
|
|
'*** END dwMediaModes (CHAOTIC)
|
|
'********************
|
|
'********************
|
|
'********************
|
|
'********************
|
|
|
|
SKIPCHAOS:
|
|
|
|
|
|
'********************
|
|
'********************
|
|
'********************
|
|
'********************
|
|
|
|
'********************
|
|
'********************
|
|
'*** disable params, lineInitialize
|
|
'*** enable params, lineOpen with privilege
|
|
'*** disable params, lineShutdown
|
|
Scenario "linOpen_MediaModes (privileges_multi)"
|
|
Box("linOpen_MediaModes (privileges_multi)")
|
|
|
|
CallAPI("lineInitialize",0)
|
|
|
|
|
|
'as owner
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Owner")
|
|
SelectParam("dwMediaModes")
|
|
SelectBitFlag("DATAMODEM")
|
|
HitOK()
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Owner")
|
|
SelectParam("dwMediaModes")
|
|
SelectBitFlag("TELETEX")
|
|
HitOK()
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Owner")
|
|
SelectParam("dwMediaModes")
|
|
SelectBitFlag("TELEX")
|
|
HitOK()
|
|
|
|
CallAPI("lineOpen",1)
|
|
SelectParam("dwPrivileges")
|
|
SelectBitFlag("Owner")
|
|
SelectParam("dwMediaModes")
|
|
SelectBitFlag("INTERACTIVEVOICE")
|
|
HitOK()
|
|
|
|
MiddleSelect()
|
|
CallAPI("lineShutdown",0)
|
|
|
|
End Scenario
|
|
'///////////////
|
|
|
|
' *************************
|
|
' ***** END TEST CASE *****
|
|
' *************************
|
|
|
|
|
|
'///////
|
|
'///////
|
|
'///////
|
|
|
|
|
|
'***** END END END END END END *****
|
|
|
|
StatusBox Close
|
|
EndMsg()
|
|
End
|
|
|
|
'********************
|
|
'********************
|
|
|
|
JUNKY:
|
|
|
|
Scenario "Call Unimplemented APIs"
|
|
Box("Call Unimplemented APIs")
|
|
GenOut("Scenario:" + chr$(009) + "Call Unimplemented APIs")
|
|
|
|
'CallAPI("lineAddToConference",0) 'requires two calls on one line
|
|
|
|
lLineApp=1
|
|
lLine=1
|
|
lCall=1
|
|
lineInitialize(lLineApp)
|
|
lineOpen(lLineApp, lLine, sdwPrivileges(OWNER), sdwMediaModes(DATAMODEM)) 'doing this stranglely for now
|
|
lineMakeCall(lLine, lCall, BUSYLINE) 'doing this stranglely for now
|
|
|
|
|
|
CallAPI("lineBlindTransfer",0) 'requires call
|
|
CallAPI("lineCompleteCall",0) 'requires call
|
|
'CallAPI("lineCompleteTransfer",0) 'requires two calls on one line
|
|
CallAPI("lineDevSpecific",0) 'requires line
|
|
CallAPI("lineDevSpecificFeature",0) 'requires line
|
|
CallAPI("lineForward",0) 'requires line
|
|
CallAPI("lineGatherDigits",0) 'requires call
|
|
CallAPI("lineGenerateDigits",0) 'requires call
|
|
CallAPI("lineGenerateTone",0) 'requires call
|
|
|
|
|
|
lineDrop(lCall)
|
|
lineDeallocateCall(lCall)
|
|
|
|
|
|
CallAPI("lineGetConfRelatedCalls",0)
|
|
CallAPI("lineGetRequest",0)
|
|
CallAPI("lineMonitorDigits",0)
|
|
CallAPI("lineMonitorMedia",0)
|
|
CallAPI("lineMonitorTones",0)
|
|
CallAPI("lineNegotiateExtVersion",0)
|
|
CallAPI("linePark",0)
|
|
CallAPI("linePickup",0)
|
|
CallAPI("linePrepareAddToConference",0)
|
|
CallAPI("lineRedirect",0)
|
|
CallAPI("lineRegisterRequestRecipient",0)
|
|
CallAPI("lineRemoveFromConference",0)
|
|
CallAPI("lineSecureCall",0)
|
|
CallAPI("lineSendUserUserInfo",0)
|
|
CallAPI("lineSetAppSpecific",0)
|
|
CallAPI("lineSetTerminal",0)
|
|
CallAPI("lineSetTollList",0)
|
|
CallAPI("lineSetupConference",0)
|
|
CallAPI("lineSetupTransfer",0)
|
|
CallAPI("lineSwapHold",0)
|
|
CallAPI("lineUncompleteCall",0)
|
|
CallAPI("lineUnhold",0)
|
|
CallAPI("lineUnpark",0)
|
|
|
|
End Scenario
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
'********************
|
|
'********************
|
|
|
|
|
|
|
|
'********************
|
|
'********************
|
|
|
|
'Scenario "lineClose"
|
|
'
|
|
'do not need params
|
|
'SetCheckboxControl(_id(hwndTapiControl.ParamsCheckbox),0)
|
|
'MiddleSelect()
|
|
'SelectParam("lineClose")
|
|
'play "{ENTER}"
|
|
'
|
|
'CaptureEdit()
|
|
'
|
|
'End Scenario
|
|
|
|
|
|
|
|
|
|
|
|
|
|
'
|
|
'/**************************************************/
|
|
'FUNCTIONS
|
|
|
|
'Outputs, identical until global architecture change
|
|
function GenOut(sFuncString as string) 'generate/generic file-i/o
|
|
' // open logging file
|
|
box("Calling: " + sFuncString)
|
|
Open sOutLogName for append as #1
|
|
print #1, sFuncString + chr$(009) ' + time
|
|
print hwndViewport, sFuncString + chr$(009) '+ time
|
|
Close #1
|
|
end function
|
|
|
|
function GenOutFunc(sFuncString as string) 'generate file-i/o of current function
|
|
' // open logging file
|
|
box ("Calling: " + sFuncString)
|
|
Open sOutLogName for append as #1
|
|
print #1, sFuncString + chr$(009) + time
|
|
print hwndViewport, sFuncString + chr$(009) + time
|
|
Close #1
|
|
end function
|
|
|
|
|
|
'for TBPoke only: GetFunc runs the state core, remember to trim tabs
|
|
' this was from TBPoke, but it has been modified not to look for script file
|
|
function GetFunc (sFuncString as string)
|
|
sFuncString=""
|
|
'count the entries
|
|
lCountFunc=lCountFunc+1
|
|
sFuncString=trim$(sFuncString,009) 'trim tabs
|
|
sFuncString=trim$(sFuncString," ") 'whatever MST calls a space
|
|
sFuncString=trim$(sFuncString,255) 'trim truespace
|
|
if sFuncString=chr$(000) then sFuncString="COMMENT" 'ASCII null
|
|
end function
|
|
|
|
'Check for runaway file i/o read; consider it "IsCarriageReturn"
|
|
function IsRunaway(sFuncString as string) as string
|
|
if sFuncString="" then
|
|
lCountSpace=lCountSpace+1 'begin counting blank entries
|
|
if lCountSpace=MAX_BLANK then sFuncString="END"
|
|
else
|
|
lCountSpace=0
|
|
end if
|
|
end function
|
|
|
|
'Find comments
|
|
function IsComment(sFuncString as string) as string
|
|
select case(ucase$(left$(sFuncString,1)))
|
|
case ";"
|
|
sFuncString="COMMENT"
|
|
case "#"
|
|
sFuncString="COMMENT"
|
|
case "'"
|
|
sFuncString="COMMENT"
|
|
case ""
|
|
sFuncString="COMMENT"
|
|
'IsRunaway(sFuncString) 'count blanks to prevent infinite loop
|
|
'GenOut(sFuncString, hwndViewport)
|
|
end select
|
|
|
|
'find other comments
|
|
select case(left$(sFuncString,2))
|
|
case "//"
|
|
sFuncString="COMMENT"
|
|
end select
|
|
|
|
'find more comments, I know it is not model code, shut up
|
|
select case(left$(sFuncString,4))
|
|
case "REM " 'with space
|
|
sFuncString="COMMENT"
|
|
end select
|
|
|
|
end function 'IsComment
|
|
|
|
|
|
'toggle checkbox state, will leave focus on sCheckbox
|
|
function SetCheckboxControl(sCheckbox as string, lState as long) as long
|
|
select case(lState)
|
|
case 0
|
|
If WCheckState(sCheckbox) = CHECKED then
|
|
WCheckUnCheck(sCheckbox,MY_TIMEOUT)
|
|
if Tracelevel>=3 then GenOut ("Unchecking checkbox "+sCheckbox)
|
|
else
|
|
if Tracelevel>=2 then GenOut ("Error: Attempt to WCheckUnCheck() unchecked checkbox "+sCheckbox)
|
|
end if
|
|
case 1
|
|
If WCheckState(sCheckbox) = UNCHECKED then
|
|
WCheckCheck(sCheckbox,MY_TIMEOUT)
|
|
if Tracelevel>=3 then GenOut ("Checking checkbox "+sCheckbox)
|
|
else
|
|
if Tracelevel>=2 then GenOut ("Error: Attempt to WCheckCheck() checked checkbox "+sCheckbox)
|
|
end if
|
|
end select
|
|
end function
|
|
|
|
function HitOK() 'hits the OK button
|
|
WButtonClick( "OK", MY_TIMEOUT)
|
|
CaptureEdit()
|
|
|
|
end function
|
|
|
|
function CallAPI(sFuncString as string, lState as long)
|
|
if lState > 1 then GenOut("Error: lState is exceeds value of 1.")
|
|
GenOut("API:" + chr$(009) + sFuncString)
|
|
SetCheckboxControl(_id(hwndTapiControl.ParamsCheckbox),lState)
|
|
WListItemClk(_id(hwndTapiControl.Listbox1), sFuncString, MY_TIMEOUT)
|
|
play "{ENTER}"
|
|
if lState=0 then CaptureEdit() 'so calling the API w/ default params gens output & HitOK gens output (see HitOK())
|
|
end function
|
|
|
|
function SelectParam(sFuncString as string)
|
|
GenOut("Parameter:" + chr$(009) + sFuncString)
|
|
WListFind ("Parameters:", MY_TIMEOUT)
|
|
WListItemDblClk("Parameters:", sFuncString, MY_TIMEOUT)
|
|
end function
|
|
|
|
function SetParamValue(sFuncString as string)
|
|
GenOut("Parameter Value:" + chr$(009) + sFuncString)
|
|
WEditSetFocus("Value:", MY_TIMEOUT)
|
|
select case(ucase$(sFuncString))
|
|
case ucase$("Null")
|
|
play "00000000"
|
|
case ucase$("Valid") 'WATCH THIS: dankn often displays English here
|
|
'leave it alone, default is VALID or valid value
|
|
'play "{DOWN}"
|
|
'play "{DOWN}"
|
|
case ucase$("Invalid")
|
|
play "ffffffff"
|
|
case else
|
|
GenOut("Error: Bad SetParamValue() parameter: " + sFuncstring)
|
|
end select
|
|
end function
|
|
|
|
'global ParamValue as string 'put this at front
|
|
'function SetParamValue(sFuncString as string,ParamValue as string)
|
|
' SelectParam(sFuncString as string)
|
|
|
|
function SelectBitFlag(sFuncString as string)
|
|
GenOut("Select Bit Flag: " + sFuncString)
|
|
'lineOpen has defaults: dwPrivileges.NONE, dwMediaModes.DATAMODEM
|
|
WListFind ("Bit flags:", MY_TIMEOUT)
|
|
WListItemDblClk("Bit flags:", sFuncString, MY_TIMEOUT)
|
|
'BitFlag[] sFuncString ;;;; soon add cleanup structure
|
|
end function
|
|
|
|
function EndMsg()
|
|
sEndingMessage="TB BVT ended."
|
|
sEndTitle="Completed"
|
|
msgbox sEndingMessage, MB_OK, sEndTitle
|
|
end function
|
|
|
|
function CaptureEdit()
|
|
'play "{ENTER}" 'assuming child window is in focus and OK button is selected
|
|
'GenOut("******************** TAPI Report ********************")
|
|
'GenOut(ListText(_id(hwndTapiControl.Listbox0), MY_TIMEOUT))
|
|
sleep 0.1 'take an i/o break
|
|
GenOut("TAPI Browser reports: ")
|
|
GenOut(EditText(_id(hwndTapiControl.Editbox) + chr$(010), MY_TIMEOUT))
|
|
'GenOut("******************** END REPORT *********************" + chr$(010) + chr$(010))
|
|
WButtonClick(_id(hwndTapiControl.ClearEditButton), MY_TIMEOUT)
|
|
end function
|
|
|
|
'>>++++
|
|
function MiddleSelect() 'not yet: sFuncString as string 'selects last item in .Listbox0
|
|
WListSetFocus(_id(hwndTapiControl.Listbox0), MY_TIMEOUT)
|
|
'not yet: WListItemDblClk(_id(hwndTapiControl.Listbox0), sFuncString, MY_TIMEOUT)
|
|
play "{PGDN}"
|
|
end function
|
|
|
|
function lineGetProviderList()
|
|
CallAPI("lineGetProviderList",0)
|
|
end function
|
|
|
|
function lineGetTranslateCaps()
|
|
CallAPI("lineGetTranslateCaps",0)
|
|
Box("Dumping buffer")
|
|
sleep 1
|
|
Box("Dumping buffer")
|
|
sleep 1
|
|
end function
|
|
|
|
function Box(sFuncString as string)
|
|
'disabled, bug in statusbox is stealing focus
|
|
'StatusBox sFuncString + chr$(009),ScreenX-300,ScreenY-75,300,75,FALSE,FALSE,"Courier",8,400
|
|
end function
|
|
|
|
'function SelectLineApp(lLineApp as long) 'machine
|
|
' 'later revise to allow real-time monitor of handles
|
|
' 'select valid lineApp lLineApp, searching top to bottom, exit out having made selection
|
|
' 'It does look bad. If dankn's conventions stray too far, this will fail
|
|
' MiddleSelect()
|
|
' if lLineApp > WListCount(_id(hwndTapiControl.Listbox0), MY_TIMEOUT) then
|
|
' GenOut("Error: BAD ONE, lLineApp of " + str$(lLineApp) + " exceeding WListCount of " + str$(WListCount(_id(hwndTapiControl.Listbox0), MY_TIMEOUT)))
|
|
' beep
|
|
' beep
|
|
' beep
|
|
' goto SKIPSelectLineApp
|
|
' end if
|
|
' play "{PGUP}"
|
|
' lCountLineApp=WListCount(_id(hwndTapiControl.Listbox0), MY_TIMEOUT)
|
|
' for GenCount = 1 to lCountLineApp
|
|
' 'do not down-arrow yet since first item is selected
|
|
' sLineApp=ListItemText(_id(hwndTapiControl.Listbox0), WListIndex(_id(hwndTapiControl.Listbox0),MY_TIMEOUT),MY_TIMEOUT)
|
|
' select case (left$(ucase$(sLineApp),9))
|
|
' case ucase$("LineApp=x") 'first half matches (this may happen with invalids too, so look on
|
|
' select case (val(right$(sLineApp,8)))
|
|
' case 0 'is an invalid, so index
|
|
' play "{DOWN}"
|
|
' case else 'hex value is non-zero, let us use it
|
|
' select case (WListIndex(_id(hwndTapiControl.Listbox0),MY_TIMEOUT))
|
|
' case (lLineApp) 'is this the index requested?
|
|
' GenCount=lCountLineApp 'return 'get out, leaving it focused
|
|
' case else 'is not lLineApp, so index
|
|
' play "{DOWN}"
|
|
' end select
|
|
' end select
|
|
' case else 'is not "LineApp=x", so index
|
|
' play "{DOWN}"
|
|
' end select 'THIS MESS DONE SINCE this shitty beta has horrible if-then nesting errors (not me!)
|
|
' next GenCount
|
|
' SKIPSelectLineApp: 'skip if lLineApp is bogus value
|
|
'end function
|
|
|
|
function StartApps()
|
|
run "MTVIEW.EXE", nowait, SW_NORMAL
|
|
hwndViewport = WFndWnd("Visual Test Viewport",FW_DEFAULT,5) 'find Visual Test Viewport
|
|
if hwndViewport = 0 then
|
|
fail "MTVIEW.EXE application failed to start"
|
|
end if
|
|
|
|
run "TB20.EXE" , nowait , SW_MAXIMIZE 'NOWAIT SW_NORMAL
|
|
sleep 2
|
|
hwndTapiControl.TapiHandle= WFndWnd("TAPI32 Browser", FW_DEFAULT,5) 'find TAPI32 BROWSER
|
|
if hwndTapiControl.TapiHandle= 0 then
|
|
fail "TB20.EXE application failed to start"
|
|
end if
|
|
end function
|
|
|
|
'not used:
|
|
function StopApps()
|
|
hwndViewport = WFndWnd("Visual Test Viewport", FW_DEFAULT or FW_FOCUS)
|
|
if hwndViewport <> 0 then
|
|
Play "%{F4}" 'alt f4
|
|
end if
|
|
|
|
hwndTapiControl.TapiHandle = WFndWnd("TAPI32 Browser", FW_DEFAULT or FW_FOCUS)
|
|
if hwndTapiControl.TapiHandle <> 0 then
|
|
Play "%{F4}" 'alt f4
|
|
end if
|
|
end function
|
|
|
|
function GenChaos() 'all globals
|
|
ldwPrivilegesBitFlagChaos=(int(rnd*3)+1)
|
|
ldwMediaModesBitFlagChaos=(int(rnd*14)+1)
|
|
Box("lineOpen_MediaModes, (CHAOS) LineApp " + str$(lLineApp) + ", " + sdwPrivileges(ldwPrivilegesBitFlagChaos) + ", " + sdwMediaModes(ldwMediaModesBitFlagChaos))
|
|
GenOut("lineOpen_MediaModes, (CHAOS)" + str$(ldwPrivilegesBitFlagChaos) +","+ str$(ldwMediaModesBitFlagChaos) + " LineApp " + str$(lLineApp) + ", " + sdwPrivileges(ldwPrivilegesBitFlagChaos) + ", " + sdwMediaModes(ldwMediaModesBitFlagChaos))
|
|
end function
|
|
|
|
function lineInitialize(lLineApp as long) 'all globals; stipulate lLineApp for ease of array; for ex: lineInitialize(lLineApp); lLineApp being long
|
|
CallAPI("lineInitialize",0) 'create a LineApp
|
|
|
|
'lineApp is now open...
|
|
CallAPI("lineOpen",1) 'cheat, use TB to provide clean handle
|
|
SelectParam("hLineApp") 'select the hLineApp of Params:
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
hLineApp(lLineApp)=EditText("Value:", MY_TIMEOUT) 'get pointer/handle string
|
|
if Tracelevel >= 1 then GenOut("New hLineApp=" + chr$(009) + hLineApp(lLineApp))
|
|
Abort()
|
|
end function
|
|
|
|
function LineShutdown(lLineApp as long) 'all globals
|
|
CallAPI("lineShutdown",1)
|
|
SelectParam("hLineApp")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'ready to enter handle
|
|
play hLineApp(lLineApp)
|
|
HitOK()
|
|
end function
|
|
|
|
function SelectLineApp(lLineApp as long) 'all globals
|
|
MiddleSelect()
|
|
WListItemClk(_id(hwndTapiControl.Listbox0), "LineApp=x" + (hLineApp(lLineApp)), MY_TIMEOUT)
|
|
end function
|
|
|
|
'not implemented
|
|
function SelectLine(lLine as long) 'all globals; prep for lineMakeCall
|
|
MiddleSelect()
|
|
' (_id(hwndTapiControl.Listbox0), "Line=x" + (hLineApp(lLineApp)), MY_TIMEOUT)
|
|
end function
|
|
|
|
function lineOpen(lLineApp as long, lLine as long, sPrivileges as string, sMediaModes as string)
|
|
CallAPI("lineOpen",1) 'child window is open and focused
|
|
SelectParam("hLineApp")
|
|
WEditSetFocus("Value:", MY_TIMEOUT)
|
|
play hLineApp(lLineApp) 'handle of LineApp
|
|
|
|
SelectParam("dwPrivileges")
|
|
GenOut("Clearing default on following line:")
|
|
SelectBitFlag(sdwPrivileges(1)) 'clear default NONE (1)
|
|
SelectBitFlag(sPrivileges) 'set Bit flag
|
|
SelectParam("dwMediaModes")
|
|
GenOut("Clearing default on following line:")
|
|
SelectBitFlag(sdwMediaModes(4)) 'clear default DATAMODEM (4)
|
|
SelectBitFlag(sMediaModes)
|
|
|
|
HitOK()
|
|
|
|
CallAPI("lineMakeCall",1) 'cheat, use to get hLine value
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
hLine(lLine)=EditText("Value:", MY_TIMEOUT) 'get pointer/handle string
|
|
if Tracelevel >= 1 then GenOut("New hLine=" + chr$(009) + hLine(lLine))
|
|
Abort() 'abort child
|
|
end function
|
|
|
|
function lineMakeCall(lLine as long, lCall as long, slpszDestAddress as string)
|
|
CallAPI("lineMakeCall",1) 'child window is open and focused
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
play hLine(lLine) 'specify the handle
|
|
|
|
SelectParam("lpszDestAddress")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play slpszDestAddress
|
|
WButtonClick( "OK", MY_TIMEOUT)
|
|
sleep 10
|
|
|
|
'hide dialog
|
|
if slpszDestAddress <> " " then
|
|
WButtonFind ( "&Talk", 15) 'use a way to wait for dialog
|
|
WSetActWnd (hwndTapiControl.TapiHandle) 'refocus TB
|
|
sleep 3
|
|
end if
|
|
|
|
'if slpszDestAddress <> " " then
|
|
' WSetWndPos ( WFndWnd("Call Status", FW_DEFAULT), ScreenX, ScreenY) 'find Call Status window
|
|
' sleep 15
|
|
'end if
|
|
|
|
'if slpszDestAddress <> " " then 'being caution of Talk/Hangup dialog
|
|
' sleep 12
|
|
' WButtonClick( "&Talk", MY_TIMEOUT + 10)
|
|
'end if
|
|
'
|
|
|
|
CallAPI("lineDrop",1) 'cheat, use to get hCall value
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT)
|
|
hCall(lCall)=EditText("Value:", MY_TIMEOUT) 'get pointer/handle string
|
|
if Tracelevel >= 1 then GenOut("New hCall=" + chr$(009) + hCall(lCall))
|
|
Abort()
|
|
end function
|
|
|
|
function lineDrop(lCall as long)
|
|
CallAPI("lineDrop",1)
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hCall(lCall) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineDeallocateCall(lCall as long)
|
|
CallAPI("lineDeallocateCall",1)
|
|
Selectparam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hCall(lCall) 'specify handle
|
|
HitOK()
|
|
end function
|
|
|
|
'not implemented; in-work
|
|
function lineAddToConference(lLine as long)
|
|
CallAPI("lineAddToConference",1)
|
|
Selectparam("hLine")
|
|
'blah
|
|
end function
|
|
|
|
function lineAnswer()
|
|
end function
|
|
|
|
function Abort()
|
|
play "{ESC}" 'abort child
|
|
GenOut("Aborted child window: OK, probably getting handle here." + chr$(010))
|
|
end function
|
|
|
|
'not implemented
|
|
function CheckErr(TAPIErr as string)
|
|
'lineAddProvider returned LINEERR_INVALPOINTER
|
|
end function
|
|
|
|
function lineClose(lLine)
|
|
CallAPI("lineClose",1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
play hLine(lLine) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetNewCalls(lLine as long)
|
|
CallAPI("lineGetNewCalls",1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
play hLine(lLine) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetAddressStatus(lLine as long)
|
|
CallAPI("lineGetAddressStatus",1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
play hLine(lLine) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetCallInfo(lCall as long)
|
|
CallAPI("lineGetCallInfo", 1)
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
play hCall(lCall) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetCallStatus(lCall as long)
|
|
CallAPI("lineGetCallStatus", 1)
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus, no real reason
|
|
play hCall(lCall) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineSetAppSpecific(lCall as long)
|
|
CallAPI("lineSetAppSpecific", 1)
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hCall(lCall) 'specify the handle
|
|
HitOK()
|
|
end function
|
|
|
|
function lineDial(lCall as long, slpszDestAddress as string)
|
|
CallAPI("lineDial", 1)
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hCall(lCall) 'specify the handle
|
|
|
|
SelectParam("lpszDestAddress")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play slpszDestAddress
|
|
|
|
WButtonClick( "OK", MY_TIMEOUT)
|
|
sleep 5
|
|
|
|
'hide dialog
|
|
WButtonFind ( "&Talk", 15) 'use a way to wait for &Talk dialog
|
|
WSetActWnd (hwndTapiControl.TapiHandle) 'refocus TB
|
|
sleep 1
|
|
|
|
'WButtonClick( "&Talk", MY_TIMEOUT + 10)
|
|
end function
|
|
|
|
function lineGetAddressCaps(lLineApp as long)
|
|
CallAPI("lineGetAddressCaps", 1)
|
|
SelectParam("hLineApp")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLineApp(lLineApp)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetAddressID(lLine as long)
|
|
CallAPI("lineGetAddressID", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetDevConfig()
|
|
'ensure a LineApp is open when calling lineGetDevConfig
|
|
CallAPI("lineGetDevConfig", 0)
|
|
end function
|
|
|
|
function lineGetDevCaps(lLineApp as long)
|
|
Box("Dumping buffer")
|
|
CallAPI("lineGetDevCaps", 1)
|
|
SelectParam("hLineApp")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLineApp(lLineApp)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetID(lLine as long) 'consider parameter Bit flags here
|
|
CallAPI("lineGetID", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetLineDevStatus(lLine as long)
|
|
CallAPI("lineGetLineDevStatus", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetNumRings(lLine as long)
|
|
CallAPI("lineGetNumRings", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineGetStatusMessages(lLine as long)
|
|
CallAPI("lineGetStatusMessages", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineHold(lCall as long)
|
|
CallAPI("lineHold", 1)
|
|
SelectParam("hCall")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hCall(lCall)
|
|
HitOK()
|
|
end function
|
|
|
|
function lineSetNumRings(lLine as long, sdwNumRings as string)
|
|
CallAPI("lineSetNumRings", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
|
|
SelectParam("dwNumRings")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play sdwNumRings
|
|
|
|
HitOK()
|
|
end function
|
|
|
|
function lineSetStatusMessages(lLine as long)
|
|
CallAPI("lineSetStatusMessages", 1)
|
|
SelectParam("hLine")
|
|
WEditSetFocus("Value:", MY_TIMEOUT) 'set focus
|
|
play hLine(lLine)
|
|
HitOK()
|
|
end function
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
'truly the end
|