Domain-Manager-Pro/frmTrayIcon.frm at master · VBGAMER45/Domain-Manager-Pro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
VERSION 5.00
Begin VB.Form frmTrayIcon
   Caption         =   "Tray Icon"
   ClientHeight    =   30
   ClientLeft      =   -40305
   ClientTop       =   105
   ClientWidth     =   2340
   Icon            =   "frmTrayIcon.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   30
   ScaleWidth      =   2340
   Visible         =   0   'False
   Begin VB.Menu mnuMenu
      Caption         =   "File"
      Begin VB.Menu mnuHideDomainManager
         Caption         =   "Hide Domain Manager Pro"
      End
      Begin VB.Menu mnuFileExpire
         Caption         =   "Check for Expiring Domains"
      End
      Begin VB.Menu mnuOptions
         Caption         =   "Options"
      End
      Begin VB.Menu mnuFileSep1
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmTrayIcon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'********************************************
'Domain Manager Pro
'VisualBasicZone.com 2006
'Jonathan Valentin
'********************************************
Option Explicit
#Const Trial = False
Private Const WM_MOUSEMOVE = &H200
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_LBUTTONDBLCLK = &H203


Private Sub Form_Load()

    Me.Hide
    MySysTray.PopUpMessage = "Domain Manager Pro"
    MySysTray.Initialize Me.hWnd, Me.Icon, MySysTray.PopUpMessage
    MySysTray.ShowIcon
    Me.Hide
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim msgCallBackMessage As Long
  msgCallBackMessage = x / Screen.TwipsPerPixelX
  Select Case msgCallBackMessage
    Case WM_MOUSEMOVE
      MySysTray.TipText = MySysTray.PopUpMessage
   Case WM_RBUTTONDOWN
        Me.PopupMenu mnuMenu
   Case WM_LBUTTONDBLCLK

        frmMain.Show
        IsInTray = False

   End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MySysTray.HideIcon
    End
End Sub


Private Sub mnuExit_Click()
    Dim Response As VbMsgBoxResult
    Response = MsgBox("Are you sure you want to quit?", vbYesNo + vbInformation, "Quit Domain Manager Pro?")
    If Response = vbYes Then
        Unload frmOptions
        Unload frmMain
        Unload Me
        Call MruList.Save
        End
    End If
End Sub


Private Sub mnuFileExpire_Click()
    Call frmMain.CheckDomainExpire
End Sub

Private Sub mnuHideDomainManager_Click()

    If mnuHideDomainManager.Caption = "Hide Domain Manager Pro" Then
        Unload frmOptions
        frmMain.Hide
        IsInTray = True
        frmTrayIcon.mnuHideDomainManager.Caption = "Show Domain Manager Pro"
    Else
        frmMain.Show
        IsInTray = False
        frmTrayIcon.mnuHideDomainManager.Caption = "Hide Domain Manager Pro"

    End If
End Sub

Private Sub mnuOptions_Click()

    frmOptions.Show
End Sub