怎么模拟右Ctrl键？(100分)

Buder · 2003-05-04

“修改HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/i8042prt/Parameters÷CrashOnCtrlScroll”的键值改为 1（0 是关闭此项功能）。重启后按住键盘右面的 Ctrl，然后再按下 Scroll lock 键两次，这样蓝屏就出现了。” 我想模拟上面的按键过程，但我没办法模拟右Ctrl键！ 用  keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0),0, 0);        keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0), 0, 0);        keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0), KEYEVENTF_KEYUP, 0);        keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0), 0, 0);        keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0), KEYEVENTF_KEYUP, 0);        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0),KEYEVENTF_KEYUP,0); 没有，应该是VK_CTRL不区分左右的问题！ 我该怎么模拟右CTRL键呢？

cwmdelpher · 2003-05-04

下面是一个模拟按键的单元，你可以分析一下！ 主要部分是Keybd_Event函数的使用！ {****************************************************} {              SendKeys Unit for Delphi 32           } {    Copyright (c) 1999 by Borut Batagelj (Slovenia) } {                       Aleksey Kuznetsov (Ukraine)  } {            Home Page: www.utilmind.com             } {            E-Mail: info@utilmind.com               } {****************************************************} unit SendKeys; interface uses   Windows, SysUtils; const   SK_BKSP = #8;   SK_TAB = #9;   SK_ENTER = #13;   SK_ESC = #27;   SK_ADD = #107;   SK_SUB = #109;   SK_F1 = #228;   SK_F2 = #229;   SK_F3 = #230;   SK_F4 = #231;   SK_F5 = #232;   SK_F6 = #233;   SK_F7 = #234;   SK_F8 = #235;   SK_F9 = #236;   SK_F10 = #237;   SK_F11 = #238;   SK_F12 = #239;   SK_HOME = #240;   SK_END = #241;   SK_UP = #242;   SK_DOWN = #243;   SK_LEFT = #244;   SK_RIGHT = #245;   SK_PGUP = #246;   SK_PGDN = #247;   SK_INS = #248;   SK_DEL = #249;   SK_SHIFT_DN = #250;   SK_SHIFT_UP = #251;   SK_CTRL_DN = #252;   SK_CTRL_UP = #253;   SK_ALT_DN = #254;   SK_ALT_UP = #255; procedure SendKeyString(Text: String); implementation procedure SendKeyString(Text: String); var    i: Integer;    Shift: Boolean;    vk, ScanCode: Word;    ch: Char;    c, s: Byte; const    vk_keys: Array[0..9] of Byte =       (VK_HOME, VK_END, VK_UP, VK_DOWN, VK_LEFT,        VK_RIGHT, VK_PRIOR, VK_NEXT, VK_INSERT, VK_DELETE);    vk_shft: Array[0..2] of Byte = (VK_SHIFT, VK_CONTROL, VK_MENU);    flags: Array[False..True] of Integer = (KEYEVENTF_KEYUP, 0); begin    Shift := False;    for i := 1 to Length(Text) do     begin      ch := Text;      if ch >= #250 then       begin        s := Ord(ch) - 250;        Shift := not Odd(s);        c := vk_shft[s shr 1];        ScanCode := MapVirtualKey(c,0);        Keybd_Event(c, Scancode, Flags[shift], 0);       end      else       begin        vk := 0;        if ch >= #240 then         c := vk_keys[Ord(ch) - 240]        else         if ch >= #228 then {228 (F1) => $70 (vk_F1)}          c := Ord(ch) - 116         else          if ch < #110 then           c := Ord(ch)          else           begin            vk := VkKeyScan(ch);            c := LoByte(vk);           end;        ScanCode := MapVirtualKey(c,0);        if not Shift and (Hi(vk) > 0) then { $2A = scancode of VK_SHIFT }         Keybd_Event(VK_SHIFT, $2A, 0, 0);        Keybd_Event(c,scancode, 0, 0);        Keybd_Event(c,scancode, KEYEVENTF_KEYUP, 0);        if not Shift and (Hi(vk) > 0) then         Keybd_Event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);       end;     end; end; end.

quejian · 2003-05-04

老兄，CTRL是可以分左右的 左：VK_LCONTROL 右：VK_RCONTROL

quejian · 2003-05-04

procedure PressKey(VKey: Byte); begin   Keybd_event(VKey, 0, 0, 0);   Keybd_event(VKey, 0, KEYEVENTF_KEYUP, 0); end; 然后再调用 PressKey(VK_LCONTROL);//模拟左CTRL PressKey(VK_RCONTROL);//模拟右CTRL

edren · 2003-05-04

Buder · 2003-05-05

不行的，看windows.pas { VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.   Used only as parameters to GetAsyncKeyState() and GetKeyState().   No other API or message will distinguish left and right keys in this way. }

怎么模拟右Ctrl键？(100分)

Buder

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

quejian

Unregistered / Unconfirmed

quejian

Unregistered / Unconfirmed

edren

Unregistered / Unconfirmed

Buder

Unregistered / Unconfirmed

Similar threads