酷 酷辰 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-12 #1 不是输入框,是显示信息的窗口,我们发出去的信息都显示在上面,我现在能获取群的聊天窗口,却得不到里边的信息显示窗口,哪位大侠有办法,请赐教!
A andrew57 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-12 #2 你如果安装了visual studio6.0或2005可以打开SPY++查找
D Delphiguanshui Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-12 #5 能給我一份嗎??謝謝,<br>gshksh032@163.com
酷 酷辰 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-14 #6 To:暗夜中独舞<br>我E-mail:zhangqiang2010@qq.com<br>一经确定,马上发分,谢谢。
C cxz9 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-14 #9 给我一份,收到给300分 cxz9@tom.com
酷 酷辰 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-15 #11 To:暗夜中独舞<br>昨晚没有收到E-Mail。<br>我QQ:52013103,如果能QQ传也可,谢谢。
暗 暗夜中独舞 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-16 #12 不好意思,昨天周末就忘记发了。现在已经发送成功,请注意查收。
暗 暗夜中独舞 Unregistered / Unconfirmed GUEST, unregistred user! 2007-12-16 #14 不可能,我已经做过测试了!<br>标题有取,聊天记录也有。<br>function GetWndText(hWnd: HWND): String;<br>Var<br> Ret:LongInt;<br> mTextChar;<br> Buf:Integer;<br>begin<br> Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;<br> GetMem(mText,Ret);<br> try<br> Buf:=LongInt(mText);<br> SendMessage(hWnd,WM_GETTEXT,Ret,Buf);<br> Result:=StrPas(mText);<br> finally<br> FreeMem(mText,Ret);<br> end;<br>end;<br><br>//取得QQ聊天记录文本框中的文本<br>Function GetQQText(h:HWND):string;<br>var<br> hChild,hRichText:HWND;<br>begin<br> if h<>0 then<br> begin<br> hChild:=GetDlgItem(h,0);<br> if hChild<>0 then<br> begin<br> hRichText:=GetDlgItem(hChild,$380);<br> if hRichText<>0 then<br> begin<br> result:=GetWndText(hRichText);<br> exit;<br> end;<br> end;<br> end;<br> result:='';<br>end;
不可能,我已经做过测试了!<br>标题有取,聊天记录也有。<br>function GetWndText(hWnd: HWND): String;<br>Var<br> Ret:LongInt;<br> mTextChar;<br> Buf:Integer;<br>begin<br> Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;<br> GetMem(mText,Ret);<br> try<br> Buf:=LongInt(mText);<br> SendMessage(hWnd,WM_GETTEXT,Ret,Buf);<br> Result:=StrPas(mText);<br> finally<br> FreeMem(mText,Ret);<br> end;<br>end;<br><br>//取得QQ聊天记录文本框中的文本<br>Function GetQQText(h:HWND):string;<br>var<br> hChild,hRichText:HWND;<br>begin<br> if h<>0 then<br> begin<br> hChild:=GetDlgItem(h,0);<br> if hChild<>0 then<br> begin<br> hRichText:=GetDlgItem(hChild,$380);<br> if hRichText<>0 then<br> begin<br> result:=GetWndText(hRichText);<br> exit;<br> end;<br> end;<br> end;<br> result:='';<br>end;