delphi dll中模拟按键输入

2018-08-22 11:31:14 310 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Laravel 结合 jwt-auth 实现无状态 API 认证（实战解析）本文详细解析了如何在Laravel框架中结合jwt-auth实现无状态API认证，包括JWT的优势、环境搭建、Token签发与刷新、API路由保护等实战内容。通过具体代码示例和优化技巧，帮助开发者高效解决跨域认证问题，提升系统安全性。阅读详情

下面这段代码在程序里运行是通过的。但我想把这段代码转移到DLL动态链接库中去，但不知如何实现。请各位高手予以指点。
procedure KeybdEnten(G:String); //模拟键盘输入过程
begin
With form1 Do
begin
If G='0' Then
Begin
keybd_event($60,0,0,0);
keybd_event($60,0,KEYEVENTF_KEYUP,0);
End;
If G='1' Then
Begin
keybd_event($61,0,0,0);
keybd_event($61,0,KEYEVENTF_KEYUP,0);
End;
If G='2' Then
Begin
keybd_event($62,0,0,0);
keybd_event($62,0,KEYEVENTF_KEYUP,0);
End;
If G='3' Then
Begin
keybd_event($63,0,0,0);
keybd_event($63,0,KEYEVENTF_KEYUP,0);
End;
If G='4' Then
Begin
keybd_event($64,0,0,0);
keybd_event($64,0,KEYEVENTF_KEYUP,0);
End;
If G='5' Then
Begin
keybd_event($65,0,0,0);
keybd_event($65,0,KEYEVENTF_KEYUP,0);
End;
If G='6' Then
Begin
keybd_event($66,0,0,0);
keybd_event($66,0,KEYEVENTF_KEYUP,0);
End;
If G='7' Then
Begin
keybd_event($67,0,0,0);
keybd_event($67,0,KEYEVENTF_KEYUP,0);
End;
If G='8' Then
Begin
keybd_event($68,0,0,0);
keybd_event($68,0,KEYEVENTF_KEYUP,0);
End;
If G='9' Then
Begin
keybd_event($69,0,0,0);
keybd_event($69,0,KEYEVENTF_KEYUP,0);
End;
If G='13' Then
Begin
keybd_event(vk_return,0,0,0);
keybd_event(vk_return,0,KEYEVENTF_KEYUP,0); //模拟键盘输入“回车”
End;
Sleep(30);
End;
end;

...全文

实战测评：4大搜索API（You.com/Tavily/Exa/Perplexity）谁更适合你的AI项目？附Python调用代码本文实战测评了You.com、Tavily、Exa和Perplexity四大搜索API在AI项目中的集成应用，详细对比了它们的技术特性和Python调用方法。针对LLM实时数据需求，You.com的优化设计表现突出，支持32k大上下文窗口和快速响应。文章提供了完整的代码示例和场景化选型建议，帮助开发者高效集成搜索API到AI项目中。阅读详情

hdc733

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

hdc733 2018-08-23

打赏
举报

后面改过来了。但还是有问题。慢慢找吧。非常感谢。

日立奔腾浪潮微软松下联想 2018-08-23

打赏
举报

你没有写导出啊，应该是基础语法不熟悉的问题：
library KeyEnt;
uses WinApi.Windows;

procedure KeydbEnt(G:string); stdcall;
begin
if G<>'' then
begin
If G='0' Then
Begin
keybd_event($60,0,0,0);
keybd_event($60,0,KEYEVENTF_KEYUP,0);
End;
Begin
keybd_event($60,0,0,0);
keybd_event($60,0,KEYEVENTF_KEYUP,0);
End;
Sleep(30);
end;
end;

exports
KeydbEnt;

end.

hdc733 2018-08-22

打赏
举报

之前已经这样写了。但编译不通过。
library KeyEnt;

uses
System.SysUtils,
System.Classes;

{$R *.res}

function KeydbEnt(G:string):stdcall; ////模拟键盘输入过程
begin
if G<>'' then
begin
If G='0' Then
Begin
keybd_event($60,0,0,0);
keybd_event($60,0,KEYEVENTF_KEYUP,0);
End;
//省略
If G='13' Then
Begin
keybd_event(vk_return,0,0,0);
keybd_event(vk_return,0,KEYEVENTF_KEYUP,0); //模拟键盘输入“回车”
End;
Sleep(30);
end;
end;

begin
end.

错误显示：E2003 Undedared identifier;'stdcall'
E2003 Undedared identifier;'keybd_event'
等

日立奔腾浪潮微软松下联想 2018-08-22

打赏
举报

With form1 Do // 删掉
begin // 删掉
// 这之间的保留
End; // 删掉
end;

hdc733 2018-08-22

打赏
举报

library KeyEnt;

uses
System.SysUtils,
System.Classes;

{$R *.res}

procedure KeydbEnt(G:string):stdcall; ////模拟键盘输入过程
begin
if G<>'' then
begin
If G='0' Then
Begin
keybd_event($60,0,0,0);
keybd_event($60,0,KEYEVENTF_KEYUP,0);
End;
Begin
keybd_event($60,0,0,0);
keybd_event($60,0,KEYEVENTF_KEYUP,0);
End;
Sleep(30);
end;
end;
begin
end.

在程序中声明
implementation
procedure KeydbEnt(G:string);external 'mnaj.dll';

并在过程调用
KeydbEnt(S);

运行显示“无法定位程序输入点KeydbEnt于动态链接库...”

日立奔腾浪潮微软松下联想 2018-08-22

打赏
举报

其他代码的问题

hdc733 2018-08-22

打赏
举报

编译是成功了。但调用就出错。总是显示程序关闭。还需要继续指导。

日立奔腾浪潮微软松下联想 2018-08-22

打赏
举报

DLL中一样写procedure，function需要有返回值：
function KeydbEnt(G:string): integer; stdcall;
begin
// ...
Result := 0;
end;

hdc733 2018-08-22

打赏
举报

引用 3 楼 DelphiGuy 的回复:

本来是procedure，为什么改成function，function要有返回值。

因为每次都需要输入若干号码。我想把它转移到Dll库中，不同程序直接调用。

日立奔腾浪潮微软松下联想 2018-08-22

打赏
举报

本来是procedure，为什么改成function，function要有返回值。

日立奔腾浪潮微软松下联想 2018-08-22

打赏
举报

keybd_event需要uses WinApi.Windows;

delphi dll中模拟按键输入

相关推荐