home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _WINDOWS.FRM < prev    next >
Text File  |  1998-04-07  |  22KB  |  749 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.       Case 10
  199.          Call TestIsKeyOn
  200.       Case 11
  201.          Call TestSetKeyState
  202.    End Select
  203.  
  204.    DoEvents
  205.    Call cEnableFI(mdiT2W.Picture1)
  206.    
  207. End Sub
  208. Private Sub Form_Activate()
  209.  
  210.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  211.  
  212. End Sub
  213. Private Sub Form_Load()
  214.  
  215.    IsLoaded = False
  216.    
  217.    Show
  218.  
  219.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_windows.t2w")
  220.    
  221.    IsLoaded = True
  222.    
  223. End Sub
  224. Private Sub SSCommand1_Click()
  225.    
  226.    Call cmb_Function_Click
  227.    
  228. End Sub
  229. Private Sub TestMultitasksKeys(status As Integer)
  230.  
  231.    Dim intResult        As Integer
  232.    Dim strResult        As String
  233.    Dim strDisplay       As String
  234.    
  235.    Dim i                As Integer
  236.    
  237.    strResult = ""
  238.    strDisplay = ""
  239.    
  240.    If (status = True) Then
  241.       Call cMultitasksKeys(True)
  242.       strDisplay = strDisplay & "MultitasksKeys" & vbCrLf & vbCrLf
  243.       strDisplay = strDisplay & "  are now Disabled" & vbCrLf & vbCrLf
  244.       strDisplay = strDisplay & "     Try CTRL+ALT+DEL or ALT+TAB or CTRL+ESC" & vbCrLf
  245.    Else
  246.       Call cMultitasksKeys(False)
  247.       strDisplay = strDisplay & "MultitasksKeys" & vbCrLf & vbCrLf
  248.       strDisplay = strDisplay & "  are now Enabled" & vbCrLf & vbCrLf
  249.       strDisplay = strDisplay & "     Try CTRL+ALT+DEL or ALT+TAB or CTRL+ESC" & vbCrLf
  250.    End If
  251.    
  252.    txt_Result = strDisplay
  253.  
  254.    'time the function
  255.  
  256.    TimerHandle = cTimerOpen()
  257.    TimerStartOk = cTimerStart(TimerHandle)
  258.    
  259.    For i = 1 To Iteration
  260.       'Call cMultitasksKeys(Status)
  261.    Next i
  262.    
  263.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  264.    
  265.    TimerCloseOk = cTimerClose(TimerHandle)
  266.  
  267. End Sub
  268. Private Sub TestLockKeyboard()
  269.  
  270.    Dim intResult        As Integer
  271.    Dim strResult        As String
  272.    Dim strDisplay       As String
  273.    
  274.    Dim i                As Integer
  275.    
  276.    strResult = ""
  277.    strDisplay = ""
  278.    
  279.    intResult = cLockKeyboard(True, &H70)
  280.    If (intResult = True) Then
  281.       strDisplay = strDisplay & "Lock keyboard for 7 seconds (special unlock key = ALT+CTRL+SHIFT+F1)" & vbCrLf & vbCrLf
  282.       For i = 1 To 7
  283.          DoEvents
  284.          txt_Result = strDisplay
  285.          intResult = cSleep(1000)
  286.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  287.       Next i
  288.       strDisplay = strDisplay & vbCrLf
  289.       strDisplay = strDisplay & "Start unlock keyboard" & vbCrLf
  290.       intResult = cLockKeyboard(False, 0)
  291.       If (intResult = True) Then
  292.          strDisplay = strDisplay & "Keyboard unlocked" & vbCrLf & vbCrLf
  293.       Else
  294.          strDisplay = strDisplay & "Can't unlock keyboard (cross your fingers)" & vbCrLf & vbCrLf
  295.       End If
  296.    Else
  297.       strDisplay = strDisplay & "Can't lock keyboard" & vbCrLf & vbCrLf
  298.    End If
  299.         
  300.    txt_Result = strDisplay
  301.  
  302.    'time the function
  303.  
  304.    TimerHandle = cTimerOpen()
  305.    TimerStartOk = cTimerStart(TimerHandle)
  306.    
  307.    For i = 1 To Iteration
  308.       'Call cLockKeyboard(True,0)
  309.    Next i
  310.    
  311.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  312.    
  313.    TimerCloseOk = cTimerClose(TimerHandle)
  314.  
  315. End Sub
  316. Private Sub TestLockMouse()
  317.  
  318.    Dim intResult        As Integer
  319.    Dim strResult        As String
  320.    Dim strDisplay       As String
  321.    
  322.    Dim i                As Integer
  323.    
  324.    strResult = ""
  325.    strDisplay = ""
  326.  
  327.    intResult = cLockMouse(True, LOCK_MOUSE_ALL_CLICK)
  328.    If (intResult = True) Then
  329.       strDisplay = strDisplay & "Lock mouse (ALL CLICK) for 4 seconds" & vbCrLf & vbCrLf
  330.       For i = 1 To 4
  331.          DoEvents
  332.          txt_Result = strDisplay
  333.          intResult = cSleep(1000)
  334.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  335.       Next i
  336.       strDisplay = strDisplay & vbCrLf
  337.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  338.       intResult = cLockMouse(False, 0)
  339.       If (intResult = True) Then
  340.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  341.       Else
  342.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  343.       End If
  344.    Else
  345.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  346.    End If
  347.         
  348.    intResult = cLockMouse(True, LOCK_MOUSE_RCLICK)
  349.    If (intResult = True) Then
  350.       strDisplay = strDisplay & "Lock mouse (RIGHT CLICK) for 4 seconds" & vbCrLf & vbCrLf
  351.       For i = 1 To 4
  352.          DoEvents
  353.          txt_Result = strDisplay
  354.          intResult = cSleep(1000)
  355.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  356.       Next i
  357.       strDisplay = strDisplay & vbCrLf
  358.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  359.       intResult = cLockMouse(False, 0)
  360.       If (intResult = True) Then
  361.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  362.       Else
  363.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  364.       End If
  365.    Else
  366.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  367.    End If
  368.         
  369.    intResult = cLockMouse(True, LOCK_MOUSE_LCLICK)
  370.    If (intResult = True) Then
  371.       strDisplay = strDisplay & "Lock mouse (LEFT CLICK) for 4 seconds" & vbCrLf & vbCrLf
  372.       For i = 1 To 4
  373.          DoEvents
  374.          txt_Result = strDisplay
  375.          intResult = cSleep(1000)
  376.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  377.       Next i
  378.       strDisplay = strDisplay & vbCrLf
  379.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  380.       intResult = cLockMouse(False, 0)
  381.       If (intResult = True) Then
  382.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  383.       Else
  384.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  385.       End If
  386.    Else
  387.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  388.    End If
  389.         
  390.    txt_Result = strDisplay
  391.  
  392.    'time the function
  393.  
  394.    TimerHandle = cTimerOpen()
  395.    TimerStartOk = cTimerStart(TimerHandle)
  396.    
  397.    For i = 1 To Iteration
  398.       'Call cLockMouse(True,0)
  399.    Next i
  400.    
  401.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  402.    
  403.    TimerCloseOk = cTimerClose(TimerHandle)
  404.  
  405. End Sub
  406. Private Sub TestModule()
  407.  
  408.    Dim intResult        As Integer
  409.    Dim strResult        As String
  410.    Dim strDisplay       As String
  411.    Dim MODULEENTRY      As tagMODULEENTRY
  412.    
  413.    Dim i                As Integer
  414.    
  415.    strResult = ""
  416.    strDisplay = ""
  417.    
  418.    strDisplay = strDisplay + "Current modules in memory " & vbCrLf & vbCrLf
  419.    
  420.    intResult = cModule(MODULEENTRY, True)
  421.    
  422.    While (intResult = True)
  423.       strDisplay = strDisplay & _
  424.       Hex$(MODULEENTRY.th32ModuleID) & "   " & _
  425.       Hex$(MODULEENTRY.GlblcntUsage) & "   " & _
  426.       Hex$(MODULEENTRY.ProccntUsage) & vbTab & _
  427.       Hex$(MODULEENTRY.modBaseSize) & vbTab & _
  428.       Hex$(MODULEENTRY.hModule) & vbTab & _
  429.       cGetIn(MODULEENTRY.szModule, Chr$(0), 1) & vbTab & _
  430.       cGetIn(MODULEENTRY.szExePath, Chr$(0), 1) & vbCrLf
  431.       intResult = cModule(MODULEENTRY, False)
  432.    Wend
  433.  
  434.    txt_Result = strDisplay
  435.  
  436.    'time the function
  437.  
  438.    TimerHandle = cTimerOpen()
  439.    TimerStartOk = cTimerStart(TimerHandle)
  440.    
  441.    For i = 1 To Iteration
  442.       intResult = cModule(MODULEENTRY, True)
  443.    Next i
  444.    
  445.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  446.    
  447.    TimerCloseOk = cTimerClose(TimerHandle)
  448.  
  449. End Sub
  450. Private Sub TestProcess()
  451.  
  452.    Dim intResult        As Integer
  453.    Dim strResult        As String
  454.    Dim strDisplay       As String
  455.    Dim PROCESSENTRY     As tagPROCESSENTRY
  456.    
  457.    Dim i                As Integer
  458.    
  459.    strResult = ""
  460.    strDisplay = ""
  461.    
  462.    strDisplay = strDisplay + "Current processes in memory " & vbCrLf & vbCrLf
  463.    
  464.    intResult = cProcess(PROCESSENTRY, True)
  465.    
  466.    While (intResult = True)
  467.       strDisplay = strDisplay & _
  468.       PROCESSENTRY.cntUsage & vbTab & _
  469.       Hex$(PROCESSENTRY.th32ProcessID) & "   " & _
  470.       Hex$(PROCESSENTRY.th32ModuleID) & vbTab & _
  471.       PROCESSENTRY.cntThreads & vbTab & _
  472.       Hex$(PROCESSENTRY.th32ParentProcessID) & vbTab & _
  473.       cGetIn(PROCESSENTRY.szExeFile, Chr$(0), 1) & vbCrLf
  474.       intResult = cProcess(PROCESSENTRY, False)
  475.    Wend
  476.  
  477.    txt_Result = strDisplay
  478.  
  479.    'time the function
  480.  
  481.    TimerHandle = cTimerOpen()
  482.    TimerStartOk = cTimerStart(TimerHandle)
  483.    
  484.    For i = 1 To Iteration
  485.       intResult = cProcess(PROCESSENTRY, True)
  486.    Next i
  487.    
  488.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  489.    
  490.    TimerCloseOk = cTimerClose(TimerHandle)
  491.  
  492. End Sub
  493. Private Sub TestThread()
  494.  
  495.    Dim intResult        As Integer
  496.    Dim strResult        As String
  497.    Dim strDisplay       As String
  498.    Dim THREADENTRY      As tagTHREADENTRY
  499.    
  500.    Dim i                As Integer
  501.    
  502.    strResult = ""
  503.    strDisplay = ""
  504.    
  505.    strDisplay = strDisplay + "Current threads in memory " & vbCrLf & vbCrLf
  506.    
  507.    intResult = cThread(THREADENTRY, True)
  508.    
  509.    While (intResult = True)
  510.       strDisplay = strDisplay & _
  511.       Hex$(THREADENTRY.cntUsage) & vbTab & _
  512.       Hex$(THREADENTRY.th32ThreadID) & vbTab & _
  513.       Hex$(THREADENTRY.th32OwnerProcessID) & vbTab & _
  514.       Hex$(THREADENTRY.tpBasePri) & vbTab & _
  515.       Hex$(THREADENTRY.tpDeltaPri) & vbTab & _
  516.       Hex$(THREADENTRY.dwFlags) & vbCrLf
  517.       intResult = cThread(THREADENTRY, False)
  518.    Wend
  519.  
  520.    txt_Result = strDisplay
  521.  
  522.    'time the function
  523.  
  524.    TimerHandle = cTimerOpen()
  525.    TimerStartOk = cTimerStart(TimerHandle)
  526.    
  527.    For i = 1 To Iteration
  528.       intResult = cThread(THREADENTRY, True)
  529.    Next i
  530.    
  531.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  532.    
  533.    TimerCloseOk = cTimerClose(TimerHandle)
  534.  
  535. End Sub
  536. Private Sub TestWalkThruWindows()
  537.  
  538.    Dim lResult          As Long
  539.    Dim strResult        As String
  540.    Dim strDisplay       As String
  541.    
  542.    Dim i                As Integer
  543.    
  544.    Dim Class            As String
  545.    Dim Caption          As String
  546.    Dim OwnerHwnd        As Long
  547.    Dim OwnerClass       As String
  548.    Dim OwnerCaption     As String
  549.    
  550.    strResult = ""
  551.    strDisplay = ""
  552.    
  553.    strDisplay = strDisplay + "Current windows in memory " & vbCrLf & vbCrLf
  554.    
  555.    lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, True)
  556.    
  557.    While (lResult <> 0)
  558.       strDisplay = strDisplay & _
  559.       Class & " | " & _
  560.       Caption & " | " & _
  561.       Hex$(OwnerHwnd) & " | " & _
  562.       OwnerClass & " | " & _
  563.       OwnerCaption & vbCrLf
  564.       lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, False)
  565.    Wend
  566.  
  567.    txt_Result = strDisplay
  568.  
  569.    'time the function
  570.  
  571.    TimerHandle = cTimerOpen()
  572.    TimerStartOk = cTimerStart(TimerHandle)
  573.    
  574.    For i = 1 To Iteration
  575.       lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, True)
  576.    Next i
  577.    
  578.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  579.    
  580.    TimerCloseOk = cTimerClose(TimerHandle)
  581.    
  582. End Sub
  583. Private Sub TestTrayBar()
  584.  
  585.    Dim intResult        As Integer
  586.    Dim strResult        As String
  587.    Dim strDisplay       As String
  588.    
  589.    Dim i                As Integer
  590.    
  591.    strResult = ""
  592.    strDisplay = ""
  593.    
  594.    strDisplay = strDisplay & "TrayBar is now hidden for 3 seconds" & vbCrLf & vbCrLf
  595.    txt_Result = strDisplay
  596.    DoEvents
  597.    Call cTrayBar(TRAYBAR_HIDE)
  598.    intResult = cSleep(3000)
  599.    strDisplay = strDisplay & "TrayBar is now showed" & vbCrLf & vbCrLf
  600.    Call cTrayBar(TRAYBAR_SHOW)
  601.    
  602.    txt_Result = strDisplay
  603.    DoEvents
  604.  
  605.    'time the function
  606.  
  607.    TimerHandle = cTimerOpen()
  608.    TimerStartOk = cTimerStart(TimerHandle)
  609.    
  610.    For i = 1 To Iteration
  611.       'Call cTrayBar(TRAYBAR_SHOW)
  612.    Next i
  613.    
  614.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  615.    
  616.    TimerCloseOk = cTimerClose(TimerHandle)
  617.  
  618. End Sub
  619.  
  620. Private Sub TestOSValue()
  621.  
  622.    Dim lResult          As Long
  623.    Dim strResult        As String
  624.    Dim strDisplay       As String
  625.    
  626.    Dim i                As Integer
  627.    
  628.    strResult = ""
  629.    strDisplay = ""
  630.    
  631.    strDisplay = strDisplay + "OSBuildNumber : " & cGetOSBuildNumber() & " (" & (cGetOSBuildNumber() And &HFFFF&) & ":" & ((cGetOSBuildNumber() And &HFFFF0000) / 65536) & ")" & vbCrLf & vbCrLf
  632.    strDisplay = strDisplay + "OSCSDVersion : " & cGetOSCSDVersion() & vbCrLf & vbCrLf
  633.    strDisplay = strDisplay + "OSMajorVersion : " & cGetOSMajorVersion() & vbCrLf & vbCrLf
  634.    strDisplay = strDisplay + "OSMinorVersion : " & cGetOSMinorVersion() & vbCrLf & vbCrLf
  635.    strDisplay = strDisplay + "OSVersion : " & cGetOSVersion() & vbCrLf & vbCrLf
  636.    strDisplay = strDisplay + "OSPlatformId : " & cGetOSPlatformId() & vbCrLf & vbCrLf
  637.    strDisplay = strDisplay + "OSPlatformName : " & cGetOSPlatformName() & vbCrLf & vbCrLf
  638.    strDisplay = strDisplay + "IsWin95OSR2 : " & IIf(cIsWin95OSR2(), "Yes", "No") & vbCrLf & vbCrLf
  639.    
  640.    txt_Result = strDisplay
  641.  
  642.    'time the function
  643.  
  644.    TimerHandle = cTimerOpen()
  645.    TimerStartOk = cTimerStart(TimerHandle)
  646.    
  647.    For i = 1 To Iteration
  648.       lResult = cGetOSBuildNumber()
  649.    Next i
  650.    
  651.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  652.    
  653.    TimerCloseOk = cTimerClose(TimerHandle)
  654.    
  655. End Sub
  656.  
  657. Private Sub TestIsKeyOn()
  658.  
  659.    Dim iResult          As Integer
  660.    Dim strResult        As String
  661.    Dim strDisplay       As String
  662.    
  663.    Dim i                As Integer
  664.    
  665.    strResult = ""
  666.    strDisplay = ""
  667.    
  668.    strDisplay = strDisplay + "INSERT is " & IIf(cIsInsertOn(), "On", "Off") & vbCrLf & vbCrLf
  669.    strDisplay = strDisplay + "NUM LOCK is " & IIf(cIsNumLockOn(), "On", "Off") & vbCrLf & vbCrLf
  670.    strDisplay = strDisplay + "CAPS LOCK is " & IIf(cIsCapsLockOn(), "On", "Off") & vbCrLf & vbCrLf
  671.    strDisplay = strDisplay + "SCROLL LOCK is " & IIf(cIsScrollLockOn(), "On", "Off") & vbCrLf & vbCrLf
  672.    
  673.    txt_Result = strDisplay
  674.  
  675.    'time the function
  676.  
  677.    TimerHandle = cTimerOpen()
  678.    TimerStartOk = cTimerStart(TimerHandle)
  679.    
  680.    For i = 1 To Iteration
  681.       iResult = cIsNumLockOn()
  682.    Next i
  683.    
  684.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  685.    
  686.    TimerCloseOk = cTimerClose(TimerHandle)
  687.    
  688. End Sub
  689.  
  690. Private Sub TestSetKeyState()
  691.  
  692.    Dim iResult          As Integer
  693.    Dim intResult        As Integer
  694.    Dim strResult        As String
  695.    Dim strDisplay       As String
  696.    
  697.    Dim i                As Integer
  698.    
  699.    strResult = ""
  700.    strDisplay = ""
  701.    
  702.    strDisplay = strDisplay + "set INSERT ON is " & IIf(cSetInsert(True), "ok", "ko") & vbCrLf
  703.    intResult = cSleep(1000)
  704.    strDisplay = strDisplay + "set INSERT OFF is " & IIf(cSetInsert(False), "ok", "ko") & vbCrLf & vbCrLf
  705.    
  706.    txt_Result = strDisplay
  707.       
  708.    strDisplay = strDisplay + "set NUM LOCK ON is " & IIf(cSetNumLock(True), "ok", "ko") & vbCrLf
  709.    intResult = cSleep(1000)
  710.    strDisplay = strDisplay + "set NUM LOCK OFF is " & IIf(cSetNumLock(False), "ok", "ko") & vbCrLf & vbCrLf
  711.    
  712.    txt_Result = strDisplay
  713.       
  714.    strDisplay = strDisplay + "set CAPS LOCK ON is " & IIf(cSetCapsLock(True), "ok", "ko") & vbCrLf
  715.    intResult = cSleep(1000)
  716.    strDisplay = strDisplay + "set CAPS LOCK OFF is " & IIf(cSetCapsLock(False), "ok", "ko") & vbCrLf & vbCrLf
  717.    
  718.    txt_Result = strDisplay
  719.    
  720.    strDisplay = strDisplay + "set SCROLL LOCK ON is " & IIf(cSetScrollLock(True), "ok", "ko") & vbCrLf
  721.    intResult = cSleep(1000)
  722.    strDisplay = strDisplay + "set SCROLL LOCK OFF is " & IIf(cSetScrollLock(False), "ok", "ko") & vbCrLf & vbCrLf
  723.    
  724.    txt_Result = strDisplay
  725.  
  726.    'time the function
  727.  
  728.    TimerHandle = cTimerOpen()
  729.    TimerStartOk = cTimerStart(TimerHandle)
  730.    
  731.    For i = 1 To (Iteration / 5)
  732.       iResult = cSetNumLock(IIf((i Mod 3) = 0, True, False))
  733.       intResult = cSleep(25)
  734.       iResult = cSetCapsLock(IIf(((i + 1) Mod 3) = 0, True, False))
  735.       intResult = cSleep(25)
  736.       iResult = cSetScrollLock(IIf(((i + 2) Mod 3) = 0, True, False))
  737.       intResult = cSleep(25)
  738.    Next i
  739.    
  740.    iResult = cSetNumLock(False)
  741.    iResult = cSetCapsLock(False)
  742.    iResult = cSetScrollLock(False)
  743.    
  744.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  745.    
  746.    TimerCloseOk = cTimerClose(TimerHandle)
  747.    
  748. End Sub
  749.