• Home
 · 
• Miscellaneous
 · 
• This code hides the start button!!!

This code hides the start button!!!

This code hides the start button!!!

API Declarations


Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDLAST = 1
Private Const GW_HWNDPREV = 3
Dim fWnd As Long, gWnd As Long, IpClass As String * 250, gClass As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'
'@@@@@@ BY JOHN STRINGER @@@@@@'
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'



Rate This code hides the start button!!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'@@@@@@ BY JOHN STRINGER @@@@@@'


Private Sub Form_Load()
HideWnd
End Sub

Function ShowWnd() As String
fWnd = FindWindow("Shell_TrayWnd", vbNullString)
gWnd = GetWindow(fWnd, GW_CHILD)
gClass = GetClassName(gWnd, IpClass, 250)
IpClass = Left$(IpClass, gClass)
If Left$(IpClass, 6) = "Button" Then
   ShowWindow gWnd, SW_SHOW
End If
End Function

Function HideWnd() As String
fWnd = FindWindow("Shell_TrayWnd", vbNullString)
gWnd = GetWindow(fWnd, GW_CHILD)
gClass = GetClassName(gWnd, IpClass, 250)
IpClass = Left$(IpClass, gClass)
If Left$(IpClass, 6) = "Button" Then
   ShowWindow gWnd, SW_HIDE
End If
End Function

Private Sub Form_Unload(Cancel As Integer)
ShowWnd
End Sub