Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
BlockInput True
ProgressBar1 = Val(ProgressBar1) + Val(10)
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
BlockInput False
MsgBox ("You can now use your mouse and keyboard"), vbInformation
ProgressBar1.Value = 0
End If
End Sub
this code which i have search through the internet.
but our project is more likely this but it has some features like
by using three(3) USB(flashdrive) and a switch
usb1 - disable mouse and keyboard
usb2 - enable mouse and keyboard
usb3 - normal storage device
WE ARE DONE WITH OUR SWITCH
)
but our problem now is the program
example is I dont want anyone look at my computer whenever i am away
so i will use this USB1 to disable those ports
and when i would like to use it again i will use USB2
can you help us with this project?
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
BlockInput True
ProgressBar1 = Val(ProgressBar1) + Val(10)
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
BlockInput False
MsgBox ("You can now use your mouse and keyboard"), vbInformation
ProgressBar1.Value = 0
End If
End Sub
this code which i have search through the internet.
but our project is more likely this but it has some features like
by using three(3) USB(flashdrive) and a switch
usb1 - disable mouse and keyboard
usb2 - enable mouse and keyboard
usb3 - normal storage device
WE ARE DONE WITH OUR SWITCH
but our problem now is the program
example is I dont want anyone look at my computer whenever i am away
so i will use this USB1 to disable those ports
and when i would like to use it again i will use USB2
can you help us with this project?