有关键盘和鼠标的问题

[haplessboy]

我的程序需要经常读写串口，在这个过程中，一旦进行别的操作，读写都会失败，所以我想在读写串口的过程中，使键盘和鼠标都暂时失效，等读写完成以后再恢复，请问如何实现？谢谢！如果有别的方法更好！

[lqf]

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Const still_active = &H103
hprocess = 打开窜口
EnableWindow(GetActiveWindow, False)
do
GetExitCodeProcess hprocess, code
DoEvents
Loop While code = still_active
EnableWindow(GetActiveWindow, true)