MIXED DOWNLOAD WORLD

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 =" 0))" success =" True">