Powershell代碼在PowerShell_ise上運行良好，但在PowerShell中破解

Question

我試圖編寫一個代碼，可以快速鎖定密鑰的LED（使用-comObject發送密鑰）。 Powershell（來自CMD）的代碼運行速度非常慢，並且錯過了一些按鍵，但似乎在Powershell_ise上效果很好。

該代碼將文件讀取爲二進制文件，然後將每個位傳輸到num/scroll lock。這需要運行得非常快 - 儘可能快。

這是代碼：

$wsh = New-Object -ComObject "WScript.Shell" 
$bytes = [Byte[]] (Get-Content $env:temp\temp1536.txt -Encoding Byte -ReadCount 0) | ForEach-Object {[System.Convert]::ToString($_,2)} 
##($i=0; $i -le $byte.length; $i++){ 

foreach ($byte in $bytes) { 
#$byte; 
    while($byte.length -ne 1){ 
    if($byte[1] -eq '1'){ 
     #echo "1"; 
     $wsh.SendKeys('{SCROLLLOCK}'); 
     [System.Threading.Thread]::Sleep(40); 
     $wsh.SendKeys('{SCROLLLOCK}'); 
    } Else { 
     #echo "0"; 
     $wsh.SendKeys('{NUMLOCK}'); 
     [System.Threading.Thread]::Sleep(40); 
     $wsh.SendKeys('{NUMLOCK}'); 
    } 
    $byte=$byte.Substring(1); 
    [System.Threading.Thread]::Sleep(50); 


    } 
    #echo " "; 
    #echo "1"; 

    $wsh.SendKeys('{CAPSLOCK}'); 
    [System.Threading.Thread]::Sleep(55); 

    $wsh.SendKeys('{CAPSLOCK}'); 
    [System.Threading.Thread]::Sleep(20); 

} 

任何人都知道爲什麼出現這種情況？

編輯： 我添加了一個視頻，顯示在Powershell Console Vs.上閃爍的鎖定鍵的延遲。 Powershell_ISE http://youtu.be/OnOmr50OBhs

I/Windows 7上

試過這對PowerShell的V3.0 4.0我用這個文本文件名-'temp1536.txt」在％temp％文件夾 的文件導入到二進制文件，然後相應地點亮領導。

$bytes = [Byte[]] (Get-Content $env:temp\temp1536.txt -Encoding Byte -ReadCount 0) | ForEach-Object {[System.Convert]::ToString($_,2)} 

Answer 1

這似乎是一些個人電腦的問題。 真的不明白爲什麼。但是我在一些電腦上正常工作。

Answer 2

我不能讓你的代碼工作（它從來沒有踏進if($byte[1] -eq '1')），但這裏是用keybd_event \ GetKeyState的Win32 API的作品在我的ISE和控制檯精緻的版本。摘自代碼here。

$Keyboard = @' 
using System.Runtime.InteropServices; 

namespace My 
{ 
    public class Keyboard 
    { 
     private const byte VK_SCROLL = 0x91; 
     private const byte VK_NUMLOCK = 0x90; 
     private const byte VK_CAPITAL = 0x14; 
     private const uint KEYEVENTF_KEYUP = 0x2; 

     [DllImport("user32.dll", EntryPoint = "keybd_event", SetLastError = true)] 
     static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, uint dwExtraInfo); 

     [DllImport("user32.dll", EntryPoint = "GetKeyState", SetLastError = true)] 
     static extern short GetKeyState(uint nVirtKey); 

     // SCROLLLOCK 
     public static void SetScrollLockKey(bool newState) 
     { 
      bool scrollLockSet = GetKeyState(VK_SCROLL) != 0; 
      if (scrollLockSet != newState) 
      { 
       keybd_event(VK_SCROLL, 0, 0, 0); 
       keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0); 
      } 
     } 
     public static bool GetScrollLockState() 
     { 
      return GetKeyState(VK_SCROLL) != 0; 
     } 

     // NUMLOCK 
     public static void SetNumLockKey(bool newState) 
     { 
      bool scrollLockSet = GetKeyState(VK_NUMLOCK) != 0; 
      if (scrollLockSet != newState) 
      { 
       keybd_event(VK_NUMLOCK, 0, 0, 0); 
       keybd_event(VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0); 
      } 
     } 

     public static bool GetNumLockState() 
     { 
      return GetKeyState(VK_NUMLOCK) != 0; 
     } 

     // CAPSLOCK 
     public static void SetCapsLockKey(bool newState) 
     { 
      bool scrollLockSet = GetKeyState(VK_NUMLOCK) != 0; 
      if (scrollLockSet != newState) 
      { 
       keybd_event(VK_CAPITAL, 0, 0, 0); 
       keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0); 
      } 
     } 

     public static bool GetCapsLockState() 
     { 
      return GetKeyState(VK_CAPITAL) != 0; 
     } 
    } 
} 
'@ 

Add-Type -TypeDefinition $Keyboard -ErrorAction Stop 

$Bytes = Get-Content -Path '.\led.txt' -Encoding Byte 

foreach ($byte in $Bytes) { 
    if($byte) 
    { 
     [My.Keyboard]::SetScrollLockKey($true) 
     [System.Threading.Thread]::Sleep(40) 
     [My.Keyboard]::SetScrollLockKey($false) 
    } 
    else 
    { 
     [My.Keyboard]::SetNumLockKey($true) 
     [System.Threading.Thread]::Sleep(40) 
     [My.Keyboard]::SetNumLockKey($false) 
    } 

    [My.Keyboard]::SetCapsLockKey($true) 
    [System.Threading.Thread]::Sleep(55) 

    [My.Keyboard]::SetNumLockKey($false) 
    [System.Threading.Thread]::Sleep(20) 
}