usb键鼠模拟驱动源码虚拟键鼠二次开发源码

pttderen

  

var
Form1: TForm1;
myhandle:HANDLE;
procedure SetHandle (myhandle:HANDLE);cdecl;external ' kmclassdll.dll';
procedure myKeyDown ( VirtualKey:USHORT);cdecl;external ' kmclassdll.dll' name 'KeyDown';
procedure myKeyUp ( VirtualKey:USHORT);cdecl;external ' kmclassdll.dll' name 'KeyUp';
procedure MouseLeftButtonDown ();cdecl;external ' kmclassdll.dll';
procedure MouseLeftButtonUp ();cdecl;external ' kmclassdll.dll';
procedure MouseRightButtonDown ();cdecl;external ' kmclassdll.dll';
procedure MouseRightButtonUp ();cdecl;external ' kmclassdll.dll';
procedure MouseMiddleButtonDown ();cdecl;external ' kmclassdll.dll';
procedure MouseMiddleButtonUp ();cdecl;external ' kmclassdll.dll';
procedure MouseMoveRELATIVE ( dx:LONG; dy:LONG);cdecl;external ' kmclassdll.dll';
procedure MouseMoveABSOLUTE ( dx:LONG; dy:LONG);cdecl;external ' kmclassdll.dll';
function  LoadNTDriver (lpszDriverName:PChar;lpszDriverPath:PChar):integer;cdecl;external ' kmclassdll.dll';
function  UnloadNTDriver ( szSvrName:PChar ):integer;cdecl;external ' kmclassdll.dll';
implementation

var<br />   Form1: TForm1;<br />   myhandle:HANDLE;<br />   procedure SetHandle(myhandle:HANDLE);cdecl;external 'kmclassdll.dll';<br />   procedure myKeyDown( VirtualKey:USHORT);cdecl;external 'kmclassdll.dll' name 'KeyDown';<br />   procedure myKeyUp( VirtualKey:USHORT);cdecl;external 'kmclassdll.dll' name 'KeyUp';<br />   procedure MouseLeftButtonDown();cdecl;external 'kmclassdll.dll';<br />   procedure MouseLeftButtonUp();cdecl;external 'kmclassdll.dll';<br />   procedure MouseRightButtonDown();cdecl;external 'kmclassdll.dll';<br />   procedure MouseRightButtonUp();cdecl;external 'kmclassdll.dll';<br />   procedure MouseMiddleButtonDown();cdecl;external 'kmclassdll.dll';<br />   procedure MouseMiddleButtonUp();cdecl;external 'kmclassdll.dll';<br />   procedure MouseMoveRELATIVE( dx:LONG; dy:LONG);cdecl;external 'kmclassdll.dll';<br />   procedure MouseMoveABSOLUTE( dx:LONG; dy:LONG);cdecl;external 'kmclassdll.dll';<br />   function  LoadNTDriver(lpszDriverName:PChar;lpszDriverPath:PChar):integer;cdecl;external 'kmclassdll.dll';<br />   function  UnloadNTDriver( szSvrName:PChar ):integer;cdecl;external 'kmclassdll.dll';<br /> implementation

这个是调用的dll公开命令，已经编译好，易语言可直接调用（dll编译环境为vs2005或vs2019）


测试exe需要系统进入测试模式或自己给驱动签证
管理员权限打开cmd
bcdedit /set nointegritychecks on
bcdedit /set testsigning on
shutdown  -r -t 0


delphi写了例子。


运用场景就不多说了，win7亲测可用，dxf脚本之类，usb压枪芯片之类，远程操作类
ASSoft.7z (1.84 MB, 下载次数: 352)

2019-7-5 19:36 上传

点击文件名下载附件

13434230728

支持开源~！感谢分享

lmluo

下载来看看

小tai阳

666666666666666666666666

Av0x

羡慕大佬

小妖626

感谢大佬分享

lmluo

先收藏，看看自己会不会用

A6928564

感谢分享666

浪人霖

看看看看

木木先生

不错不错