deaktivere Start menyen

[EltoSoft]

Hallo jeg holder på med å lage et sikkerhets program og lurer på om hvordan jeg skal kunne deaktivere Start menyen og om hvordan jeg skal deaktivere Ctrl+alt+del.

 

Er det noen som vet det????? :o

[b-urn]

Du kan ikke disable Ctrl+Alt+Del, men du kan disable alle valgene du får opp (Lock computer, Log off, Shut down, Task manager osv.) ved å sette

noen registerverdier. Husker ikke nøyaktig sti, men du finner dem fort gjennom et google-søk eller to.

 

Ellers låser du tastatured ved å bruke en LL-keyboard hook.

Fant denne referansen i forumet:

 

http://forum.sourcecode.no/viewtopic.php?t...&highlight=hook

eller

VB6: http://www.developer.com/net/vb/article.php/1502401

VB.net: http://www.codeguru.com/vb_system/PK041803.html

 

 

BIW

[aadnk]

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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long



Private Const SW_HIDE = 0

Private Const SW_SHOW = 5

Private Const SW_NORMAL = 1



Dim tWnd As Long, bWnd As Long



Private Function StartButton(Visible As Boolean)



ShowWindow bWnd, IIF(Visible, SW_NORMAL,  SW_HIDE)



End Function



Private Sub Form_Load()



tWnd = FindWindow("Shell_TrayWnd", vbNullString)

bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)



End Sub

 

StartButton(False) vil skjule Start-knappen fullstendig slik at det blir umulig å trykke på den (og se den). StartButton(True) vil vise den fram igjen.

 

I Windows 2000/XP/ME er det umulig å fjerne Ctr+Alt+Delete, mens i tilligere windowser er dette mulig. Bruk denne koden for disse versjonene:

 

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long



Private Function DisableCtrlAltDelete(bDisabled As Boolean) As Long

   DisableCtrlAltDelete = SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Function



Private Sub Form_Load()



DisableCtrlAltDelete(True) ' Skrur av CtrAltDelete



End Sub



Private Sub Form_Unload()



DisableCtrlAltDelete(False) ' Skrur på CtrAltDelete



End Sub