password protect item in systray?[Resolved]

[planethax]

I am trying to find or come up with some to code password protect item in systray.
Any ideas or suggestions?
Anyone have or can come up with such a code?
Thanx in advance!

[dee-u]

Will it be your app? You could try to ask a password if your app is being maximized from the SysTray...

[planethax]

yes it will be my app, Its a firewall/port blocking app.
I need to block msn on all the pc's at work

[dee-u]

Then try my suggestion... What is your means of showing your app from the systray? Doubli click, single click, right click or what? And in what ways do you want to protect it?

[planethax]

Private Sub SysTray_MouseDblClick(Button As Integer, Id As Long)
mdlFirewall.Execute True
frmMain.Show
End Sub

the app starts in systray, this is the code used to show the main frm,
but I want the user to have to input a password before it shows?

[dee-u]

You could use an algorithm like this...

Private Sub SysTray_MouseDblClick(Button As Integer, Id As Long)
    Dim Password As String
    Password = InputBox("Input your password", "Password")
    If Password = "True" Then
        mdlFirewall.Execute True
        frmMain.Show
    End If
End Sub

[planethax]

You could use an algorithm like this...

Private Sub SysTray_MouseDblClick(Button As Integer, Id As Long)
    Dim Password As String
    Password = InputBox("Input your password", "Password")
    If Password = "True" Then
        mdlFirewall.Execute True
        frmMain.Show
    End If
End Sub

I am typing the password "true" in but nothing happens?
I am so lost with this thing lol

[dglienna]

It's case sensitive, "True".

[planethax]

It's case sensitive, "True".

DOOOH!! thank you both