200分求解：模拟按健的问题！！！(200分)

lyhold · 2003-06-12

200分求解：模拟按健的问题 我在做一个暴力破解的实验小程序，现在可以取的另外一个窗口的子控件（比如password的 edit),我循环往里面复值，按后模拟一下回车，让系统检测一下密码是否对， 现在是如何让哪儿密码控件的到焦点         //复值         SendMessage(hwnd, WM_SETTEXT, 0, lParam);         //模拟按健         SendMessage(hwnd,wm_keydown,vk_tab,0); 不行

only you · 2003-06-12

//讲剪贴版上的字符串年贴在窗口控件上 procedure TForm1.SendKeys; var     i:integer;     focushld,windowhld:hwnd;     threadld:dword;     ch: byte;     p:TPoint; begin   windowhld:=GetForegroundWindow;   threadld:=GetWindowThreadProcessId(Windowhld,nil);   AttachThreadInput(GetCurrentThreadId,threadld,true);   getcursorpos(p); //查鼠标坐标   Focushld:=WindowFromPoint(p); //返回句柄   AttachThreadInput(GetCurrentThreadId,threadld,false);   if (focushld=0) then     begin        Exit;     end;   SendMessage(focushld, WM_Paste, 0, 0); end; //随机产生字符串，然后发送 procedure TForm1.Timer1Timer(Sender: TObject); var    i:integer;    j:Integer; begin    randomize();    //随机产生字符串    for i:=1 to 8 do    begin      setlength(Code,i);      j:=Random(127);      while not (((j>=48) and (j<=57))or((j>=65) and (j<=90))or((j>=97) and (j<=122))) do      begin      j:=Random(127);      end;      Code:=Char(j);    end;    Edt.Text :=Code;    Edt.SelectAll;    Edt.CopyToClipboard;    SendKeys(); end;

lyhold · 2003-06-12

我怎么样从程序里让其他程序的一个子空间的到焦点？？？已经知道他的句炳

finalrinoa · 2003-06-12

用钩子吧，做一个DLL文件，再把它映射到其它进程里

lyhold · 2003-06-12

能否给个例子，谢谢！！！

lyhold · 2003-06-12

钩子我能检测到比如他双机事件，然后处理，但是跟这个有什么关系呢？ 请指点，分数不是问题，谁有暴力破解释的例子，学习！！！

lyhold · 2003-06-12

真的没人会吗？？？ 跟个例子也行！！！！[red][/red]

lyhold · 2003-06-13

borland自己的粒子都不行！！！！！！！ borland自己的粒子都不行！！！！！！！borland自己的粒子都不行！！！！！！！borland自己的粒子都不行！！！！！！！borland自己的粒子都不行！！！！！！！  type    PFindWindowStruct = ^TFindWindowStruct;    TFindWindowStruct = record      Caption : string;      ClassName : string;      WindowHandle : THandle;    end;  function EnumWindowsProc(hWindow : hWnd;                           lParam  : LongInt) : Bool  {$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}  var    lpBuffer : PChar;    WindowCaptionFound : bool;    ClassNameFound : bool;  begin    GetMem(lpBuffer, 255);    Result := True;    WindowCaptionFound := False;    ClassNameFound := False;    try      if GetWindowText(hWindow, lpBuffer, 255) > 0 then        if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0         then WindowCaptionFound := true;      if PFindWindowStruct(lParam).ClassName = '' then        ClassNameFound := True else          if GetClassName(hWindow, lpBuffer, 255) > 0 then            if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer))             > 0 then ClassNameFound := True;      if (WindowCaptionFound and ClassNameFound) then begin        PFindWindowStruct(lParam).WindowHandle := hWindow;        Result := False;      end;    finally      FreeMem(lpBuffer, sizeof(lpBuffer^));    end;  end;  function FindAWindow(Caption : string;                       ClassName : string) : THandle;  var    WindowInfo : TFindWindowStruct;  begin    with WindowInfo do begin      Caption := Caption;      ClassName := ClassName;      WindowHandle := 0;      EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));      FindAWindow := WindowHandle;    end;  end;  procedure TForm1.Button1Click(Sender: TObject);  var    TheWindowHandle : THandle;  begin    TheWindowHandle := FindAWindow('Netscape - ', '');    if TheWindowHandle = 0 then      ShowMessage('Window Not Found!') else      BringWindowToTop(TheWindowHandle);  end;

yayx · 2003-06-14

直接模拟按键吧 unit SendKey; interface uses Windows,Messages,SysUtils,MyMessageBox; Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean; implementation (* Converts a string of characters and key names to keyboard events and passes them to Windows. Example syntax: SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True); *) Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean; type   WBytes = array[0..pred(SizeOf(Word))] of Byte;   TSendKey = record     Name : ShortString;     VKey : Byte;   end; const   {Array of keys that SendKeys recognizes.   If you add to this list, you must be sure to keep it sorted alphabetically   by Name because a binary search routine is used to scan it.}   MaxSendKeyRecs = 41;   SendKeyRecs : array[1..MaxSendKeyRecs] of TSendKey =   (    (Name:'BKSP';            VKey:VK_BACK),    (Name:'BS';              VKey:VK_BACK),    (Name:'BACKSPACE';       VKey:VK_BACK),    (Name:'BREAK';           VKey:VK_CANCEL),    (Name:'CAPSLOCK';        VKey:VK_CAPITAL),    (Name:'CLEAR';           VKey:VK_CLEAR),    (Name:'DEL';             VKey:VK_DELETE),    (Name:'DELETE';          VKey:VK_DELETE),    (Name:'DOWN';            VKey:VK_DOWN),    (Name:'END';             VKey:VK_END),    (Name:'ENTER';           VKey:VK_RETURN),    (Name:'ESC';             VKey:VK_ESCAPE),    (Name:'ESCAPE';          VKey:VK_ESCAPE),    (Name:'F1';              VKey:VK_F1),    (Name:'F10';             VKey:VK_F10),    (Name:'F11';             VKey:VK_F11),    (Name:'F12';             VKey:VK_F12),    (Name:'F13';             VKey:VK_F13),    (Name:'F14';             VKey:VK_F14),    (Name:'F15';             VKey:VK_F15),    (Name:'F16';             VKey:VK_F16),    (Name:'F2';              VKey:VK_F2),    (Name:'F3';              VKey:VK_F3),    (Name:'F4';              VKey:VK_F4),    (Name:'F5';              VKey:VK_F5),    (Name:'F6';              VKey:VK_F6),    (Name:'F7';              VKey:VK_F7),    (Name:'F8';              VKey:VK_F8),    (Name:'F9';              VKey:VK_F9),    (Name:'HELP';            VKey:VK_HELP),    (Name:'HOME';            VKey:VK_HOME),    (Name:'INS';             VKey:VK_INSERT),    (Name:'LEFT';            VKey:VK_LEFT),    (Name:'NUMLOCK';         VKey:VK_NUMLOCK),    (Name:'PGDN';            VKey:VK_NEXT),    (Name:'PGUP';            VKey:VK_PRIOR),    (Name:'PRTSC';           VKey:VK_PRINT),    (Name:'RIGHT';           VKey:VK_RIGHT),    (Name:'SCROLLLOCK';      VKey:VK_SCROLL),    (Name:'TAB';             VKey:VK_TAB),    (Name:'UP';              VKey:VK_UP)   );   {Extra VK constants missing from Delphi's Windows API interface}   VK_NULL=0;   VK_SemiColon=186;   VK_Equal=187;   VK_Comma=188;   VK_Minus=189;   VK_Period=190;   VK_Slash=191;   VK_BackQuote=192;   VK_LeftBracket=219;   VK_BackSlash=220;   VK_RightBracket=221;   VK_Quote=222;   VK_Last=VK_Quote;   ExtendedVKeys : set of byte =   [VK_Up,    VK_Down,    VK_Left,    VK_Right,    VK_Home,    VK_End,    VK_Prior,  {PgUp}    VK_Next,   {PgDn}    VK_Insert,    VK_Delete]; const   INVALIDKEY = $FFFF {Unsigned -1};   VKKEYSCANSHIFTON = $01;   VKKEYSCANCTRLON = $02;   VKKEYSCANALTON = $04; var   UsingParens, ShiftDown, ControlDown, AltDown, FoundClose : Boolean;   PosSpace : Byte;   I, L : Integer;   NumTimes, MKey : Word;   KeyString : String[20];   AllocationSize: Integer; procedure DisplayMessage(Message : PChar); begin   ShowMyMessage(nil,'密码输入',Message,0); end; function BitSet(BitTable, BitMask : Byte) : Boolean; begin   Result:=ByteBool(BitTable and BitMask); end; procedure SetBit(var BitTable : Byte; BitMask : Byte); begin   BitTable:=BitTable or Bitmask; end; Procedure KeyboardEvent(VKey, ScanCode : Byte; Flags : Longint); var   KeyboardMsg : TMsg; begin   keybd_event(VKey, ScanCode, Flags,0);   If (Wait) then While (PeekMessage(KeyboardMsg,0,WM_KEYFIRST, WM_KEYLAST, PM_REMOVE)) do begin     TranslateMessage(KeyboardMsg);     DispatchMessage(KeyboardMsg);   end; end; Procedure SendKeyDown(VKey: Byte; NumTimes : Word; GenUpMsg : Boolean); var   Cnt : Word;   ScanCode : Byte;   NumState : Boolean;   KeyBoardState : TKeyboardState; begin   If (VKey=VK_NUMLOCK) then begin     NumState:=ByteBool(GetKeyState(VK_NUMLOCK) and 1);     GetKeyBoardState(KeyBoardState);     If NumState then KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] and not 1)     else KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] or 1);     SetKeyBoardState(KeyBoardState);     exit;   end;   ScanCode:=Lo(MapVirtualKey(VKey,0));   For Cnt:=1 to NumTimes do     If (VKey in ExtendedVKeys)then begin       KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY);       If (GenUpMsg) then         KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)     end else begin       KeyboardEvent(VKey, ScanCode, 0);       If (GenUpMsg) then KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);     end; end; Procedure SendKeyUp(VKey: Byte); var   ScanCode : Byte; begin   ScanCode:=Lo(MapVirtualKey(VKey,0));   If (VKey in ExtendedVKeys)then     KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY and KEYEVENTF_KEYUP)   else KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP); end; Procedure SendKey(MKey: Word; NumTimes : Word; GenDownMsg : Boolean); begin   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyDown(VK_SHIFT,1,False);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyDown(VK_CONTROL,1,False);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyDown(VK_MENU,1,False);   SendKeyDown(Lo(MKey), NumTimes, GenDownMsg);   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyUp(VK_SHIFT);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyUp(VK_CONTROL);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyUp(VK_MENU); end; {Implements a simple binary search to locate special key name strings} Function StringToVKey(KeyString : ShortString) : Word; var   Found, Collided : Boolean;   Bottom, Top, Middle : Byte; begin   Result:=INVALIDKEY;   Bottom:=1;   Top:=MaxSendKeyRecs;   Found:=false;   Middle:=(Bottom+Top) div 2;   Repeat     Collided:=((Bottom=Middle) or (Top=Middle));     If (KeyString=SendKeyRecs[Middle].Name) then begin        Found:=True;        Result:=SendKeyRecs[Middle].VKey;     end else begin        If (KeyString>SendKeyRecs[Middle].Name) then Bottom:=Middle        else Top:=Middle;        Middle:=(Succ(Bottom+Top)) div 2;     end;   Until (Found or Collided);   If (Result=INVALIDKEY) then DisplayMessage('程序出现未知错误'); end; procedure PopUpShiftKeys; begin   If (not UsingParens) then begin     If ShiftDown then SendKeyUp(VK_SHIFT);     If ControlDown then SendKeyUp(VK_CONTROL);     If AltDown then SendKeyUp(VK_MENU);     ShiftDown:=false;     ControlDown:=false;     AltDown:=false;   end; end; begin   AllocationSize:=MaxInt;   Result:=false;   UsingParens:=false;   ShiftDown:=false;   ControlDown:=false;   AltDown:=false;   I:=0;   L:=StrLen(SendKeysString);   If (L>AllocationSize) then L:=AllocationSize;   If (L=0) then Exit;   While (I<L) do begin     case SendKeysString of     '(' : begin             UsingParens:=True;             Inc(I);           end;     ')' : begin             UsingParens:=False;             PopUpShiftKeys;             Inc(I);           end;     '%' : begin              AltDown:=True;              SendKeyDown(VK_MENU,1,False);              Inc(I);           end;     '+' :  begin              ShiftDown:=True;              SendKeyDown(VK_SHIFT,1,False);              Inc(I);            end;     '^' :  begin              ControlDown:=True;              SendKeyDown(VK_CONTROL,1,False);              Inc(I);            end;     '{' : begin             NumTimes:=1;             If (SendKeysString[Succ(I)]='{') then begin               MKey:=VK_LEFTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I,3);               Continue;             end;             KeyString:='';             FoundClose:=False;             While (I<=L) do begin               Inc(I);               If (SendKeysString='}') then begin                 FoundClose:=True;                 Inc(I);                 Break;               end;               KeyString:=KeyString+Upcase(SendKeysString);             end;             If (Not FoundClose) then begin                DisplayMessage('程序出现未知错误');                Exit;             end;             If (SendKeysString='}') then begin               MKey:=VK_RIGHTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I);               Continue;             end;             PosSpace:=Pos(' ',KeyString);             If (PosSpace<>0) then begin                NumTimes:=StrToInt(Copy(KeyString,Succ(PosSpace),Length(KeyString)-PosSpace));                KeyString:=Copy(KeyString,1,Pred(PosSpace));             end;             If (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])             else MKey:=StringToVKey(KeyString);             If (MKey<>INVALIDKEY) then begin               SendKey(MKey,NumTimes,True);               PopUpShiftKeys;               Continue;             end;           end;     '~' : begin             SendKeyDown(VK_RETURN,1,True);             PopUpShiftKeys;             Inc(I);           end;     else  begin              MKey:=vkKeyScan(SendKeysString);              If (MKey<>INVALIDKEY) then begin                SendKey(MKey,1,True);                PopUpShiftKeys;              end else DisplayMessage('程序出现未知错误');              Inc(I);           end;     end;   end;   Result:=true;   PopUpShiftKeys; end; end. 我做过一些改动

zhuoyuesky · 2003-06-14

学习!

finalrinoa · 2003-06-14

先得到按钮的句柄，然后用postmessage(wnd,WM_KEYDOWN ,VK_Return,0);来模拟按钮被按下就可以了

200分求解：模拟按健的问题！！！(200分)

lyhold

Unregistered / Unconfirmed

only you

Unregistered / Unconfirmed

lyhold

Unregistered / Unconfirmed

finalrinoa

Unregistered / Unconfirmed

lyhold

Unregistered / Unconfirmed

lyhold

Unregistered / Unconfirmed

lyhold

Unregistered / Unconfirmed

lyhold

Unregistered / Unconfirmed

yayx

Unregistered / Unconfirmed

zhuoyuesky

Unregistered / Unconfirmed

finalrinoa

Unregistered / Unconfirmed

Similar threads