Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD90538172000.psc / Process.frm (.txt) < prev

Wrap

Visual Basic Form | 1999-09-15 | 19.9 KB | 609 lines

VERSION 5.00 Begin VB.Form lstProcess Caption = "Terminator" ClientHeight = 2952 ClientLeft = 60 ClientTop = 636 ClientWidth = 8496 BeginProperty Font Name = "Comic Sans MS" Size = 8.4 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "Process.frx":0000 KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 246 ScaleMode = 3 'Pixel ScaleWidth = 708 StartUpPosition = 2 'CenterScreen Begin VB.Timer Timer2 Interval = 200 Left = 8160 Top = 2760 End Begin VB.ListBox lstProcess Height = 2784 Left = 120 TabIndex = 5 Top = 2880 Width = 6852 End Begin VB.Frame Frame1 Caption = "Terminate" Height = 2655 Left = 120 TabIndex = 2 Top = 0 Width = 6855 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 5 Left = 120 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 39 Top = 1320 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 16 Left = 4800 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 38 Top = 2280 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 15 Left = 3240 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 37 Top = 2280 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 0 Left = 1680 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 34 Top = 240 Width = 240 Visible = 0 'False End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 14 Left = 1680 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 33 Top = 2280 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 13 Left = 120 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 32 Top = 2280 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 12 Left = 4800 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 31 Top = 1800 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 11 Left = 3240 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 30 Top = 1800 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 10 Left = 1680 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 29 Top = 1800 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 9 Left = 120 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 28 Top = 1800 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 8 Left = 4800 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 27 Top = 1320 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 7 Left = 3240 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 26 Top = 1320 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 6 Left = 1680 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 25 Top = 1320 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 4 Left = 4800 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 24 Top = 840 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 3 Left = 3240 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 23 Top = 840 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 2 Left = 1680 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 22 Top = 840 Width = 240 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 240 Index = 1 Left = 120 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 21 Top = 840 Width = 240 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 16 Left = 5160 TabIndex = 36 Top = 2280 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 15 Left = 3600 TabIndex = 35 Top = 2280 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 14 Left = 2040 TabIndex = 20 Top = 2280 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 13 Left = 480 TabIndex = 19 Top = 2280 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 12 Left = 5160 TabIndex = 18 Top = 1800 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 11 Left = 3600 TabIndex = 17 Top = 1800 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 10 Left = 2040 TabIndex = 16 Top = 1800 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 9 Left = 480 TabIndex = 15 Top = 1800 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 8 Left = 5160 TabIndex = 14 Top = 1320 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 7 Left = 3600 TabIndex = 13 Top = 1320 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 6 Left = 2040 TabIndex = 12 Top = 1320 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 5 Left = 480 TabIndex = 11 Top = 1320 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 4 Left = 5160 TabIndex = 10 Top = 840 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 3 Left = 3600 TabIndex = 9 Top = 840 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 2 Left = 2040 TabIndex = 8 Top = 840 Width = 1335 End Begin VB.Label Label2 Caption = "Label2" Height = 255 Index = 1 Left = 480 TabIndex = 7 Top = 840 Width = 1335 End Begin VB.Label Label2 Height = 255 Index = 0 Left = 120 TabIndex = 6 Top = 720 Width = 1335 Visible = 0 'False End Begin VB.Label Label3 AutoSize = -1 'True Caption = "Label3" Height = 225 Left = 120 TabIndex = 4 Top = 480 Width = 510 End Begin VB.Label Label1 Caption = "Label1" Height = 375 Left = 120 TabIndex = 3 Top = 240 Width = 2895 End End Begin VB.Timer Timer1 Interval = 500 Left = 120 Top = 4200 End Begin VB.CommandButton cmdQuit Caption = "Quit" Height = 492 Left = 7200 TabIndex = 1 Top = 2160 Width = 1212 End Begin VB.CommandButton cmdKill BeginProperty Font Name = "Comic Sans MS" Size = 7.8 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 492 Left = 7200 TabIndex = 0 Top = 120 Width = 1212 End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuExit Caption = "&Exit" End End Begin VB.Menu MnuSettings Caption = "&Settings" Begin VB.Menu mnuAdd Caption = "&Add Program" End Begin VB.Menu mnuRemove Caption = "Re&move Program" End End Begin VB.Menu mnuOptions Caption = "&Options" Begin VB.Menu mnuTerappz Caption = "&Terminate appz" End Begin VB.Menu mnuTerone Caption = "T&erminate one..." End End Begin VB.Menu mnuHjalp Caption = "&Help" Begin VB.Menu mnuHelp Caption = "H&elp" End Begin VB.Menu mnuAbout Caption = "About Te&rminator" End End Attribute VB_Name = "lstProcess" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long) Dim activeappz(100) As String Dim removeappz(16) As String Dim numberofprogz As String Dim easter As String Dim counter, j, C As Integer Dim blinkthread(16) As Boolean Dim terminate As Boolean Dim shutoff As Boolean Dim blink As Boolean Dim killappz As Boolean Private Sub cmdQuit_Click() If shutoff = False Then Exit Sub ' St ng ner programmet... Dim GotoVal, Gointo GotoVal = Me.Height / 2 Me.Caption = "Shuting down..." For Gointo = 1 To GotoVal DoEvents Me.Height = Me.Height - 200 Me.Top = (Screen.Height - Me.Height) \ 2 If Me.Height <= 11 Then Exit For Next Gointo Me.Caption = "Bye.." Me.Height = 30 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal DoEvents Me.Width = Me.Width - 100 Me.Left = (Screen.Width - Me.Width) \ 2 If Me.Width <= 11 Then End Next Gointo End End Sub Private Sub cmdKill_Click() If killappz = True Then Dim hProcess As Long hProcess = OpenProcess(&H1F0FFF, 1, lstProcess.ItemData(lstProcess.ListIndex)) TerminateProcess hProcess, 0 Call Update easter = "" End If If killappz = False Then cmdQuit.Enabled = False terminate = True Timer2.Interval = 0 easter = "" End If End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) easter = easter + Chr(KeyCode) If Len(easter) > 3 Then easter = easter +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d5naster +d0U