home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / winfox / task.wd_ / task.wd (.txt)
Encoding:
Visual Basic Form  |  1995-01-31  |  9.5 KB  |  303 lines
  1. VERSION 2.00
  2. Begin Form Task 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Task List"
  6.    ClientHeight    =   4410
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   7410
  10.    ControlBox      =   0   'False
  11.    Height          =   4815
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4410
  17.    ScaleWidth      =   7410
  18.    Top             =   1140
  19.    Width           =   7530
  20.    Begin ListBox ListHidden 
  21.       Height          =   225
  22.       Left            =   4140
  23.       Sorted          =   -1  'True
  24.       TabIndex        =   10
  25.       Top             =   4200
  26.       Visible         =   0   'False
  27.       Width           =   3315
  28.    End
  29.    Begin Timer Timer1 
  30.       Interval        =   1000
  31.       Left            =   7200
  32.       Top             =   3540
  33.    End
  34.    Begin CommandButton CmdRefresh 
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "&Refresh List"
  37.       Height          =   435
  38.       Left            =   300
  39.       TabIndex        =   7
  40.       TabStop         =   0   'False
  41.       Top             =   3780
  42.       Width           =   2235
  43.    End
  44.    Begin CommandButton CmdOkay 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "O &K A Y"
  47.       Height          =   435
  48.       Left            =   4860
  49.       TabIndex        =   5
  50.       TabStop         =   0   'False
  51.       Top             =   3780
  52.       Width           =   2235
  53.    End
  54.    Begin CommandButton CmdIcons 
  55.       BackColor       =   &H00C0C0C0&
  56.       Caption         =   "&Arrange Icons"
  57.       Height          =   435
  58.       Left            =   4860
  59.       TabIndex        =   4
  60.       TabStop         =   0   'False
  61.       Top             =   3300
  62.       Width           =   2235
  63.    End
  64.    Begin CommandButton CmdEnd 
  65.       BackColor       =   &H00C0C0C0&
  66.       Caption         =   "&End Task"
  67.       Height          =   435
  68.       Left            =   2580
  69.       TabIndex        =   3
  70.       TabStop         =   0   'False
  71.       Top             =   3780
  72.       Width           =   2235
  73.    End
  74.    Begin CommandButton CmdSwitch 
  75.       BackColor       =   &H00C0C0C0&
  76.       Caption         =   "&Switch To"
  77.       Height          =   435
  78.       Left            =   2580
  79.       TabIndex        =   2
  80.       TabStop         =   0   'False
  81.       Top             =   3300
  82.       Width           =   2235
  83.    End
  84.    Begin CommandButton CmdInfo 
  85.       BackColor       =   &H00C0C0C0&
  86.       Caption         =   "Task &Info"
  87.       Height          =   435
  88.       Left            =   300
  89.       TabIndex        =   1
  90.       TabStop         =   0   'False
  91.       Top             =   3300
  92.       Width           =   2235
  93.    End
  94.    Begin ListBox List1 
  95.       FontBold        =   0   'False
  96.       FontItalic      =   0   'False
  97.       FontName        =   "Terminal"
  98.       FontSize        =   9
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       Height          =   2010
  102.       Left            =   240
  103.       Sorted          =   -1  'True
  104.       TabIndex        =   0
  105.       Top             =   420
  106.       Width           =   6915
  107.    End
  108.    Begin Label LabelHdr 
  109.       BackStyle       =   0  'Transparent
  110.       Caption         =   "LabelHdr"
  111.       FontBold        =   0   'False
  112.       FontItalic      =   0   'False
  113.       FontName        =   "Terminal"
  114.       FontSize        =   9
  115.       FontStrikethru  =   0   'False
  116.       FontUnderline   =   0   'False
  117.       ForeColor       =   &H00800000&
  118.       Height          =   195
  119.       Left            =   240
  120.       TabIndex        =   11
  121.       Top             =   180
  122.       Width           =   6915
  123.    End
  124.    Begin Label LblFreeMem 
  125.       Alignment       =   1  'Right Justify
  126.       BackStyle       =   0  'Transparent
  127.       Caption         =   "FreeMem"
  128.       ForeColor       =   &H00800000&
  129.       Height          =   315
  130.       Left            =   2580
  131.       TabIndex        =   9
  132.       Top             =   2880
  133.       Width           =   4455
  134.    End
  135.    Begin Label LblFreeRes 
  136.       BackStyle       =   0  'Transparent
  137.       Caption         =   "FreeRes"
  138.       ForeColor       =   &H00800000&
  139.       Height          =   315
  140.       Left            =   360
  141.       TabIndex        =   8
  142.       Top             =   2880
  143.       Width           =   2175
  144.    End
  145.    Begin Label LabelCount 
  146.       Alignment       =   2  'Center
  147.       BackStyle       =   0  'Transparent
  148.       Caption         =   "Task Count"
  149.       ForeColor       =   &H00000000&
  150.       Height          =   255
  151.       Left            =   240
  152.       TabIndex        =   6
  153.       Top             =   2520
  154.       Width           =   6915
  155.    End
  156. Declare Function GetDesktopHwnd% Lib "User" ()
  157. Declare Function ArrangeIconicWindows% Lib "User" (ByVal hWnd%)
  158. Sub CmdEnd_Click ()
  159.     x = List1.ListIndex
  160.     FormPassString = "END"
  161.     AppTitle$ = ExtractField(x, 1)
  162.     ClassName$ = LCase$(ExtractField(x, 2))
  163.     WdwState$ = LCase$(ExtractField(x, 3))
  164.     If AppTitle$ = DemoMain.Caption Then
  165.         Unload Me
  166.         Exit Sub
  167.         End If
  168.     If WdwState$ = "hidden" Then
  169.         MsgBox "Can NOT end a HIDDEN application!", 48, "End Task"
  170.         List1.SetFocus
  171.         Exit Sub
  172.         End If
  173.     If ClassName$ <> "tty" Then
  174.         AppActivate AppTitle$
  175.         SendKeys "%{F4}", True
  176.         Else
  177.         AppActivate AppTitle$
  178.         SendKeys "% T%T{TAB}~", True
  179.         End If
  180.     List1.SetFocus
  181.     CmdRefresh_Click
  182. End Sub
  183. Sub CmdIcons_Click ()
  184.     DThwnd% = GetDesktopHwnd()
  185.     x% = ArrangeIconicWindows(DThwnd%)
  186.     List1.SetFocus
  187. End Sub
  188. Sub CmdInfo_Click ()
  189.     If List1.ListIndex = -1 Or List1.ListCount = 0 Then
  190.         MsgBox "No item selected!", 64, "Task Info"
  191.         Exit Sub
  192.         End If
  193.     x = List1.ListIndex
  194.     sTitle$ = ExtractField(x, 1)
  195.     sClass$ = ExtractField(x, 2)
  196.     sWdwState$ = ExtractField(x, 3)
  197.     sFullPath$ = LCase$(ExtractField(x, 4))
  198.     iInstance$ = Trim$(ExtractField(x, 5))
  199.     ihWnd$ = Trim$(ExtractField(x, 6))
  200.     ihDC$ = Trim$(ExtractField(x, 7))
  201.     iMenu$ = Trim$(ExtractField(x, 8))
  202.     msg$ = "Title:" + Chr$(9) + Chr$(9) + sTitle$ + nl
  203.     msg$ = msg$ + "Class Name:" + Chr$(9) + sClass$ + nl
  204.     msg$ = msg$ + "Wdw State:" + Chr$(9) + sWdwState$ + nl
  205.     msg$ = msg$ + "Full Path:" + Chr$(9) + sFullPath$ + nl
  206.     msg$ = msg$ + "hInstance:" + Chr$(9) + iInstance$ + nl
  207.     msg$ = msg$ + "hWnd:" + Chr$(9) + Chr$(9) + ihWnd$ + nl
  208.     msg$ = msg$ + "hDC:" + Chr$(9) + Chr$(9) + ihDC$ + nl
  209.     msg$ = msg$ + "hMenu:" + Chr$(9) + Chr$(9) + iMenu$
  210.     MsgBox msg$, 48, "Selected Task Info"
  211.     List1.SetFocus
  212. End Sub
  213. Sub CmdOkay_Click ()
  214.     FormPassString = "OKAY"
  215.     Unload Me
  216. End Sub
  217. Sub CmdRefresh_Click ()
  218.     Screen.MousePointer = 11
  219.     RefreshView
  220.     Screen.MousePointer = 0
  221.     List1.SetFocus
  222. End Sub
  223. Sub CmdSwitch_Click ()
  224.     x = List1.ListIndex
  225.     FormPassString = "SWITCH"
  226.     FormPassString2 = ExtractField(x, 1)
  227.     FormPassString3 = LCase$(ExtractField(x, 3))
  228.     If FormPassString3 = "hidden" Then
  229.         MsgBox "Can NOT switch to a HIDDEN application!", 48, "Switch To"
  230.         List1.SetFocus
  231.         Exit Sub
  232.         End If
  233.     Unload Me
  234. End Sub
  235. Function ExtractField$ (RecordItem, FieldItem)
  236.     'When using a hidden module like this, it is best to
  237.     'set the Sort property of both ListBoxes to the same value
  238.     If RecordItem > ListHidden.ListCount Then
  239.         ExtractField = ""
  240.         Exit Function
  241.         End If
  242.     ThisRecord$ = ListHidden.List(RecordItem)
  243.     delimiter$ = Chr$(9)
  244.     If GetTokenCount(ThisRecord$, delimter$) > FieldItem Then
  245.         ExtractField = ""
  246.         Exit Function
  247.         End If
  248.     ReturnString$ = Space$(255)
  249.     GetToken ThisRecord$, delimiter$, FieldItem, ReturnString$
  250.     ExtractField = TrimAtNull(ReturnString$)
  251. End Function
  252. Sub Form_Load ()
  253.     FormCenterScreen Me
  254.     LabelHdr.Caption = "Application Title" + Space$(28) + "Wdw State"
  255.     ReDim tabsets%(1)
  256.     tabsets%(0) = 0
  257.     tabsets%(1) = 45 * 4
  258.     dummy% = OutMessage(List1.hWnd, 1043, 2, tabsets%(0))
  259.     RefreshView
  260.     LblFreeRes.Caption = "": LblFreeMem.Caption = ""
  261.     Screen.MousePointer = 0
  262. End Sub
  263. Sub Form_Paint ()
  264.     DoForm3D Me, "raised", 2, 0
  265.     DoForm3D Me, "sunken", 2, 2
  266.     DoControl3D List1, "sunken", 2
  267. End Sub
  268. Sub List1_DblClick ()
  269.     CmdInfo_Click
  270. End Sub
  271. Sub RefreshView ()
  272.     LBfillTaskInfo ListHidden.hWnd, False
  273.     If ListHidden.ListCount = 0 Then
  274.         LabelCount.Caption = ""
  275.         Exit Sub
  276.         End If
  277.     List1.Clear
  278.     For x = 0 To ListHidden.ListCount - 1
  279.         sTitle$ = ExtractField(x, 1)
  280.         sState$ = ExtractField(x, 3)
  281.         If sTitle$ <> Me.Caption Then
  282.             List1.AddItem sTitle$ + Chr$(9) + sState$ + Chr$(9)
  283.             Else
  284.             ThisTask% = x
  285.             End If
  286.         Next x
  287.     ListHidden.RemoveItem ThisTask%
  288.     ItemCount% = ListHidden.ListCount
  289.     If ItemCount% > 1 Then
  290.         word$ = " tasks "
  291.         Else
  292.         word$ = " task "
  293.         End If
  294.     LabelCount.Caption = Format$(ItemCount%, "##0") + " active" + word$ + "detected"
  295.     List1.ListIndex = 0
  296. End Sub
  297. Sub Timer1_Timer ()
  298.     ret& = GetFreeMem("system")
  299.     LblFreeRes.Caption = "Free Resources: " + Format$(ret&) + "%"
  300.     ret& = GetFreeMem("space")
  301.     LblFreeMem.Caption = "Free Memory: " + Format$(ret& / 1024, "###,###,##0") + " KB"
  302. End Sub
  303.