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.
114 lines
2.3 KiB
114 lines
2.3 KiB
'TB BVT
|
|
'
|
|
''$INCLUDE 'RECORDER.INC'
|
|
'$INCLUDE 'WINAPI.inc'
|
|
'$include 'vars.inc' 'All the global and const declares
|
|
'$INCLUDE 'function.inc'
|
|
'$INCLUDE 'General.INC'
|
|
'$INCLUDE 'Scenario.inc'
|
|
'$INCLUDE 'TBPOKE.H'
|
|
|
|
|
|
|
|
|
|
'/////////////////////////////////
|
|
'/////// END HEADER /////////////
|
|
'/////////////////////////////////
|
|
|
|
'prototypes
|
|
'lineInitialze()
|
|
'lineShutdown(hLineApp)
|
|
'lineOpen(hLineApp, dwDeviceID, lphLine, APIVersion, dwExtVersion, dwCallbackInstance, dwPrivileges, dwMediaModes, lpCallParams)
|
|
'
|
|
|
|
viewport on
|
|
viewport clear
|
|
AssignGlobalVars 'This is a temp. work around. This should be broken up into better functions.
|
|
on KeyPress (27,FSHIFT) call KeyPressHandler
|
|
|
|
' // 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
|
|
|
|
'These are all the scenarios. The functions need to be renamed to more
|
|
' descriptive names, this was just a quick way to get them as functions.
|
|
s1
|
|
s2
|
|
s3
|
|
s4
|
|
s5
|
|
s6
|
|
s7
|
|
s8
|
|
s9
|
|
s10
|
|
s11
|
|
s12
|
|
s13
|
|
s14
|
|
s15
|
|
s16
|
|
s17
|
|
s18
|
|
s19
|
|
s20
|
|
s21
|
|
s22
|
|
s23
|
|
s24
|
|
s25
|
|
s26
|
|
s27
|
|
's28
|
|
s29
|
|
's30
|
|
|
|
|
|
StatusBox Close
|
|
EndMsg()
|
|
End
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|