frminfo.frm

一款比较专业

'---------------------------------------------------------------------------------------'
'                                                                                       '
' Module     : Simple Machine Protect - Portable Edition                                '
' Author     : Bagus Judistirah (bagus_badboy)                                          '
' E-mail     : [e-mail] or [e-mail]       '
' Homepage   : http://wwww.e-freshware.com                                              '
'            : http://smp.e-freshware.com                                               '
' Project    : http://sourceforge.net/projects/smpav/                                   '
' License    : GNU General Public License                                               '
' History    : Minor bugs fixed.                                                        '
'                                                                                       '
'---------------------------------------------------------------------------------------'
'                                                                                       '
' Note       : I try to keep my software as bug-free as possible.                       '
'              But it's a general rule that no software ever is error free,             '
'              and the number of errors increases with the complexity of the program.   '
'                                                                                       '
'---------------------------------------------------------------------------------------'
'                                                                                       '
' Control    : Simple Machine Protect has been written and developed using Microsoft    '
'              Visual Basic 6. Portions of the source code of this program have been    '
'              taken from or inspired by the source of the following products. Please   '
'              do not remove these copyright notices. The following code & control was  '
'              used during the development of Simple Machine Protect.                   '
'              * Calculate CRC32 Checksum Precompiled Assembler Code, Get Icon          '
'                Coded by: Noel A Dacara                                                '
'                Downloaded from: http://www.planetsourcecode.com                       '
'              * XP Theme                                                               '
'                Coded by: Steve McMahon                                                '
'                Downloaded from: http://www.vbaccelerator.com                          '
'              * Chameleon Button                                                       '
'                Coded by: Gonchuki                                                     '
'                Downloaded from: http://www.planetsourcecode.com                       '
'              * Cool XP ProgressBar                                                    '
'                Coded by: Mario Flores                                                 '
'                Downloaded from: http://www.planetsourcecode.com                       '
'              * OnSystray                                                              '
'                Coded by: Bagus Judistirah                                             '
'                                                                                       '
'---------------------------------------------------------------------------------------'
'                                                                                       '
' Disclaimer : Modifying the registry can cause serious problems that may require you   '
'              to reinstall your operating system. I cannot guarantee that problems     '
'              resulting from modifications to the registry can be solved.              '
'              Use the information provided at your own risk.                           '
'                                                                                       '
'---------------------------------------------------------------------------------------'
' Thanks     : * SOURCEFORGE.NET [http://www.sourceforge.net]                           '
'              * OGNIZER [http://www.ognizer.net or http://virus.ognizer.net]           '
'              * VIROLOGI [http://www.virologi.info]                                    '
'              * ANSAV [http://www.ansav.com]                                           '
'              * VBACCELERATOR [http://www.vbaccelerator.com]                           '
'              * VBBEGO [http://www.vb-bego.com]                                        '
'              * MIGHTHOST [http://www.mighthost.com]                                   '
'              * UDARAMAYA [http://www.udaramaya.com]                                   '
'              * PSC - The home millions of lines of source code.                       '
'                [http://www.planetsourcecode.com]                                      '
'              * DONIXSOFTWARE - Dony Wahyu Isp [http://donixsoftware.web.id]           '
'              * Aat Shadewa, Jan Kristanto, Boby Ertanto, Irwan Halim, Dony Wahyu Isp, '
'                Yusuf Teretsa Patiku, Erwin, MI People, Nita, Husni, I Gede, Fadil,    '
'                Harry, Jimmy Wijaya, Sumanto Adi, Gafur, Selwin, Deny Kurniawan,       '
'                Paul, Marx, Gonchuki, Noel A Dacara, Steve McMahon, Mario Flores,      '
'                VM, Wardana, Achmad Darmal, Andi, Septian, all my friends,             '
'                Dream Theater, Evanescence, & Umild.                                   '
'              * Free software developer around the world.                              '
'              * Thanks to all for the suggestions and comments.                        '
'                                                                                       '
'---------------------------------------------------------------------------------------'
'                                                                                       '
' Contact    : If you have any questions, suggestions, bug reports or anything else,    '
'              feel free to contact me at [e-mail] or               '
'              [e-mail].                                      '
'                                                                                       '
'---------------------------------------------------------------------------------------'

Private Sub Form_Activate()
    lblInfo.ForeColor = prgInfo.Color
    AlwaysOnTop Me.hwnd, True
    Screen.MousePointer = vbHourglass
    Dim i As Long
    i = 0
    Do
        DoEvents
        i = i + 2
        prgInfo.Value = i
        Sleep 1
    Loop Until i = 100
    Sleep 100
    Screen.MousePointer = vbDefault
    Unload Me
End Sub

Private Sub mnuProcess_Click()
    Dim i As Integer
    Dim lPID As Long
    Dim sBase As String
    With frmMain
        sBase = LCase(.lvwProcessExplorer.SelectedItem.SubItems(8))
        lPID = .lvwProcessExplorer.SelectedItem.SubItems(5)
    End With
    If GetAppID = lPID Then
        popProcess(8).Enabled = False
        popProcess(11).Enabled = False
    Else
        popProcess(8).Enabled = True
        popProcess(11).Enabled = True
    End If
    With popBase
        For i = .LBound To .UBound
            .Item(i).Checked = False
            Select Case sBase
                Case Is = "realtime"
                    .Item(0).Checked = True
                Case Is = "high"
                    .Item(1).Checked = True
                Case Is = "normal"
                    .Item(2).Checked = True
                Case Is = "idle"
                    .Item(3).Checked = True
                Case Else
                    .Item(i).Checked = False
            End Select
        Next i
    End With
End Sub

Private Sub popBase_Click(Index As Integer)
    Dim lBase As Long
    With frmMain
        Select Case Index
            Case 0
                lBase = SetBasePriority(.lvwProcessExplorer, _
                    5, REALTIME_PRIORITY_CLASS)
            Case 1
                lBase = SetBasePriority(.lvwProcessExplorer, _
                    5, HIGH_PRIORITY_CLASS)
            Case 2
                lBase = SetBasePriority(.lvwProcessExplorer, _
                    5, NORMAL_PRIORITY_CLASS)
            Case 3
                lBase = SetBasePriority(.lvwProcessExplorer, _
                    5, IDLE_PRIORITY_CLASS)
        End Select
        popProcess_Click 2
    End With
End Sub

Private Sub popExit_Click(Index As Integer)
    Select Case Index
        Case 0
            ExitWindowsNow "logoff"
        Case 1
            ExitWindowsNow "reboot"
        Case 2
            ExitWindowsNow "shutdown"
    End Select
End Sub

Private Sub popHelp_Click(Index As Integer)
    With Me
        Select Case Index
            Case 0
                OnlineHelp .hwnd, "www.e-freshware.com"
            Case 1
                OnlineHelp .hwnd, "sourceforge.net/projects/smpav"
            Case 3
                OnlineHelp .hwnd, SMP_SITE
            Case 4
                OnlineHelp .hwnd, SMP_SITE & "/index.php?page=faq"
            Case 5
                OnlineHelp .hwnd, SMP_SITE & "/index.php?page=contact"
            Case 6
                OnlineHelp .hwnd, SMP_SITE & "/index.php?page=donate"
            Case 7
                OnlineHelp .hwnd, SMP_SITE & "/index.php?page=download"
            Case 8
                OnlineHelp .hwnd, SMP_SITE & "/index.php?page=upload"
        End Select
    End With
End Sub

Private Sub popProcess_Click(Index As Integer)
    Dim lPID As Long
    Dim sProc As String
    With frmMain
        With .lvwProcessExplorer
            lPID = .SelectedItem.SubItems(5)
            sProc = .SelectedItem.SubItems(1)
        End With
        Select Case Index
            Case 0
                frmProcInfo.Show vbModal
            Case 2
                Screen.MousePointer = vbHourglass
                NTProcessList .lvwProcessExplorer, .ilsProcessExplorer
                .lvwProcessExplorer.SetFocus
                Screen.MousePointer = vbDefault
            Case 4
                OpenInFolder .lvwProcessExplorer, 1
                popProcess_Click 2
            Case 5
                OpenDosPrompt .lvwProcessExplorer, 1
                popProcess_Click 2
            Case 6
                ShowFileProperties .hwnd, .lvwProcessExplorer, 1
                popProcess_Click 2
            Case 11
                TerminateProcessID .lvwProcessExplorer, 5
                popProcess_Click 2
        End Select
    End With
End Sub

Private Sub popSystray_Click(Index As Integer)
    On Error Resume Next
    Select Case Index
        Case 0
            With frmMain
                .Show
                .OnSystray.Visible = False
            End With
            Unload frmFinish
        Case 2
            popHelp_Click 7
        Case 3
            popHelp_Click 3
        Case 4
            popHelp_Click 8
        Case 8
            If MsgBox("你确定要退出吗?", _
                vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbYes Then
                ExitNow
            End If
    End Select
End Sub

Private Sub popThreads_Click(Index As Integer)
    With frmMain
        Select Case Index
            Case 0
                SetSuspendResumeThread .lvwProcessExplorer, 5, False
            Case 1
                SetSuspendResumeThread .lvwProcessExplorer, 5, True
        End Select
        popProcess_Click 2
    End With
End Sub