不能向其他程序的EDIT发消息的问题(200分)

llingyi · 2003-11-11

我在做一个自动登陆某游戏的程序，过程是这样，向游戏登陆界面上的帐号和密码框（EDIT类）自动输入帐号和密码。我用的办法是sendmessage，发送的是sendmessage(hwnd,wm_settext,0,integer(pchar('内容'))),EDIT是密码风格的，把内容显示成*号，我发了消息后，EDIT也显示出*号，可实际上EDIT并没有得到任何内容，再手动按任意一个键，刚才EDIT里的*号全部消失。EDIT屏蔽掉了粘贴、CTRL、ALT等，我后用模拟键盘的办法keybd_event，结果和前面一样，显示出*号，可实际上没有获得任何内容，后来发现只有用手从键盘输入才能被EDIT获得，请问这是怎么回事，是方法用错了还是游戏屏蔽掉从其他进程发出的消息呢，该怎么办？？？另外我还用了wm_char和wm_keydown消息都不能成功，这个游戏使用了DX7，这个对向EDIT发消息有影响吗？？？游戏程序是不是能识别消息的来源，是别的程序发的或是键盘发的？？？会不会游戏对消息进行了过滤，怎么样判断有没有过滤，如果有怎么样破解掉？？？到底要怎么样做才能获得成功，我非常的期待，愿意献出所有的身家500分，555555，补充一点：帐号和密码框的句柄我确定是正确的，我程序找到的句柄和程序间谍spy找到的句柄验证过是相同的，我的EMAIL：llingyi@163.com

迷糊 · 2003-11-11

这个应该可以吧 setwindowtext(hwnd,'aaa'); //hwnd是edit的句柄

lgxyy · 2003-11-11

同上

llingyi · 2003-11-11

不行啊，密码框根本没任何反应

桦树皮 · 2003-11-12

网络游戏的edit都是做了手脚的，一般人控制不了它。

ing · 2003-11-12

可能遊戲裡的登陸Edit都不是用Edit做的。

gzbxmcx · 2003-11-12

一般的网络游戏的EDIT都控制不了。

llingyi · 2003-11-13

我不是要读取密码，只是要写啊，应该会有底层的办法去控制的

迷糊 · 2003-11-13

我觉得你取得的edit的句柄可能不对，否则键盘能输进去，setwindowtext就能输进去

weiwei81123 · 2003-12-16

试试用钩子回放。

qince · 2003-12-16

你用SPY++跟踪试试,看看你得到的Edit句柄是否正确,如果正确setwindowtext一般都能输进去

weiwei81123 · 2003-12-19

try this unit: unit hkSend; interface uses   SysUtils,   Messages,   Forms,   Windows,   Classes; type   TSendKeyError = (skNone, skFailSetHook, skInvalidToken, skUnknownError); function SendKeys(S: String; Wait: Boolean): TSendKeyError; implementation type   ESendKeyError = class(Exception);   ESetHookError = class(ESendKeyError);   EInvalidToken = class(ESendKeyError);   TKeyDef = record     Key : String;     Code: UINT;   end;   TMessageList = class(TList)   public     destructor Destroy; override;   end; const   MaxKeys = 43;   ShiftKey = '+';   ControlKey = '^';   AltKey = '%';   EnterKey = '~';   KeyGroupOpen = '{';   KeyGroupClose = '}';   KeyTokens = '{}~%^+';   KeyDefs : array[1..MaxKeys] of TKeyDef = (    (Key: 'BACKSPACE'  ; Code: VK_BACK),    (Key: 'BKSP'       ; Code: VK_BACK),    (Key: 'BS'         ; Code: VK_BACK),    (Key: 'CAPS'       ; Code: VK_CAPITAL),    (Key: 'CAPSLOCK'   ; Code: VK_CAPITAL),    (KEy: 'CLEAR'      ; Code: VK_CLEAR),    (Key: 'DEL'        ; Code: VK_DELETE),    (Key: 'DELETE'     ; Code: VK_DELETE),    (Key: 'DOWN'       ; Code: VK_DOWN),    (Key: 'END'        ; Code: VK_END),    (Key: 'ENTER'      ; Code: VK_RETURN),    (Key: 'ESC'        ; Code: VK_ESCAPE),    (Key: 'ESCAPE'     ; Code: VK_ESCAPE),    (Key: 'HOME'       ; Code: VK_HOME),    (Key: 'INS'        ; Code: VK_INSERT),    (Key: 'INSERT'     ; Code: VK_INSERT),    (Key: 'LEFT'       ; Code: VK_LEFT),    (Key: 'NUM'        ; Code: VK_NUMLOCK),    (Key: 'NUMLOCK'    ; Code: VK_NUMLOCK),    (Key: 'DOWN'       ; Code: VK_DOWN),    (Key: 'PAGEDOWN'   ; Code: VK_NEXT),    (Key: 'PGDN'       ; Code: VK_NEXT),    (Key: 'PAGEUP'     ; Code: VK_PRIOR),    (Key: 'PGUP'       ; Code: VK_PRIOR),    (Key: 'RIGHT'      ; Code: VK_RIGHT),    (Key: 'SCROLL'     ; Code: VK_SCROLL),    (Key: 'SCROLLLOCK' ; Code: VK_SCROLL),    (Key: 'PRINTSCREEN'; Code: VK_SNAPSHOT),    (Key: 'PRTSC'      ; Code: VK_SNAPSHOT),    (Key: 'TAB'        ; Code: VK_TAB),    (Key: 'UP'         ; Code: VK_UP),    (Key: 'F1'         ; Code: VK_F1),    (Key: 'F2'         ; Code: VK_F2),    (Key: 'F3'         ; Code: VK_F3),    (Key: 'F4'         ; Code: VK_F4),    (Key: 'F5'         ; Code: VK_F5),    (Key: 'F6'         ; Code: VK_F6),    (Key: 'F7'         ; Code: VK_F7),    (Key: 'F8'         ; Code: VK_F8),    (Key: 'F9'         ; Code: VK_F9),    (Key: 'F10'        ; Code: VK_F10),    (Key: 'F11'        ; Code: VK_F11),    (Key: 'F12'        ; Code: VK_F12)); var   bPlaying,   bAltPressed,   bControlPressed,   bShiftPressed    : Boolean;   Delay, CurDelay  : Integer;   Event            : TEventMsg;   MessageList      : TMessageList;   iMsgCount        : Integer;   HookHandle       : hHook; destructor TMessageList.Destroy; var   i : Integer; begin   for i:=0 to Count-1 do    Dispose(PEventMsg(Items));   inherited; end; procedure StopPlayback; begin   if bPlaying then UnhookWindowsHookEx(HookHandle);   MessageList.Free;   bPlaying := False; end; function Playback(nCode: Integer; wp: wParam; lp: lParam): Longint; stdcall; export; begin   Result := 0;   case nCode of     HC_SKIP:      begin        inc(iMsgCount);        if iMsgCount>=MessageList.Count then         StopPlayback        else         begin           Event := TEventMsg(MessageList.Items[iMsgCount]^);           CurDelay := Delay;         end;      end;     HC_GETNEXT:      begin        with PEventMsg(lp)^ do         begin           Message := Event.Message;           ParamL  := Event.ParamL;           ParamH  := Event.ParamH;           Time    := Event.Time;           hWnd    := Event.hWnd;         end;         Result := CurDelay;         CurDelay := 0;      end;     else      begin        Result := CallNextHookEx(HookHandle, nCode, wp, lp);      end;   end; end; procedure StartPlayback; begin   Event := TEventMsg(MessageList.Items[0]^);   iMsgCount := 0;   HookHandle := SetWindowsHookEx(WH_JOURNALPLAYBACK, @Playback, hInstance, 0);   if HookHandle=0 then    raise ESetHookError.Create('Could not set hook')   else    bPlaying := True; end; procedure MakeMessage(vKey, M: UINT); var   E: PEventMsg; begin   New(E);   with E^ do    begin      Message := M;      ParamL  := vKey;      ParamH  := MapVirtualKey(vKey, 0);      Time    := GetTickCount;      hWnd    := 0;    end;   MessageList.Add(E); end; function FindKeyInArray(Key: String; var Code: UINT): Boolean; var   i : Integer; begin   Result := False;   for i:=Low(KeyDefs) to High(KeyDefs) do    if UpperCase(Key)=KeyDefs.Key then     begin       Code := KeyDefs.Code;       Result := True;       Exit;     end; end; const   vkKeySet = [VK_SPACE, Ord('A')..Ord('Z'), VK_MENU, VK_F1..VK_F12]; procedure SimulateKey(Code: UINT; Down: Boolean); const   KeyMsg: array[Boolean] of UINT = (WM_KEYUP, WM_KEYDOWN);   SysMsg: array[Boolean] of UINT = (WM_SYSKEYUP, WM_SYSKEYDOWN); begin   if bAltPressed and (not bControlPressed) and (Code in vkKeySet) then    MakeMessage(Code, SysMsg[Down])   else    MakeMessage(Code, KeyMsg[Down]) end; procedure SimulateKeyPress(Code: UINT); begin   if bAltPressed then SimulateKey(VK_MENU, True);   if bControlPressed then SimulateKey(VK_CONTROL, True);   if bShiftPressed and not bControlPressed then SimulateKey(VK_SHIFT, True);   SimulateKey(Code, True);   SimulateKey(Code, False);   if bShiftPressed and not bControlPressed then    begin      SimulateKey(VK_SHIFT, False);      bShiftPressed := False;    end;   if bControlPressed then    begin      SimulateKey(VK_CONTROL, False);      bControlPressed := False;    end;   if bAltPressed then    begin      SimulateKey(VK_MENU, False);      bAltPressed := False;    end; end; procedure NormalKeyPress(C: Char); var   KeyCode,   Shift  : UINT; begin   KeyCode := vkKeyScan(C);   Shift := HiByte(KeyCode);   if (Shift and 1)=1 then bShiftPressed := True;   if (Shift and 2)=2 then bControlPressed := True;   if (Shift and 4)=4 then bAltPressed := True;   SimulateKeyPress(LoByte(KeyCode)) end; function CheckDelay(Token: String): Boolean; begin   Token := UpperCase(Token);   Result := Pos('DELAY', Token)=1;   if Result then    begin      Delete(Token, 1, 5);      if (Length(Token)>0) and (Token[1]='=') then Delete(Token, 1, 1);      Delay := StrToIntDef(Token, 0);    end; end; procedure ProcessKey(S: String); var   Index  : Integer;   Token  : String;   KeyCode: UINT; begin   Index := 1;   repeat     case S[Index] of       KeyGroupOpen:        begin          Token := '';          inc(Index);          while (Index<Length(S)) and (S[Index]<>KeyGroupClose) do           begin             Token := Token + S[Index];             inc(Index);             if (Length(Token)=12) and (S[Index]<>KeyGroupClose) then              raise EInvalidToken.Create('No closing brace')           end;          if (Length(Token)=1) and (Pos(Token, KeyTokens)>0) then           NormalKeyPress(Token[1])          else if FindKeyInArray(Token, KeyCode) then           SimulateKeyPress(KeyCode)          else if not CheckDelay(Token) then           raise EInvalidToken.Create('Invalid token');        end;       AltKey:        bAltPressed := True;       ControlKey:        bControlPressed := True;       ShiftKey:        bShiftPressed := True;       EnterKey:        SimulateKeyPress(VK_RETURN);       else        NormalKeyPress(S[Index]);     end;     inc(Index);   until Index > Length(S); end; function SendKeys(S: String; Wait: Boolean): TSendKeyError; begin   bAltPressed := False;   bControlPressed := False;   bShiftPressed := False;   Result := skNone;   Delay := 0;   if bPlaying or (S='') then Exit;   try     MessageList := TMessageList.Create;     ProcessKey(S);     StartPlayback;     if Wait then      repeat        Application.ProcessMessages;      until bPlaying = False;   except    on E:ESendKeyError do     begin       MessageList.Free;       if E is ESetHookError then        Result := skFailSetHook       else if E is EInvalidToken then        Result := skInvalidToken;     end    else     Result := skUnknownError;   end; end; end.

llingyi · 2004-01-08

weiwei81123： 你这个程序怎么用啊，能不能解释一下

llingyi · 2004-01-08

刚才试了一下，密码输入到了密码框里，但是登陆游戏时，报密码错误

weiwei81123 · 2004-01-09

这个单元定义了几个一些特殊的字符来表示功能键(详见代码),如果要发送以下几个字符: '+','^','%','~','{' 请将它们用'{'和'}'括起来 或者你修改一下,将相关的处理去掉也成

llingyi · 2004-01-09

发送过去的密码还是不正确啊，这是不是编码错误呀？？？

weiwei81123 · 2004-01-09

怀疑与CAPSLOCK有关,测试了一下,原来在CAPSLOCK打开的时候发送字母的大小写反了 这应该是造成问题的原因,不知道有没有办法判断,能的话加一个{CAPS}就行了

llingyi · 2004-01-09

我的密码都是小写，运行程序的时候，CAPSLOCK是关闭的，到底问题在哪呀，我怀疑是游戏加入了消息发送者身份的判断，一旦检测是其他程序而不是键盘发来的字符，就不接收

llingyi · 2004-02-04

本人看了一本DELPHI的书，如果程序是从EDIT类继承过来的，那么将没有办法获得焦点，同时将没办法输入，估计游戏是把键盘的东西过滤后，模拟了输入的

不能向其他程序的EDIT发消息的问题(200分)

llingyi

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

lgxyy

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

桦树皮

Unregistered / Unconfirmed

ing

Unregistered / Unconfirmed

gzbxmcx

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

llingyi

Unregistered / Unconfirmed

Similar threads