16,747
社区成员
发帖
与我相关
我的任务
分享string 如何转换为 byte ?
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
以上功能可以模拟键盘按下并抬起 V 字符！
如果想循环执行一串字符串该如何操作？
例如
var
s:string;
s:= '1234';
如何利用开头代码循环模拟按下字符串S的全部内容？
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
以上功能可以模拟键盘按下并抬起 V 字符！
如果想循环执行一串字符串该如何操作？
例如
var
s:string;
s:= '1234';
如何利用开头代码循环模拟按下字符串S的全部内容？
...全文
请发表友善的回复…
发表回复
lwsxln 2011-10-08
- 打赏
- 举报
1楼正解
pathletboy 2011-10-06
- 打赏
- 举报
var
i: Integer;
for i := 1 to Length(s) do
begin
keybd_event(ord(s[i]), MapVirtualKey(ord(s[i]), 0), 0, 0);
keybd_event(ord(s[i]), MapVirtualKey(ord(s[i]), 0), KEYEVENTF_KEYUP, 0);
end;
i: Integer;
for i := 1 to Length(s) do
begin
keybd_event(ord(s[i]), MapVirtualKey(ord(s[i]), 0), 0, 0);
keybd_event(ord(s[i]), MapVirtualKey(ord(s[i]), 0), KEYEVENTF_KEYUP, 0);
end;
ADSLAN 2011-10-06
- 打赏
- 举报
1楼方法好
