'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