如何得到QQ登录窗口中下拉框的内容？急！急！急！（高分送出）(200分)

wz_hzb · 2001-12-17

如何用程序得到QQ登录窗口时“用户号码”下拉框中的QQ号码?急！急！急！

bubble · 2001-12-17

很感兴趣,但是我不知道,呵呵.

独孤求败 · 2001-12-17

你想干什么？[

][

] 我同事做过。。。

YB_unique · 2001-12-17

如果是你自己的程序中的下拉框，要获得里面的内容能做到吗？ 如果能，那么QQ的也不难！

coolbaby · 2001-12-18

that is easy findwindow findwindowex getwindowtext  or other api ... that is enough

dingbaosheng · 2001-12-18

找出QQ下拉框的HANDLE 然后向之发消息就OK了嘛 (findwindow、findwindowex、getwindowtext...) 旧资料中也有相关资料的....

nunimao · 2001-12-18

下拉框是ComboBox类型控件，查一下winapi资料，用sendmessage可以逐条取出它的item。 参考： http://www.delphibbs.com/delphibbs/dispq.asp?lid=758599 还不行，mail me。

chinaplate · 2001-12-18

╭★龙☆虾★╯ · 2001-12-18

billxu · 2001-12-18

怎么一个有用的也没有啊

wz_hzb · 2001-12-18

大家好！ 我的代码是这样的，假设hFocus已经取得： GetWindowText(hFocus,szTitle,256);  //此行能取得窗口标题 HWND hComboBox; hComboBox=FindWindowEx(hFocus,0,"ComboBox",NULL); if (hComboBox!=NULL)　　//跟踪到此行时hComboBox不为NULL {    char szLoginName[256];    GetWindowText(hComboBox,szLoginName,256);　　//是不是这里有问题？ } ：结果szLoginName为空，为什么？

wz_hzb · 2001-12-18

to nunimao:你的EMAIL是地址？

bubble · 2001-12-18

取得目录，逐条读出，嘻嘻。 procedure TForm1.Button1Click(Sender: TObject); var   s:TstringList;   i:Integer; begin   s:=TstringList.Create();   ReadDirectoryNames('C:/program files/Tencent',s);   for i:=0 to s.Count-1 do     if AnsiLastChar(s)^ in ['0'..'9'] then      showmessage(s);       end; function SlashSep(const Path, S: String): String; begin   if AnsiLastChar(Path)^ <> '/' then     Result := Path + '/' + S   else     Result := Path + S; end; function Tform1.ReadDirectoryNames(const ParentDirectory: string;   DirectoryList: TStringList): Integer; var   Status: Integer;   SearchRec: TSearchRec; begin   Result := 0;   Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory, SearchRec);   try     while Status = 0 do     begin       if (SearchRec.Attr and faDirectory = faDirectory) then       begin         if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then         begin           DirectoryList.Add(SearchRec.Name);           Inc(Result);         end;       end;       Status := FindNext(SearchRec);     end;   finally     FindClose(SearchRec);   end; end;

sun77wind · 2001-12-18

重复一下 查QQ目录，一个用户一个目录的。

炼火玄冰 · 2001-12-18

我记得qq目录中有一个文件里面有登陆过的qq的号码，好像在dat目录里面，我用记事本打开过 ，不知道你能不能取到这个文件里面，呵呵~~~~~~~~~

bubble · 2001-12-18

补充一下,c:/program files/tencent是你的QQ目录.里面的那些数字目录是曾经登录过的 号码.

影 子 · 2001-12-18

不要想得太复杂。 dat目录里有oicq2000.cfg文件，里面有相关信息。

bubble · 2001-12-18

哈哈,楼上所言及是,只是一开始没有找到那个文件就想多了.

wz_hzb · 2001-12-19

不好意思，开始提问题时我没说清楚，取QQ的用户号只是我举的一个例子而以， 我还想用程序取其它应用程序窗口的组合框信息，至于你们说的取目录之类并非我的本意。 请大家继续给我帮助，谢谢！

xianjun · 2001-12-21

其实你有空看看帮助早就出来了： 在FORM上放一EDIT，再加一MEMO，EDIT里输入ComboBOX的Handle,点Button1就把里面的 Item取出来了！ procedure TForm1.Button1Click(Sender: TObject); var   CBHandle: THandle;   Count, I: Integer;   S: string; begin   CBHandle := StrToInt(Edit1.Text);   SetLength(S, 255);   Count := SendMessage(CBHandle, CB_GETCOUNT, 0, 0);   for I := 0 to Count - 1 do   begin     SendMessage(CBHandle, CB_GETLBTEXT, I, Integer(Pointer(S)));     Memo1.Lines.Add(Trim(S));   end; end;

如何得到QQ登录窗口中下拉框的内容？急！急！急！（高分送出）(200分)

wz_hzb

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

独孤求败

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

nunimao

Unregistered / Unconfirmed

chinaplate

Unregistered / Unconfirmed

╭★龙☆虾★╯

Unregistered / Unconfirmed

billxu

Unregistered / Unconfirmed

wz_hzb

Unregistered / Unconfirmed

wz_hzb

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

sun77wind

Unregistered / Unconfirmed

炼火玄冰

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

影 子

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

wz_hzb

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

Similar threads

影子