~~~怎么得到一个QQ号的昵称~~~在线等~~~

Question

窗体 上有command1,text1，在text1中输入 一个QQ号，点command1的时候，msgbox 出这个QQ号的昵称，在线等 ！！！

Answer 1

有个以前收集的代码，参考一下：
Option ExplicitPrivate Function GetPage(URL As String, pgCode As String) As String    Dim Retrieval As Object
    On Error GoTo Exittag:
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "GET", URL, False, "", ""
        .Send
        GetPage = BytesToBstr(.responseBody, pgCode)
    End With
    Set Retrieval = Nothing
    Exit Function
Exittag:
    MsgBox "对不起，查询超时，请确保您的网络或目标主机网络是否正常！"
    Err.ClearEnd FunctionPrivate Function BytesToBstr(body As Variant, Cset As String) As String
  Dim objStream
  Set objStream = CreateObject("adodb.stream")
  objStream.Type = 1
  objStream.Mode = 3
  objStream.Open
  objStream.Write body
  objStream.Position = 0
  objStream.Type = 2
  objStream.Charset = Cset
  BytesToBstr = objStream.ReadText
  objStream.Close
  Set objStream = Nothing
End FunctionPrivate Function GetKey(HTML As String, Start$, Last$) As String
    Dim Filearray$(), Filearray2$()
    On Error Resume Next
    Filearray = Split(HTML, Start)
    Filearray2 = Split(Filearray(1), Last)
    GetKey = Filearray2(0)
End FunctionPrivate Sub Command1_Click()
    MsgBox GetKey(GetPage("http://user.qbar.qq.com/" & Text1.Text & "/", "UTF-8"), "<h3><strong>", "<span>")
End Sub

Answer 2

不行啊，得到了一个空的msgbox!

Answer 3

晕了，是不是因为TX最近Q吧维护的原因才这样的？

Answer 4

腾讯公司关于Q吧业务维护公告
 
尊敬的Q吧用户:
      您好！ 为了给大家提供更优质的服务，Q吧服务器近期进行升级维护，维护期间相关功能暂时无法使用，给您对带来的不便，敬请谅解，感谢大家对Q吧的一贯支持。谢谢！
     
腾讯公司
2010-01-06