远程控制篇：用Delphi模拟键盘输入/鼠标点击

模拟鼠标点击
SendMessage(h, WM_LBUTTONDown, 1, 1);
SendMessage(h, WM_LBUTTONUP, 1, 1);
点击是一次按下和一次抬起组成的！
对鼠标的消息参数为：
SendMessage(h, WM_LBUTTONDown, X坐标, Y坐标);

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

var
    x,y:integer;
begin
x:=form1.Left+webbrowser1.Left+570;
y:=form1.Top+webbrowser1.Top+210;
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PostMessage(Button2.Handle,WM_LBUTTONDOWN,0,(y shl 16)+x);
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PostMessage(Button2.Handle,WM_LBUTTONUP,0,(y shl 16)+x);
end;

◇[DELPHI]发送虚拟键值ctrl V
procedure sendpaste;
begin
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord(‘V‘), MapVirtualKey(ord(‘V‘), 0), 0, 0);
keybd_event(ord(‘V‘), MapVirtualKey(ord(‘V‘), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
end;