ShadyShell 89 Posted February 10, 2007 Since there is no help section for this, ill ask here. Does any1 know how to disable the start button, as in no mouse click and no keyboard button, and then re-enable it. The following coe disables it, but not re-enables it. because i teh noob with VB some1 edit it for me plz. Dim hWnd1 As Long 'General declarations Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib _ "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Const SW_HIDE = &H0 Const SW_SHOW = &H5 Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Const WM_CLOSE = &H10 'command1 click event Private Sub Command1_Click() SendMessage FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString), WM_CLOSE, 0, 0 End Sub Share this post Link to post
ViperSRT3g 224 Posted February 10, 2007 You should ask Poply about this one. He's good with VB6 Share this post Link to post
ShadyShell 89 Posted February 10, 2007 when he gets online hopefully he will see this topic. lol Share this post Link to post
Kenshyn 638 Posted February 10, 2007 ...Why would you want to hide the start button? Share this post Link to post
Xthar 136 Posted February 10, 2007 http://www.softplatz.com/Soft/Utilities/Other/30809.exe I dono if it works because i use a windows shell Share this post Link to post
ShadyShell 89 Posted February 10, 2007 I am creating a password program that will only exit on a password, I have already disabled alt+f4, alt+tab ctrl+alt+del (pain in the ass). the only thing left is start button on XP, win 98 2000 etc is done. I would prefer if some1 would eedit that code since it will be in one app. Share this post Link to post
ProSlasher 176 Posted February 10, 2007 I am creating a password program that will only exit on a password, I have already disabled alt+f4, alt+tab ctrl+alt+del (pain in the ass). the only thing left is start button on XP, win 98 2000 etc is done. I would prefer if some1 would eedit that code since it will be in one app. To do that, you would have to assign the key to a certian function... I forgot how to do it... But, there is also a registry key that disables the windows key... That would be the easiest way... And to rid the computer of the start button, run the program in fullscreen. Share this post Link to post
ShadyShell 89 Posted February 10, 2007 no, i can already disable it, I want some1 to edit the code above to enable it because n order to re-enable u have to restart ur machine. and it is running in FS, but it will pop-up if the button is pressed. Share this post Link to post
Poply 178 Posted February 10, 2007 yeah, sorry i can't help. i wouldn't say i'm good with vb, but i know enough to do what i want it to do. i can't think of any one off the top of my head who knows alot about vb except bren. Share this post Link to post
ShadyShell 89 Posted February 10, 2007 taaskmanager was a pain to disable, now i need start button :P. Share this post Link to post
ShadyShell 89 Posted February 11, 2007 can some1 PLEASE help me out? I really really really really really really really really really really really really need this. Share this post Link to post
HookE 0 Posted June 26, 2008 :D I wrote you something real quick, I only tested it in Windows XP. Copy this code into a module. 'Written by: HookE Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Function HideStart(Argue As Boolean) Dim Handle As Long, Handle2 As Long Handle = FindWindow("Shell_TrayWnd", vbNullString): Handle2 = FindWindowEx(Handle, 0, "Button", vbNullString) If Argue = True Then ShowWindow Handle2, 0 Else ShowWindow Handle2, 1 End If End Function 'Example Useage Sub Main() HideStart False End Sub Share this post Link to post
Mudkiepz 81 Posted July 7, 2008 lulz task manager is easy, a virus disabled mine. Share this post Link to post