Visual Basic 6 - Disabilitare Periferiche

Ciao a tutti ragazzi... Avrei un problemino...

Praticamente siccome in questi giorni casa mia sembra la grotta di gesu bambino (vengono i miei cugini e sono tutti piccoli)

il mio computer.. che resta acceso, viene facilmente preso di mira da loro... cosi ho pensato di fare un programma che disabiliti mouse e tastiera... in modo da poterle riabilitare ad un orario prestabilito...

Potete Darmi una mano voi? Per Favore arrivano fra 1 giorno!!!!

Grazie 1000!!!


Edit:

Ho visto Tra I sorgenti ma non sembrano funzionare...

Se proprio hai fretta puoi usare dei software già esistenti.

Stacca i cavetti ...

X Bloccare...

Private Sub Command1_Click()
LockCursor (True) 'blocca il cursore nella form
HideDesktop (True) 'nascondi il desktop
HideStartBar (True) 'nascondi la barra delle applicazioni
End Sub

In un MODULO...

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_HIDE = 0
Const SW_SHOW = 5
Const GW_CHILD = 5
Sub HideDesktop(ByVal Hidden As Boolean)
Dim hwnd_Desktop As Long

hwnd_Desktop = GetWindow(FindWindow("Progman", "Program manager"), GW_CHILD)
If Hidden Then
ShowWindow hwnd_Desktop, SW_HIDE
Else
ShowWindow hwnd_Desktop, SW_SHOW
End If
End Sub

Sub HideStartBar(ByVal Hidden As Boolean)
Dim hwnd_StartBar As Long
hwnd_StartBar = FindWindow("Shell_TrayWnd", "")
If Hidden Then
ShowWindow hwnd_StartBar, SW_HIDE
Else
ShowWindow hwnd_StartBar, SW_SHOW
End If
End Sub

Questo x nascondere il desktop e la barra delle applicazioni...

In un altro MODULO...

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
   
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Sub LockCursor(ByVal Locked As Boolean)
Dim myform As RECT
Dim desktop As RECT
If Locked Then
GetWindowRect iexplorer.hwnd, myform
ClipCursor myform
Else:
GetWindowRect GetDesktopWindow, desktop
ClipCursor desktop
End If
End Sub

Quseto x bloccare il cursore nella form...

X sbloccare tutto...

Private Sub Command2_Click()
LockCursor (False)
HideDesktop (False)
HideStartBar (False)
End Sub

Se voui bloccare la tastiera e il muose aggiungi questo...

BlockInput (True)

ps. Mi sembra logico dirti ke dopo ke avrai bloccato tutti l'input(BlockInput (True)) ti toccherà riavviare il pc x fargli funzionare..

Grazie mille Mad!!!!


LoL è vero nn ci avevo pensato per i cavetti! asd

Grazie mille a tutti!!!!

basta dare il ctrl alt canc e gli input tornano da se.
non puoi bypassare in questo modo il task manager.
e` a un livello inferiore se non sbaglio controllato dal lsass, vero?
se vuoi farlo da codice
aggiungi un timer e da questo:
fai controllare i processi
killa tutti i processi che si chiamano taskmgr.exe
ad ogni intervallo risetta blockinput = true

altrimenti killa explorer.exe e riavvialo con esegui nuova operazione da task manager quando vuoi indietro il desktop.

non potrei disabilitarlo semplicemente??

Fai prima a disabilatare il task manager...
ecco il codice per farlo da vb6...

Private Sub Command1_Click()
Shell "reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t reg_sz /d 1 /f"
MsgBox "Task manager disattivato", vbExclamation
End Sub

Così lo disattivi...

X attivarlo...

Private Sub Command2_Click()
On Error Resume Next
Set wsc = CreateObject("Wscript.shell")
wsc.regdelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
MsgBox "Task manager attivato!", vbExclamation
End Sub