home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LVB / T2W32534.ZIP / _WINDOWS.FRM < prev    next >
Text File  |  1998-05-02  |  26KB  |  894 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.       Case 12
  203.          Call TestTrashFile
  204.       Case 13
  205.          Call TestGetShortPathName
  206.       Case 14
  207.          Call TestRunFile
  208.    End Select
  209.  
  210.    DoEvents
  211.    Call cEnableFI(mdiT2W.Picture1)
  212.    
  213. End Sub
  214. Private Sub Form_Activate()
  215.  
  216.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  217.  
  218. End Sub
  219. Private Sub Form_Load()
  220.  
  221.    IsLoaded = False
  222.    
  223.    Show
  224.  
  225.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_windows.t2w")
  226.    
  227.    IsLoaded = True
  228.    
  229. End Sub
  230. Private Sub SSCommand1_Click()
  231.    
  232.    Call cmb_Function_Click
  233.    
  234. End Sub
  235. Private Sub TestMultitasksKeys(status As Integer)
  236.  
  237.    Dim intResult        As Integer
  238.    Dim strResult        As String
  239.    Dim strDisplay       As String
  240.    
  241.    Dim i                As Integer
  242.    
  243.    strResult = ""
  244.    strDisplay = ""
  245.    
  246.    If (status = True) Then
  247.       Call cMultitasksKeys(True)
  248.       strDisplay = strDisplay & "MultitasksKeys" & vbCrLf & vbCrLf
  249.       strDisplay = strDisplay & "  are now Disabled" & vbCrLf & vbCrLf
  250.       strDisplay = strDisplay & "     Try CTRL+ALT+DEL or ALT+TAB or CTRL+ESC" & vbCrLf
  251.    Else
  252.       Call cMultitasksKeys(False)
  253.       strDisplay = strDisplay & "MultitasksKeys" & vbCrLf & vbCrLf
  254.       strDisplay = strDisplay & "  are now Enabled" & vbCrLf & vbCrLf
  255.       strDisplay = strDisplay & "     Try CTRL+ALT+DEL or ALT+TAB or CTRL+ESC" & vbCrLf
  256.    End If
  257.    
  258.    txt_Result = strDisplay
  259.  
  260.    'time the function
  261.  
  262.    TimerHandle = cTimerOpen()
  263.    TimerStartOk = cTimerStart(TimerHandle)
  264.    
  265.    For i = 1 To Iteration
  266.       'Call cMultitasksKeys(Status)
  267.    Next i
  268.    
  269.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  270.    
  271.    TimerCloseOk = cTimerClose(TimerHandle)
  272.  
  273. End Sub
  274. Private Sub TestLockKeyboard()
  275.  
  276.    Dim intResult        As Integer
  277.    Dim strResult        As String
  278.    Dim strDisplay       As String
  279.    
  280.    Dim i                As Integer
  281.    
  282.    strResult = ""
  283.    strDisplay = ""
  284.    
  285.    intResult = cLockKeyboard(True, &H70)
  286.    If (intResult = True) Then
  287.       strDisplay = strDisplay & "Lock keyboard for 7 seconds (special unlock key = ALT+CTRL+SHIFT+F1)" & vbCrLf & vbCrLf
  288.       For i = 1 To 7
  289.          DoEvents
  290.          txt_Result = strDisplay
  291.          intResult = cSleep(1000)
  292.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  293.       Next i
  294.       strDisplay = strDisplay & vbCrLf
  295.       strDisplay = strDisplay & "Start unlock keyboard" & vbCrLf
  296.       intResult = cLockKeyboard(False, 0)
  297.       If (intResult = True) Then
  298.          strDisplay = strDisplay & "Keyboard unlocked" & vbCrLf & vbCrLf
  299.       Else
  300.          strDisplay = strDisplay & "Can't unlock keyboard (cross your fingers)" & vbCrLf & vbCrLf
  301.       End If
  302.    Else
  303.       strDisplay = strDisplay & "Can't lock keyboard" & vbCrLf & vbCrLf
  304.    End If
  305.         
  306.    txt_Result = strDisplay
  307.  
  308.    'time the function
  309.  
  310.    TimerHandle = cTimerOpen()
  311.    TimerStartOk = cTimerStart(TimerHandle)
  312.    
  313.    For i = 1 To Iteration
  314.       'Call cLockKeyboard(True,0)
  315.    Next i
  316.    
  317.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  318.    
  319.    TimerCloseOk = cTimerClose(TimerHandle)
  320.  
  321. End Sub
  322. Private Sub TestLockMouse()
  323.  
  324.    Dim intResult        As Integer
  325.    Dim strResult        As String
  326.    Dim strDisplay       As String
  327.    
  328.    Dim i                As Integer
  329.    
  330.    strResult = ""
  331.    strDisplay = ""
  332.  
  333.    intResult = cLockMouse(True, LOCK_MOUSE_ALL_CLICK)
  334.    If (intResult = True) Then
  335.       strDisplay = strDisplay & "Lock mouse (ALL CLICK) for 4 seconds" & vbCrLf & vbCrLf
  336.       For i = 1 To 4
  337.          DoEvents
  338.          txt_Result = strDisplay
  339.          intResult = cSleep(1000)
  340.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  341.       Next i
  342.       strDisplay = strDisplay & vbCrLf
  343.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  344.       intResult = cLockMouse(False, 0)
  345.       If (intResult = True) Then
  346.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  347.       Else
  348.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  349.       End If
  350.    Else
  351.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  352.    End If
  353.         
  354.    intResult = cLockMouse(True, LOCK_MOUSE_RCLICK)
  355.    If (intResult = True) Then
  356.       strDisplay = strDisplay & "Lock mouse (RIGHT CLICK) for 4 seconds" & vbCrLf & vbCrLf
  357.       For i = 1 To 4
  358.          DoEvents
  359.          txt_Result = strDisplay
  360.          intResult = cSleep(1000)
  361.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  362.       Next i
  363.       strDisplay = strDisplay & vbCrLf
  364.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  365.       intResult = cLockMouse(False, 0)
  366.       If (intResult = True) Then
  367.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  368.       Else
  369.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  370.       End If
  371.    Else
  372.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  373.    End If
  374.         
  375.    intResult = cLockMouse(True, LOCK_MOUSE_LCLICK)
  376.    If (intResult = True) Then
  377.       strDisplay = strDisplay & "Lock mouse (LEFT CLICK) for 4 seconds" & vbCrLf & vbCrLf
  378.       For i = 1 To 4
  379.          DoEvents
  380.          txt_Result = strDisplay
  381.          intResult = cSleep(1000)
  382.          strDisplay = strDisplay & "elapsed time : " & i & " second" & IIf(i = 1, "", "s") & vbCrLf
  383.       Next i
  384.       strDisplay = strDisplay & vbCrLf
  385.       strDisplay = strDisplay & "Start unlock mouse" & vbCrLf
  386.       intResult = cLockMouse(False, 0)
  387.       If (intResult = True) Then
  388.          strDisplay = strDisplay & "Mouse unlocked" & vbCrLf & vbCrLf
  389.       Else
  390.          strDisplay = strDisplay & "Can't unlock mouse (cross your fingers)" & vbCrLf & vbCrLf
  391.       End If
  392.    Else
  393.       strDisplay = strDisplay & "Can't lock mouse" & vbCrLf & vbCrLf
  394.    End If
  395.         
  396.    txt_Result = strDisplay
  397.  
  398.    'time the function
  399.  
  400.    TimerHandle = cTimerOpen()
  401.    TimerStartOk = cTimerStart(TimerHandle)
  402.    
  403.    For i = 1 To Iteration
  404.       'Call cLockMouse(True,0)
  405.    Next i
  406.    
  407.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  408.    
  409.    TimerCloseOk = cTimerClose(TimerHandle)
  410.  
  411. End Sub
  412. Private Sub TestModule()
  413.  
  414.    Dim intResult        As Integer
  415.    Dim strResult        As String
  416.    Dim strDisplay       As String
  417.    Dim MODULEENTRY      As tagMODULEENTRY
  418.    
  419.    Dim i                As Integer
  420.    
  421.    strResult = ""
  422.    strDisplay = ""
  423.    
  424.    strDisplay = strDisplay + "Current modules in memory " & vbCrLf & vbCrLf
  425.    
  426.    intResult = cModule(MODULEENTRY, True)
  427.    
  428.    While (intResult = True)
  429.       strDisplay = strDisplay & _
  430.       Hex$(MODULEENTRY.th32ModuleID) & "   " & _
  431.       Hex$(MODULEENTRY.GlblcntUsage) & "   " & _
  432.       Hex$(MODULEENTRY.ProccntUsage) & vbTab & _
  433.       Hex$(MODULEENTRY.modBaseSize) & vbTab & _
  434.       Hex$(MODULEENTRY.hModule) & vbTab & _
  435.       cGetIn(MODULEENTRY.szModule, Chr$(0), 1) & vbTab & _
  436.       cGetIn(MODULEENTRY.szExePath, Chr$(0), 1) & vbCrLf
  437.       intResult = cModule(MODULEENTRY, False)
  438.    Wend
  439.  
  440.    txt_Result = strDisplay
  441.  
  442.    'time the function
  443.  
  444.    TimerHandle = cTimerOpen()
  445.    TimerStartOk = cTimerStart(TimerHandle)
  446.    
  447.    For i = 1 To Iteration
  448.       intResult = cModule(MODULEENTRY, True)
  449.    Next i
  450.    
  451.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  452.    
  453.    TimerCloseOk = cTimerClose(TimerHandle)
  454.  
  455. End Sub
  456. Private Sub TestProcess()
  457.  
  458.    Dim intResult        As Integer
  459.    Dim strResult        As String
  460.    Dim strDisplay       As String
  461.    Dim PROCESSENTRY     As tagPROCESSENTRY
  462.    
  463.    Dim i                As Integer
  464.    
  465.    strResult = ""
  466.    strDisplay = ""
  467.    
  468.    strDisplay = strDisplay + "Current processes in memory " & vbCrLf & vbCrLf
  469.    
  470.    intResult = cProcess(PROCESSENTRY, True)
  471.    
  472.    While (intResult = True)
  473.       strDisplay = strDisplay & _
  474.       PROCESSENTRY.cntUsage & vbTab & _
  475.       Hex$(PROCESSENTRY.th32ProcessID) & "   " & _
  476.       Hex$(PROCESSENTRY.th32ModuleID) & vbTab & _
  477.       PROCESSENTRY.cntThreads & vbTab & _
  478.       Hex$(PROCESSENTRY.th32ParentProcessID) & vbTab & _
  479.       cGetIn(PROCESSENTRY.szExeFile, Chr$(0), 1) & vbCrLf
  480.       intResult = cProcess(PROCESSENTRY, False)
  481.    Wend
  482.  
  483.    txt_Result = strDisplay
  484.  
  485.    'time the function
  486.  
  487.    TimerHandle = cTimerOpen()
  488.    TimerStartOk = cTimerStart(TimerHandle)
  489.    
  490.    For i = 1 To Iteration
  491.       intResult = cProcess(PROCESSENTRY, True)
  492.    Next i
  493.    
  494.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  495.    
  496.    TimerCloseOk = cTimerClose(TimerHandle)
  497.  
  498. End Sub
  499. Private Sub TestThread()
  500.  
  501.    Dim intResult        As Integer
  502.    Dim strResult        As String
  503.    Dim strDisplay       As String
  504.    Dim THREADENTRY      As tagTHREADENTRY
  505.    
  506.    Dim i                As Integer
  507.    
  508.    strResult = ""
  509.    strDisplay = ""
  510.    
  511.    strDisplay = strDisplay + "Current threads in memory " & vbCrLf & vbCrLf
  512.    
  513.    intResult = cThread(THREADENTRY, True)
  514.    
  515.    While (intResult = True)
  516.       strDisplay = strDisplay & _
  517.       Hex$(THREADENTRY.cntUsage) & vbTab & _
  518.       Hex$(THREADENTRY.th32ThreadID) & vbTab & _
  519.       Hex$(THREADENTRY.th32OwnerProcessID) & vbTab & _
  520.       Hex$(THREADENTRY.tpBasePri) & vbTab & _
  521.       Hex$(THREADENTRY.tpDeltaPri) & vbTab & _
  522.       Hex$(THREADENTRY.dwFlags) & vbCrLf
  523.       intResult = cThread(THREADENTRY, False)
  524.    Wend
  525.  
  526.    txt_Result = strDisplay
  527.  
  528.    'time the function
  529.  
  530.    TimerHandle = cTimerOpen()
  531.    TimerStartOk = cTimerStart(TimerHandle)
  532.    
  533.    For i = 1 To Iteration
  534.       intResult = cThread(THREADENTRY, True)
  535.    Next i
  536.    
  537.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  538.    
  539.    TimerCloseOk = cTimerClose(TimerHandle)
  540.  
  541. End Sub
  542. Private Sub TestWalkThruWindows()
  543.  
  544.    Dim lResult          As Long
  545.    Dim strResult        As String
  546.    Dim strDisplay       As String
  547.    
  548.    Dim i                As Integer
  549.    
  550.    Dim Class            As String
  551.    Dim Caption          As String
  552.    Dim OwnerHwnd        As Long
  553.    Dim OwnerClass       As String
  554.    Dim OwnerCaption     As String
  555.    
  556.    strResult = ""
  557.    strDisplay = ""
  558.    
  559.    strDisplay = strDisplay + "Current windows in memory " & vbCrLf & vbCrLf
  560.    
  561.    lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, True)
  562.    
  563.    While (lResult <> 0)
  564.       strDisplay = strDisplay & _
  565.       Class & " | " & _
  566.       Caption & " | " & _
  567.       Hex$(OwnerHwnd) & " | " & _
  568.       OwnerClass & " | " & _
  569.       OwnerCaption & vbCrLf
  570.       lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, False)
  571.    Wend
  572.  
  573.    txt_Result = strDisplay
  574.  
  575.    'time the function
  576.  
  577.    TimerHandle = cTimerOpen()
  578.    TimerStartOk = cTimerStart(TimerHandle)
  579.    
  580.    For i = 1 To Iteration
  581.       lResult = cWalkThruWindow(Class, Caption, OwnerHwnd, OwnerClass, OwnerCaption, True)
  582.    Next i
  583.    
  584.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  585.    
  586.    TimerCloseOk = cTimerClose(TimerHandle)
  587.    
  588. End Sub
  589. Private Sub TestTrayBar()
  590.  
  591.    Dim intResult        As Integer
  592.    Dim strResult        As String
  593.    Dim strDisplay       As String
  594.    
  595.    Dim i                As Integer
  596.    
  597.    strResult = ""
  598.    strDisplay = ""
  599.    
  600.    strDisplay = strDisplay & "TrayBar is now hidden for 3 seconds" & vbCrLf & vbCrLf
  601.    txt_Result = strDisplay
  602.    DoEvents
  603.    Call cTrayBar(TRAYBAR_HIDE)
  604.    intResult = cSleep(3000)
  605.    strDisplay = strDisplay & "TrayBar is now showed" & vbCrLf & vbCrLf
  606.    Call cTrayBar(TRAYBAR_SHOW)
  607.    
  608.    txt_Result = strDisplay
  609.    DoEvents
  610.  
  611.    'time the function
  612.  
  613.    TimerHandle = cTimerOpen()
  614.    TimerStartOk = cTimerStart(TimerHandle)
  615.    
  616.    For i = 1 To Iteration
  617.       'Call cTrayBar(TRAYBAR_SHOW)
  618.    Next i
  619.    
  620.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  621.    
  622.    TimerCloseOk = cTimerClose(TimerHandle)
  623.  
  624. End Sub
  625.  
  626. Private Sub TestOSValue()
  627.  
  628.    Dim lResult          As Long
  629.    Dim strResult        As String
  630.    Dim strDisplay       As String
  631.    
  632.    Dim i                As Integer
  633.    
  634.    strResult = ""
  635.    strDisplay = ""
  636.    
  637.    strDisplay = strDisplay + "OSBuildNumber : " & cGetOSBuildNumber() & " (" & (cGetOSBuildNumber() And &HFFFF&) & ":" & ((cGetOSBuildNumber() And &HFFFF0000) / 65536) & ")" & vbCrLf & vbCrLf
  638.    strDisplay = strDisplay + "OSCSDVersion : " & cGetOSCSDVersion() & vbCrLf & vbCrLf
  639.    strDisplay = strDisplay + "OSMajorVersion : " & cGetOSMajorVersion() & vbCrLf & vbCrLf
  640.    strDisplay = strDisplay + "OSMinorVersion : " & cGetOSMinorVersion() & vbCrLf & vbCrLf
  641.    strDisplay = strDisplay + "OSVersion : " & cGetOSVersion() & vbCrLf & vbCrLf
  642.    strDisplay = strDisplay + "OSPlatformId : " & cGetOSPlatformId() & vbCrLf & vbCrLf
  643.    strDisplay = strDisplay + "OSPlatformName : " & cGetOSPlatformName() & vbCrLf & vbCrLf
  644.    strDisplay = strDisplay + "IsWin95OSR2 : " & IIf(cIsWin95OSR2(), "Yes", "No") & vbCrLf & vbCrLf
  645.    
  646.    txt_Result = strDisplay
  647.  
  648.    'time the function
  649.  
  650.    TimerHandle = cTimerOpen()
  651.    TimerStartOk = cTimerStart(TimerHandle)
  652.    
  653.    For i = 1 To Iteration
  654.       lResult = cGetOSBuildNumber()
  655.    Next i
  656.    
  657.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  658.    
  659.    TimerCloseOk = cTimerClose(TimerHandle)
  660.    
  661. End Sub
  662.  
  663. Private Sub TestIsKeyOn()
  664.  
  665.    Dim iResult          As Integer
  666.    Dim strResult        As String
  667.    Dim strDisplay       As String
  668.    
  669.    Dim i                As Integer
  670.    
  671.    strResult = ""
  672.    strDisplay = ""
  673.    
  674.    strDisplay = strDisplay + "INSERT is " & IIf(cIsInsertOn(), "On", "Off") & vbCrLf & vbCrLf
  675.    strDisplay = strDisplay + "NUM LOCK is " & IIf(cIsNumLockOn(), "On", "Off") & vbCrLf & vbCrLf
  676.    strDisplay = strDisplay + "CAPS LOCK is " & IIf(cIsCapsLockOn(), "On", "Off") & vbCrLf & vbCrLf
  677.    strDisplay = strDisplay + "SCROLL LOCK is " & IIf(cIsScrollLockOn(), "On", "Off") & vbCrLf & vbCrLf
  678.    
  679.    txt_Result = strDisplay
  680.  
  681.    'time the function
  682.  
  683.    TimerHandle = cTimerOpen()
  684.    TimerStartOk = cTimerStart(TimerHandle)
  685.    
  686.    For i = 1 To Iteration
  687.       iResult = cIsNumLockOn()
  688.    Next i
  689.    
  690.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  691.    
  692.    TimerCloseOk = cTimerClose(TimerHandle)
  693.    
  694. End Sub
  695.  
  696. Private Sub TestSetKeyState()
  697.  
  698.    Dim iResult          As Integer
  699.    Dim intResult        As Integer
  700.    Dim strResult        As String
  701.    Dim strDisplay       As String
  702.    
  703.    Dim i                As Integer
  704.    
  705.    strResult = ""
  706.    strDisplay = ""
  707.    
  708.    strDisplay = strDisplay + "set INSERT ON is " & IIf(cSetInsert(True), "ok", "ko") & vbCrLf
  709.    intResult = cSleep(1000)
  710.    strDisplay = strDisplay + "set INSERT OFF is " & IIf(cSetInsert(False), "ok", "ko") & vbCrLf & vbCrLf
  711.    
  712.    txt_Result = strDisplay
  713.       
  714.    strDisplay = strDisplay + "set NUM LOCK ON is " & IIf(cSetNumLock(True), "ok", "ko") & vbCrLf
  715.    intResult = cSleep(1000)
  716.    strDisplay = strDisplay + "set NUM LOCK OFF is " & IIf(cSetNumLock(False), "ok", "ko") & vbCrLf & vbCrLf
  717.    
  718.    txt_Result = strDisplay
  719.       
  720.    strDisplay = strDisplay + "set CAPS LOCK ON is " & IIf(cSetCapsLock(True), "ok", "ko") & vbCrLf
  721.    intResult = cSleep(1000)
  722.    strDisplay = strDisplay + "set CAPS LOCK OFF is " & IIf(cSetCapsLock(False), "ok", "ko") & vbCrLf & vbCrLf
  723.    
  724.    txt_Result = strDisplay
  725.    
  726.    strDisplay = strDisplay + "set SCROLL LOCK ON is " & IIf(cSetScrollLock(True), "ok", "ko") & vbCrLf
  727.    intResult = cSleep(1000)
  728.    strDisplay = strDisplay + "set SCROLL LOCK OFF is " & IIf(cSetScrollLock(False), "ok", "ko") & vbCrLf & vbCrLf
  729.    
  730.    txt_Result = strDisplay
  731.  
  732.    'time the function
  733.  
  734.    TimerHandle = cTimerOpen()
  735.    TimerStartOk = cTimerStart(TimerHandle)
  736.    
  737.    For i = 1 To (Iteration / 5)
  738.       iResult = cSetNumLock(IIf((i Mod 3) = 0, True, False))
  739.       intResult = cSleep(25)
  740.       iResult = cSetCapsLock(IIf(((i + 1) Mod 3) = 0, True, False))
  741.       intResult = cSleep(25)
  742.       iResult = cSetScrollLock(IIf(((i + 2) Mod 3) = 0, True, False))
  743.       intResult = cSleep(25)
  744.    Next i
  745.    
  746.    iResult = cSetNumLock(False)
  747.    iResult = cSetCapsLock(False)
  748.    iResult = cSetScrollLock(False)
  749.    
  750.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  751.    
  752.    TimerCloseOk = cTimerClose(TimerHandle)
  753.    
  754. End Sub
  755.  
  756. Private Sub CreateTrashFile(File1 As String)
  757.    Close #1
  758.    Open File1 For Output Shared As #1
  759.    Print #1, "TIME TO WIN 32-Bit"
  760.    Print #1, "Trash File Test"
  761.    Close #1
  762. End Sub
  763.  
  764. Private Sub TestTrashFile()
  765.  
  766.    Dim intResult        As Integer
  767.    Dim strResult        As String
  768.    Dim strDisplay       As String
  769.    
  770.    Dim i                As Integer
  771.    
  772.    Dim File1            As String
  773.    Dim File2            As String
  774.    
  775.    strResult = ""
  776.    strDisplay = ""
  777.    
  778.    File1 = "Trash File Test (Permanent = True; Confirm = True)"
  779.    Call CreateTrashFile(File1)
  780.    strDisplay = strDisplay & "File '" & File1 & "' " & IIf(cTrashFile(File1, True, True) = True, "trashed", "is not trashed") & vbCrLf & vbCrLf
  781.    
  782.    txt_Result = strDisplay
  783.  
  784.    File1 = "Trash File Test (Permanent = True; Confirm = False)"
  785.    Call CreateTrashFile(File1)
  786.    strDisplay = strDisplay & "File '" & File1 & "' " & IIf(cTrashFile(File1, True, False) = True, "trashed", "is not trashed") & vbCrLf & vbCrLf
  787.    
  788.    txt_Result = strDisplay
  789.  
  790.    File1 = "Trash File Test (Permanent = False; Confirm = True)"
  791.    Call CreateTrashFile(File1)
  792.    strDisplay = strDisplay & "File '" & File1 & "' " & IIf(cTrashFile(File1, False, True) = True, "trashed", "is not trashed") & vbCrLf & vbCrLf
  793.    
  794.    txt_Result = strDisplay
  795.  
  796.    File1 = "Trash File Test (Permanent = False; Confirm = False)"
  797.    Call CreateTrashFile(File1)
  798.    strDisplay = strDisplay & "File '" & File1 & "' " & IIf(cTrashFile(File1, False, False) = True, "trashed", "is not trashed") & vbCrLf & vbCrLf
  799.  
  800.    txt_Result = strDisplay
  801.    DoEvents
  802.  
  803.    'time the function
  804.  
  805.    TimerHandle = cTimerOpen()
  806.    TimerStartOk = cTimerStart(TimerHandle)
  807.    
  808.    For i = 1 To 5
  809.       Call CreateTrashFile(File1)
  810.       intResult = cTrashFile(File1, True, False)
  811.    Next i
  812.    
  813.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  814.    
  815.    TimerCloseOk = cTimerClose(TimerHandle)
  816.  
  817. End Sub
  818.  
  819. Private Sub TestGetShortPathName()
  820.  
  821.    Dim intResult        As Integer
  822.    Dim strResult        As String
  823.    Dim strDisplay       As String
  824.    
  825.    Dim i                As Integer
  826.    
  827.    Dim File1            As String
  828.    
  829.    strResult = ""
  830.    strDisplay = ""
  831.    
  832.    File1 = T2WDirTest + "\This is a long file name"
  833.    Call CreateTrashFile(File1)
  834.    strDisplay = strDisplay & "Short Path Name of '" & File1 & "' is " & vbCrLf & vbCrLf
  835.    strDisplay = strDisplay & cGetShortPathName(File1) & vbCrLf & vbCrLf
  836.    
  837.    File1 = T2WDirTest + "\This is a long file name too"
  838.    Call CreateTrashFile(File1)
  839.    strDisplay = strDisplay & "Short Path Name of '" & File1 & "' is " & vbCrLf & vbCrLf
  840.    strDisplay = strDisplay & cGetShortPathName(File1) & vbCrLf & vbCrLf
  841.    
  842.    txt_Result = strDisplay
  843.  
  844.    'time the function
  845.  
  846.    TimerHandle = cTimerOpen()
  847.    TimerStartOk = cTimerStart(TimerHandle)
  848.    
  849.    For i = 1 To Iteration
  850.       strResult = cGetShortPathName(File1)
  851.    Next i
  852.    
  853.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  854.    
  855.    TimerCloseOk = cTimerClose(TimerHandle)
  856.  
  857. End Sub
  858.  
  859. Private Sub TestRunFile()
  860.  
  861.    Dim intResult        As Integer
  862.    Dim strResult        As String
  863.    Dim strDisplay       As String
  864.    Dim lngResult        As Long
  865.    
  866.    Dim i                As Integer
  867.    
  868.    Dim File1            As String
  869.    
  870.    strResult = ""
  871.    strDisplay = ""
  872.    
  873.    lngResult = cRunFile("notepad.exe", "c:\autoexec.bat", "c:\", SW_NORMAL)
  874.    
  875.    strDisplay = strDisplay & "hInstance of notepad.exe is " & lngResult & vbCrLf
  876.    
  877.    txt_Result = strDisplay
  878.  
  879. '   'time the function
  880. '
  881. '   TimerHandle = cTimerOpen()
  882. '   TimerStartOk = cTimerStart(TimerHandle)
  883. '
  884. '   For i = 1 To Iteration
  885. '      strResult = cGetShortPathName(File1)
  886. '   Next i
  887. '
  888. '   mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  889. '
  890. '   TimerCloseOk = cTimerClose(TimerHandle)
  891.  
  892. End Sub
  893.  
  894.