如何实现sendkeys(100分)

shrw · 1999-06-07

postmessage我试过了，不行。 我的意思是：比如按下button1,则自动运行计算器，然后发送"1+5="键， 计算器会计算出结果。 请将程序写出来。

tqz · 1999-06-07

请看你的另一问题

yifeng · 1999-06-07

Example: Sending Keystrokes/Text to a Window...   unit Unit1; interface uses   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,   Forms, Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormKeyPress(Sender: TObject; var Key: Char);   private     AppInst: THandle;     AppWind: THandle;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} uses ShellAPI;   procedure SendShift(H: HWnd; Down: Boolean); var vKey, ScanCode, wParam: Word;     lParam: longint; begin   vKey:= $10;   ScanCode:= MapVirtualKey(vKey, 0);   wParam:= vKey or ScanCode shl 8;   lParam:= longint(ScanCode) shl 16 or 1;   if not(Down) then lParam:= lParam or $C0000000;   SendMessage(H, WM_KEYDOWN, vKey, lParam); end; procedure SendCtrl(H: HWnd; Down: Boolean); var vKey, ScanCode, wParam: Word;     lParam: longint; begin   vKey:= $11;   ScanCode:= MapVirtualKey(vKey, 0);   wParam:= vKey or ScanCode shl 8;   lParam:= longint(ScanCode) shl 16 or 1;   if not(Down) then lParam:= lParam or $C0000000;   SendMessage(H, WM_KEYDOWN, vKey, lParam); end; procedure SendKey(H: Hwnd; Key: char); var vKey, ScanCode, wParam: Word;     lParam, ConvKey: longint;     Shift, Ctrl: boolean; begin   ConvKey:= OemKeyScan(ord(Key));   Shift:= (ConvKey and $00020000) <> 0;   Ctrl:= (ConvKey and $00040000) <> 0;   ScanCode:= ConvKey and $000000FF or $FF00;   vKey:= ord(Key);   wParam:= vKey;   lParam:= longint(ScanCode) shl 16 or 1;   if Shift then SendShift(H, true);   if Ctrl then SendCtrl(H, true);   SendMessage(H, WM_KEYDOWN, vKey, lParam);   SendMessage(H, WM_CHAR, vKey, lParam);   lParam:= lParam or $C0000000;   SendMessage(H, WM_KEYUP, vKey, lParam);   if Shift then SendShift(H, false);   if Ctrl then SendCtrl(H, false); end; function EnumFunc(Handle: HWnd; TF: TForm1): Bool; Far; begin   TF.AppWind:= 0;   if GetWindowWord(Handle, GWW_HINSTANCE) = TF.AppInst then     TF.AppWind:= Handle;   result:= (TF.AppWind = 0); end; procedure TForm1.Button1Click(Sender: TObject); var Text: Array[0..255] of char; begin   AppInst:= ShellExecute(Handle, 'open', 'notepad.exe', nil, '', SW_NORMAL);   EnumWindows(@EnumFunc, longint(self));   AppWind:= GetWindow(AppWind, GW_CHILD); end; procedure TForm1.Button2Click(Sender: TObject); begin   SendKey(AppWind, 'T');   SendKey(AppWind, 'e');   SendKey(AppWind, 's');   SendKey(AppWind, 't'); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin   if AppWind <> 0 then SendKey(AppWind, Key); end; end. 你的程序只要找到那个hwnd就可以了 可以利用findwindow/findwindowex........

D4 · 1999-06-07

简单让WIN95 模拟按了一个按键，例如按下 ENTER或者 TAB 键? 不信试试 PostMessage(Object.Handle, WM_KEYDOWN, VK_TAB, 0);

redforks · 1999-06-24

在Delphi光盘里就有! {Written by Ken Henderson} (* Converts a string of characters and key names to keyboard events and passes them to Windows. Example syntax: SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True); *) Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean; type   WBytes = array[0..pred(SizeOf(Word))] of Byte;   TSendKey = record     Name : ShortString;     VKey : Byte;   end; const   {Array of keys that SendKeys recognizes.   If you add to this list, you must be sure to keep it sorted alphabetically   by Name because a binary search routine is used to scan it.}   MaxSendKeyRecs = 41;   SendKeyRecs : array[1..MaxSendKeyRecs] of TSendKey =   (    (Name:'BKSP';            VKey:VK_BACK),    (Name:'BS';              VKey:VK_BACK),    (Name:'BACKSPACE';       VKey:VK_BACK),    (Name:'BREAK';           VKey:VK_CANCEL),    (Name:'CAPSLOCK';        VKey:VK_CAPITAL),    (Name:'CLEAR';           VKey:VK_CLEAR),    (Name:'DEL';             VKey:VK_DELETE),    (Name:'DELETE';          VKey:VK_DELETE),    (Name:'DOWN';            VKey:VK_DOWN),    (Name:'END';             VKey:VK_END),    (Name:'ENTER';           VKey:VK_RETURN),    (Name:'ESC';             VKey:VK_ESCAPE),    (Name:'ESCAPE';          VKey:VK_ESCAPE),    (Name:'F1';              VKey:VK_F1),    (Name:'F10';             VKey:VK_F10),    (Name:'F11';             VKey:VK_F11),    (Name:'F12';             VKey:VK_F12),    (Name:'F13';             VKey:VK_F13),    (Name:'F14';             VKey:VK_F14),    (Name:'F15';             VKey:VK_F15),    (Name:'F16';             VKey:VK_F16),    (Name:'F2';              VKey:VK_F2),    (Name:'F3';              VKey:VK_F3),    (Name:'F4';              VKey:VK_F4),    (Name:'F5';              VKey:VK_F5),    (Name:'F6';              VKey:VK_F6),    (Name:'F7';              VKey:VK_F7),    (Name:'F8';              VKey:VK_F8),    (Name:'F9';              VKey:VK_F9),    (Name:'HELP';            VKey:VK_HELP),    (Name:'HOME';            VKey:VK_HOME),    (Name:'INS';             VKey:VK_INSERT),    (Name:'LEFT';            VKey:VK_LEFT),    (Name:'NUMLOCK';         VKey:VK_NUMLOCK),    (Name:'PGDN';            VKey:VK_NEXT),    (Name:'PGUP';            VKey:VK_PRIOR),    (Name:'PRTSC';           VKey:VK_PRINT),    (Name:'RIGHT';           VKey:VK_RIGHT),    (Name:'SCROLLLOCK';      VKey:VK_SCROLL),    (Name:'TAB';             VKey:VK_TAB),    (Name:'UP';              VKey:VK_UP)   );   {Extra VK constants missing from Delphi's Windows API interface}   VK_NULL=0;   VK_SemiColon=186;   VK_Equal=187;   VK_Comma=188;   VK_Minus=189;   VK_Period=190;   VK_Slash=191;   VK_BackQuote=192;   VK_LeftBracket=219;   VK_BackSlash=220;   VK_RightBracket=221;   VK_Quote=222;   VK_Last=VK_Quote;   ExtendedVKeys : set of byte =   [VK_Up,    VK_Down,    VK_Left,    VK_Right,    VK_Home,    VK_End,    VK_Prior,  {PgUp}    VK_Next,   {PgDn}    VK_Insert,    VK_Delete]; const   INVALIDKEY = $FFFF {Unsigned -1};   VKKEYSCANSHIFTON = $01;   VKKEYSCANCTRLON = $02;   VKKEYSCANALTON = $04;   UNITNAME = 'SendKeys'; var   UsingParens, ShiftDown, ControlDown, AltDown, FoundClose : Boolean;   PosSpace : Byte;   I, L : Integer;   NumTimes, MKey : Word;   KeyString : String[20]; procedure DisplayMessage(Message : PChar); begin   MessageBox(0,Message,UNITNAME,0); end; function BitSet(BitTable, BitMask : Byte) : Boolean; begin   Result:=ByteBool(BitTable and BitMask); end; procedure SetBit(var BitTable : Byte; BitMask : Byte); begin   BitTable:=BitTable or Bitmask; end; Procedure KeyboardEvent(VKey, ScanCode : Byte; Flags : Longint); var   KeyboardMsg : TMsg; begin   keybd_event(VKey, ScanCode, Flags,0);   If (Wait) then While (PeekMessage(KeyboardMsg,0,WM_KEYFIRST, WM_KEYLAST, PM_REMOVE)) do begin     TranslateMessage(KeyboardMsg);     DispatchMessage(KeyboardMsg);   end; end; Procedure SendKeyDown(VKey: Byte; NumTimes : Word; GenUpMsg : Boolean); var   Cnt : Word;   ScanCode : Byte;   NumState : Boolean;   KeyBoardState : TKeyboardState; begin   If (VKey=VK_NUMLOCK) then begin     NumState:=ByteBool(GetKeyState(VK_NUMLOCK) and 1);     GetKeyBoardState(KeyBoardState);     If NumState then KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] and not 1)     else KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] or 1);     SetKeyBoardState(KeyBoardState);     exit;   end;   ScanCode:=Lo(MapVirtualKey(VKey,0));   For Cnt:=1 to NumTimes do     If (VKey in ExtendedVKeys)then begin       KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY);       If (GenUpMsg) then         KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)     end else begin       KeyboardEvent(VKey, ScanCode, 0);       If (GenUpMsg) then KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);     end; end; Procedure SendKeyUp(VKey: Byte); var   ScanCode : Byte; begin   ScanCode:=Lo(MapVirtualKey(VKey,0));   If (VKey in ExtendedVKeys)then     KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY and KEYEVENTF_KEYUP)   else KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP); end; Procedure SendKey(MKey: Word; NumTimes : Word; GenDownMsg : Boolean); begin   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyDown(VK_SHIFT,1,False);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyDown(VK_CONTROL,1,False);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyDown(VK_MENU,1,False);   SendKeyDown(Lo(MKey), NumTimes, GenDownMsg);   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyUp(VK_SHIFT);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyUp(VK_CONTROL);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyUp(VK_MENU); end; {Implements a simple binary search to locate special key name strings} Function StringToVKey(KeyString : ShortString) : Word; var   Found, Collided : Boolean;   Bottom, Top, Middle : Byte; begin   Result:=INVALIDKEY;   Bottom:=1;   Top:=MaxSendKeyRecs;   Found:=false;   Middle:=(Bottom+Top) div 2;   Repeat     Collided:=((Bottom=Middle) or (Top=Middle));     If (KeyString=SendKeyRecs[Middle].Name) then begin        Found:=True;        Result:=SendKeyRecs[Middle].VKey;     end else begin        If (KeyString>SendKeyRecs[Middle].Name) then Bottom:=Middle        else Top:=Middle;        Middle:=(Succ(Bottom+Top)) div 2;     end;   Until (Found or Collided);   If (Result=INVALIDKEY) then DisplayMessage('Invalid Key Name'); end; procedure PopUpShiftKeys; begin   If (not UsingParens) then begin     If ShiftDown then SendKeyUp(VK_SHIFT);     If ControlDown then SendKeyUp(VK_CONTROL);     If AltDown then SendKeyUp(VK_MENU);     ShiftDown:=false;     ControlDown:=false;     AltDown:=false;   end; end; begin   AllocationSize:=MaxInt;   Result:=false;   UsingParens:=false;   ShiftDown:=false;   ControlDown:=false;   AltDown:=false;   I:=0;   L:=StrLen(SendKeysString);   If (L>AllocationSize) then L:=AllocationSize;   If (L=0) then Exit;   While (I<L) do begin     case SendKeysString of     '(' : begin             UsingParens:=True;             Inc(I);           end;     ')' : begin             UsingParens:=False;             PopUpShiftKeys;             Inc(I);           end;     '%' : begin              AltDown:=True;              SendKeyDown(VK_MENU,1,False);              Inc(I);           end;     '+' :  begin              ShiftDown:=True;              SendKeyDown(VK_SHIFT,1,False);              Inc(I);            end;     '^' :  begin              ControlDown:=True;              SendKeyDown(VK_CONTROL,1,False);              Inc(I);            end;     '{' : begin             NumTimes:=1;             If (SendKeysString[Succ(I)]='{') then begin               MKey:=VK_LEFTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I,3);               Continue;             end;             KeyString:='';             FoundClose:=False;             While (I<=L) do begin               Inc(I);               If (SendKeysString='}') then begin                 FoundClose:=True;                 Inc(I);                 Break;               end;               KeyString:=KeyString+Upcase(SendKeysString);             end;             If (Not FoundClose) then begin                DisplayMessage('No Close');                Exit;             end;             If (SendKeysString='}') then begin               MKey:=VK_RIGHTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I);               Continue;             end;             PosSpace:=Pos(' ',KeyString);             If (PosSpace<>0) then begin                NumTimes:=StrToInt(Copy(KeyString,Succ(PosSpace),Length(KeyString)-PosSpace));                KeyString:=Copy(KeyString,1,Pred(PosSpace));             end;             If (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])             else MKey:=StringToVKey(KeyString);             If (MKey<>INVALIDKEY) then begin               SendKey(MKey,NumTimes,True);               PopUpShiftKeys;               Continue;             end;           end;     '~' : begin             SendKeyDown(VK_RETURN,1,True);             PopUpShiftKeys;             Inc(I);           end;     else  begin              MKey:=vkKeyScan(SendKeysString);              If (MKey<>INVALIDKEY) then begin                SendKey(MKey,1,True);                PopUpShiftKeys;              end else DisplayMessage('Invalid KeyName');              Inc(I);           end;     end;   end;   Result:=true;   PopUpShiftKeys; end;

Calvin · 1999-06-30

unit Main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ShellAPI; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; procedure SimulateKeyDown(Key : byte); procedure SimulateKeyUp(Key : byte); procedure SimulateKeystroke(Key : byte;extra : DWORD); procedure SendKeys(s : string); var   Form1: TForm1; implementation {$R *.DFM} procedure SimulateKeyDown(Key : byte); begin   keybd_event(Key, 0, 0, 0); end; procedure SimulateKeyUp(Key : byte); begin   keybd_event(Key, 0, KEYEVENTF_KEYUP, 0); end; procedure SimulateKeystroke(Key : byte;extra : DWORD); begin   keybd_event(Key,extra,0,0);   keybd_event(Key,extra,KEYEVENTF_KEYUP,0); end; procedure SendKeys(s : string); var   i : integer;   flag : bool;   w : word; begin   {获取Caps Lock的状态}   flag := not GetKeyState(VK_CAPITAL) and 1 = 0;   {如果Caps Lock按下则把它关掉}   if flag then     SimulateKeystroke(VK_CAPITAL, 0);   for i := 1 to Length(s) do   begin     w := VkKeyScan(s);     if ((HiByte(w) <> $FF) and (LoByte(w) <> $FF)) then     begin       {如果需要，则把Shift键按下}       if HiByte(w) and 1 = 1 then         SimulateKeyDown(VK_SHIFT);       SimulateKeystroke(LoByte(w), 0);       {如果前面把 Shift 键按下，则复位}       if HiByte(w) and 1 = 1 then         SimulateKeyUp(VK_SHIFT);     end;   end;   {如果Caps Lock 键开始时是按下，则把它设回原样}   if flag then     SimulateKeystroke(VK_CAPITAL, 0); end; procedure TForm1.Button1Click(Sender: TObject); var   CalcHandle:THandle; begin   ShellExecute(Handle,'open','Calc.exe','','C:/windows',SW_NORMAL);   Application.ProcessMessages;   CalcHandle:=FindWindow(PChar(0),PChar('计算器'));   Sleep(100);   {Sleep的时间要比运行程序 - 计算器的启动时间要大}   SetForeGroundWindow(CalcHandle);   SendKeys('1+5='); end; end.

shrw · 1999-08-24

有控件

www · 1999-08-24

给你发个控件吧

shrw · 1999-08-24

接受答案了.

如何实现sendkeys(100分)

shrw

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

yifeng

Unregistered / Unconfirmed

D4

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

Calvin

Unregistered / Unconfirmed

shrw

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

shrw

Unregistered / Unconfirmed

Similar threads