求某网页的源代码，有点麻烦

该网页是：http://www.tlrb.com/news/news.asp?ArticleID=354通过http://www.it315.org/ShowUrl/ShowUrl.htm这个网页可以看到完整的源代码，如下，有删节。请问用vb如何得到，Inet1.OpenURL等方法都不行！<Script Language='javascript'>
var a = window.dialogArguments;
if(a!="Enigma"){
window.location="index.asp?ArticleID="+ 354;
}
</script>
<html>
<head><script>
......................
document.write tlrbDecode("38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|32|26412|25253|-29777|32|30142|30149|25511|21046|-28711|31181|26032|30340|20844|20849|21355|29983|20307|31995|30340|24314|31435|-244|23558|24102|26469|21355|29983|24037|20316|-32692|-32515|30340|-28820|21464|12290|-29776|-32763|20174|24066|30142|30149|25511|21046|20013|24515|20102|-30237|21040|-244|20170|24180|-244|-29723|20013|24515|23558|25913|21464|-28729|21435|20165|20165|23545|23398|26657|21355|29983|-28709|-30644|30417|30563|30340|20570|27861|-244|22312|24120|-30268|19968|24180|19968|24230|23398|29983|20581|24247|20307|26816|30340|22522|30784|19978|-244|23558|30528|25163|22686|21152|20174|20107|23398|26657|20581|24247|25945|-32590|27963|21160|-244|25630|22909|23398|26657|21355|29983|30417|27979|24037|20316|-244|20174|25216|26415|19978|25351|23548|23398|26657|20844|20849|20581|24247|24037|20316|-244|20026|23398|29983|20204|25552|20379|20581|24247|19978|30340|25216|26415|26381|21153|12290|60|66|82|62|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|38|110|98|115|112|59|26681|25454|25484|25569|30340|24773|20917|-244|23398|29983|-31707|20859|19981|-32145|12289|-31707|20859|-28729|21097|30340|29616|-29599|26126|26174|23384|22312|-244|-28719|20960|24180|-29302|26469|-29302|31361|20986|12290|20026|20160|20040|20250|20986|29616|-28711|24773|20917|-225|19981|21512|29702|30340|-32333|-26401|24212|-29723|26159|20027|-30335|21407|22240|12290|23545|27492|-244|24066|20844|20849|21355|29983|20154|21592|23558|-32765|-31151|25226|26377|20851|20581|24247|30693|-29754|20256|25480|23398|29983|-244|-29783|23398|29983|25484|25569|-28711|26041|-26782|30340|30693|-29754|-244|20859|25104|-32145|22909|30340|29983|27963|20064|24815|-244|-28545|20813|20986|29616|20581|24247|19978|30340|19968|20123|-27154|-26472|12290|")
</Script>
........................
</html>

解决方案 »

  1.   

    你用WebBrowser控件
    下面这个可以得到页面里的源码
    WebBrowser1.Document.documentElement.outerHTML
      

  2.   

    楼上的不行啊，什么都得不到，你可以去http://www.tlrb.com/随便找一个新闻试一下
      

  3.   

    WebBrowser1.Document.documentElement.outerHTML
    要显示出来才好用
      

  4.   

    回复人： CoolCHEN(☆晓风☆) ( ) 信誉：100 
    楼上的不行啊，什么都得不到，你可以去http://www.tlrb.com/随便找一个新闻试一下
    ==============================================
    上面的新闻没有被加密的
    21IC上的加密网页都可以用这个办法读出来
      

  5.   

    Private Sub Command1_Click()
    'Text1的MultiLine设为True，ScrollBars设为2
    Text1.Text = WebBrowser1.Document.body.innerhtml
    End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate "http://www.it315.org/ShowUrl/ShowUrl.htm"
    'http://www.tlrb.com/news/news.asp?ArticleID=354
    这个页面根本不能浏览啊
    End Sub
      

  6.   

    另一种方法：Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPrivate Sub Command1_Click()
        Const tmpfile As String = "c:\tmp.tmp"
        URLDownloadToFile 0, Text1.Text, tmpfile, 0, 0
        Do Until FileLen(tmpfile)
            DoEvents
        Loop
        Dim fn As Integer, tmp As String
        fn = FreeFile
        Open tmpfile For Binary Access Read As #fn
            tmp = Space(FileLen(tmpfile))
            Get #fn, , tmp
        Close #fn
        Kill tmpfile
        Text2 = tmp
    End SubPrivate Sub Form_Load()
        Text1.Text = "http://www.it315.org/ShowUrl/ShowUrl.htm"
    End Sub