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用户性别,年龄等等。请高手实验实验,有解决方法,必然给分。
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用户性别,年龄等等。请高手实验实验,有解决方法,必然给分。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货