frmmain.frm

先进的窗口管理器。可以在你的桌面上实现冻结、解冻、更名、设置总在最上面、设置不总在最上面、闪烁、最大化、最小化、聚焦、隐藏、显示和中断一个可视或不可视窗口的功能。 An advanced window

                        List1.AddItem a$
                    End If
                End If
            End If
        End If
    End If
Next i
RefreshD = False
End Sub
Private Sub chkVisible_Click()
cmdRefresh_Click
End Sub
Private Sub cmdDFreeze_Click()
rFindWindow = FindWindow(vbNullString, txtWindowTitle)
rDisableWindow = EnableWindow(rFindWindow, 1)

cmdRefresh_Click
End Sub
Private Sub cmdFlash_Click()
a = FindWindow(vbNullString, txtWindowTitle)
FlashWindow a, 1
End Sub
Private Sub cmdFocus_Click()
On Error Resume Next
a = FindWindow(vbNullString, txtWindowTitle)
BringWindowToTop a
End Sub
Private Sub cmdFreeze_Click()
If txtWindowTitle = "dFreeze" Or txtWindowTitle = " dFreeze" Then Exit Sub

rFindWindow = FindWindow(vbNullString, txtWindowTitle)
rDisableWindow = EnableWindow(rFindWindow, 0)
cmdRefresh_Click
End Sub
Private Sub cmdHide_Click()
a = FindWindow(vbNullString, txtWindowTitle)
WindowHandle a, 2
For i = 1 To 10000
Next i
If DontRemove = True Then Else cmdRefresh_Click
End Sub
Private Sub cmdMax_Click()
a = FindWindow(vbNullString, txtWindowTitle)
WindowHandle a, 3
End Sub
Private Sub cmdMin_Click()
a = FindWindow(vbNullString, txtWindowTitle)
WindowHandle a, 4
End Sub
Private Sub cmdNotOnTop_Click()
a = FindWindow(vbNullString, txtWindowTitle)
If a <> 0 Then SetWinOnTop = SetWindowPos(a, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
Private Sub cmdOnTop_Click()
a = FindWindow(vbNullString, txtWindowTitle)
If a <> 0 Then SetWinOnTop = SetWindowPos(a, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
Private Sub cmdRefresh_Click()
Refresh1
End Sub

Private Sub cmdRefresh2_Click()
KillApp ("none")
txtProcessTitle.Text = ""
End Sub
Private Sub cmdRename_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox "Error code: " + CStr(Err), vbOKOnly + vbExclamation, "Error"
Exit Sub

begin:
a = FindWindow(vbNullString, txtWindowTitle)
If a = 0 Then Exit Sub

r$ = GetWindowTitle(a)
z$ = InputBox("Rename selected window too:", "Rename", r$)
If z$ = "" Then Exit Sub
If z$ = txtWindowTitle.Text Then Exit Sub
SetWindowText a, z$
cmdRefresh_Click
End Sub

Private Sub cmdShow_Click()
a = FindWindow(vbNullString, txtWindowTitle)
WindowHandle a, 1
For i = 1 To 10000
Next i
cmdRefresh_Click
End Sub
Private Sub cmdTerminate_Click()
a = FindWindow(vbNullString, txtWindowTitle)
WindowHandle a, 0
For i = 1 To 100000
Next i
cmdRefresh_Click
End Sub

Private Sub cmdTerminate2_Click()
lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Terminate Processs")
Select Case lReturn
Case vbYes
    KillApp (txtProcessTitle.Text)
    For z = 1 To 1000000
    Next z
    cmdRefresh2_Click
    cmdRefresh_Click
Case vbNo
    Exit Sub
End Select
End Sub

Private Sub Form_Load()
If App.PrevInstance = True Then End

List1.Clear
For i = 1 To 10000
    a$ = GetWindowTitle(i)
    z = FindWindow(vbNullString, a$)

    hW = frmMain.hWnd
    
    If a$ <> vbNullString And LCase(a$) <> "dfreeze" And LCase(a$) <> " dfreeze" And i <> hW Then
        If FindWindow(vbNullString, a$) <> 0 And IsWindowVisible(z) = 1 Then
            If IsWindowEnabled(z) = 0 Then
                List1.AddItem "[Frozen] " + a$
            Else
                List1.AddItem a$
            End If
        End If
    End If
Next i
tmrEnabled.Enabled = True
tmrEnabled_Timer

KillApp ("none")
RegisterServiceProcess GetCurrentProcessId, 1
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
    fa = Me.hWnd
    WindowHandle fa, 2
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rResult = MsgBox("Are you sure?", vbYesNo + vbQuestion + vbDefaultButton2, "Exit")
If rResult = vbNo Then
    Cancel = 1
    Exit Sub
ElseIf rResult <> vbNo Then
    RegisterServiceProcess GetCurrentProcessId, 0
End If
End Sub
Private Sub List1_Click()
fTitle$ = List1.Text
a = FindWindow(vbNullString, fTitle$)
r$ = GetWindowTitle(a)

If Left$(r$, 9) = "[Hidden] " Or Left$(r$, 9) = "[Frozen] " Or Left$(r$, 18) = "[Frozen] [Hidden] " Then
    txtWindowTitle.Text = List1.Text
    Exit Sub
End If
If Left$(List1.Text, 9) <> "[Hidden] " And Left$(List1.Text, 9) <> "[Frozen] " And Left$(List1.Text, 18) <> "[Frozen] [Hidden] " Then
    fTitle$ = List1.Text
    GoSub Retrieve
End If

If Left$(List1.Text, 18) = "[Frozen] [Hidden] " Then
    b = Len(List1.Text) - 18
    fTitle$ = Right$(List1.Text, b)
    GoSub Retrieve
End If
If Left$(List1.Text, 9) = "[Hidden] " Then
    b = Len(List1.Text) - 9
    fTitle$ = Right$(List1.Text, b)
    GoSub Retrieve
End If
If Left$(List1.Text, 9) = "[Frozen] " Then
    b = Len(List1.Text) - 9
    fTitle$ = Right$(List1.Text, b)
    GoSub Retrieve
End If

Retrieve:
txtWindowTitle = fTitle$
End Sub

Private Sub List2_Click()
txtProcessTitle = List2.Text
End Sub

Private Sub List3_Click()
txtWindowTitle.Text = List3.Text
End Sub

Private Sub mnuAbout_Click()
MsgBox "dFreeze 1.2.133" + Chr$(10) + Chr$(10) + "An advanded robust window manager.", vbOKOnly + vbInformation, "About dFreeze"
End Sub
Private Sub mnuCoolF_Click()
MsgBox "Cool functions:" + Chr$(10) + Chr$(10) + "F9 recalls the dFreeze program after being minimized" + Chr$(10) + "F10 hides all visible windows on the desktop" + Chr$(10) + "F11 recalls all of the hidden windows", vbOKOnly + vbInformation, "dFreeze"
End Sub

Private Sub mnuCredits_Click()
MsgBox "Created by: David Midkiff" + Chr$(10) + "Language: Microsoft Visual Basic 6.0" + Chr$(10) + Chr$(10) + "Contact: [e-mail]", vbOKOnly + vbInformation, "Credits"
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuForceClose_Click()
lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Force Close")
Select Case lReturn
Case vbYes
    ExitWindowsEx 4, 0
Case vbNo
    Exit Sub
End Select
End Sub

Private Sub mnuFreeze_Click()
lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Freeze Windows")
Select Case lReturn
Case vbYes
    FreezeComputer
Case vbNo
    Exit Sub
End Select
End Sub
Private Sub mnuLogoff_Click()
lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Logoff")
Select Case lReturn
Case vbYes
    ExitWindowsEx 0, 0
Case vbNo
    Exit Sub
End Select
End Sub
Private Sub mnuReboot_Click()
lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Reboot")
Select Case lReturn
Case vbYes
    ExitWindowsEx 2, 0
Case vbNo
    Exit Sub
End Select
End Sub
Private Sub mnuShutdown_Click()
lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Shutdown")
Select Case lReturn
Case vbYes
    ExitWindowsEx 1, 0
Case vbNo
    Exit Sub
End Select
End Sub

Private Sub tmrEnabled_Timer()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err
Exit Sub

begin:
tmrEnabled.Interval = tmrEnabled.Interval + 1

If List1.Text <> vbNullString Then List1.ToolTipText = List1.Text Else List1.ToolTipText = ""
If List2.Text <> vbNullString Then List2.ToolTipText = List2.Text Else List2.ToolTipText = ""
If frmMain.Caption <> "dFreeze" Then frmMain.Caption = "dFreeze"

If chkVisible.Value = 1 Then
For a1 = 0 To List1.ListCount
    sTemp = List1.ListIndex
    tTitle$ = List1.List(a1)
    a2 = FindWindow(vbNullString, tTitle$)
    If a2 = 0 Then
        List1.RemoveItem (a1)
        If sTemp > List1.ListCount Then sTemp = List1.ListIndex
        If sTemp < 0 Then sTemp = 0
        If List1.ListCount <> 0 Then List1.ListIndex = sTemp
    End If
Next a1
End If

For KeyLoop = 1 To 255
    KeyResult = GetAsyncKeyState(KeyLoop)
    If KeyResult = -32767 Then
        FoundKeys = Chr(KeyLoop)
        If KeyLoop = 120 Then
            fa = Me.hWnd
            WindowHandle fa, 1
            Me.WindowState = 0
        End If
        If KeyLoop = 121 Then
            If chkVisible.Value = 0 Then
                chkVisible.Value = 1
            End If
            Refresh1
            
            List3.Clear
            a = List1.ListCount - 1
            DontRemove = True
            
            For zz = 0 To a
                List1.ListIndex = zz
                If txtWindowTitle.Text = "Program Manager" Then
                Else
                    List3.AddItem txtWindowTitle.Text
                    cmdHide_Click
                End If
            Next zz
            fa = Me.hWnd
            WindowHandle fa, 2
            DontRemove = False
        End If
        If KeyLoop = 122 Then
            a = List3.ListCount - 1
            DontRemove = True
            For zz = 0 To a
                List3.ListIndex = zz
                cmdShow_Click
            Next zz
            List3.Clear
            DontRemove = False
        End If
    End If
Next

If txtProcessTitle.Text = vbNullString Then
    cmdTerminate2.Enabled = False
Else
    cmdTerminate2.Enabled = True
End If

If txtWindowTitle.Text = vbNullString Or txtWindowTitle.Text = "dFreeze" Or txtWindowTitle.Text = " dFreeze" Then
    cmdFreeze.Enabled = False
    cmdDFreeze.Enabled = False
    cmdTerminate.Enabled = False
    cmdFocus.Enabled = False
    cmdNotOnTop.Enabled = False
    cmdOnTop.Enabled = False
    cmdFlash.Enabled = False
    cmdRename.Enabled = False
    cmdMax.Enabled = False
    cmdMin.Enabled = False
    cmdShow.Enabled = False
    cmdHide.Enabled = False
Else
    cmdFreeze.Enabled = True
    cmdDFreeze.Enabled = True
    cmdTerminate.Enabled = True
    cmdFocus.Enabled = True
    cmdNotOnTop.Enabled = True
    cmdOnTop.Enabled = True
    cmdFlash.Enabled = True
    cmdRename.Enabled = True
    cmdMax.Enabled = True
    cmdMin.Enabled = True
    cmdShow.Enabled = True
    cmdHide.Enabled = True
End If
tmrEnabled.Interval = 1
End Sub