已结贴

[此贴子已经被作者于2017-1-15 05:27编辑过]

稍微弄了下，由于获取的是html，没用代码分析来截取文本，建议使用webbrowser来显示

Const sUrl = "http://b.qzone.", QQ = "228415425"   'qq号可根据需要更换
Dim Title As String

Private Sub Form_Load()
  Dim a As String, i As Integer, j As Integer
  a = sUrl & "blog_get_titlelist?uin=" & QQ & "&numperpage=100"
  Title = Inet1.OpenURL(a)                                            '获取日志标题数据
  i = InStr(Title, Chr(34) & "title" & Chr(34) & ":" & Chr(34))
  While i > 0
    i = i + 9
    j = InStr(i, Title, Chr(34) & "},")
    If j > i Then
      List1.AddItem Mid(Title, i, j - i)                              '显示日志标题
      i = InStr(j, Title, Chr(34) & "title" & Chr(34) & ":" & Chr(34))
    Else
      i = 0
    End If
  Wend
End Sub

Private Sub List1_Click()
  Dim a As String, i As Integer, j As Integer, k As Integer, l As Integer, id As String, t As String
  Text1 = ""
  i = InStr(Title, "blogid" & Chr(34) & ":")
  While i > 0
    i = i + 8
    j = InStr(i, Title, ",")
    If j > i Then
      id = Mid(Title, i, j - i)                                       '获取id
      k = InStr(j, Title, "title" & Chr(34) & ":" & Chr(34))
      k = k + 8
      l = InStr(i, Title, Chr(34) & "},")
      a = Mid(Title, k, l - k)                                        '获取标题
      If a = List1 Then
        a = sUrl & "blog_output_data?bdm=b.qzone." & id & "&uin=" & QQ
        Text1 = Inet1.OpenURL(a)
        Exit Sub
      End If
    Else
      i = 0
    End If
    i = InStr(j, Title, "blogid" & Chr(34) & ":")
  Wend
End Sub

[ 本帖最后由 lowxiong 于 2014-4-29 05:25 编辑 ]

学习继续学习

收到的鲜花

• a251357 于 2014-04-29 11:28 送鲜花  3朵   附言：原创内容 通过日志ID浏览日志。 嗯！我也 ...

闲着无聊，做了个接近实用的供有兴趣的参考。

Const sUrl = "http://b.qzone."
Dim Title As String, QQ As String

Private Sub Command1_Click()
  '显示日志列表
  Dim a As String, i As Integer, j As Integer
  If Not IsNumeric(Text1) Then Exit Sub                                                   '如果qq号码不是全数字则不执行
  QQ = Trim(Text1)
  List1.Clear
  a = sUrl & "blog_get_titlelist?uin=" & QQ & "&numperpage=100"
  Title = Inet1.OpenURL(a)                                                                '获取日志标题数据
  i = InStr(Title, Chr(34) & "title" & Chr(34) & ":" & Chr(34))
  While i > 0
    i = i + 9
    j = InStr(i, Title, Chr(34) & "},")
    If j > i Then
      List1.AddItem Mid(Title, i, j - i)                                                  '显示日志标题
      i = InStr(j, Title, Chr(34) & "title" & Chr(34) & ":" & Chr(34))
    Else
      i = 0
    End If
  Wend
  Text1.SetFocus
End Sub

Private Sub Form_Load()
  On Error Resume Next
  Command1_Click                                                                          '显示默认空间日志列表
End Sub

Private Sub List1_Click()
  '显示选择的日志内容
  Dim a As String, i As Integer, j As Integer, k As Integer, id As String
  i = InStr(Title, "blogid" & Chr(34) & ":")
  k = 0
  While i > 0
    i = i + 8
    If k = List1.ListIndex Then
      j = InStr(i, Title, ",")
      id = Mid(Title, i, j - i)                                                           '获取选择的日志id
      a = sUrl & "blog_output_data?bdm=b.qzone." & id & "&uin=" & QQ        '拼接该日志实际网址
      WebBrowser1.Silent = True
      WebBrowser1.Navigate a                                                              '显示该网址内容，如果只想显示文章内容，不想显示该qq空间其他内容
      Exit Sub                                                                            '则需要做去<scrip>和所有css执行语句
    End If
    k = k + 1
    i = InStr(i, Title, "blogid" & Chr(34) & ":")
  Wend
  WebBrowser1.SetFocus                                                                    '让浏览器获得焦点符合操作习惯
End Sub

Private Sub Text1_GotFocus()
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1)                                                            '获得焦点时字符全选择，方便输入新号码
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 Then Exit Sub                      '只接受数字输入
  If KeyAscii = 13 Then SendKeys "{tab}"                                                  '如输入回车键则转移焦点
  KeyAscii = 0                                                                            '取消讨厌的叮声或禁止其他键输入
End Sub

收到的鲜花

• a251357 于 2014-04-29 11:33 送鲜花  3朵   附言：我很赞同，原创内容！ 通过日志ID来获取日志 ...

回复对象错了不好意思

版主！！请问你能否可以把日志内容获取到Text1里去嘛？因为我想达到这样的一个可以把日志文章保存到本地电脑的效果！！！如果可以,再努力下！如果不可以那就算了。。这可能有些难度！希望版主帮帮忙！

现在版本的QQ空间是有些难度！

我们可以利用这个网址这个是:
QQ日志列表:http://dx1.
QQ日志内容:http://dx1.
我想版主应该好操作了！！！
如果能做出来，分全给版主！这不是交易,这是一种学习.VB net

我人笨就是不知道怎么获取日志ID还有内容！标题我倒是会获取了！希望版主老师指导下！

我在二楼给出的代码里已经把日志内容放到text1里了，把text1里的内容保存到本地太小儿科了，你还是自己去琢磨吧。
多说一句：只要喜欢，有兴趣，技术肯定不是问题，有问题的是RP，送你当前流行语“No Do,No Die”，欢迎真诚交流，无需耍什么激将法的低级手段。

你误会了！Text1保存到本地确实很简单！但是从你给的2楼代码,我可以看出从日志ID到Text1的代码其实是太多乱码了！还得进一步的筛选才能获取日志的纯内容！如果能做到那就完美了！筛选这个部分我也可以琢磨出的,只是就是想问一下版主能有什么好办法而已！！如果没有的话那我只能针对Text1的内容筛选来操作了！！！如果用WebBrowser1来显示你知道的那样就会听见空间烦人的歌曲尤其是别人空间的DJ音乐！！！而且如果用WebBrowser1来显示占用网络资源有时候还会出现错误脚本。 希望版主理解我不是什么激将法只是看看版主能有什么好的办法！说实在的刚刚版主给的代码我看了一会了也有些领悟...现在开始针对:http://dx1.这个网址操作相对这样更容易！！！有体会也有深悟！对与兴趣爱好不懂就得多问多学！呵呵 也请你别闲我烦噢！！！刚刚学VB也就3个月不怎么熟悉希望版主大虾们理解下！！！

怎么感觉这个软件有点邪恶啊