15,471
社区成员
发帖
与我相关
我的任务
分享
//------------------------------------上面是动态链接库内容,下面的是调用dll的程序----------
//dll.cpp文件如下
#include <windows.h>
#include "dll.h"
#pragma data_seg("Shared")
HHOOK mhook=NULL;
HINSTANCE hInstance=NULL;
#pragma data_seg()
//#pragma comment(linker,"/section:Shared,rws")
LRESULT WINAPI KeyProc(int code,WPARAM wParam,LPARAM lParam)
{
if(code == HC_ACTION && (lParam & 0xc000ffff) == 1)
{
char *sName;
BOOL b_Sft = ::GetAsyncKeyState(VK_SHIFT) >> ((sizeof(short) * 8)-1);
if(b_Sft)
{
switch(wParam)
{
case '1':sName = "!";break;
case '2':sName = "@";break;
case '3':sName = "#";break;
case '4':sName = "$";break;
case '5':sName = "%";break;
case '6':sName = "^";break;
case '7':sName = "&";break;
case '8':sName = "*";break;
case '9':sName = "(";break;
case '0':sName = ")";break;
case 'A':sName = "A";break;
case 'B':sName = "B";break;
case 'C':sName = "C";break;
case 'D':sName = "D";break;
case 'E':sName = "E";break;
case 'F':sName = "F";break;
case 'G':sName = "G";break;
case 'H':sName = "H";break;
case 'I':sName = "I";break;
case 'J':sName = "J";break;
case 'K':sName = "K";break;
case 'L':sName = "L";break;
case 'M':sName = "M";break;
case 'N':sName = "N";break;
case 'O':sName = "O";break;
case 'P':sName = "P";break;
case 'Q':sName = "Q";break;
case 'R':sName = "R";break;
case 'S':sName = "S";break;
case 'T':sName = "T";break;
case 'U':sName = "U";break;
case 'V':sName = "V";break;
case 'W':sName = "W";break;
case 'X':sName = "X";break;
case 'Y':sName = "Y";break;
case 'Z':sName = "Z";break;
}
}
else
{
switch(wParam)
{
// 0~9
case '1':sName = "1";break;
case '2':sName = "2";break;
case '3':sName = "3";break;
case '4':sName = "4";break;
case '5':sName = "5";break;
case '6':sName = "6";break;
case '7':sName = "7";break;
case '8':sName = "8";break;
case '9':sName = "9";break;
case '0':sName = "0";break;
// A~Z
case 'A':sName = "a";break;
case 'B':sName = "b";break;
case 'C':sName = "c";break;
case 'D':sName = "d";break;
case 'E':sName = "e";break;
case 'F':sName = "f";break;
case 'G':sName = "g";break;
case 'H':sName = "h";break;
case 'I':sName = "i";break;
case 'J':sName = "j";break;
case 'K':sName = "k";break;
case 'L':sName = "l";break;
case 'M':sName = "m";break;
case 'N':sName = "n";break;
case 'O':sName = "o";break;
case 'P':sName = "p";break;
case 'Q':sName = "q";break;
case 'R':sName = "r";break;
case 'S':sName = "s";break;
case 'T':sName = "t";break;
case 'U':sName = "u";break;
case 'V':sName = "v";break;
case 'W':sName = "w";break;
case 'X':sName = "x";break;
case 'Y':sName = "y";break;
case 'Z':sName = "z";break;
}
}
//数字键
switch(wParam)
{
case VK_BACK:sName = "~";break;
case VK_NUMPAD1:sName = "1";break;
case VK_NUMPAD2:sName = "2";break;
case VK_NUMPAD3:sName = "3";break;
case VK_NUMPAD4:sName = "4";break;
case VK_NUMPAD5:sName = "5";break;
case VK_NUMPAD6:sName = "6";break;
case VK_NUMPAD7:sName = "7";break;
case VK_NUMPAD8:sName = "8";break;
case VK_NUMPAD9:sName = "9";break;
case VK_NUMPAD0:sName = "0";break;
case VK_MULTIPLY:sName = "*";break;
case VK_ADD: sName = "+";break;
case VK_SUBTRACT:sName = "-";break;
case VK_DECIMAL: sName = ".";break;
case VK_DIVIDE: sName = "/";break;
}
HWND H_wnd = ::GetForegroundWindow();
MessageBox(H_wnd,sName,"键盘",MB_OK);
}
return FALSE;
}
BOOL APIENTRY DllMain(HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved)
{
switch(ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
hInstance=(HINSTANCE)hModule;
break;
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
}
extern "C" __declspec(dllexport) BOOL WINAPI Start()
{
if(mhook!=NULL)
return FALSE;
mhook=::SetWindowsHookEx(WH_KEYBOARD,KeyProc,hInstance,0);
return mhook!=NULL;
}
extern "C" __declspec(dllexport) void WINAPI Stop()
{
::UnhookWindowsHookEx(mhook);
}
//dll.h文件如下
extern "C" __declspec(dllexport) BOOL WINAPI Start();
extern "C" __declspec(dllexport) void WINAPI Stop();
//如果注释掉OnButton1() OnButton2() 函数体中的内容,则编译链接通过, 显然按钮在访问dll库中的函数时候,出问
//题, 但我又不知道如何改动才能顺利通过, 有请高手指点, 谢谢
void CHOODDlg::OnButton1()
{
// Start();
}
void CHOODDlg::OnButton2()
{
// Stop();
}
//---------------------------------------------
//---------------------------------------------------------------
//请问你所说的:“加上dll.lib就可以了”
//是在那一个下面? 怎么加上? 是直接在某个文本框内填写上 dll.lib 就OK
//了吗???
1. //请问: 怎样把"生成dll时,生成的lib文件导入到我的工程" ????????
2. //另外: 如果采用LoadLibrary和函数指针的方法动态调用, 我又该如何做???
typedef BOOL (*StartFunType)();
StartFunType stratFun;
HINSTANCE hIns = ::LoadLibrary("HOOKDLL.dll");
stratFun = (StartFunType)::GetProcAddress(hIns, "Start");
startFun();
::FreeLibrary(hIns);
这是调用Start函数的方法, Stop也一样.
//请问: 怎样把"生成dll时,生成的lib文件导入到我的工程" ????????
//另外: 如果采用LoadLibrary和函数指针的方法动态调用, 我又该如何做???
//非常感谢你的指点, 而且也指出了问题的所在, 请问:可以把“第 1 点的方法”写出来吗(该删的删,该
//添的添)? 因为我对dll确实不怎么地
//怎么没有人回复我的问题啊, 只要照着我的步骤去抄一遍就可以演示了。