frmmain.frm

dFreeze Window Manager.zip

Loop

Call CloseHandle(hSnapshot)
End Function
Public Sub Refresh1()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
RefreshD = True

List1.Clear
List4.Clear
txtWindowTitle = ""
DoEvents

For i = 1 To 10000
    A$ = GetWindowTitle(i)
    z = FindWindow(vbNullString, A$)
    hW = frmMain.hwnd
    If z <> 0 Then
        If A$ <> vbNullString And LCase(A$) <> LCase(APPCap) And LCase(A$) <> "dfreeze window manager" And i <> hW Then
            If IsWindowEnabled(z) = 0 Then
                If IsWindowVisible(z) = 0 Then
                    List4.AddItem "[Frozen] " + A$
                ElseIf IsWindowVisible(z) = 1 Then
                    List1.AddItem "[Frozen] " + A$
                End If
            ElseIf IsWindowEnabled(z) = 1 Then
                If IsWindowVisible(z) = 0 Then
                    List4.AddItem A$
                ElseIf IsWindowVisible(z) = 1 Then
                    List1.AddItem A$
                End If
            End If
        End If
    End If
Next i

DoEvents

RefreshD = False
End Sub
Private Sub cmdDFreeze_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
rFindWindow = FindWindow(vbNullString, txtWindowTitle)
rDisableWindow = EnableWindow(rFindWindow, 1)

Pause 1000

Refresh1
End Sub

Private Sub cmdDFreeze_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub


Private Sub cmdDisableMenuItems_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
Dim rFindWindow As Long
rFindWindow = FindWindow(vbNullString, txtWindowTitle)
EnableMenuItems rFindWindow, False
End Sub

Private Sub cmdDisableMenuItems_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdDisableOptions_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
Exit Sub

begin:
Dim A As Long
A = FindWindow(vbNullString, frmMain.txtWindowTitle)
If A = 0 Then Exit Sub

EnumerateChildren A, 4
End Sub

Private Sub cmdDisableOptions_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdEnableMenuItems_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
Dim rFindWindow As Long
rFindWindow = FindWindow(vbNullString, txtWindowTitle)
EnableMenuItems rFindWindow, True
End Sub

Private Sub cmdEnableMenuItems_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdEnableOptions_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
Exit Sub

begin:
Dim A As Long
A = FindWindow(vbNullString, frmMain.txtWindowTitle)
If A = 0 Then Exit Sub

EnumerateChildren A, 2
End Sub

Private Sub cmdEnableOptions_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub cmdExitC_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
Dim nid As NOTIFYICONDATA
Dim MMe As String
rReturn = MsgBox("Are you sure you wish to exit?", vbQuestion + vbYesNo + vbDefaultButton2, "Exit")
If rReturn = vbYes Then
    If GetSetting("dFreeze", "Options", "Taskbar", "") = "Yes" Then
        Shell_NotifyIcon NIM_DELETE, nid
    End If
    End
End If
End Sub

Private Sub cmdExitC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub cmdFlash_Click()
Dim A As Long
A = FindWindow(vbNullString, frmMain.txtWindowTitle)
If A = 0 Then Exit Sub

Dim nReturnValue As Integer
nReturnValue = FlashWindow(A, True)
End Sub

Private Sub cmdFlash_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdFocus_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
BringWindowToTop A
End Sub

Private Sub cmdFocus_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdFreeze_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
If txtWindowTitle = APPCap Or LCase(txtWindowTitle) = "dfreeze window manager" Then Exit Sub

rFindWindow = FindWindow(vbNullString, txtWindowTitle)
rDisableWindow = EnableWindow(rFindWindow, 0)

Pause 1000

Refresh1
End Sub

Private Sub cmdFreeze_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdHide_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
WindowHandle A, 2

Pause 1000

If DontRemove = True Then Else Refresh1
End Sub

Private Sub cmdHide_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub


Private Sub cmdInfo_Click()
If txtWindowTitle = "" Then Exit Sub

frmInfo.Show vbModal
End Sub
Private Sub cmdMax_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
WindowHandle A, 3
End Sub

Private Sub cmdMax_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub


Private Sub cmdMin_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
WindowHandle A, 4
End Sub

Private Sub cmdMin_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub


Private Sub cmdMinimize_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
frmMain.WindowState = vbMinimized
End Sub

Private Sub cmdMinimize_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdNormal_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
WindowHandle A, 5
End Sub

Private Sub cmdNormal_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdNotOnTop_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
If A <> 0 Then SetWinOnTop = SetWindowPos(A, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

Private Sub cmdNotOnTop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdOnTop_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
If A <> 0 Then SetWinOnTop = SetWindowPos(A, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

Private Sub cmdOnTop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdRefresh_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
Refresh1
End Sub

Private Sub cmdRefresh_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdRefresh2_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
KillApp ("none")
txtProcessTitle.Text = ""
End Sub

Private Sub cmdRefresh2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdRename_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

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

R$ = GetWindowTitle(A)
If Len(R$) > 26 Then
If Right$(R$, 26) = " - Please Register dFreeze" Then
    RRemove = Len(R$) - 26
    R$ = Left$(R$, RRemove)
End If
End If

z$ = InputBox("Rename selected window too:", "Rename", R$)
If z$ = "" Then Exit Sub

SetWindowText A, z$
Refresh1
End Sub

Private Sub cmdRename_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub cmdRevealPassword_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
Exit Sub

begin:
Dim A As Long
A = FindWindow(vbNullString, frmMain.txtWindowTitle)
If A = 0 Then Exit Sub

EnumerateChildren A, 1
End Sub

Private Sub cmdRevealPassword_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdShow_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
WindowHandle A, 1

Pause 1000

Refresh1
End Sub

Private Sub cmdShow_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdTerminate_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A = FindWindow(vbNullString, txtWindowTitle)
WindowHandle A, 0

Pause 1000

Refresh1
End Sub

Private Sub cmdTerminate_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub cmdTerminate2_Click()
On Error GoTo errorhandler
GoSub begin

errorhandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, "dFreeze Error"
Exit Sub

begin:
A$ = LCase(App.Path)
If Left$(A$, 1) <> "\" Then A$ = A$ + "\"
A$ = A$ + "dfreeze.exe"
If LCase(txtProcessTitle.Text) = A$ Then
    lReturn = vbYes
    GoSub bypass
End If

lReturn = MsgBox("Are you sure?", vbYesNo + vbDefaultButton2, "Terminate Processs")

bypass:
Select Case lReturn
Case vbYes
    If LCase(txtProcessTitle.Text) = A$ Then
        rResult = MsgBox("You are about to terminate dFreeze. Are you sure you wish to do this?", vbQuestion + vbYesNo + vbDefaultButton2, "dFreeze")
        Select Case rResult
        Case vbYes
            End
        Case vbNo
            Exit Sub
        End Select
    End If
    
    KillApp (txtProcessTitle.Text)
    List1.Clear
    List2.Clear
    Pause 1000
    cmdRefresh2_Click
    Refresh1
Case vbNo
    Exit Sub
End Select
End Sub

Private Sub cmdTerminate2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub Form_Load()
On Error Resume Next

Dim nid As NOTIFYICONDATA