下载XML数据（双色球）

蓝天630902

lzqlaj 发表于 2012-11-25 16:32
转换成2003运行出错误。

2003

lzqlaj

谢谢，下载收藏，这次可以正常运行。

fecmen

谢谢分享！

tonyibm

引子玄 发表于 2012-12-27 14:29
Sub 开奖号提取()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application" ...

这个innerhtml和outerhtm有啥区别，

xpxia

现在500wan 这个网站的数据好像不给下载了，到底是什么原因呢

引子玄

xpxia 发表于 2012-12-27 13:04
现在500wan 这个网站的数据好像不给下载了，到底是什么原因呢

抓取的基本原理是＂即见即得＂
＂不让下载＂，是错误的说法

tonyibm

我一直没有弄懂的就是，如果使用XMLHTTP的话，这个URL要如何获取，之前看过用firefox的一个啥工具，但是公司不准电脑上面安装firefox,那还有什么其他办法可以取是对应的URL的不？

引子玄

tonyibm 发表于 2012-12-27 14:15
我一直没有弄懂的就是，如果使用XMLHTTP的话，这个URL要如何获取，之前看过用firefox的一个啥工具，但是公司 ...

Sub 开奖号提取()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = False
        .Navigate "http://zx.500.com/ssq/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
        a = .Document.All.tags("body")(0).outerHtml
        a = Split(Split(a, "开奖号码")(1), "奖池滚存")(0)
        MsgBox a
        .Quit
    End With
End Sub

joey0415

我也寫出來了，提供一下

1. Sub 彩票號碼()
   
2.     Dim x, i, z
   
3.     Set x = CreateObject("internetexplorer.application")
   
4.     x.Visible = True
   
5.     x.navigate ("http://zx.500.com/ssq/")
   
6.     While x.readystate <> 4 Or x.busy
   
7.     Wend
   
8.    
   
9.     y = 0
   
10.         '用父tag與子tag的方法找到
    
11.         z = x.document.getelementbyid("kj_opencode").getElementsByTagName("li").Length
    
12.         MsgBox "共找到" & z & "個"
    
13.      For i = 0 To z - 1
    
14.     'If x.document.getelementbyid("kj_opencode").getElementsByTagName("li")(i).innerText = "02" Then
    
15.       '  MsgBox "找到了"
    
16. '         End If
    
17.      
    
18.       MsgBox x.document.getelementbyid("kj_opencode").getElementsByTagName("li")(i).innerText
    
19.                
    
20.         
    
21.     Next
    
22. 
    
23. End Sub

复制代码

luanjinling

joey0415 发表于 2013-7-27 11:02
我也寫出來了，提供一下

从中学到了相关知识,谢谢!