mouse_event
sendmessage
之类的就免了吧
sendmessage
之类的就免了吧
解决方案 »
- filelistbox只显示最近一个月的文件 delphi
- 请问如何计算两个已知日期时间之间相差多少小时多少分钟?
- 请教关于子类和子类实例创建的问题
- 如何移位呀?大家帮忙!!!
- 为什么报表无法求和?
- 各位老哥:怎么样才能在windows任意目录下创建自己的新文件夹?
- 在DELPHI中怎样把一张表中输入的记录转化为另一张数据表的字段
- i am anxious!!!!如何获取com+形式的dll文件的路径?
- 我想执行按下END键,如何写这句CODE!
- 请问这样的处理究竟有什么作用?为什么要这么做呀?
- delphi访问webservice关于array of WideString类型调用的问题,请帮忙解决谢谢
- 我做的一个阴影控件,我把它拖到FORM时,在屏幕的左上角上也显示这个控件?
sendmessage
之类的就免了吧===================
设计个机器人出来吧
鼠标键盘 都是windows默认的驱动。
begin
asm
//无论向0x60,还是0x64写东西前都要等状态寄存器OBF变0
@Loop1:
in al, $64
and al, 10b
jnz @Loop1
//向$64端口写命令
mov al, $D2//写键盘输出缓存命令
out $64, al //无论向0x60,还是0x64写东西前都要等状态寄存器OBF变0
@Loop2:
in al, $64
and al, 10b
jnz @Loop2
//向$60端口写参数
mov al, SCanCode
out $60, al
end;
end;模拟非扩展键:
SetKey($1F);//make codes
Sleep(25);
SetKey($9F);//break code模拟扩展键:
SetKey($E0);//因为这是一个扩展键
SetKey($4B);//make codes
Sleep(25);
SetKey($E0);//因为这是一个扩展键
SetKey($CB);//break code模拟鼠标的类似
SetKey(0x09);//左键按下
SetKey(0x00);
SetKey(0x00);
SetKey(0x00);
SetKey(0x08);//左键放开
SetKey(0x00);
SetKey(0x00);
SetKey(0x00);
当然,你需要IP端口访问权限~
一般通过驱动支持来实现