求助 ,如何获取sohu博客文章列表我看下网页源文件...得不到文章列表啊例如博客地址是 http://jiangfanwk.blog.sohu.com/entry/ 如何获取其文章当前列表及后面几页的文章列表....我看了下网页源文件....得不到....
解决方案 »
- 怎么样使用代理
- 请问,我使用vb创建一个activex工程,如何为这个自开发的控件增加自定义的事件???
- 关于richtextbox行数和高度的问题
- 使窗体不可移动的API怎么写
- 如何得到当前用户的“桌面”和“我的文档”的绝对路径,WIN98和WIN 2K都适用的方法。
- 请问哪里有免费的库存管理软件下载
- 请问如何判断调用TTS,它已经把一句话读完?
- 请教:如何进行上网控制
- 急急急急急急!完不成就没法过情人节了。大家快帮忙!!!
- 再加50分,有没有高手可以搞定?
- 提交搜索引擎时页面提示类似这样的信息:你的行为很像机器,软件行为,因此被屏蔽
- RichTextBox + MsHFlexGrid组合方式谁用过?RichTextBox录入后文字显示的是格式码!怎么解决!
'引用 Internet comntrols '程序运行时可能要15秒左右才能下载完毕.
Dim WithEvents ieQC As InternetExplorer
Dim ieBusy As BooleanPrivate Sub Command1_Click()
Dim strHtml As String, arr() As String, arr1() As String
Dim i As Long, Result As String
ieBusy = False
Set ieQC = New InternetExplorer
ieQC.Navigate2 "http://jiangfanwk.blog.sohu.com/entry/"
Do
DoEvents
Loop While Not ieBusy
strHtml = ieQC.document.body.innerText
Set ieQC = Nothing
arr = Split(strHtml, vbCrLf)
For i = 0 To UBound(arr)
If Mid(arr(i), 5, 1) = "-" And Mid(arr(i), 12, 1) = "|" Then
arr1 = Split(arr(i), "|")
Result = Result & arr1(1) & vbCrLf
End If
Next i Text1.Text = ResultEnd SubPrivate Sub ieQC_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Debug.Print ieQC.Busy '这个测试到页面多框架下,有多次下载,所以单纯用busy判断不行
If (pDisp Is ieQC) Then
ieBusy = True
End If
End Sub
Dim s() As String, i As Long
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://jiangfanwk.blog.sohu.com/action/v_frag-ebi_b2bda04792/entry/", False
.Send
s = Split(.responseText, "entryTitle=""")
End With
For i = 1 To UBound(s)
Debug.Print Split(s(i), """")(0)
Next
End Sub
这个地址是怎么找到的啊??