摘要：
都说QQ登陆器可以防止QQ密码被盗,网上下的,担心有后门,这里自己写个QQ登陆器,关键代码如下://Base64加密function Base64(Src: string): string;const DataSet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';var i, ModLen: integer; Current: string; Buf: array[1..3] of Byte; NewBuf: array[1..4] of Byte;begin result := 阅读全文
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Buttons, ExtCtrls,Registry, ExtDlgs, bsSkinShellCtrls, BusinessSkinForm, bsSkinBoxCtrls, bsSkinCtrls;typeTTform1 = class(TForm) GroupBox1: TGroupBox; Bevel1: TBevel; Label2: TLabel; B 阅读全文
摘要：
本文主要讲的是如何使用delphi编程来记录QQ的聊天记录,下面是主要代码，供参考：function Process_ReadRichEditText(AHandle: THandle): WideString;var vGetTextEx: GETTEXTEX; vGetTextLengthEx: GETTEXTLENGTHEX; L: Integer; vProcessId: DWORD; vProcess: THandle; vPointer: Pointer; vNumberOfBytesRead: Cardinal;begin Result := ''; if not 阅读全文
摘要：
以TM2009为例，检查了一下，未登录之前一个窗体，上边两个控件，登录以后，窗体捕获到一个控件，根据这个，首先找到QQ登录框，输入用户名，密码的位置，获取窗体句柄的具体代码如下:这里先定义了一个record类型，1 TQQWnd= record2 QQWnd,QStatusWnd: HWND; //QQ窗口句柄，QQ弹出登录状态句柄3 QQNumWnd, QQPassWnd: HWND; //QQ号码输入句柄，QQ密码输入句柄4 end;51 function GetQQLoginHwdvar A QQWnd: TQQWnd: Boolean;2 var3 WinTitle: array[0. 阅读全文
摘要：
本文主要讲解的是delphi编程模拟发送QQ消息！即利用外部程序发送QQ消息，代码很少，其实原理就是，找到QQ消息输入框，然后利用sendmessage传送一个文本信息进去,再找到发送按钮，模拟点击按下发送按钮就可以：var hd,hwnd1,hwnd2,hwnd3,hwnd4:DWORD;begin //学Delphi网群 － 群 hwnd1:=FindWindow(nil,'学Delphi网群 － 群');//根据标题名找handle if hwnd1<>0 thenbegin hwnd2 := FindWindowEx(hwnd1, THandle(nil), 阅读全文
摘要：
unit HKProc; interface uses Windows, Messages,Dialogs,iniFiles,SysUtils; var hNextHookProc: HHook; procSaveExit: Pointer; function CBTProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; function EnableHotKeyHook: BOOL; export; function DisableHotKeyHook: BOOL; export; implementat 阅读全文
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Timer1: TTimer;Memo1: TMemo;Label1: TLabel;procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;var 阅读全文
摘要：
zzz可以调用函数FindWindow(窗口类名,窗口标题)获得窗口的句柄，然后调用EnumChildWindows(父窗口,回调函数名,参数)来获得父窗口下的子窗口的句柄，代码实现如下#include<windows.h>BOOLCALLBACKEnumChildProc(HWNDhWnd,LPARAMlParam);intWINAPIWinMain(HINSTANCEhInstance,HINSTANCEhPrevInstance,LPSTRlpCmdLine,intnCmdShow){charclassName[]="notepad";HWNDhWnd=: 阅读全文