7

我在自动化程序中使用 SendKeys 进行工作。我一直在努力，现在正试图消除我创建的所有错误:-)

其中之一是，当我使用 SendKeys.Send("Test") 时，如果 CapsLock 打开，它将产生“tEST”而不是“Test”。

我使用以下代码尝试检测 capsLock 状态，并在必要时切换它：

bool tmp = Control.IsKeyLocked(Keys.CapsLock);
if (tmp)
{
     keybd_event(0x14, 0x45, KEYEVENTF_EXTENTEDKEY, (UIntPtr)0);
     keybd_event(0x14, 0x45, KEYEVENTF_EXTENTEDKEY | KEYEVENTF_KEYUP, (UIntPtr)0);
     //Application.DoEvents(); <-Testing.
}

然后立即使用 SendKeys 发送一些文本：

SendKeys.SendWait("This Is An Over Capitalized Test String");

仍然显示为：“这是一个大写的测试字符串”。

有没有办法解决这个问题？

回答！只是为了向其他人澄清，问题已通过使用解决

SendKeys.SendWait("{CAPSLOCK}" + text);

我首先尝试使用：

SendKeys.SendWait("{CAPSLOCK}");
SendKeys.SendWait("This Is An Over Capitalized Test String");

这根本不起作用。

4

2 回答 2

12

这对你有用吗？

    if(Control.IsKeyLocked(Keys.CapsLock))
        SendKeys.SendWait("{CAPSLOCK}This Is An Over Capitalized Test String");
    else
        SendKeys.SendWait("This Is An Over Capitalized Test String");
于 2011-11-01T04:30:06.983 回答
0

我有一个应用程序，我经常需要在左 SHIFT 和 TAB 之间切换。在我的键盘上，CAPSLOCK 位于这两个键之间，我时不时会出错，输入 CAPSLOCK 而不是 TAB。我的解决方案是反转 CAPSLOCK 并提交 TAB。令我惊讶的是，程序循环直到堆栈溢出。我发现 CAPSLOCK 键被发送了两次。这是我的最终解决方案：

Dim CapsLockProg As Integer = 0 ' after Send Capslock arrives 2 times!!!!!
Private Sub Description_KeyDown(sender As Object, e As KeyEventArgs) Handles Description.KeyDown 
    If e.KeyCode = Keys.Capital Then
        If CapsLockProg < 2 Then
            CapsLockProg += 1
            If CapsLockProg = 1 Then
                Windows.Forms.SendKeys.SendWait("{TAB}{CAPSLOCK}")
            'Else
            '   ignore 2nd Capslock
            End If 
        Else
            CapsLockProg = 0
        End If
    End If
    If e.KeyCode = Keys.Tab Then 
    rest of code
于 2018-02-10T15:14:58.677 回答