MyException - 我的异常网
当前位置:我的异常网» C++ Builder » 所有家当求BCB模拟键盘鼠标操作,该如何处理

所有家当求BCB模拟键盘鼠标操作,该如何处理

www.MyException.Cn  网友分享于:2013-02-08  浏览:111次
所有家当求BCB模拟键盘鼠标操作
还是模拟键盘A/F1/1/2/3按下以及鼠标点击的方法,已经可以确定,程序接受SendMessage/PostMessage的模拟操作(在VB中用SendMessage/PostMessage成功了),至于那个BCB中嵌套汇编的就先放一放,把这个先给解决了吧...
我不想因为无法模拟键盘鼠标操作而转去其他开发语言啊。。。

------解决方案--------------------
模拟按键可以用keybd_event函数,模拟鼠标可以用mouse_event函数。
另外有个SendInput函数,可以完成上面2种功能。msdn说,在NT系统下,推荐使用这个函数。
------解决方案--------------------
SendMessage() 就可以,不成功多数是HWND不正确

你可以先用`记事本`做测试看看是否可以模拟打字
------解决方案--------------------
unit sndkey32;

interface

Uses SysUtils, Windows, Messages;

Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
function AppActivate(WindowName : PChar) : boolean;

{Buffer for working with PChar 's}

const
WorkBufLen = 40;
var
WorkBuf : array[0..WorkBufLen] of Char;

implementation
type
THKeys = array[0..pred(MaxLongInt)] of byte;
var
AllocationSize : integer;

(*
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: 'BACKSPACE '; VKey:VK_BACK),
(Name: 'BKSP '; VKey:VK_BACK),
(Name: 'BREAK '; VKey:VK_CANCEL),
(Name: 'BS '; VKey:VK_BACK),
(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),

文章评论

我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
旅行,写作,编程
旅行,写作,编程
代码女神横空出世
代码女神横空出世
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
Java程序员必看电影
Java程序员必看电影
10个调试和排错的小建议
10个调试和排错的小建议
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
我的丈夫是个程序员
我的丈夫是个程序员
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
总结2014中国互联网十大段子
总结2014中国互联网十大段子
漫画:程序员的工作
漫画:程序员的工作
程序员都该阅读的书
程序员都该阅读的书
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
鲜为人知的编程真相
鲜为人知的编程真相
一个程序员的时间管理
一个程序员的时间管理
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
 程序员的样子
程序员的样子
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
为什么程序员都是夜猫子
为什么程序员都是夜猫子
程序员和编码员之间的区别
程序员和编码员之间的区别
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
如何成为一名黑客
如何成为一名黑客
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
那些争议最大的编程观点
那些争议最大的编程观点
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
编程语言是女人
编程语言是女人
程序员必看的十大电影
程序员必看的十大电影
程序员的鄙视链
程序员的鄙视链
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员应该关注的一些事儿
程序员应该关注的一些事儿
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
我是如何打败拖延症的
我是如何打败拖延症的
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有