Windows NT 4.0 source code leak
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.
 
 
 
 
 
 

58 lines
1.4 KiB

'$define TESTCTRL
'$include 'declares'
'$include 'mstest32.inc'
'$include 'winapi32.inc'
'$include 'vars.inc'
'$include 'TAPILog.Inc'
'$include 'TB.INC'
'$include 'Window.inc'
dim ret as short 'General return value catcher
dim hwnd as short 'Handle to TB
DIM API as String
CurrentLoggingLevel = 5
SetLogFileName
StartLog TRUE, "TAPI 2.0 BVTs"
LogItem DETAILFUNCTION, "Launching TAPI Browswer"
ret = LaunchTB(curdir$+"\",14,GenData)
API = "LineInitialize"
'LogStartCase API
Params ENABLE
wButtonClick _hwnd(GenData.hClear)
wListItemDblClk _hwnd(GenData.hAPIList), API
GetOptionWindowHandles GenData, "LineInitialize"
wButtonClick _hwnd(GenData.hOK)
'LogEndCase SUCCESS, TRUE, "This is the comment"
Params DISABLE
API = "LineOpen"
'LogStartCase API
wButtonClick _hwnd(GenData.hClear)
wListItemDblClk _hwnd(GenData.hAPIList), API
'LogEndCase SUCCESS, FALSE, "This is the comment"
API = "LineClose"
'LogStartCase API
wButtonClick _hwnd(GenData.hClear)
wListItemDblClk _hwnd(GenData.hAPIList), API
'LogEndCase SUCCESS, FALSE, "This is the comment"
API = "LineShutDown"
'LogStartCase API
wButtonClick _hwnd(GenData.hClear)
wListItemDblClk _hwnd(GenData.hAPIList), API
'LogEndCase SUCCESS, TRUE, "This is the comment"
'Need to write summary information to the log
CloseLog
msgbox "all done"
ret = SendMessage(GenData.hTB, WM_CLOSE, 0,0)
end