Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Disabilitare Periferiche
Forum - Visual Basic 6 - Disabilitare Periferiche

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
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...

Ultima modifica effettuata da il 16/05/2008 alle 16:35
PM Quote
Avatar
Shutdown (Founder Member)
Guru


Messaggi: 1212
Iscritto: 10/09/2005

Segnala al moderatore
Postato alle 0:22
Sabato, 17/05/2008
Se proprio hai fretta puoi usare dei software già esistenti.

PM Quote
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 8:45
Sabato, 17/05/2008
Stacca i cavetti ...

PM Quote
Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 16:27
Sabato, 17/05/2008
X Bloccare...

Codice sorgente - presumibilmente Visual Basic 6

  1. Private Sub Command1_Click()
  2. LockCursor (True) 'blocca il cursore nella form
  3. HideDesktop (True) 'nascondi il desktop
  4. HideStartBar (True) 'nascondi la barra delle applicazioni
  5. End Sub



In un MODULO...

Codice sorgente - presumibilmente VB.NET

  1. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  2. Declare Function GetDesktopWindow Lib "user32" () As Long
  3. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  4. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  5.  
  6. Const SW_HIDE = 0
  7. Const SW_SHOW = 5
  8. Const GW_CHILD = 5
  9. Sub HideDesktop(ByVal Hidden As Boolean)
  10. Dim hwnd_Desktop As Long
  11.  
  12. hwnd_Desktop = GetWindow(FindWindow("Progman", "Program manager"), GW_CHILD)
  13. If Hidden Then
  14. ShowWindow hwnd_Desktop, SW_HIDE
  15. Else
  16. ShowWindow hwnd_Desktop, SW_SHOW
  17. End If
  18. End Sub
  19.  
  20. Sub HideStartBar(ByVal Hidden As Boolean)
  21. Dim hwnd_StartBar As Long
  22. hwnd_StartBar = FindWindow("Shell_TrayWnd", "")
  23. If Hidden Then
  24. ShowWindow hwnd_StartBar, SW_HIDE
  25. Else
  26. ShowWindow hwnd_StartBar, SW_SHOW
  27. End If
  28. End Sub



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

In un altro MODULO...


Codice sorgente - presumibilmente VB.NET

  1. Type RECT
  2. Left As Long
  3. Top As Long
  4. Right As Long
  5. Bottom As Long
  6. End Type
  7.    
  8. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  9. Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
  10. Declare Function GetDesktopWindow Lib "user32" () As Long
  11. Sub LockCursor(ByVal Locked As Boolean)
  12. Dim myform As RECT
  13. Dim desktop As RECT
  14. If Locked Then
  15. GetWindowRect iexplorer.hwnd, myform
  16. ClipCursor myform
  17. Else:
  18. GetWindowRect GetDesktopWindow, desktop
  19. ClipCursor desktop
  20. End If
  21. End Sub



Quseto x bloccare il cursore nella form...

X sbloccare tutto...

Codice sorgente - presumibilmente Visual Basic 6

  1. Private Sub Command2_Click()
  2. LockCursor (False)
  3. HideDesktop (False)
  4. HideStartBar (False)
  5. End Sub



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

Codice sorgente - presumibilmente Plain Text

  1. 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..

Ultima modifica effettuata da M@d_Hacker il 17/05/2008 alle 16:50
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 17:56
Sabato, 17/05/2008
Grazie mille Mad!!!!


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

Grazie mille a tutti!!!!

:love::love::love::love::love:

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 20:09
Sabato, 17/05/2008
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.

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 20:24
Sabato, 17/05/2008
non potrei disabilitarlo semplicemente??




PM Quote
Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 20:30
Sabato, 17/05/2008
Fai prima a disabilatare il task manager...
ecco il codice per farlo da vb6...

Codice sorgente - presumibilmente Visual Basic 6

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



Così lo disattivi...

X attivarlo...



Codice sorgente - presumibilmente VB.NET

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


Ultima modifica effettuata da M@d_Hacker il 17/05/2008 alle 20:31
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 20:35
Sabato, 17/05/2008
vedrò di seguire tutti e 2 i vostri consigli.. :D

comunque mi aggiungi su msn mad?

Mi piacerebbe averti nei miei contatti :-)

PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo