100分求教，SHELL命令后如何读到窗口所有信息。

Private Sub Command1_Click()
lrtn = Shell("C:\Program Files\Tencent\QQ\Bin\Timwp.exe tencent://snsapp/?cmd=2&ver=1&uin=116678&appid=0", vbMaximized)
End Sub

如上，运行代码将弹出一个QQ用户信息的窗口。 

问题：如何读出窗口中的内容呢？ 
我用SPY也看不到，比如QQ用户性别，年龄等等。

请高手实验实验，有解决方法，必然给分。 这是要搜索个人信息哪，汗 飘过～～～～～～～～～～～

补充：VB ,  API