by Brandon Johnson (7 Submissions)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 6th August 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer.
API Declarations
"user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
'To UnHide It, Type In... ViewTaskBar(True)
Private Sub ViewTaskBar(lbValue As Boolean)
Dim llResult As Long
llResult = FindWindow("Shell_traywnd", "")
If llResult Then
If lbValue Then
llResult = SetWindowPos(llResult, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Else
llResult = SetWindowPos(llResult, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End Sub
No comments have been posted about This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer.. Why not be the first to post a comment about This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer..