Lås computer.

Hej.

Jeg har ikke haft brug for sådan noget, men mener at have set.  Kig på:
http://www.planetsourcecode.com/xq/ASP/txtCodeId.2902/lngWId.1/qx/vb/scripts/ShowCode.htm

Skjul markør:

Declare Function ShowCursor& Lib \"user32\" _
                                      (ByVal bShow As Long)
                                      \'Add this code to Command1.


                                  Private Sub Command1_Click()
                                      ShowCursor (bShow = True)
                                  End Sub
                                  \'Add this to Command2.


                                  Private Sub Command2_Click()
                                      ShowCursor (bShow = False)
                                  End Sub

Det med keyboard vender jeg evt. tilbage til.

M.v.h.  Jørn

Det er ikke nok bare at gemme musen.. på sin vis må man gerne flytte musen.. der skal bare ikke ske noget når man trykke.. der er vel tale om jeg skal bruge en rutine til at fange alt input fra keyboard og mus, og så bare smide det væk.

Hej igen.

Er det ikke nok at f.eks. enter og space ikke virker?

kig på:

http://www.vbsquare.com/mouse/tip251.html

M.v.h.  Jørn 

Nej, ikke nok med enter og space, får så kan du via alt ctrl del, få adgang til task list og slukke den application der skal køre.

Ok.

Du kan altid med kode opfange et tastetryk og lave det til noget andet, der intet udfører.  Kig i VB-hjælpen på Key Codes.  Her er lidt af listen.

Markøren står i en tekstboks:

If KeyAscii = 13 Then
    SendKeys \"{tab}\"
    KeyAscii = 20          \' omdanner \'enter\' til \'space\'
End If

Hold øje med om ascii-værdierne er angivet i HEX eller DEC.  Jeg roder selv i det undertiden.

Den bruger jeg selv for at undgå linieskift i visse databaser, der er ascii-filer.

Du kan se du kan fange CTRL og gøre den uvirksom.

Key Codes

Constant    Value    Description
vbKeyLButton    1    Left mouse button
vbKeyRButton    2    Right mouse button
vbKeyCancel    3    CANCEL key
vbKeyMButton    4    Middle mouse button
vbKeyBack    8    BACKSPACE key
vbKeyTab    9    TAB key
vbKeyClear    12    CLEAR key
vbKeyReturn    13    ENTER key
vbKeyShift    16    SHIFT key
vbKeyControl    17    CTRL key
vbKeyMenu    18    MENU key
vbKeyPause    19    PAUSE key
vbKeyCapital    20    CAPS LOCK key
vbKeyEscape    27    ESC key
vbKeySpace    32    SPACEBAR key

M.v.h.

Fjerne alt+ctrl+del prøv denne kode:

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

Sub DisableCtrlAltDel(bState As Boolean)
Dim RC As Long
Dim lngWas As Long
RC = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, bState, lngWas, 0)
End Sub

\'For at disable: DisableCtrlAltDel True
\'For at enable: DisableCtrlAltDel False

Hvad skal du bruge det til, Eaglewing?

Nå, jeg kom aldrig videre med projektet, men spørgsmålet skal jo have en afklaring, så jeg deler lige lidt point ud efter hvad jeg tror ville have virket..*G*