banner Expire 1 July 2024
Ad Ends 13 July 2024
banner Expire 15 July 2024
banner Expire 18 October 2024
ad End 18 October 2024
Ad Ends 13 July 2023
banner Expire 20 May 2024
What's new
Ad expire at 5 May 2024
UniCvv
CrdCrew.cc Carding forum
Western union transfer
Carding.pw carding forum
adv exp at 23 may

Lock KeyBoard and Mouse Using VB .NET

Daniel

TRUSTED VERIFIED SELLER
Staff member
Joined
Jun 13, 2020
Messages
6,536
Reaction score
891
Points
212
Awards
2
  • trusted user
  • Rich User
This Code will lock the Keyboard and Mouse Using SendKeys function.Just compile it in VB.NET.

must have this in order to use the SendKeys function
Imports System.Windows.Forms
Public Class WinControl
‘ This is the function used in order to block the keyboard and mouse:
Declare Function BlockInput Lib “User32” _
(ByVal fBlockIt As Boolean) As Boolean
‘ This function will block the keyboard and mouse untill a window with
‘ the specify caption will appear or the given time in seconds has
‘ past ( 0 seconds – wait forever).
‘ If the window with the caption appears than the given key is send
‘ to it and the input block is removed.
Public Shared Function Wait2Send(ByVal caption As String, _
ByVal keys As String, ByVal seconds As Integer)
‘ Indicates if the window with the given caption was found
Dim success As Boolean = False
‘ Start time of the function
Dim now As DateTime = DateTime.Now
‘ Begining of keyboard and mouse block
BlockInput(True)
While (success = False And (DateTime.Now.Subtract(now).Seconds _
< seconds Or seconds = 0))
Try
‘ Activating the window with desired function
‘ if the window is not found an exception is thrown.
AppActivate(caption)
‘ Sending desired key stroke to the application window
SendKeys.SendWait(keys)
‘ Indicates the window was found and keys sent
success = True
Catch
‘ Assuming window was not found and sleep for 100 miliseconds
System.Threading.Thread.Sleep(100)
End Try
End While
‘ Release the keyboard block
BlockInput(False)
End Function
End Class
 
Ad End 1 July 2024
Top