キャップロックをプログラムで無効にする

Question

私は仕事のためにオートメーションプログラムでSendKeysを使用しています。私は一緒に歩み続けて、今作成したすべてのバグを解消しようとしています:-)

私はSendKeys.Send（ "Test"）を使用したときに、CapsLock 「テスト」とは対照的に「テスト」を生成します。

私は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"); 

まったく機能しませんでした。

Answer 1

これはあなたのために機能しますか？

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"); 

Answer 2

私は頻繁に左シフトとタブを切り替える必要があるアプリケーションがあります。私のキーボードでは、CAPSLOCKはそれらの2つのキーの間にあり、私は間違いを犯してしまいました.TABの代わりにCAPSLOCKをタイプします。私の解決策は、CAPSLOCKを逆にして代わりにTABを送信することです。驚いたことに、プログラムはスタックオーバーフローするまでループします。私はCAPSLOCKキーが2回送信されることを知りました。これは私の最終的な解決策です。

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