Åbne et program / kode til at gøre sådan at man ikke kan bruge Control Alt Delete

1:

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

(skal i toppen)

ShellExecute Me.hWnd, vbNullString, \"c:\\blabla.exe\", vbNullString, vbNullString, vbMaximizedFocus

(der hvor programmet eller websiden skal åbnes)

2:

\'------------------------------- Form1 -------------------------------
\'CTRL+ALT+DEL & ALT+TAB & WINTAST
Private Declare Function SystemParametersInfo Lib \"user32\" _
    Alias \"SystemParametersInfoA\" (ByVal uAction As Long, _
    ByVal uParam As Long, ByRef lpvParam As Any, _
    ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
  SystemParametersInfo 97, True, 0&, 0& \'CTRL+ALT+DEL & ALT+TAB & WINTAST
End Sub

Private Sub Form_Unload(Cancel As Integer)
  SystemParametersInfo 97, False, 0&, 0& \'CTRL+ALT+DEL & ALT+TAB & WINTAST
End Sub
\'------------------------------- Form1 -------------------------------

Point

Takker :)

sjh: Er du sikker på at det der virker? Jeg kan ikke få det til at virke i Windows 2000...

Sjh: Det virker ikke!

nej ikke i Win2000. :(

http://www.allapi.net/apilist/apifunction.php?apifunction=SystemParametersInfo