procedure TForm6.Button79Click(Sender: TObject);
begin
setCursorPos(900,620) ; //点输入密码处
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//模拟放开鼠标左键。
SendVirtualKey('Zhyl@123',True);//SendVirtualKey 为私有过程，一般要写在调用过程的上面 此为重点 一开始把这条命令复制到别的地方用不了
Sleep(600);
end;
procedure SendVirtualKey(const AText: string; const AIsEnter: Boolean);
var
Input: TInput;
I: Integer;
begin
for I := 1 to Length(AText) do
begin
Input.Itype := INPUT_KEYBOARD;
Input.ki.wVk := 0;
Input.ki.wScan := Ord(AText[I]);
Input.ki.dwFlags := KEYEVENTF_UNICODE;
Input.ki.time := 0;
Input.ki.dwExtraInfo := GetMessageExtraInfo;
SendInput(1, Input, SizeOf(TInput));
Input.ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
SendInput(1, Input, SizeOf(TInput));
end;
if AIsEnter then
begin
// 发送Enter键
Input.Itype := INPUT_KEYBOARD;
Input.ki.wVk := VK_RETURN;
Input.ki.wScan := 0;
Input.ki.dwFlags := 0;
Input.ki.time := 0;
Input.ki.dwExtraInfo := GetMessageExtraInfo;
SendInput(1, Input, SizeOf(TInput));
Input.ki.dwFlags := KEYEVENTF_KEYUP;
SendInput(1, Input, SizeOf(TInput));
end;
end;
