home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / util / time2win / t2w32500.exe / _WINDOWS.FRM < prev    next >
Text File  |  1997-12-25  |  19KB  |  653 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmWindows 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Windows 95/NT 4.0x"
  6.    ClientHeight    =   4845
  7.    ClientLeft      =   1890
  8.    ClientTop       =   3270
  9.    ClientWidth     =   10815
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4845
  14.    ScaleWidth      =   10815
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txt_Result 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   4125
  20.       Left            =   120
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   6
  25.       Top             =   600
  26.       Width           =   10635
  27.    End
  28.    Begin Threed.SSPanel SSPanel1 
  29.       Align           =   1  'Align Top
  30.       Height          =   480
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   10815
  35.       _Version        =   65536
  36.       _ExtentX        =   19076
  37.       _ExtentY        =   847
  38.       _StockProps     =   15
  39.       ForeColor       =   -2147483640
  40.       BackColor       =   12632256
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Begin VB.ComboBox cmb_Function 
  51.          Height          =   315
  52.          Left            =   1365
  53.          TabIndex        =   1
  54.          Top             =   90
  55.          Width           =   8145
  56.       End
  57.       Begin Threed.SSCommand cmdNP 
  58.          Height          =   300
  59.          Index           =   1
  60.          Left            =   10500
  61.          TabIndex        =   5
  62.          Top             =   90
  63.          Width           =   255
  64.          _Version        =   65536
  65.          _ExtentX        =   450
  66.          _ExtentY        =   529
  67.          _StockProps     =   78
  68.          Caption         =   ">"
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          BevelWidth      =   1
  79.          Font3D          =   3
  80.          RoundedCorners  =   0   'False
  81.          Outline         =   0   'False
  82.       End
  83.       Begin Threed.SSCommand cmdNP 
  84.          Height          =   300
  85.          Index           =   0
  86.          Left            =   9660
  87.          TabIndex        =   4
  88.          Top             =   90
  89.          Width           =   255
  90.          _Version        =   65536
  91.          _ExtentX        =   450
  92.          _ExtentY        =   529
  93.          _StockProps     =   78
  94.          Caption         =   "<"
  95.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.             Name            =   "MS Sans Serif"
  97.             Size            =   8.25
  98.             Charset         =   0
  99.             Weight          =   400
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          BevelWidth      =   1
  105.          Font3D          =   3
  106.          RoundedCorners  =   0   'False
  107.          Outline         =   0   'False
  108.       End
  109.       Begin Threed.SSCommand SSCommand1 
  110.          Default         =   -1  'True
  111.          Height          =   300
  112.          Left            =   9975
  113.          TabIndex        =   2
  114.          Top             =   90
  115.          Width           =   465
  116.          _Version        =   65536
  117.          _ExtentX        =   820
  118.          _ExtentY        =   529
  119.          _StockProps     =   78
  120.          Caption         =   "&Go"
  121.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  122.             Name            =   "MS Sans Serif"
  123.             Size            =   8.25
  124.             Charset         =   0
  125.             Weight          =   400
  126.             Underline       =   0   'False
  127.             Italic          =   0   'False
  128.             Strikethrough   =   0   'False
  129.          EndProperty
  130.          BevelWidth      =   1
  131.          RoundedCorners  =   0   'False
  132.          Outline         =   0   'False
  133.       End
  134.       Begin VB.Label Label2 
  135.          Caption         =   "&Select a function"
  136.          Height          =   255
  137.          Left            =   90
  138.          TabIndex        =   3
  139.          Top             =   120
  140.          Width           =   1275
  141.       End
  142.    End
  143. End
  144. Attribute VB_Name = "frmWindows"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Option Base 1
  151.  
  152. Private Const Iteration = 250
  153.  
  154. Dim IsLoaded         As Integer
  155.  
  156. Dim TimerStartOk     As Integer
  157. Dim TimerCloseOk     As Integer
  158.  
  159. Dim TimerHandle      As Integer
  160. Dim TimerValue       As Long
  161.  
  162. Private Sub cmdNP_Click(Index As Integer)
  163.  
  164.    Call sub_NextPrev(cmb_Function, Index)
  165.  
  166. End Sub
  167. Private Sub cmb_Function_Click()
  168.    
  169.    If (IsLoaded = False) Then Exit Sub
  170.    
  171.    Call cDisableFI(mdiT2W.Picture1)
  172.    
  173.    txt_Result = ""
  174.    
  175.    DoEvents
  176.    
  177.    Select Case cmb_Function.ListIndex
  178.       Case 0
  179.          Call TestMultitasksKeys(True)
  180.       Case 1
  181.          Call TestMultitasksKeys(False)
  182.       Case 2
  183.          Call TestLockKeyboard
  184.       Case 3
  185.          Call TestLockMouse
  186.       Case 4
  187.          Call TestModule
  188.       Case 5
  189.          Call TestProcess
  190.       Case 6
  191.          Call TestThread
  192.       Case 7
  193.          Call TestWalkThruWindows
  194.       Case 8
  195.          Call TestTrayBar
  196.       Case 9
  197.          Call TestOSValue
  198.    End Select
  199.  
  200.    DoEvents
  201.    Call cEnableFI(mdiT2W.Picture1)
  202.    
  203. End Sub
  204. Private Sub Form_Activate()
  205.  
  206.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  207.  
  208. End Sub
  209. Private Sub Form_Load()
  210.  
  211.    IsLoaded = False
  212.    
  213.    Show
  214.  
  215.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_windows.t2w")
  216.    
  217.    IsLoaded = True
  218.    
  219. End Sub
  220. Private Sub SSCommand1_Click()
  221.    
  222.    Call cmb_Function_Click
  223.    
  224. End Sub
  225. Private Sub TestMultitasksKeys(status As Integer)
  226.  
  227.    Dim intResult        As Integer
  228.    Dim strResult        As String
  229.    Dim strDisplay       As String
  230.    
  231.    Dim i                As Integer
  232.    
  233.    strResult = ""
  234.    strDisplay = ""
  235.    
  236.    If (status = True) Then
  237.       Call cMultitasksKeys(True)
  238.       strDisplay = strDisplay & "MultitasksKeys" & vbCrLf & vbCrLf
  239.       strDisplay = strDisplay & "  are now Disabled" & vbCrLf & vbCrLf
  240.       strDisplay = strDisplay & "     Try CTRL+ALT+DEL or ALT+TAB or CTRL+ESC" & vbCrLf
  241.    Else
  242.       Call cMultitasksKeys(False)
  243.       strDisplay = strDisplay & "MultitasksKeys" & vbCrLf & vbCrLf
  244.       strDisplay = strDisplay & "  are now Enabled" & vbCrLf & vbCrLf
  245.       strDisplay = strDisplay & "     Try CTRL+ALT+DEL or ALT+TAB or CTRL+ESC" & vbCrLf
  246.    End If
  247.    
  248.    txt_Result = strDisplay
  249.  
  250.    'time the function
  251.  
  252.    TimerHandle = cTimerOpen()
  253.    TimerStartOk = cTimerStart(TimerHandle)
  254.    
  255.    For i = 1 To Iteration
  256.       'Call cMultitasksKeys(Status)
  257.    Next i
  258.    
  259.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  260.    
  261.    TimerCloseOk = cTimerClose(TimerHandle)
  262.  
  263. End Sub
  264. Private Sub TestLockKeyboard()
  265.  
  266.    Dim intResult        As Integer
  267.    Dim strResult        As String
  268.    Dim strDisplay       As String
  269.    
  270.    Dim i                As Integer
  271.    
  272.    strResult = ""
  273.    strDisplay = ""
  274.    
  275.    intResult = cLockKeyboard(True, &H70)
  276.    If (intResult = True) Then
  277.       strDisplay = strDisplay & "Lock keyboard for 7 seconds (special unlock key = ALT+CTRL+SHIFT+F1)" & vbCrLf & vbCrLf
  278.       For i = 1 To 7
  279.          DoEvents
  280.          txt_Result = strDisplay
  281.          intResult = cSleep(1000)
  282.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  283.       Next i
  284.       strDisplay = strDisplay & vbCrLf
  285.       strDisplay = strDisplay & "Start unlock keyboard" & vbCrLf
  286.       intResult = cLockKeyboard(False, 0)
  287.       If (intResult = True) Then
  288.          strDisplay = strDisplay & "Keyboard unlocked" & vbCrLf & vbCrLf
  289.       Else
  290.          strDisplay = strDisplay & "Can't unlock keyboard (cross your fingers)" & vbCrLf & vbCrLf
  291.       End If
  292.    Else
  293.       strDisplay = strDisplay & "Can't lock keyboard" & vbCrLf & vbCrLf
  294.    End If
  295.         
  296.    txt_Result = strDisplay
  297.  
  298.    'time the function
  299.  
  300.    TimerHandle = cTimerOpen()
  301.    TimerStartOk = cTimerStart(TimerHandle)
  302.    
  303.    For i = 1 To Iteration
  304.       'Call cLockKeyboard(True,0)
  305.    Next i
  306.    
  307.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  308.    
  309.    TimerCloseOk = cTimerClose(TimerHandle)
  310.  
  311. End Sub
  312. Private Sub TestLockMouse()
  313.  
  314.    Dim intResult        As Integer
  315.    Dim strResult        As String
  316.    Dim strDisplay       As String
  317.    
  318.    Dim i                As Integer
  319.    
  320.    strResult = ""
  321.    strDisplay = ""
  322.  
  323.    intResult = cLockMouse(True, LOCK_MOUSE_ALL_CLICK)
  324.    If (intResult = True) Then
  325.       strDisplay = strDisplay & "Lock mouse (ALL CLICK) for 4 seconds" & vbCrLf & vbCrLf
  326.       For i = 1 To 4
  327.          DoEvents
  328.          txt_Result = strDisplay
  329.          intResult = cSleep(1000)
  330.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  331.       Next i
  332.       strDisplay = strDisplay & vbCrLf
  333.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  334.       intResult = cLockMouse(False, 0)
  335.       If (intResult = True) Then
  336.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  337.       Else
  338.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  339.       End If
  340.    Else
  341.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  342.    End If
  343.         
  344.    intResult = cLockMouse(True, LOCK_MOUSE_RCLICK)
  345.    If (intResult = True) Then
  346.       strDisplay = strDisplay & "Lock mouse (RIGHT CLICK) for 4 seconds" & vbCrLf & vbCrLf
  347.       For i = 1 To 4
  348.          DoEvents
  349.          txt_Result = strDisplay
  350.          intResult = cSleep(1000)
  351.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  352.       Next i
  353.       strDisplay = strDisplay & vbCrLf
  354.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  355.       intResult = cLockMouse(False, 0)
  356.       If (intResult = True) Then
  357.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  358.       Else
  359.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  360.       End If
  361.    Else
  362.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  363.    End If
  364.         
  365.    intResult = cLockMouse(True, LOCK_MOUSE_LCLICK)
  366.    If (intResult = True) Then
  367.       strDisplay = strDisplay & "Lock mouse (LEFT CLICK) for 4 seconds" & vbCrLf & vbCrLf
  368.       For i = 1 To 4
  369.          DoEvents
  370.          txt_Result = strDisplay
  371.          intResult = cSleep(1000)
  372.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  373.       Next i
  374.       strDisplay = strDisplay & vbCrLf
  375.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  376.       intResult = cLockMouse(False, 0)
  377.       If (intResult = True) Then
  378.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  379.       Else
  380.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  381.       End If
  382.    Else
  383.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  384.    End If
  385.         
  386.    txt_Result = strDisplay
  387.  
  388.    'time the function
  389.  
  390.    TimerHandle = cTimerOpen()
  391.    TimerStartOk = cTimerStart(TimerHandle)
  392.    
  393.    For i = 1 To Iteration
  394.       'Call cLockMouse(True,0)
  395.    Next i
  396.    
  397.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  398.    
  399.    TimerCloseOk = cTimerClose(TimerHandle)
  400.  
  401. End Sub
  402. Private Sub TestModule()
  403.  
  404.    Dim intResult        As Integer
  405.    Dim strResult        As String
  406.    Dim strDisplay       As String
  407.    Dim MODULEENTRY      As tagMODULEENTRY
  408.    
  409.    Dim i                As Integer
  410.    
  411.    strResult = ""
  412.    strDisplay = ""
  413.    
  414.    strDisplay = strDisplay + "Current modules in memory " & vbCrLf & vbCrLf
  415.    
  416.    intResult = cModule(MODULEENTRY, True)
  417.    
  418.    While (intResult = True)
  419.       strDisplay = strDisplay & _
  420.       Hex$(MODULEENTRY.th32ModuleID) & "   " & _
  421.       Hex$(MODULEENTRY.GlblcntUsage) & "   " & _
  422.       Hex$(MODULEENTRY.ProccntUsage) & vbTab & _
  423.       Hex$(MODULEENTRY.modBaseSize) & vbTab & _
  424.       Hex$(MODULEENTRY.hModule) & vbTab & _
  425.       cGetIn(MODULEENTRY.szModule, Chr$(0), 1) & vbTab & _
  426.       cGetIn(MODULEENTRY.szExePath, Chr$(0), 1) & vbCrLf
  427.       intResult = cModule(MODULEENTRY, False)
  428.    Wend
  429.  
  430.    txt_Result = strDisplay
  431.  
  432.    'time the function
  433.  
  434.    TimerHandle = cTimerOpen()
  435.    TimerStartOk = cTimerStart(TimerHandle)
  436.    
  437.    For i = 1 To Iteration
  438.       intResult = cModule(MODULEENTRY, True)
  439.    Next i
  440.    
  441.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  442.    
  443.    TimerCloseOk = cTimerClose(TimerHandle)
  444.  
  445. End Sub
  446. Private Sub TestProcess()
  447.  
  448.    Dim intResult        As Integer
  449.    Dim strResult        As String
  450.    Dim strDisplay       As String
  451.    Dim PROCESSENTRY     As tagPROCESSENTRY
  452.    
  453.    Dim i                As Integer
  454.    
  455.    strResult = ""
  456.    strDisplay = ""
  457.    
  458.    strDisplay = strDisplay + "Current processes in memory " & vbCrLf & vbCrLf
  459.    
  460.    intResult = cProcess(PROCESSENTRY, True)
  461.    
  462.    While (intResult = True)
  463.       strDisplay = strDisplay & _
  464.       PROCESSENTRY.cntUsage & vbTab & _
  465.       Hex$(PROCESSENTRY.th32ProcessID) & "   " & _
  466.       Hex$(PROCESSENTRY.th32ModuleID) & vbTab & _
  467.       PROCESSENTRY.cntThreads & vbTab & _
  468.       Hex$(PROCESSENTRY.th32ParentProcessID) & vbTab & _
  469.       cGetIn(PROCESSENTRY.szExeFile, Chr$(0), 1) & vbCrLf
  470.       intResult = cProcess(PROCESSENTRY, False)
  471.    Wend
  472.  
  473.    txt_Result = strDisplay
  474.  
  475.    'time the function
  476.  
  477.    TimerHandle = cTimerOpen()
  478.    TimerStartOk = cTimerStart(TimerHandle)
  479.    
  480.    For i = 1 To Iteration
  481.       intResult = cProcess(PROCESSENTRY, True)
  482.    Next i
  483.    
  484.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  485.    
  486.    TimerCloseOk = cTimerClose(TimerHandle)
  487.  
  488. End Sub
  489. Private Sub TestThread()
  490.  
  491.    Dim intResult        As Integer
  492.    Dim strResult        As String
  493.    Dim strDisplay       As String
  494.    Dim THREADENTRY      As tagTHREADENTRY
  495.    
  496.    Dim i                As Integer
  497.    
  498.    strResult = ""
  499.    strDisplay = ""
  500.    
  501.    strDisplay = strDisplay + "Current threads in memory " & vbCrLf & vbCrLf
  502.    
  503.    intResult = cThread(THREADENTRY, True)
  504.    
  505.    While (intResult = True)
  506.       strDisplay = strDisplay & _
  507.       Hex$(THREADENTRY.cntUsage) & vbTab & _
  508.       Hex$(THREADENTRY.th32ThreadID) & vbTab & _
  509.       Hex$(THREADENTRY.th32OwnerProcessID) & vbTab & _
  510.       Hex$(THREADENTRY.tpBasePri) & vbTab & _
  511.       Hex$(THREADENTRY.tpDeltaPri) & vbTab & _
  512.       Hex$(THREADENTRY.dwFlags) & vbCrLf
  513.       intResult = cThread(THREADENTRY, False)
  514.    Wend
  515.  
  516.    txt_Result = strDisplay
  517.  
  518.    'time the function
  519.  
  520.    TimerHandle = cTimerOpen()
  521.    TimerStartOk = cTimerStart(TimerHandle)
  522.    
  523.    For i = 1 To Iteration
  524.       intResult = cThread(THREADENTRY, True)
  525.    Next i
  526.    
  527.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  528.    
  529.    TimerCloseOk = cTimerClose(TimerHandle)
  530.  
  531. End Sub
  532. Private Sub TestWalkThruWindows()
  533.  
  534.    Dim lResult          As Long
  535.    Dim strResult        As String
  536.    Dim strDisplay       As String
  537.    
  538.    Dim i                As Integer
  539.    
  540.    Dim Class            As String
  541.    Dim Caption          As String
  542.    Dim OwnerHwnd        As Long
  543.    Dim OwnerClass       As String
  544.    Dim OwnerCaption     As String
  545.    
  546.    strResult = ""
  547.    strDisplay = ""
  548.    
  549.    strDisplay = strDisplay + "Current windows in memory " & vbCrLf & vbCrLf
  550.    
  551.    lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, True)
  552.    
  553.    While (lResult <> 0)
  554.       strDisplay = strDisplay & _
  555.       Class & " | " & _
  556.       Caption & " | " & _
  557.       Hex$(OwnerHwnd) & " | " & _
  558.       OwnerClass & " | " & _
  559.       OwnerCaption & vbCrLf
  560.       lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, False)
  561.    Wend
  562.  
  563.    txt_Result = strDisplay
  564.  
  565.    'time the function
  566.  
  567.    TimerHandle = cTimerOpen()
  568.    TimerStartOk = cTimerStart(TimerHandle)
  569.    
  570.    For i = 1 To Iteration
  571.       lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, True)
  572.    Next i
  573.    
  574.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  575.    
  576.    TimerCloseOk = cTimerClose(TimerHandle)
  577.    
  578. End Sub
  579. Private Sub TestTrayBar()
  580.  
  581.    Dim intResult        As Integer
  582.    Dim strResult        As String
  583.    Dim strDisplay       As String
  584.    
  585.    Dim i                As Integer
  586.    
  587.    strResult = ""
  588.    strDisplay = ""
  589.    
  590.    strDisplay = strDisplay & "TrayBar is now hidden for 3 seconds" & vbCrLf & vbCrLf
  591.    txt_Result = strDisplay
  592.    DoEvents
  593.    Call cTrayBar(TRAYBAR_HIDE)
  594.    intResult = cSleep(3000)
  595.    strDisplay = strDisplay & "TrayBar is now showed" & vbCrLf & vbCrLf
  596.    Call cTrayBar(TRAYBAR_SHOW)
  597.    
  598.    txt_Result = strDisplay
  599.    DoEvents
  600.  
  601.    'time the function
  602.  
  603.    TimerHandle = cTimerOpen()
  604.    TimerStartOk = cTimerStart(TimerHandle)
  605.    
  606.    For i = 1 To Iteration
  607.       'Call cTrayBar(TRAYBAR_SHOW)
  608.    Next i
  609.    
  610.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  611.    
  612.    TimerCloseOk = cTimerClose(TimerHandle)
  613.  
  614. End Sub
  615.  
  616. Private Sub TestOSValue()
  617.  
  618.    Dim lResult          As Long
  619.    Dim strResult        As String
  620.    Dim strDisplay       As String
  621.    
  622.    Dim i                As Integer
  623.    
  624.    strResult = ""
  625.    strDisplay = ""
  626.    
  627.    strDisplay = strDisplay + "OSBuildNumber : " & cGetOSBuildNumber() & " (" & (cGetOSBuildNumber() And &HFFFF&) & ":" & ((cGetOSBuildNumber() And &HFFFF0000) / 65536) & ")" & vbCrLf & vbCrLf
  628.    strDisplay = strDisplay + "OSCSDVersion : " & cGetOSCSDVersion() & vbCrLf & vbCrLf
  629.    strDisplay = strDisplay + "OSMajorVersion : " & cGetOSMajorVersion() & vbCrLf & vbCrLf
  630.    strDisplay = strDisplay + "OSMinorVersion : " & cGetOSMinorVersion() & vbCrLf & vbCrLf
  631.    strDisplay = strDisplay + "OSVersion : " & cGetOSVersion() & vbCrLf & vbCrLf
  632.    strDisplay = strDisplay + "OSPlatformId : " & cGetOSPlatformId() & vbCrLf & vbCrLf
  633.    strDisplay = strDisplay + "OSPlatformName : " & cGetOSPlatformName() & vbCrLf & vbCrLf
  634.    
  635.    txt_Result = strDisplay
  636.  
  637.    'time the function
  638.  
  639.    TimerHandle = cTimerOpen()
  640.    TimerStartOk = cTimerStart(TimerHandle)
  641.    
  642.    For i = 1 To Iteration
  643.       lResult = cGetOSBuildNumber()
  644.    Next i
  645.    
  646.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  647.    
  648.    TimerCloseOk = cTimerClose(TimerHandle)
  649.    
  650. End Sub
  651.  
  652.  
  653.