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.
187 lines
5.1 KiB
187 lines
5.1 KiB
'TAPI BVT HEADER
|
|
|
|
' 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 'd:\msdev\include\RECORDER.INC'
|
|
'$include 'd:\msdev\include\winapi.inc'
|
|
'$INCLUDE 'D:\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
|
|
|
|
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 hLineIndex as pointer to string
|
|
'VARPTR(hLineApp(0)) 'WATCH IT
|
|
'VARPTR(hLine(0))
|
|
|
|
'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
|
|
|
|
'coverage statistics
|
|
'not yet implemented
|
|
global TapiStatistic as TAPI_STATISTIC
|
|
|
|
global Tracelevel as long 'debug output
|
|
|
|
'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
|
|
MY_TIMEOUT=2
|
|
PACER = 1
|
|
PARAMS=1
|
|
NOPARAMS=0
|
|
|
|
'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
|
|
|
|
'/////////////////////////////////
|
|
'/////// END HEADER /////////////
|
|
'/////////////////////////////////
|