最近玩了个游戏,老登陆不上, 如果登不上按下回车就继续登,我自己写了个小程序,用SendMessage,和keybd_event都不行,估计是他做了防护错误,
procedure Delay(ms: longint);
var
FirstTickCount: real;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount - FirstTickCount) >= LongInt(ms));
end;procedure SendKey(Vkey: Longint);
begin
keybd_event(VKey, mapvirtualkey(VKey, 0), 0, 0);
Delay(18); //正常情况下用18
Application.ProcessMessages;
keybd_event(VKey, mapvirtualkey(VKey, 0), KEYEVENTF_KEYUP, 0);
Delay(18);
Application.ProcessMessages;
end;这是我代码,在其他方式下都可以,
现在只求驱动级的
procedure Delay(ms: longint);
var
FirstTickCount: real;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount - FirstTickCount) >= LongInt(ms));
end;procedure SendKey(Vkey: Longint);
begin
keybd_event(VKey, mapvirtualkey(VKey, 0), 0, 0);
Delay(18); //正常情况下用18
Application.ProcessMessages;
keybd_event(VKey, mapvirtualkey(VKey, 0), KEYEVENTF_KEYUP, 0);
Delay(18);
Application.ProcessMessages;
end;这是我代码,在其他方式下都可以,
现在只求驱动级的
解决方案 »
- richedit 字体问题 技术区发帖分数必须大于20分
- FASTREPORT问题!!!!!!!!高手解决!!!!!!!!!!跪请!!!!!!!!!
- 大虾帮忙啊,我在一个过程中在调用另一个事件(自带参数)的时候,参数怎么设置?谢谢
- 请问给位大侠帮个忙!!!(多分!想要多少分!就多少分呀)
- 怎么取Table的最后一条记录(在不移动Table记录的情况下)
- 多线程互斥变量不起作用????
- 谁在使DELPHI6中文版,上传几张屏幕截图好吗?让我们过过眼隐。
- 请问一个关于adoquery的更新问题
- 关于delphi的一些小问题,还望高手们多多帮助
- 求一个程序代码
- 赚分...
- 请问,怎样自动生成拼音码和五笔码?
柯南兄,想不到在这里也碰到你
谢谢柯南