MyException - 我的异常网
当前位置:我的异常网» Delphi » delphi写QQ讯息群发(模拟按键精灵)

delphi写QQ讯息群发(模拟按键精灵)

www.myexceptions.net  网友分享于:2013-04-10  浏览:25次
delphi写QQ消息群发(模拟按键精灵)

本文只供学习研究,不能用于非法用途,转载请保留本文链接。

本文地址:http://blog.csdn.net/sushengmiyan/article/details/8774780

使用函数:EnumWindows,EnumWindowsProc

源代码奉上:

unit QMsgMainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Clipbrd;

type
  TForm1 = class(TForm)
    edtMsg: TEdit;
    lblTip: TLabel;
    btnTry: TButton;
    lblMsgWindow: TLabel;
    lblMsgContextWindow: TLabel;
    procedure btnTryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;
implementation

{$R *.dfm}

procedure TForm1.btnTryClick(Sender: TObject);
begin
  if Trim(edtMsg.Text) = '' then
  begin
    ShowMessage('请输入要发送的消息,消息不能为空');
  end else
  begin
    EnumWindows(@EnumWindowsProc ,0);
  end;
end;

function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Boolean ;stdcall;
var
  WindowText    : string  ;
  WindowClass   : string  ;
  SendHwnd      : DWORD   ;     
  tdiahandle    : THandle ;
  tedithandle   : THandle ;
  tduihuakhandle: THandle ;
  c: Cardinal;
  ProcessHandle:LongWord;
 begin
  if ( IsWindowVisible(hwnd) or IsIconic(hwnd) ) and
       (
        (GetWindowLong(hwnd, GWL_HWNDPARENT) = 0) or
        (GetWindowLong(hwnd, GWL_HWNDPARENT) = Longint(GetDesktopWindow))
       ) and
     ( GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0)  then
  begin
    SetLength(WindowText, GetWindowTextLength(hwnd)+2);
    Getwindowtext(hwnd, Pchar(WindowText), GetWindowTextLength(hwnd)+2);
    WindowText := string(Pchar(WindowText));
    SetLength(WindowClass, 512);
    GetClassName(hwnd, Pchar(WindowClass), 512);
    WindowClass := string(Pchar(WindowClass) );
    if SameStr(WindowClass , 'TXGuiFoundation') then
    begin
      BringWindowToTop(hwnd);
      Form1.lblMsgContextWindow.Caption := WindowText;
      if Clipboard.HasFormat(CF_TEXT) then
        Clipboard.Clear;
      Form1.edtMsg.SelectAll;
      Form1.edtMsg.CopyToClipboard;
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0),0 ,0);
    end;
  end;
  Result := True;
 end;
end.
我们在网络中经常会有这样的需求,有一篇推销内容要发送到QQ群或者QQ好友,手动一个一个发实在是麻烦的很,那么就需要有一套好的工具来辅助我们,所以就写了这么一个东东。大家多多支持。

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有