home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / _Firewall_1826711272004.psc / frmProc.frm < prev    next >
Text File  |  2004-12-07  |  71KB  |  1,973 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Begin VB.Form frmProc 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Process Monitor"
  8.    ClientHeight    =   5445
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   6030
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5445
  16.    ScaleWidth      =   6030
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin TabDlg.SSTab Tab1 
  19.       Height          =   5295
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   5775
  24.       _ExtentX        =   10186
  25.       _ExtentY        =   9340
  26.       _Version        =   393216
  27.       TabOrientation  =   1
  28.       Style           =   1
  29.       Tabs            =   5
  30.       TabsPerRow      =   4
  31.       TabHeight       =   520
  32.       ShowFocusRect   =   0   'False
  33.       TabCaption(0)   =   "Main"
  34.       TabPicture(0)   =   "frmProc.frx":0000
  35.       Tab(0).ControlEnabled=   -1  'True
  36.       Tab(0).Control(0)=   "cmdFirewallTab"
  37.       Tab(0).Control(0).Enabled=   0   'False
  38.       Tab(0).Control(1)=   "cmdMemory"
  39.       Tab(0).Control(1).Enabled=   0   'False
  40.       Tab(0).Control(2)=   "cmdtabProcinfo"
  41.       Tab(0).Control(2).Enabled=   0   'False
  42.       Tab(0).Control(3)=   "Frame1"
  43.       Tab(0).Control(3).Enabled=   0   'False
  44.       Tab(0).Control(4)=   "cmdProcList"
  45.       Tab(0).Control(4).Enabled=   0   'False
  46.       Tab(0).ControlCount=   5
  47.       TabCaption(1)   =   "Running Processes"
  48.       TabPicture(1)   =   "frmProc.frx":001C
  49.       Tab(1).ControlEnabled=   0   'False
  50.       Tab(1).Control(0)=   "Label11"
  51.       Tab(1).Control(1)=   "Label10"
  52.       Tab(1).Control(2)=   "Label9"
  53.       Tab(1).Control(3)=   "lstvwProc"
  54.       Tab(1).Control(4)=   "cmdStopTimer"
  55.       Tab(1).Control(5)=   "txtTimer"
  56.       Tab(1).Control(6)=   "cmdStartTimer"
  57.       Tab(1).Control(7)=   "tmrEnum"
  58.       Tab(1).Control(8)=   "Command1"
  59.       Tab(1).Control(9)=   "Command5"
  60.       Tab(1).ControlCount=   10
  61.       TabCaption(2)   =   "Process Information"
  62.       TabPicture(2)   =   "frmProc.frx":0038
  63.       Tab(2).ControlEnabled=   0   'False
  64.       Tab(2).Control(0)=   "Label17"
  65.       Tab(2).Control(1)=   "lblInfoParent"
  66.       Tab(2).Control(2)=   "Label22"
  67.       Tab(2).Control(3)=   "lblInfoPID"
  68.       Tab(2).Control(4)=   "lblInfoType"
  69.       Tab(2).Control(5)=   "Label7"
  70.       Tab(2).Control(6)=   "lblInfoProcName"
  71.       Tab(2).Control(7)=   "Frame2"
  72.       Tab(2).Control(8)=   "Frame3"
  73.       Tab(2).ControlCount=   9
  74.       TabCaption(3)   =   "Internet Processes"
  75.       TabPicture(3)   =   "frmProc.frx":0054
  76.       Tab(3).ControlEnabled=   0   'False
  77.       Tab(3).Control(0)=   "lblMonitor"
  78.       Tab(3).Control(1)=   "Label12"
  79.       Tab(3).Control(2)=   "lblArc"
  80.       Tab(3).Control(3)=   "Label13"
  81.       Tab(3).Control(4)=   "lstvwNetProc"
  82.       Tab(3).Control(5)=   "cmdEnumPortProc"
  83.       Tab(3).Control(6)=   "cmdCloseConn"
  84.       Tab(3).Control(7)=   "cmdMonitor"
  85.       Tab(3).Control(8)=   "cmbMonitor"
  86.       Tab(3).Control(9)=   "tmrMonitor"
  87.       Tab(3).Control(10)=   "txtMonitor"
  88.       Tab(3).ControlCount=   11
  89.       TabCaption(4)   =   "Firewall"
  90.       TabPicture(4)   =   "frmProc.frx":0070
  91.       Tab(4).ControlEnabled=   0   'False
  92.       Tab(4).Control(0)=   "Label14"
  93.       Tab(4).Control(0).Enabled=   0   'False
  94.       Tab(4).Control(1)=   "lblAttempts"
  95.       Tab(4).Control(1).Enabled=   0   'False
  96.       Tab(4).Control(2)=   "lblFirewallStat"
  97.       Tab(4).Control(2).Enabled=   0   'False
  98.       Tab(4).Control(3)=   "cd1"
  99.       Tab(4).Control(3).Enabled=   0   'False
  100.       Tab(4).Control(4)=   "cmdLoad"
  101.       Tab(4).Control(4).Enabled=   0   'False
  102.       Tab(4).Control(5)=   "tmrFirewall"
  103.       Tab(4).Control(5).Enabled=   0   'False
  104.       Tab(4).Control(6)=   "cmdSave"
  105.       Tab(4).Control(6).Enabled=   0   'False
  106.       Tab(4).Control(7)=   "Frame6"
  107.       Tab(4).Control(7).Enabled=   0   'False
  108.       Tab(4).Control(8)=   "Frame5"
  109.       Tab(4).Control(8).Enabled=   0   'False
  110.       Tab(4).Control(9)=   "Frame4"
  111.       Tab(4).Control(9).Enabled=   0   'False
  112.       Tab(4).Control(10)=   "cmdFirewall"
  113.       Tab(4).Control(10).Enabled=   0   'False
  114.       Tab(4).Control(11)=   "cmbFirewall"
  115.       Tab(4).Control(11).Enabled=   0   'False
  116.       Tab(4).ControlCount=   12
  117.       Begin VB.CommandButton cmdProcList 
  118.          Caption         =   "Running Processes"
  119.          Height          =   375
  120.          Left            =   120
  121.          TabIndex        =   74
  122.          Top             =   120
  123.          Width           =   2295
  124.       End
  125.       Begin VB.Frame Frame1 
  126.          Caption         =   "Summary"
  127.          Height          =   2175
  128.          Left            =   2520
  129.          TabIndex        =   65
  130.          Top             =   120
  131.          Width           =   2775
  132.          Begin VB.Label Label1 
  133.             Caption         =   "Processes Running:"
  134.             BeginProperty Font 
  135.                Name            =   "Verdana"
  136.                Size            =   8.25
  137.                Charset         =   0
  138.                Weight          =   700
  139.                Underline       =   0   'False
  140.                Italic          =   0   'False
  141.                Strikethrough   =   0   'False
  142.             EndProperty
  143.             Height          =   255
  144.             Left            =   120
  145.             TabIndex        =   73
  146.             Top             =   240
  147.             Width           =   1935
  148.          End
  149.          Begin VB.Label Label3 
  150.             Caption         =   "System Processes:"
  151.             BeginProperty Font 
  152.                Name            =   "Verdana"
  153.                Size            =   8.25
  154.                Charset         =   0
  155.                Weight          =   700
  156.                Underline       =   0   'False
  157.                Italic          =   0   'False
  158.                Strikethrough   =   0   'False
  159.             EndProperty
  160.             Height          =   255
  161.             Left            =   120
  162.             TabIndex        =   72
  163.             Top             =   1200
  164.             Width           =   1935
  165.          End
  166.          Begin VB.Label Label4 
  167.             Caption         =   "Unknown Processes:"
  168.             BeginProperty Font 
  169.                Name            =   "Verdana"
  170.                Size            =   8.25
  171.                Charset         =   0
  172.                Weight          =   700
  173.                Underline       =   0   'False
  174.                Italic          =   0   'False
  175.                Strikethrough   =   0   'False
  176.             EndProperty
  177.             Height          =   255
  178.             Left            =   120
  179.             TabIndex        =   71
  180.             Top             =   1680
  181.             Width           =   2055
  182.          End
  183.          Begin VB.Label lblProc 
  184.             Alignment       =   2  'Center
  185.             Caption         =   "0"
  186.             BeginProperty Font 
  187.                Name            =   "Verdana"
  188.                Size            =   9.75
  189.                Charset         =   0
  190.                Weight          =   700
  191.                Underline       =   0   'False
  192.                Italic          =   0   'False
  193.                Strikethrough   =   0   'False
  194.             EndProperty
  195.             ForeColor       =   &H000000FF&
  196.             Height          =   255
  197.             Left            =   2160
  198.             TabIndex        =   70
  199.             Top             =   240
  200.             Width           =   495
  201.          End
  202.          Begin VB.Label lblSysProc 
  203.             Alignment       =   2  'Center
  204.             Caption         =   "0"
  205.             BeginProperty Font 
  206.                Name            =   "Verdana"
  207.                Size            =   9.75
  208.                Charset         =   0
  209.                Weight          =   700
  210.                Underline       =   0   'False
  211.                Italic          =   0   'False
  212.                Strikethrough   =   0   'False
  213.             EndProperty
  214.             ForeColor       =   &H000000FF&
  215.             Height          =   255
  216.             Left            =   2160
  217.             TabIndex        =   69
  218.             Top             =   1200
  219.             Width           =   495
  220.          End
  221.          Begin VB.Label lblUnkProc 
  222.             Alignment       =   2  'Center
  223.             Caption         =   "0"
  224.             BeginProperty Font 
  225.                Name            =   "Verdana"
  226.                Size            =   9.75
  227.                Charset         =   0
  228.                Weight          =   700
  229.                Underline       =   0   'False
  230.                Italic          =   0   'False
  231.                Strikethrough   =   0   'False
  232.             EndProperty
  233.             ForeColor       =   &H000000FF&
  234.             Height          =   255
  235.             Left            =   2160
  236.             TabIndex        =   68
  237.             Top             =   1680
  238.             Width           =   495
  239.          End
  240.          Begin VB.Label Label6 
  241.             Caption         =   "Service Processes:"
  242.             BeginProperty Font 
  243.                Name            =   "Verdana"
  244.                Size            =   8.25
  245.                Charset         =   0
  246.                Weight          =   700
  247.                Underline       =   0   'False
  248.                Italic          =   0   'False
  249.                Strikethrough   =   0   'False
  250.             EndProperty
  251.             Height          =   255
  252.             Left            =   120
  253.             TabIndex        =   67
  254.             Top             =   720
  255.             Width           =   1935
  256.          End
  257.          Begin VB.Label lblServProc 
  258.             Alignment       =   2  'Center
  259.             Caption         =   "0"
  260.             BeginProperty Font 
  261.                Name            =   "Verdana"
  262.                Size            =   9.75
  263.                Charset         =   0
  264.                Weight          =   700
  265.                Underline       =   0   'False
  266.                Italic          =   0   'False
  267.                Strikethrough   =   0   'False
  268.             EndProperty
  269.             ForeColor       =   &H000000FF&
  270.             Height          =   255
  271.             Left            =   2160
  272.             TabIndex        =   66
  273.             Top             =   720
  274.             Width           =   495
  275.          End
  276.       End
  277.       Begin VB.CommandButton cmdtabProcinfo 
  278.          Caption         =   "Process Information"
  279.          Height          =   375
  280.          Left            =   120
  281.          TabIndex        =   64
  282.          Top             =   600
  283.          Width           =   2295
  284.       End
  285.       Begin VB.CommandButton cmdMemory 
  286.          Caption         =   "Internet Processes"
  287.          Height          =   375
  288.          Left            =   120
  289.          TabIndex        =   63
  290.          Top             =   1080
  291.          Width           =   2295
  292.       End
  293.       Begin VB.CommandButton cmdFirewallTab 
  294.          Caption         =   "Firewall"
  295.          Height          =   375
  296.          Left            =   120
  297.          TabIndex        =   62
  298.          Top             =   1560
  299.          Width           =   2295
  300.       End
  301.       Begin VB.CommandButton Command5 
  302.          Caption         =   "Enumerate Processes"
  303.          Height          =   375
  304.          Left            =   -74880
  305.          TabIndex        =   61
  306.          Top             =   120
  307.          Width           =   1695
  308.       End
  309.       Begin VB.CommandButton Command1 
  310.          Caption         =   "Select Columns..."
  311.          Height          =   255
  312.          Left            =   -74880
  313.          TabIndex        =   59
  314.          Top             =   480
  315.          Width           =   1695
  316.       End
  317.       Begin VB.Frame Frame3 
  318.          Caption         =   "Controls"
  319.          Height          =   3735
  320.          Left            =   -70800
  321.          TabIndex        =   54
  322.          Top             =   720
  323.          Width           =   1215
  324.          Begin VB.CommandButton cmdGetProc 
  325.             Caption         =   "Get Process.."
  326.             BeginProperty Font 
  327.                Name            =   "Arial Narrow"
  328.                Size            =   8.25
  329.                Charset         =   0
  330.                Weight          =   400
  331.                Underline       =   0   'False
  332.                Italic          =   0   'False
  333.                Strikethrough   =   0   'False
  334.             EndProperty
  335.             Height          =   255
  336.             Left            =   120
  337.             TabIndex        =   58
  338.             Top             =   240
  339.             Width           =   975
  340.          End
  341.          Begin VB.CommandButton cmdTabRunProc 
  342.             Caption         =   "Running Proc"
  343.             BeginProperty Font 
  344.                Name            =   "Arial Narrow"
  345.                Size            =   8.25
  346.                Charset         =   0
  347.                Weight          =   400
  348.                Underline       =   0   'False
  349.                Italic          =   0   'False
  350.                Strikethrough   =   0   'False
  351.             EndProperty
  352.             Height          =   255
  353.             Left            =   120
  354.             TabIndex        =   57
  355.             Top             =   600
  356.             Width           =   975
  357.          End
  358.          Begin VB.CommandButton cmdKillProc 
  359.             Caption         =   "Kill Process.."
  360.             BeginProperty Font 
  361.                Name            =   "Arial Narrow"
  362.                Size            =   8.25
  363.                Charset         =   0
  364.                Weight          =   400
  365.                Underline       =   0   'False
  366.                Italic          =   0   'False
  367.                Strikethrough   =   0   'False
  368.             EndProperty
  369.             Height          =   255
  370.             Left            =   120
  371.             TabIndex        =   56
  372.             Top             =   960
  373.             Width           =   975
  374.          End
  375.          Begin VB.CommandButton cmdSetPri 
  376.             Caption         =   "Set Priority.."
  377.             BeginProperty Font 
  378.                Name            =   "Arial Narrow"
  379.                Size            =   8.25
  380.                Charset         =   0
  381.                Weight          =   400
  382.                Underline       =   0   'False
  383.                Italic          =   0   'False
  384.                Strikethrough   =   0   'False
  385.             EndProperty
  386.             Height          =   255
  387.             Left            =   120
  388.             TabIndex        =   55
  389.             Top             =   1320
  390.             Width           =   975
  391.          End
  392.       End
  393.       Begin VB.Frame Frame2 
  394.          Caption         =   "Process Information"
  395.          Height          =   3735
  396.          Left            =   -74880
  397.          TabIndex        =   27
  398.          Top             =   720
  399.          Width           =   4095
  400.          Begin VB.Label lblInfoSet 
  401.             BeginProperty Font 
  402.                Name            =   "Verdana"
  403.                Size            =   6.75
  404.                Charset         =   0
  405.                Weight          =   700
  406.                Underline       =   0   'False
  407.                Italic          =   0   'False
  408.                Strikethrough   =   0   'False
  409.             EndProperty
  410.             ForeColor       =   &H00C00000&
  411.             Height          =   255
  412.             Left            =   1440
  413.             TabIndex        =   53
  414.             Top             =   1560
  415.             Width           =   2055
  416.          End
  417.          Begin VB.Label lblInfoPkPgPool 
  418.             BeginProperty Font 
  419.                Name            =   "Verdana"
  420.                Size            =   6.75
  421.                Charset         =   0
  422.                Weight          =   700
  423.                Underline       =   0   'False
  424.                Italic          =   0   'False
  425.                Strikethrough   =   0   'False
  426.             EndProperty
  427.             ForeColor       =   &H00C00000&
  428.             Height          =   255
  429.             Left            =   1680
  430.             TabIndex        =   52
  431.             Top             =   1920
  432.             Width           =   2055
  433.          End
  434.          Begin VB.Label lblInfoPgPool 
  435.             BeginProperty Font 
  436.                Name            =   "Verdana"
  437.                Size            =   6.75
  438.                Charset         =   0
  439.                Weight          =   700
  440.                Underline       =   0   'False
  441.                Italic          =   0   'False
  442.                Strikethrough   =   0   'False
  443.             EndProperty
  444.             ForeColor       =   &H00C00000&
  445.             Height          =   255
  446.             Left            =   1440
  447.             TabIndex        =   51
  448.             Top             =   2160
  449.             Width           =   2055
  450.          End
  451.          Begin VB.Label lblInfoPkPool 
  452.             BeginProperty Font 
  453.                Name            =   "Verdana"
  454.                Size            =   6.75
  455.                Charset         =   0
  456.                Weight          =   700
  457.                Underline       =   0   'False
  458.                Italic          =   0   'False
  459.                Strikethrough   =   0   'False
  460.             EndProperty
  461.             ForeColor       =   &H00C00000&
  462.             Height          =   255
  463.             Left            =   2040
  464.             TabIndex        =   50
  465.             Top             =   2520
  466.             Width           =   1815
  467.          End
  468.          Begin VB.Label lblInfoPool 
  469.             BeginProperty Font 
  470.                Name            =   "Verdana"
  471.                Size            =   6.75
  472.                Charset         =   0
  473.                Weight          =   700
  474.                Underline       =   0   'False
  475.                Italic          =   0   'False
  476.                Strikethrough   =   0   'False
  477.             EndProperty
  478.             ForeColor       =   &H00C00000&
  479.             Height          =   255
  480.             Left            =   1800
  481.             TabIndex        =   49
  482.             Top             =   2760
  483.             Width           =   2055
  484.          End
  485.          Begin VB.Label lblInfoPkPgFile 
  486.             BeginProperty Font 
  487.                Name            =   "Verdana"
  488.                Size            =   6.75
  489.                Charset         =   0
  490.                Weight          =   700
  491.                Underline       =   0   'False
  492.                Italic          =   0   'False
  493.                Strikethrough   =   0   'False
  494.             EndProperty
  495.             ForeColor       =   &H00C00000&
  496.             Height          =   255
  497.             Left            =   1800
  498.             TabIndex        =   48
  499.             Top             =   3120
  500.             Width           =   2055
  501.          End
  502.          Begin VB.Label lblInfoPgFile 
  503.             BeginProperty Font 
  504.                Name            =   "Verdana"
  505.                Size            =   6.75
  506.                Charset         =   0
  507.                Weight          =   700
  508.                Underline       =   0   'False
  509.                Italic          =   0   'False
  510.                Strikethrough   =   0   'False
  511.             EndProperty
  512.             ForeColor       =   &H00C00000&
  513.             Height          =   255
  514.             Left            =   1560
  515.             TabIndex        =   47
  516.             Top             =   3360
  517.             Width           =   2055
  518.          End
  519.          Begin VB.Label lblInfoPkSet 
  520.             BeginProperty Font 
  521.                Name            =   "Verdana"
  522.                Size            =   6.75
  523.                Charset         =   0
  524.                Weight          =   700
  525.                Underline       =   0   'False
  526.                Italic          =   0   'False
  527.                Strikethrough   =   0   'False
  528.             EndProperty
  529.             ForeColor       =   &H00C00000&
  530.             Height          =   255
  531.             Left            =   1680
  532.             TabIndex        =   46
  533.             Top             =   1320
  534.             Width           =   2055
  535.          End
  536.          Begin VB.Label lblinfoPgFaults 
  537.             Alignment       =   1  'Right Justify
  538.             BeginProperty Font 
  539.                Name            =   "Verdana"
  540.                Size            =   6.75
  541.                Charset         =   0
  542.                Weight          =   700
  543.                Underline       =   0   'False
  544.                Italic          =   0   'False
  545.                Strikethrough   =   0   'False
  546.             EndProperty
  547.             ForeColor       =   &H00C00000&
  548.             Height          =   255
  549.             Left            =   3360
  550.             TabIndex        =   45
  551.             Top             =   600
  552.             Width           =   615
  553.          End
  554.          Begin VB.Label lblInfoThreads 
  555.             Alignment       =   1  'Right Justify
  556.             BeginProperty Font 
  557.                Name            =   "Verdana"
  558.                Size            =   6.75
  559.                Charset         =   0
  560.                Weight          =   700
  561.                Underline       =   0   'False
  562.                Italic          =   0   'False
  563.                Strikethrough   =   0   'False
  564.             EndProperty
  565.             ForeColor       =   &H00C00000&
  566.             Height          =   255
  567.             Left            =   3360
  568.             TabIndex        =   44
  569.             Top             =   240
  570.             Width           =   615
  571.          End
  572.          Begin VB.Label lblInfoProcPri 
  573.             BeginProperty Font 
  574.                Name            =   "Verdana"
  575.                Size            =   6.75
  576.                Charset         =   0
  577.                Weight          =   700
  578.                Underline       =   0   'False
  579.                Italic          =   0   'False
  580.                Strikethrough   =   0   'False
  581.             EndProperty
  582.             ForeColor       =   &H000000FF&
  583.             Height          =   255
  584.             Left            =   1560
  585.             TabIndex        =   43
  586.             Top             =   840
  587.             Width           =   1335
  588.          End
  589.          Begin VB.Label lblInfoBase 
  590.             BeginProperty Font 
  591.                Name            =   "Verdana"
  592.                Size            =   6.75
  593.                Charset         =   0
  594.                Weight          =   700
  595.                Underline       =   0   'False
  596.                Italic          =   0   'False
  597.                Strikethrough   =   0   'False
  598.             EndProperty
  599.             ForeColor       =   &H00C00000&
  600.             Height          =   255
  601.             Left            =   1320
  602.             TabIndex        =   42
  603.             Top             =   600
  604.             Width           =   975
  605.          End
  606.          Begin VB.Label lblInfoExe 
  607.             BeginProperty Font 
  608.                Name            =   "Verdana"
  609.                Size            =   6.75
  610.                Charset         =   0
  611.                Weight          =   700
  612.                Underline       =   0   'False
  613.                Italic          =   0   'False
  614.                Strikethrough   =   0   'False
  615.             EndProperty
  616.             ForeColor       =   &H00C00000&
  617.             Height          =   255
  618.             Left            =   1080
  619.             TabIndex        =   41
  620.             Top             =   240
  621.             Width           =   1335
  622.          End
  623.          Begin VB.Label label92 
  624.             Caption         =   "Pk Non-Pg Pool Usage:"
  625.             BeginProperty Font 
  626.                Name            =   "Verdana"
  627.                Size            =   6.75
  628.                Charset         =   0
  629.                Weight          =   400
  630.                Underline       =   0   'False
  631.                Italic          =   0   'False
  632.                Strikethrough   =   0   'False
  633.             EndProperty
  634.             Height          =   255
  635.             Left            =   120
  636.             TabIndex        =   40
  637.             Top             =   2520
  638.             Width           =   1815
  639.          End
  640.          Begin VB.Label label91 
  641.             Caption         =   "Non-Pg Pool Usage:"
  642.             BeginProperty Font 
  643.                Name            =   "Verdana"
  644.                Size            =   6.75
  645.                Charset         =   0
  646.                Weight          =   400
  647.                Underline       =   0   'False
  648.                Italic          =   0   'False
  649.                Strikethrough   =   0   'False
  650.             EndProperty
  651.             Height          =   255
  652.             Left            =   120
  653.             TabIndex        =   39
  654.             Top             =   2760
  655.             Width           =   1575
  656.          End
  657.          Begin VB.Label label90 
  658.             Caption         =   "Pk Page File Usage:"
  659.             BeginProperty Font 
  660.                Name            =   "Verdana"
  661.                Size            =   6.75
  662.                Charset         =   0
  663.                Weight          =   400
  664.                Underline       =   0   'False
  665.                Italic          =   0   'False
  666.                Strikethrough   =   0   'False
  667.             EndProperty
  668.             Height          =   255
  669.             Left            =   120
  670.             TabIndex        =   38
  671.             Top             =   3120
  672.             Width           =   1575
  673.          End
  674.          Begin VB.Label label89 
  675.             Caption         =   "Page File Usage:"
  676.             BeginProperty Font 
  677.                Name            =   "Verdana"
  678.                Size            =   6.75
  679.                Charset         =   0
  680.                Weight          =   400
  681.                Underline       =   0   'False
  682.                Italic          =   0   'False
  683.                Strikethrough   =   0   'False
  684.             EndProperty
  685.             Height          =   255
  686.             Left            =   120
  687.             TabIndex        =   37
  688.             Top             =   3360
  689.             Width           =   1335
  690.          End
  691.          Begin VB.Label label99 
  692.             Caption         =   "EXE Name:"
  693.             BeginProperty Font 
  694.                Name            =   "Verdana"
  695.                Size            =   6.75
  696.                Charset         =   0
  697.                Weight          =   400
  698.                Underline       =   0   'False
  699.                Italic          =   0   'False
  700.                Strikethrough   =   0   'False
  701.             EndProperty
  702.             Height          =   255
  703.             Left            =   120
  704.             TabIndex        =   36
  705.             Top             =   240
  706.             Width           =   855
  707.          End
  708.          Begin VB.Label label97 
  709.             Caption         =   "Process Priority:"
  710.             BeginProperty Font 
  711.                Name            =   "Verdana"
  712.                Size            =   6.75
  713.                Charset         =   0
  714.                Weight          =   400
  715.                Underline       =   0   'False
  716.                Italic          =   0   'False
  717.                Strikethrough   =   0   'False
  718.             EndProperty
  719.             Height          =   255
  720.             Left            =   120
  721.             TabIndex        =   35
  722.             Top             =   840
  723.             Width           =   1335
  724.          End
  725.          Begin VB.Label lblInfoFault 
  726.             Caption         =   "Page Faults:"
  727.             BeginProperty Font 
  728.                Name            =   "Verdana"
  729.                Size            =   6.75
  730.                Charset         =   0
  731.                Weight          =   400
  732.                Underline       =   0   'False
  733.                Italic          =   0   'False
  734.                Strikethrough   =   0   'False
  735.             EndProperty
  736.             Height          =   255
  737.             Left            =   2400
  738.             TabIndex        =   34
  739.             Top             =   600
  740.             Width           =   975
  741.          End
  742.          Begin VB.Label label93 
  743.             Caption         =   "Pg Pool Usage:"
  744.             BeginProperty Font 
  745.                Name            =   "Verdana"
  746.                Size            =   6.75
  747.                Charset         =   0
  748.                Weight          =   400
  749.                Underline       =   0   'False
  750.                Italic          =   0   'False
  751.                Strikethrough   =   0   'False
  752.             EndProperty
  753.             Height          =   255
  754.             Left            =   120
  755.             TabIndex        =   33
  756.             Top             =   2160
  757.             Width           =   1215
  758.          End
  759.          Begin VB.Label label98 
  760.             Caption         =   "Base Priority:"
  761.             BeginProperty Font 
  762.                Name            =   "Verdana"
  763.                Size            =   6.75
  764.                Charset         =   0
  765.                Weight          =   400
  766.                Underline       =   0   'False
  767.                Italic          =   0   'False
  768.                Strikethrough   =   0   'False
  769.             EndProperty
  770.             Height          =   255
  771.             Left            =   120
  772.             TabIndex        =   32
  773.             Top             =   600
  774.             Width           =   1095
  775.          End
  776.          Begin VB.Label lbael95 
  777.             Caption         =   "Working Set Sz:"
  778.             BeginProperty Font 
  779.                Name            =   "Verdana"
  780.                Size            =   6.75
  781.                Charset         =   0
  782.                Weight          =   400
  783.                Underline       =   0   'False
  784.                Italic          =   0   'False
  785.                Strikethrough   =   0   'False
  786.             EndProperty
  787.             Height          =   255
  788.             Left            =   120
  789.             TabIndex        =   31
  790.             Top             =   1560
  791.             Width           =   1215
  792.          End
  793.          Begin VB.Label label94 
  794.             Caption         =   "Pk Pg Pool Usage:"
  795.             BeginProperty Font 
  796.                Name            =   "Verdana"
  797.                Size            =   6.75
  798.                Charset         =   0
  799.                Weight          =   400
  800.                Underline       =   0   'False
  801.                Italic          =   0   'False
  802.                Strikethrough   =   0   'False
  803.             EndProperty
  804.             Height          =   255
  805.             Left            =   120
  806.             TabIndex        =   30
  807.             Top             =   1920
  808.             Width           =   1455
  809.          End
  810.          Begin VB.Label label96 
  811.             Caption         =   "Pk Working Set Sz:"
  812.             BeginProperty Font 
  813.                Name            =   "Verdana"
  814.                Size            =   6.75
  815.                Charset         =   0
  816.                Weight          =   400
  817.                Underline       =   0   'False
  818.                Italic          =   0   'False
  819.                Strikethrough   =   0   'False
  820.             EndProperty
  821.             Height          =   255
  822.             Left            =   120
  823.             TabIndex        =   29
  824.             Top             =   1320
  825.             Width           =   1455
  826.          End
  827.          Begin VB.Label Label8 
  828.             Caption         =   "Threads:"
  829.             BeginProperty Font 
  830.                Name            =   "Verdana"
  831.                Size            =   6.75
  832.                Charset         =   0
  833.                Weight          =   400
  834.                Underline       =   0   'False
  835.                Italic          =   0   'False
  836.                Strikethrough   =   0   'False
  837.             EndProperty
  838.             Height          =   255
  839.             Left            =   2640
  840.             TabIndex        =   28
  841.             Top             =   240
  842.             Width           =   735
  843.          End
  844.       End
  845.       Begin VB.Timer tmrEnum 
  846.          Enabled         =   0   'False
  847.          Interval        =   1000
  848.          Left            =   -73080
  849.          Top             =   120
  850.       End
  851.       Begin VB.CommandButton cmdStartTimer 
  852.          Caption         =   "Start Timer"
  853.          Height          =   255
  854.          Left            =   -71520
  855.          TabIndex        =   26
  856.          Top             =   720
  857.          Width           =   975
  858.       End
  859.       Begin VB.TextBox txtTimer 
  860.          Height          =   285
  861.          Left            =   -71160
  862.          TabIndex        =   25
  863.          Top             =   360
  864.          Width           =   1575
  865.       End
  866.       Begin VB.CommandButton cmdStopTimer 
  867.          Caption         =   "Stop Timer"
  868.          Enabled         =   0   'False
  869.          Height          =   255
  870.          Left            =   -70560
  871.          TabIndex        =   24
  872.          Top             =   720
  873.          Width           =   975
  874.       End
  875.       Begin VB.CommandButton cmdEnumPortProc 
  876.          Caption         =   "Enumerate Processes"
  877.          Height          =   555
  878.          Left            =   -74880
  879.          TabIndex        =   22
  880.          Top             =   120
  881.          Width           =   2055
  882.       End
  883.       Begin VB.CommandButton cmdCloseConn 
  884.          Caption         =   "Close Process Connection"
  885.          Height          =   375
  886.          Left            =   -74880
  887.          TabIndex        =   21
  888.          Top             =   720
  889.          Width           =   2055
  890.       End
  891.       Begin VB.CommandButton cmdMonitor 
  892.          Caption         =   "Enable Monitor"
  893.          Height          =   375
  894.          Left            =   -71400
  895.          TabIndex        =   20
  896.          Top             =   120
  897.          Width           =   1815
  898.       End
  899.       Begin VB.ComboBox cmbMonitor 
  900.          Height          =   315
  901.          ItemData        =   "frmProc.frx":008C
  902.          Left            =   -71400
  903.          List            =   "frmProc.frx":009F
  904.          Style           =   2  'Dropdown List
  905.          TabIndex        =   19
  906.          Top             =   600
  907.          Width           =   1815
  908.       End
  909.       Begin VB.Timer tmrMonitor 
  910.          Enabled         =   0   'False
  911.          Interval        =   800
  912.          Left            =   -72720
  913.          Top             =   1080
  914.       End
  915.       Begin VB.TextBox txtMonitor 
  916.          Height          =   285
  917.          Left            =   -71400
  918.          TabIndex        =   18
  919.          Top             =   960
  920.          Width           =   1815
  921.       End
  922.       Begin VB.ComboBox cmbFirewall 
  923.          Height          =   315
  924.          ItemData        =   "frmProc.frx":00E1
  925.          Left            =   -74880
  926.          List            =   "frmProc.frx":00F1
  927.          Style           =   2  'Dropdown List
  928.          TabIndex        =   17
  929.          Top             =   120
  930.          Width           =   2295
  931.       End
  932.       Begin VB.CommandButton cmdFirewall 
  933.          Caption         =   "Enable Firewall"
  934.          Height          =   375
  935.          Left            =   -71760
  936.          TabIndex        =   16
  937.          Top             =   1080
  938.          Width           =   1575
  939.       End
  940.       Begin VB.Frame Frame4 
  941.          Caption         =   "Options"
  942.          Height          =   855
  943.          Left            =   -72480
  944.          TabIndex        =   14
  945.          Top             =   120
  946.          Width           =   3015
  947.          Begin VB.CheckBox chkBlock 
  948.             Caption         =   "Block By Default"
  949.             Height          =   255
  950.             Left            =   120
  951.             TabIndex        =   15
  952.             Top             =   240
  953.             Width           =   1575
  954.          End
  955.       End
  956.       Begin VB.Frame Frame5 
  957.          Caption         =   "Rules"
  958.          Height          =   4095
  959.          Left            =   -74880
  960.          TabIndex        =   7
  961.          Top             =   480
  962.          Width           =   2295
  963.          Begin VB.ListBox lstRemoteIP 
  964.             Height          =   3375
  965.             Left            =   120
  966.             TabIndex        =   13
  967.             Top             =   240
  968.             Visible         =   0   'False
  969.             Width           =   2055
  970.          End
  971.          Begin VB.ListBox lstRemotePort 
  972.             Height          =   3375
  973.             Left            =   120
  974.             TabIndex        =   12
  975.             Top             =   240
  976.             Visible         =   0   'False
  977.             Width           =   2055
  978.          End
  979.          Begin VB.ListBox lstLocalPort 
  980.             Height          =   3375
  981.             Left            =   120
  982.             TabIndex        =   11
  983.             Top             =   240
  984.             Visible         =   0   'False
  985.             Width           =   2055
  986.          End
  987.          Begin VB.ListBox lstProcessName 
  988.             Height          =   3375
  989.             ItemData        =   "frmProc.frx":0127
  990.             Left            =   120
  991.             List            =   "frmProc.frx":0129
  992.             TabIndex        =   10
  993.             Top             =   240
  994.             Visible         =   0   'False
  995.             Width           =   2055
  996.          End
  997.          Begin VB.CommandButton cmdClear 
  998.             Caption         =   "Clear List"
  999.             Height          =   375
  1000.             Left            =   120
  1001.             TabIndex        =   9
  1002.             Top             =   3600
  1003.             Width           =   975
  1004.          End
  1005.          Begin VB.CommandButton cmdDelete 
  1006.             Caption         =   "Delete Rule"
  1007.             Height          =   375
  1008.             Left            =   1080
  1009.             TabIndex        =   8
  1010.             Top             =   3600
  1011.             Width           =   1095
  1012.          End
  1013.       End
  1014.       Begin VB.Frame Frame6 
  1015.          Caption         =   "New Rule"
  1016.          BeginProperty Font 
  1017.             Name            =   "MS Sans Serif"
  1018.             Size            =   8.25
  1019.             Charset         =   0
  1020.             Weight          =   700
  1021.             Underline       =   0   'False
  1022.             Italic          =   0   'False
  1023.             Strikethrough   =   0   'False
  1024.          EndProperty
  1025.          Height          =   1455
  1026.          Left            =   -72480
  1027.          TabIndex        =   3
  1028.          Top             =   3120
  1029.          Width           =   3015
  1030.          Begin VB.TextBox txtRule 
  1031.             Height          =   285
  1032.             Left            =   120
  1033.             TabIndex        =   5
  1034.             Top             =   600
  1035.             Width           =   2655
  1036.          End
  1037.          Begin VB.CommandButton cmdAddRule 
  1038.             Caption         =   "Add Rule"
  1039.             Height          =   255
  1040.             Left            =   120
  1041.             TabIndex        =   4
  1042.             Top             =   1080
  1043.             Width           =   1335
  1044.          End
  1045.          Begin VB.Label lblBlock 
  1046.             Caption         =   "Block if (rule) equals:"
  1047.             Height          =   255
  1048.             Left            =   120
  1049.             TabIndex        =   6
  1050.             Top             =   240
  1051.             Width           =   2535
  1052.          End
  1053.       End
  1054.       Begin VB.CommandButton cmdSave 
  1055.          Caption         =   "Save Rules"
  1056.          Height          =   255
  1057.          Left            =   -70680
  1058.          TabIndex        =   2
  1059.          Top             =   360
  1060.          Width           =   1095
  1061.       End
  1062.       Begin VB.Timer tmrFirewall 
  1063.          Enabled         =   0   'False
  1064.          Interval        =   500
  1065.          Left            =   -70080
  1066.          Top             =   1080
  1067.       End
  1068.       Begin VB.CommandButton cmdLoad 
  1069.          Caption         =   "Load Rules"
  1070.          Height          =   255
  1071.          Left            =   -70680
  1072.          TabIndex        =   1
  1073.          Top             =   600
  1074.          Width           =   1095
  1075.       End
  1076.       Begin MSComDlg.CommonDialog cd1 
  1077.          Left            =   -72360
  1078.          Top             =   1080
  1079.          _ExtentX        =   847
  1080.          _ExtentY        =   847
  1081.          _Version        =   393216
  1082.       End
  1083.       Begin MSComctlLib.ListView lstvwNetProc 
  1084.          Height          =   2535
  1085.          Left            =   -74880
  1086.          TabIndex        =   23
  1087.          Top             =   1920
  1088.          Width           =   5295
  1089.          _ExtentX        =   9340
  1090.          _ExtentY        =   4471
  1091.          View            =   3
  1092.          LabelEdit       =   1
  1093.          LabelWrap       =   -1  'True
  1094.          HideSelection   =   -1  'True
  1095.          FullRowSelect   =   -1  'True
  1096.          GridLines       =   -1  'True
  1097.          _Version        =   393217
  1098.          ForeColor       =   -2147483640
  1099.          BackColor       =   -2147483643
  1100.          BorderStyle     =   1
  1101.          Appearance      =   1
  1102.          NumItems        =   0
  1103.       End
  1104.       Begin MSComctlLib.ListView lstvwProc 
  1105.          Height          =   3255
  1106.          Left            =   -74880
  1107.          TabIndex        =   60
  1108.          Top             =   1320
  1109.          Width           =   5295
  1110.          _ExtentX        =   9340
  1111.          _ExtentY        =   5741
  1112.          View            =   3
  1113.          LabelEdit       =   1
  1114.          LabelWrap       =   -1  'True
  1115.          HideSelection   =   -1  'True
  1116.          FullRowSelect   =   -1  'True
  1117.          GridLines       =   -1  'True
  1118.          _Version        =   393217
  1119.          ForeColor       =   -2147483640
  1120.          BackColor       =   -2147483643
  1121.          BorderStyle     =   1
  1122.          Appearance      =   1
  1123.          NumItems        =   0
  1124.       End
  1125.       Begin VB.Label lblInfoProcName 
  1126.          Caption         =   "No Process Selected"
  1127.          BeginProperty Font 
  1128.             Name            =   "Verdana"
  1129.             Size            =   12.75
  1130.             Charset         =   0
  1131.             Weight          =   700
  1132.             Underline       =   0   'False
  1133.             Italic          =   0   'False
  1134.             Strikethrough   =   0   'False
  1135.          EndProperty
  1136.          ForeColor       =   &H000000FF&
  1137.          Height          =   375
  1138.          Left            =   -74880
  1139.          TabIndex        =   91
  1140.          Top             =   120
  1141.          Width           =   3615
  1142.       End
  1143.       Begin VB.Label Label7 
  1144.          Caption         =   "Type:"
  1145.          BeginProperty Font 
  1146.             Name            =   "Verdana"
  1147.             Size            =   6.75
  1148.             Charset         =   0
  1149.             Weight          =   700
  1150.             Underline       =   0   'False
  1151.             Italic          =   0   'False
  1152.             Strikethrough   =   0   'False
  1153.          EndProperty
  1154.          Height          =   255
  1155.          Left            =   -74760
  1156.          TabIndex        =   90
  1157.          Top             =   480
  1158.          Width           =   1335
  1159.       End
  1160.       Begin VB.Label lblInfoType 
  1161.          BeginProperty Font 
  1162.             Name            =   "Verdana"
  1163.             Size            =   6.75
  1164.             Charset         =   0
  1165.             Weight          =   700
  1166.             Underline       =   0   'False
  1167.             Italic          =   0   'False
  1168.             Strikethrough   =   0   'False
  1169.          EndProperty
  1170.          ForeColor       =   &H00C00000&
  1171.          Height          =   255
  1172.          Left            =   -74280
  1173.          TabIndex        =   89
  1174.          Top             =   480
  1175.          Width           =   1215
  1176.       End
  1177.       Begin VB.Label lblInfoPID 
  1178.          Alignment       =   1  'Right Justify
  1179.          BeginProperty Font 
  1180.             Name            =   "Verdana"
  1181.             Size            =   6.75
  1182.             Charset         =   0
  1183.             Weight          =   700
  1184.             Underline       =   0   'False
  1185.             Italic          =   0   'False
  1186.             Strikethrough   =   0   'False
  1187.          EndProperty
  1188.          ForeColor       =   &H00C00000&
  1189.          Height          =   255
  1190.          Left            =   -70320
  1191.          TabIndex        =   88
  1192.          Top             =   120
  1193.          Width           =   735
  1194.       End
  1195.       Begin VB.Label Label22 
  1196.          Caption         =   "Process ID:"
  1197.          BeginProperty Font 
  1198.             Name            =   "Verdana"
  1199.             Size            =   6.75
  1200.             Charset         =   0
  1201.             Weight          =   700
  1202.             Underline       =   0   'False
  1203.             Italic          =   0   'False
  1204.             Strikethrough   =   0   'False
  1205.          EndProperty
  1206.          Height          =   255
  1207.          Left            =   -71160
  1208.          TabIndex        =   87
  1209.          Top             =   120
  1210.          Width           =   975
  1211.       End
  1212.       Begin VB.Label lblInfoParent 
  1213.          Alignment       =   1  'Right Justify
  1214.          BeginProperty Font 
  1215.             Name            =   "Verdana"
  1216.             Size            =   6.75
  1217.             Charset         =   0
  1218.             Weight          =   700
  1219.             Underline       =   0   'False
  1220.             Italic          =   0   'False
  1221.             Strikethrough   =   0   'False
  1222.          EndProperty
  1223.          ForeColor       =   &H000000C0&
  1224.          Height          =   255
  1225.          Left            =   -71160
  1226.          TabIndex        =   86
  1227.          Top             =   480
  1228.          Width           =   1575
  1229.       End
  1230.       Begin VB.Label Label17 
  1231.          Caption         =   "Parent Process:"
  1232.          BeginProperty Font 
  1233.             Name            =   "Verdana"
  1234.             Size            =   6.75
  1235.             Charset         =   0
  1236.             Weight          =   700
  1237.             Underline       =   0   'False
  1238.             Italic          =   0   'False
  1239.             Strikethrough   =   0   'False
  1240.          EndProperty
  1241.          Height          =   255
  1242.          Left            =   -72360
  1243.          TabIndex        =   85
  1244.          Top             =   480
  1245.          Width           =   1215
  1246.       End
  1247.       Begin VB.Label Label9 
  1248.          Caption         =   "Click on a process to get more info"
  1249.          BeginProperty Font 
  1250.             Name            =   "MS Sans Serif"
  1251.             Size            =   8.25
  1252.             Charset         =   0
  1253.             Weight          =   700
  1254.             Underline       =   0   'False
  1255.             Italic          =   0   'False
  1256.             Strikethrough   =   0   'False
  1257.          EndProperty
  1258.          Height          =   255
  1259.          Left            =   -74880
  1260.          TabIndex        =   84
  1261.          Top             =   960
  1262.          Width           =   3015
  1263.       End
  1264.       Begin VB.Label Label10 
  1265.          Caption         =   "Auto-Enumerate"
  1266.          BeginProperty Font 
  1267.             Name            =   "MS Sans Serif"
  1268.             Size            =   8.25
  1269.             Charset         =   0
  1270.             Weight          =   700
  1271.             Underline       =   0   'False
  1272.             Italic          =   0   'False
  1273.             Strikethrough   =   0   'False
  1274.          EndProperty
  1275.          Height          =   255
  1276.          Left            =   -71040
  1277.          TabIndex        =   83
  1278.          Top             =   120
  1279.          Width           =   1455
  1280.       End
  1281.       Begin VB.Label Label11 
  1282.          Caption         =   "Timer Interval (s):"
  1283.          Height          =   255
  1284.          Left            =   -72480
  1285.          TabIndex        =   82
  1286.          Top             =   360
  1287.          Width           =   1215
  1288.       End
  1289.       Begin VB.Label lblMonitor 
  1290.          Caption         =   "Status: Not Monitoring"
  1291.          BeginProperty Font 
  1292.             Name            =   "Verdana"
  1293.             Size            =   9
  1294.             Charset         =   0
  1295.             Weight          =   700
  1296.             Underline       =   0   'False
  1297.             Italic          =   0   'False
  1298.             Strikethrough   =   0   'False
  1299.          EndProperty
  1300.          ForeColor       =   &H000000FF&
  1301.          Height          =   255
  1302.          Left            =   -71880
  1303.          TabIndex        =   81
  1304.          Top             =   1320
  1305.          Width           =   2295
  1306.       End
  1307.       Begin VB.Label Label12 
  1308.          Caption         =   "Monitor For:"
  1309.          Height          =   255
  1310.          Left            =   -72360
  1311.          TabIndex        =   80
  1312.          Top             =   600
  1313.          Width           =   855
  1314.       End
  1315.       Begin VB.Label lblArc 
  1316.          Alignment       =   1  'Right Justify
  1317.          Height          =   255
  1318.          Left            =   -72720
  1319.          TabIndex        =   79
  1320.          Top             =   960
  1321.          Width           =   1215
  1322.       End
  1323.       Begin VB.Label Label13 
  1324.          Caption         =   "Click on a process to get more info"
  1325.          BeginProperty Font 
  1326.             Name            =   "MS Sans Serif"
  1327.             Size            =   8.25
  1328.             Charset         =   0
  1329.             Weight          =   700
  1330.             Underline       =   0   'False
  1331.             Italic          =   0   'False
  1332.             Strikethrough   =   0   'False
  1333.          EndProperty
  1334.          Height          =   255
  1335.          Left            =   -74880
  1336.          TabIndex        =   78
  1337.          Top             =   1560
  1338.          Width           =   3015
  1339.       End
  1340.       Begin VB.Label lblFirewallStat 
  1341.          Alignment       =   2  'Center
  1342.          Caption         =   "Status: Disabled"
  1343.          BeginProperty Font 
  1344.             Name            =   "MS Sans Serif"
  1345.             Size            =   13.5
  1346.             Charset         =   0
  1347.             Weight          =   700
  1348.             Underline       =   0   'False
  1349.             Italic          =   0   'False
  1350.             Strikethrough   =   0   'False
  1351.          EndProperty
  1352.          ForeColor       =   &H000000FF&
  1353.          Height          =   375
  1354.          Left            =   -72600
  1355.          TabIndex        =   77
  1356.          Top             =   1680
  1357.          Width           =   3135
  1358.       End
  1359.       Begin VB.Label lblAttempts 
  1360.          Caption         =   "0"
  1361.          BeginProperty Font 
  1362.             Name            =   "MS Sans Serif"
  1363.             Size            =   12
  1364.             Charset         =   0
  1365.             Weight          =   700
  1366.             Underline       =   0   'False
  1367.             Italic          =   0   'False
  1368.             Strikethrough   =   0   'False
  1369.          EndProperty
  1370.          ForeColor       =   &H000000C0&
  1371.          Height          =   375
  1372.          Left            =   -70080
  1373.          TabIndex        =   76
  1374.          Top             =   2280
  1375.          Width           =   615
  1376.       End
  1377.       Begin VB.Label Label14 
  1378.          Alignment       =   1  'Right Justify
  1379.          Caption         =   "Blocked Processes:"
  1380.          BeginProperty Font 
  1381.             Name            =   "MS Sans Serif"
  1382.             Size            =   9.75
  1383.             Charset         =   0
  1384.             Weight          =   700
  1385.             Underline       =   0   'False
  1386.             Italic          =   0   'False
  1387.             Strikethrough   =   0   'False
  1388.          EndProperty
  1389.          Height          =   375
  1390.          Left            =   -72480
  1391.          TabIndex        =   75
  1392.          Top             =   2280
  1393.          Width           =   2295
  1394.       End
  1395.    End
  1396. End
  1397. Attribute VB_Name = "frmProc"
  1398. Attribute VB_GlobalNameSpace = False
  1399. Attribute VB_Creatable = False
  1400. Attribute VB_PredeclaredId = True
  1401. Attribute VB_Exposed = False
  1402.  
  1403. Private Sub cmbFirewall_Click()
  1404.     Frame6.Enabled = True
  1405.     Select Case cmbFirewall.List(cmbFirewall.ListIndex)
  1406.     
  1407.         Case "Process Name"
  1408.             ruleType = 1
  1409.             lblBlock.Caption = "Block if " & cmbFirewall.List(cmbFirewall.ListIndex) & " equals:"
  1410.             lstProcessName.Visible = True
  1411.             lstRemoteIP.Visible = False
  1412.             lstRemotePort.Visible = False
  1413.             lstLocalPort.Visible = False
  1414.         Case "Remote IP"
  1415.             ruleType = 2
  1416.             lblBlock.Caption = "Block if " & cmbFirewall.List(cmbFirewall.ListIndex) & " equals:"
  1417.             lstProcessName.Visible = False
  1418.             lstRemoteIP.Visible = True
  1419.             lstRemotePort.Visible = False
  1420.             lstLocalPort.Visible = False
  1421.         Case "Remote Port"
  1422.             ruleType = 3
  1423.             lblBlock.Caption = "Block if " & cmbFirewall.List(cmbFirewall.ListIndex) & " equals:"
  1424.             lstProcessName.Visible = False
  1425.             lstRemoteIP.Visible = False
  1426.             lstRemotePort.Visible = True
  1427.             lstLocalPort.Visible = False
  1428.         Case "Local Port"
  1429.             ruleType = 4
  1430.             lblBlock.Caption = "Block if " & cmbFirewall.List(cmbFirewall.ListIndex) & " equals:"
  1431.             lstProcessName.Visible = False
  1432.             lstRemoteIP.Visible = False
  1433.             lstRemotePort.Visible = False
  1434.             lstLocalPort.Visible = True
  1435.             
  1436.     End Select
  1437. End Sub
  1438.  
  1439. Private Sub cmbMonitor_Click()
  1440.     lblArc.Caption = cmbMonitor.List(cmbMonitor.ListIndex) & ":"
  1441. End Sub
  1442.  
  1443. Private Sub cmdAddRule_Click()
  1444. Select Case cmbFirewall.List(cmbFirewall.ListIndex)
  1445.     
  1446.         Case "Process Name"
  1447.             If txtRule.Text <> "" Then
  1448.                 lstProcessName.AddItem txtRule.Text
  1449.                 txtRule.Text = ""
  1450.             Else
  1451.                 MsgBox "No Rule Defined", vbOKOnly, "No Rule"
  1452.             End If
  1453.         Case "Remote IP"
  1454.             If txtRule.Text <> "" Then
  1455.                 lstRemoteIP.AddItem txtRule.Text
  1456.                 txtRule.Text = ""
  1457.             Else
  1458.                 MsgBox "No Rule Defined", vbOKOnly, "No Rule"
  1459.             End If
  1460.         Case "Remote Port"
  1461.             If txtRule.Text <> "" Then
  1462.                 lstRemotePort.AddItem txtRule.Text
  1463.                 txtRule.Text = ""
  1464.             Else
  1465.                 MsgBox "No Rule Defined", vbOKOnly, "No Rule"
  1466.             End If
  1467.         Case "Local Port"
  1468.             If txtRule.Text <> "" Then
  1469.                 lstLocalPort.AddItem txtRule.Text
  1470.                 txtRule.Text = ""
  1471.             Else
  1472.                 MsgBox "No Rule Defined", vbOKOnly, "No Rule"
  1473.             End If
  1474.     End Select
  1475. End Sub
  1476.  
  1477. Private Sub cmdClear_Click()
  1478.     Select Case cmbFirewall.List(cmbFirewall.ListIndex)
  1479.     
  1480.         Case "Process Name"
  1481.             lstProcessName.Clear
  1482.         Case "Remote IP"
  1483.             lstRemoteIP.Clear
  1484.         Case "Remote Port"
  1485.            lstRemotePort.Clear
  1486.         Case "Local Port"
  1487.            lstLocalPort.Clear
  1488.     End Select
  1489. End Sub
  1490.  
  1491. Private Sub cmdCloseConn_Click()
  1492. Dim tempid As Long
  1493. On Error Resume Next
  1494.     tempid = lstvwNetProc.ListItems(lstvwNetProc.SelectedItem.Index).SubItems(1)
  1495.     tempProcName = InputBox("Enter Process ID", "Terminate Connection", tempid)
  1496.     checkforID = 1
  1497.     Call RefreshStack
  1498.     Call EnumEntries
  1499. End Sub
  1500.  
  1501. Private Sub cmdDelete_Click()
  1502.     Select Case cmbFirewall.List(cmbFirewall.ListIndex)
  1503.         
  1504.         Case "Process Name"
  1505.             If lstProcessName.ListIndex > -1 Then
  1506.                 lstProcessName.RemoveItem lstProcessName.ListIndex
  1507.             End If
  1508.         Case "Remote IP"
  1509.             If lstRemoteIP.ListIndex > -1 Then
  1510.                 lstRemoteIP.RemoveItem lstRemoteIP.ListIndex
  1511.             End If
  1512.         Case "Remote Port"
  1513.            If lstRemotePort.ListIndex > -1 Then
  1514.                 lstRemotePort.RemoveItem lstRemotePort.ListIndex
  1515.             End If
  1516.         Case "Local Port"
  1517.            If lstLocalPort.ListIndex > -1 Then
  1518.                 lstLocalPort.RemoveItem lstLocalPort.ListIndex
  1519.             End If
  1520.     End Select
  1521. End Sub
  1522.  
  1523. Private Sub cmdEnumPortProc_Click()
  1524.     dontlbl = 1
  1525.     Call RefreshStack
  1526.     Call EnumEntries
  1527.     dontlbl = 0
  1528. End Sub
  1529.  
  1530. Private Sub cmdFirewall_Click()
  1531.     If firewallStatus <> 1 Then
  1532.         If chkBlock.Value = 1 Then
  1533.             block = 0
  1534.         Else
  1535.             block = 1
  1536.         End If
  1537.         If chkBlock.Value = 1 Then
  1538.             If lstProcessName.ListCount = 0 And lstRemoteIP.ListCount = 0 And lstRemotePort.ListCount = 0 And lstLocalPort.ListCount = 0 Then
  1539.                 MsgBox "Cannot Enable firewall. No rules Specified", vbCritical, "Error"
  1540.                 Exit Sub
  1541.             End If
  1542.         End If
  1543.         firewallStatus = 1
  1544.         lblFirewallStat.Caption = "Status: Enabled"
  1545.         lblFirewallStat.ForeColor = &HC000&
  1546.         cmdFirewall.Caption = "Disable Firewall"
  1547.         tmrFirewall.Enabled = True
  1548.     Else
  1549.         firewallStatus = 0
  1550.         lblFirewallStat.Caption = "Status: Disabled"
  1551.         lblFirewallStat.ForeColor = &HFF&
  1552.         cmdFirewall.Caption = "Enable Firewall"
  1553.         tmrFirewall.Enabled = False
  1554.     End If
  1555. End Sub
  1556.  
  1557. Private Sub cmdFirewallTab_Click()
  1558.     Tab1.Tab = 4
  1559. End Sub
  1560.  
  1561. Private Sub cmdGetProc_Click()
  1562. Dim pName As String
  1563. Dim temp As MSComctlLib.ListItem
  1564.     pName = InputBox("Enter Process Name", "Get Process Info")
  1565.     If pName <> "" Then
  1566.         external = 1
  1567.         infoProc = pName
  1568.         Call lstvwProc_ItemClick(temp)
  1569.         external = 0
  1570.     End If
  1571. End Sub
  1572.  
  1573. Private Sub cmdKillProc_Click()
  1574. On Error Resume Next
  1575. Dim checkFail As Long
  1576. Dim pid As Long
  1577.     pid = InputBox("Enter Process ID to terminate", "Terminate Process", infoProcInfo.th32ProcessID)
  1578.     If pid > 0 Then
  1579.         hWndof = OpenProcess(PROCESS_TERMINATE, False, pid)
  1580.         checkFail = TerminateProcess(hWndof, 0)
  1581.         If checkFail = 0 Then
  1582.             MsgBox "Unable to terminate process." & vbNewLine & "Verify process is not of type System/Service", vbCritical, "Error"
  1583.         End If
  1584.         CloseHandle hWndof
  1585.     End If
  1586.  
  1587. End Sub
  1588.  
  1589. Private Sub cmdLoad_Click()
  1590. Dim fcgName As String
  1591. Dim linef As String
  1592. Dim numLst As Integer
  1593.     cd1.DefaultExt = "fcg"
  1594.     cd1.Filter = "Firewall Rules List (*.FCG)|*.FCG|All Files (*.*)|*.*"
  1595.     cd1.ShowOpen
  1596.     fcgName = cd1.FileName
  1597.     If fcgName = "" Then
  1598.         Exit Sub
  1599.     End If
  1600.     Open fcgName For Input As #1
  1601.         Do While Not EOF(1)
  1602.             Line Input #1, linef
  1603.             numLst = Left(linef, 1)
  1604.             Select Case numLst
  1605.             
  1606.                 Case 1
  1607.                     lstProcessName.AddItem Right(linef, Len(linef) - InStr(1, linef, ":"))
  1608.                 Case 2
  1609.                     lstRemoteIP.AddItem Right(linef, Len(linef) - InStr(1, linef, ":"))
  1610.                 Case 3
  1611.                     lstRemotePort.AddItem Right(linef, Len(linef) - InStr(1, linef, ":"))
  1612.                 Case 4
  1613.                     lstLocalPort.AddItem Right(linef, Len(linef) - InStr(1, linef, ":"))
  1614.             End Select
  1615.         Loop
  1616.     Close #1
  1617.     MsgBox "Rule List Loaded Sucsessfully!", vbOKOnly, "Firewall"
  1618. End Sub
  1619.  
  1620. Private Sub cmdMemory_Click()
  1621.     Tab1.Tab = 3
  1622. End Sub
  1623.  
  1624. Private Sub cmdMonitor_Click()
  1625.     If monitor = 1 Then
  1626.         tmrMonitor.Enabled = False
  1627.         cmdMonitor.Caption = "Enable Monitor"
  1628.         lblMonitor.Caption = "Status: Not Monitoring"
  1629.         monitor = 0
  1630.         monitorType = ""
  1631.     ElseIf monitor = 0 Then
  1632.         If cmbMonitor.List(cmbMonitor.ListIndex) <> "" Then
  1633.             tmrMonitor.Enabled = True
  1634.             monitor = 1
  1635.             lblMonitor.Caption = "Status: Monitoring"
  1636.             cmdMonitor.Caption = "Stop Monitoring"
  1637.             monitorType = cmbMonitor.List(cmbMonitor.ListIndex)
  1638.             monitorFor = txtMonitor.Text
  1639.         End If
  1640.     End If
  1641. End Sub
  1642.  
  1643. Private Sub cmdProcList_Click()
  1644.     Tab1.Tab = 1
  1645. End Sub
  1646.  
  1647. Private Sub cmdSave_Click()
  1648. Dim fcgName As String
  1649.     cd1.DialogTitle = "Save Rule List As..."
  1650.     cd1.Filter = "Firewall Rules List (*.FCG)|*.FCG|All Files (*.*)|*.*"
  1651.     cd1.DefaultExt = "fcg"
  1652.     cd1.ShowSave
  1653.     fcgName = cd1.FileName
  1654.     If fcgName <> "" Then
  1655.         Open fcgName For Append As #1
  1656.         Close #1
  1657.         Open fcgName For Output As #1
  1658.         
  1659.         For i = 0 To lstProcessName.ListCount - 1
  1660.             Print #1, "1:" & lstProcessName.List(i)
  1661.         Next i
  1662.         
  1663.         For i = 0 To lstRemoteIP.ListCount - 1
  1664.             Print #1, "2:" & lstRemoteIP.List(i)
  1665.         Next i
  1666.         
  1667.         For i = 0 To lstRemotePort.ListCount - 1
  1668.             Print #1, "3:" & lstRemotePort.List(i)
  1669.         Next i
  1670.         
  1671.         For i = 0 To lstLocalPort.ListCount - 1
  1672.             Print #1, "4:" & lstLocalPort.List(i)
  1673.         Next i
  1674.         
  1675.         Close #1
  1676.         MsgBox "Rule List Saved", vbOKOnly, "Firewall"
  1677.     End If
  1678. End Sub
  1679.  
  1680. Private Sub cmdSetPri_Click()
  1681.     Load frmPriority
  1682.     frmPriority.Show
  1683. End Sub
  1684.  
  1685. Private Sub cmdStartTimer_Click()
  1686.     If txtTimer.Text <> "" Then
  1687.         If txtTimer.Text < 1 Or txtTimer.Text > 99 Then
  1688.             MsgBox "Invalid value. Must be between 1 and 99", vbCritical, "Invalid Value"
  1689.             txtTimer.Text = ""
  1690.             Exit Sub
  1691.         End If
  1692.     End If
  1693.     cmdStartTimer.Enabled = False
  1694.     cmdStopTimer.Enabled = True
  1695.     Command5.Enabled = False
  1696.     Command1.Enabled = False
  1697.     If txtTimer.Text <> "" Then
  1698.         tmrEnum.Interval = (txtTimer.Text * 1000)
  1699.     End If
  1700.     txtTimer.Enabled = False
  1701.     tmrEnum.Enabled = True
  1702. End Sub
  1703.  
  1704. Private Sub cmdStopTimer_Click()
  1705.     tmrEnum.Enabled = False
  1706.     cmdStartTimer.Enabled = True
  1707.     cmdStopTimer.Enabled = False
  1708.     txtTimer.Enabled = True
  1709.     Command5.Enabled = True
  1710.     Command1.Enabled = True
  1711.     tmrEnum.Interval = 1000
  1712. End Sub
  1713.  
  1714. Private Sub cmdtabProcinfo_Click()
  1715.     Tab1.Tab = 2
  1716. End Sub
  1717.  
  1718. Private Sub cmdTabRunProc_Click()
  1719.     Tab1.Tab = 1
  1720. End Sub
  1721.  
  1722. Private Sub Command1_Click()
  1723.     frmCol.Show
  1724. End Sub
  1725.  
  1726. Private Sub Command5_Click()
  1727.     tempClear = 1
  1728.     Call enumProc
  1729. End Sub
  1730.  
  1731. Private Sub Form_Load()
  1732.     blocked = 0
  1733.     monitor = 0
  1734.     dontlbl = 0
  1735.     noClear = 0
  1736.     tempClear = 0
  1737.     monitorType = ""
  1738.     popView = 0
  1739.     refreshPort = 0
  1740.     checkPID = 0
  1741.     Call enumProc 'To get Needed PID's. Does not populate listview
  1742.     Load frmCol
  1743.     Call updateColArray
  1744.     Call updateCol
  1745.     frmCol.Hide
  1746.     Call addNetCols
  1747.     If isWinXp = False Then
  1748.         Call disableAll
  1749.     End If
  1750. End Sub
  1751.  
  1752. Private Sub Form_Unload(Cancel As Integer)
  1753.     Unload frmCol
  1754. End Sub
  1755.  
  1756. Private Sub lblInfoParent_Click()
  1757. Dim temp As MSComctlLib.ListItem
  1758.     If lblInfoParent.Caption <> "" Then
  1759.         infoProc = Left(lblInfoParent.Caption, InStr(1, lblInfoParent.Caption, " ") - 1)
  1760.         If InStr(1, infoProc, "exe") > 1 Then
  1761.             external = 1
  1762.             Call lstvwProc_ItemClick(temp)
  1763.             external = 0
  1764.         End If
  1765.     End If
  1766. End Sub
  1767.  
  1768. Private Sub lblInfoProcPri_Click()
  1769.     If lblInfoProcPri.Caption <> "" Then
  1770.         Call cmdSetPri_Click
  1771.     End If
  1772. End Sub
  1773.  
  1774. Private Sub lstvwNetProc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
  1775.     lstvwNetProc.Sorted = True
  1776.     If lstvwNetProc.SortOrder = lvwAscending Then
  1777.         lstvwNetProc.SortOrder = lvwDescending
  1778.     Else
  1779.         lstvwNetProc.SortOrder = lvwAscending
  1780.     End If
  1781.     lstvwNetProc.SortKey = ColumnHeader.Index - 1
  1782. End Sub
  1783.  
  1784. Private Sub lstvwNetProc_ItemClick(ByVal Item As MSComctlLib.ListItem)
  1785. Dim temp As MSComctlLib.ListItem
  1786.     external = 1
  1787.     infoProc = Item.Text
  1788.     Call lstvwProc_ItemClick(temp)
  1789.     external = 0
  1790. End Sub
  1791.  
  1792. Private Sub lstvwProc_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
  1793.     lstvwProc.Sorted = True
  1794.     If lstvwProc.SortOrder = lvwAscending Then
  1795.         lstvwProc.SortOrder = lvwDescending
  1796.     Else
  1797.         lstvwProc.SortOrder = lvwAscending
  1798.     End If
  1799.     lstvwProc.SortKey = ColumnHeader.Index - 1
  1800. End Sub
  1801.  
  1802. Public Sub updateCol()
  1803.     lstvwProc.ColumnHeaders.Clear
  1804.     If cols(1) = 1 Then
  1805.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "name", "Process Name", TextWidth("Process Name") * 1.5)
  1806.     End If
  1807.     
  1808.     If cols(2) = 1 Then
  1809.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pid", "PID", 650)
  1810.     End If
  1811.     
  1812.     If cols(3) = 1 Then
  1813.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "thread", "Threads", TextWidth("Threads") * 1.3)
  1814.     End If
  1815.     
  1816.     If cols(4) = 1 Then
  1817.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "parent", "Parent", TextWidth("Parent") * 2.2)
  1818.     End If
  1819.     
  1820.     If cols(5) = 1 Then
  1821.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pri", "Base Priority", TextWidth("Base Priority") * 1.5)
  1822.     End If
  1823.     
  1824.     If cols(6) = 1 Then
  1825.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "exe", "EXE Name", TextWidth("EXE NAME") * 1.8)
  1826.     End If
  1827.     
  1828.     If cols(7) = 1 Then
  1829.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pri2", "Process Priority", TextWidth("Process Priority") * 1.5)
  1830.     End If
  1831.     
  1832.     If cols(8) = 1 Then
  1833.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "fault", "Page Faults", TextWidth("Page Faults") * 1.3)
  1834.     End If
  1835.     
  1836.     If cols(9) = 1 Then
  1837.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pkwrkset", "PeakWorkingSetSz", TextWidth("PeakWorkingSetSz") * 1.2)
  1838.     End If
  1839.     
  1840.     If cols(10) = 1 Then
  1841.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "wrkset", "WorkingSetSz", TextWidth("WorkingSetSz") * 1.5)
  1842.     End If
  1843.     
  1844.     If cols(11) = 1 Then
  1845.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "peakpool", "PagedPeakPoolUsage", TextWidth("PagedPeakPoolUsage") * 1.2)
  1846.     End If
  1847.     
  1848.     If cols(12) = 1 Then
  1849.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pool", "PagedPoolUsage", TextWidth("PagedPoolUsage") * 1.2)
  1850.     End If
  1851.     
  1852.     If cols(13) = 1 Then
  1853.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "nonpeakpool", "NonPagedPeakPoolUsage", TextWidth("NonPeakPagedPoolUsage") * 1.1)
  1854.     End If
  1855.     
  1856.     If cols(14) = 1 Then
  1857.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "nonpool", "NonPagedPoolUsage", TextWidth("NonPagedPoolUsage") * 1.2)
  1858.     End If
  1859.     
  1860.     If cols(15) = 1 Then
  1861.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pgfile", "PagefileUsage", TextWidth("PagefileUsage") * 1.3)
  1862.     End If
  1863.     
  1864.     If cols(16) = 1 Then
  1865.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "pkpgfile", "PeakPagefileUsage", TextWidth("PeakPagefileUsage") * 1.3)
  1866.     End If
  1867.     
  1868.     If cols(17) = 1 Then
  1869.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "cTime", "Creation Date", TextWidth("Creation Date") * 1.9)
  1870.     End If
  1871.     
  1872.     If cols(18) = 1 Then
  1873.         Set colHead = lstvwProc.ColumnHeaders.Add(lstvwProc.ColumnHeaders.Count + 1, "Typ", "Type", TextWidth("Type") * 2.5)
  1874.     End If
  1875. End Sub
  1876.  
  1877. Public Sub lstvwProc_ItemClick(ByVal Item As MSComctlLib.ListItem)
  1878. Dim infoType As String
  1879. Dim priPrc As String
  1880.     found = 0
  1881.     If external <> 1 Then
  1882.         infoProc = Item.Text
  1883.     End If
  1884.     If checkPID <> 0 Then
  1885.         external = checkPID
  1886.         checkPID = 1
  1887.     End If
  1888.     parentProc = ""
  1889.     infoCheck = 1
  1890.     Call enumProc
  1891.     infoCheck = 0
  1892.     If found = 0 Then
  1893.         MsgBox "Process " & infoProc & " not found", vbOKOnly, "Invalid Process"
  1894.         Exit Sub
  1895.     End If
  1896.     checkParent = 1
  1897.     Call enumProc
  1898.     checkParent = 0
  1899.     
  1900.     If infoProcInfo.th32ParentProcessID = servPID Then
  1901.         infoType = "Service"
  1902.     ElseIf infoProcInfo.th32ParentProcessID = expPID Then
  1903.         infoType = "Unknown"
  1904.     ElseIf infoProcInfo.th32ParentProcessID = sysPID(1) Or infoProcInfo.th32ParentProcessID = sysPID(2) Or infoProcInfo.th32ParentProcessID = sysPID(3) Or infoProcInfo.th32ParentProcessID = sysPID(4) Or infoProcInfo.th32ParentProcessID = sysPID(5) Then
  1905.         infoType = "System"
  1906.     Else
  1907.         infoType = "Unknown"
  1908.     End If
  1909.     
  1910.     Select Case infoProcPri
  1911.     
  1912.     Case 32
  1913.         priPrc = "Normal - 32"
  1914.     Case 64
  1915.         priPrc = "Idle - 64"
  1916.     Case 128
  1917.         priPrc = "High - 128"
  1918.     Case 256
  1919.         priPrc = "RealTime - 256"
  1920.     End Select
  1921.     
  1922.     
  1923.     lblInfoProcName.Caption = infoProc
  1924.     lblInfoPID.Caption = infoProcInfo.th32ProcessID
  1925.     lblInfoType.Caption = infoType
  1926.     lblInfoParent.Caption = parentProc & " - " & infoProcInfo.th32ParentProcessID
  1927.     lblInfoExe.Caption = infoProcInfo.szExeFile
  1928.     lblInfoBase.Caption = infoProcInfo.pcPriClassBase
  1929.     lblInfoProcPri.Caption = priPrc
  1930.     lblInfoThreads.Caption = infoProcInfo.cntThreads
  1931.     lblinfoPgFaults.Caption = infoProcMem.PageFaultCount
  1932.     lblInfoPkSet.Caption = infoProcMem.PeakWorkingSetSize
  1933.     lblInfoSet.Caption = infoProcMem.WorkingSetSize
  1934.     lblInfoPkPgPool.Caption = infoProcMem.QuotaPeakPagedPoolUsage
  1935.     lblInfoPgPool.Caption = infoProcMem.QuotaPagedPoolUsage
  1936.     lblInfoPkPool.Caption = infoProcMem.QuotaPeakNonPagedPoolUsage
  1937.     lblInfoPool.Caption = infoProcMem.QuotaNonPagedPoolUsage
  1938.     lblInfoPkPgFile.Caption = infoProcMem.PeakPagefileUsage
  1939.     lblInfoPgFile.Caption = infoProcMem.PagefileUsage
  1940.     
  1941.     Tab1.Tab = 2
  1942. End Sub
  1943.  
  1944. Private Sub tmrEnum_Timer()
  1945.     tempClear = 1
  1946.     Call enumProc
  1947. End Sub
  1948.  
  1949. Public Sub addNetCols()
  1950.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "Process Name", "Process Name", TextWidth("Process Name") * 1.5)
  1951.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "Process ID", "Process ID", TextWidth("Process ID") * 1.3)
  1952.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "Local Address", "Local Address", TextWidth("Local Address") * 1.5)
  1953.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "Local Port", "Local Port", TextWidth("Local Port") * 1.5)
  1954.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "Remote Address", "Remote Address", TextWidth("Remote Address") * 1.5)
  1955.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "Remote Port", "Remote Port", TextWidth("Remote Port") * 1.3)
  1956.     Set colHead = lstvwNetProc.ColumnHeaders.Add(lstvwNetProc.ColumnHeaders.Count + 1, "State", "State", TextWidth("State") * 4)
  1957. End Sub
  1958.  
  1959. Private Sub tmrFirewall_Timer()
  1960.     dontlbl = 1
  1961.     Call RefreshStack
  1962.     Call EnumEntries
  1963.     dontlbl = 0
  1964.     lblAttempts.Caption = blocked
  1965. End Sub
  1966.  
  1967. Private Sub tmrMonitor_Timer()
  1968.     dontlbl = 1
  1969.     Call RefreshStack
  1970.     Call EnumEntries
  1971.     dontlbl = 0
  1972. End Sub
  1973.