archive
/
windows-nt-4.0
mirror of https://github.com/lianthony/NT4.0
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
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.
2 Commits
1 Branch
0 Tags
184 MiB
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
windows-nt-4.0/private/tapi/qa/bvt/current/tbglobal.h

187 lines
5.1 KiB
Raw Permalink Normal View History

initial commit
4 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
  1. 'TAPI BVT HEADER
  3. ' WARNING: This is a piece of junk. No warrantee implied.
  4. 'spaghetti, not authored by me, just scribbled by me, (ajohnh, some time in '95)
  5. '$INCLUDE 'd:\msdev\include\RECORDER.INC'
  6. '$include 'd:\msdev\include\winapi.inc'
  7. '$INCLUDE 'D:\MSDEV\INCLUDE\TBPOKE.H'
  9. '//////////////////////////////////////////
  10. '////// borrowed from my in-work TBPoke:
  11. 'logging
  12. global sOutLogName as string
  13. global sScriptName as string
  14. global sComment as string
  16. global hwndViewport as long
  17. global lCountSpace as long
  18. global lCountFunc as long
  19. global lCountTab as long
  20. global MAX_BLANK as long
  21. global sFuncString as string
  23. 'end reporting
  24. global sEndingMessage as string
  25. global sEndTitle as string
  27. 'checkbox function
  28. global sCheckbox as string
  29. global lState as long
  31. 'system metrics
  32. global ScreenX as long
  33. global ScreenY as long
  35. 'time value
  36. global MY_TIMEOUT as long
  37. global PACER as long
  39. global PARAMS as long
  40. global NOPARAMS as long
  42. global hwndTapiControl as hwndTAPI_CONTROL
  43. global ScenarioLog as LOGINITSTRUCT
  45. global sdwPrivileges as array of string
  46. global sPrivileges as string
  47. global sdwMediaModes as array of string
  48. global sMediaModes as string
  49. '
  50. global hLineApp as array of string
  51. global hLine as array of string
  52. global hCall as array of string
  54. redim sdwPrivileges(1 to 3) as string
  55. redim sdwMediaModes(1 to 14) as string
  57. redim hLineApp(1 to 5) as string 'limit 5 for now
  58. redim hLine(1 to 5) as string
  59. redim hCall(1 to 5) as string
  60. 'redim hCall(5) as string
  62. global hLineAppIndex as pointer to string
  63. 'global hLineIndex as pointer to string
  64. 'VARPTR(hLineApp(0)) 'WATCH IT
  65. 'VARPTR(hLine(0))
  67. 'counts
  68. global ldwPrivilegesBitFlag as long
  69. global ldwMediaModesBitFlag as long
  70. global ldwPrivilegesBitFlagChaos as long
  71. global ldwMediaModesBitFlagChaos as long
  73. global lLineApp as long
  74. global lLine as long
  75. global lCall as long
  77. global GenCount as long
  78. global lCountLineApp as long
  79. global GenCount2 as long
  81. 'coverage statistics
  82. 'not yet implemented
  83. global TapiStatistic as TAPI_STATISTIC
  85. global Tracelevel as long 'debug output
  87. 'duh
  88. hwndTapiControl.TapiHandle = WFndWnd("TAPI32 Browser", FW_DEFAULT) 'find TAPI32 BROWSER
  89. 'by ID, note VT will probably be using the decimal form throughout:
  90. hwndTapiControl.ParamsCheckbox =&h000003f9
  91. hwndTapiControl.LineAppPlusButton =&h000003ee
  92. hwndTapiControl.LineAppMinusButton =&h000003ef
  93. hwndTapiControl.LinePlusButton =&h000003f0
  94. hwndTapiControl.LineMinusButton =&h000003f1
  95. hwndTapiControl.CallPlusButton =&h000003f2
  96. hwndTapiControl.CallMinusButton =&h000003f3
  97. hwndTapiControl.PhoneAppPlusButton =&h000003f4
  98. hwndTapiControl.PhoneAppMinusButton =&h000003f5
  99. hwndTapiControl.PhoneOpenPlusButton =&h000003f6
  100. hwndTapiControl.PhoneOpenMinusButton =&h000003f7
  101. hwndTapiControl.ClearEditButton =&h000003f8
  102. hwndTapiControl.BlankButton0 =&h000003fa
  103. hwndTapiControl.BlankButton1 =&h000003fb
  104. hwndTapiControl.BlankButton2 =&h000003fc
  105. hwndTapiControl.BlankButton3 =&h000003fd
  106. hwndTapiControl.BlankButton4 =&h000003fe
  107. hwndTapiControl.BlankButton5 =&h000003ff
  108. hwndTapiControl.Listbox0 =&h000003e8 'middle box
  109. hwndTapiControl.Listbox1 =&h000003e9 'left box
  110. hwndTapiControl.Editbox =&h000003eb 'right box
  112. '// assign
  113. sOutLogName=curdir$+"\tapibvt.log"
  114. lCountSpace=0
  115. lCountFunc=0
  116. lCountTab=1
  117. MAX_BLANK=20 'static
  118. MY_TIMEOUT=2
  119. PACER = 1
  120. PARAMS=1
  121. NOPARAMS=0
  123. 'debug; 0=no debug; 3 low, 2 med, 1 high --I know it is backward
  124. Tracelevel=0
  126. ScreenX=GetSystemMetrics(SM_CXSCREEN)
  127. ScreenY=GetSystemMetrics (SM_CYSCREEN)
  129. ScenarioLog.LogOutputType = LogTypeFile
  130. ScenarioLog.MinDetailLevel = 3
  131. ScenarioLog.ProductVersion = "4"
  132. ScenarioLog.MachineName = "Undefined"
  133. ScenarioLog.LogLocation = "tapibvt.log"
  134. ScenarioLog.Language = "US English"
  136. 'WATCH IT
  137. 'dwPrivileges string in the form of sdwPrivileges
  139. 'change these to pointers ASAP
  140. global NONE as long, MONITOR as long, OWNER as long
  141. sdwPrivileges(1)="NONE"
  142. NONE=1
  143. sdwPrivileges(2)="MONITOR"
  144. MONITOR=2
  145. sdwPrivileges(3)="OWNER"
  146. OWNER=3
  148. 'dwMediaModes string in the form of sdwMediaModes
  149. 'edit this, this is bulky & hacked:
  151. global UNKNOWN as long, INTERACTIVEVOICE as long, AUTOMATEDVOICE as long
  152. global DATAMODEM as long, G3FAX as long, TDD as long, G4FAX as long
  153. global DIGITALDATA as long, TELETEX as long, VIDEOTEX as long
  154. global TELEX as long, MIXED as long, ADSI as long, VOICEVIEW as long
  156. sdwMediaModes(1)="UNKNOWN"
  157. UNKNOWN=1
  158. sdwMediaModes(2)="INTERACTIVEVOICE"
  159. INTERACTIVEVOICE=2
  160. sdwMediaModes(3)="AUTOMATEDVOICE"
  161. AUTOMATEDVOICE=3
  162. sdwMediaModes(4)="DATAMODEM"
  163. DATAMODEM=4
  164. sdwMediaModes(5)="G3FAX"
  165. G3FAX=5
  166. sdwMediaModes(6)="TDD"
  167. TDD=6
  168. sdwMediaModes(7)="G4FAX"
  169. G4FAX=7
  170. sdwMediaModes(8)="DIGITALDATA"
  171. DIGITALDATA=8
  172. sdwMediaModes(9)="TELETEX"
  173. TELETEX=9
  174. sdwMediaModes(10)="VIDEOTEX"
  175. VIDEOTEX=10
  176. sdwMediaModes(11)="TELEX"
  177. TELEX=11
  178. sdwMediaModes(12)="MIXED"
  179. MIXED=12
  180. sdwMediaModes(13)="ADSI"
  181. ADSI=13
  182. sdwMediaModes(14)="VOICEVIEW"
  183. VOICEVIEW=14
  185. '/////////////////////////////////
  186. '/////// END HEADER /////////////
  187. '/////////////////////////////////