重庆时时彩自动更新号码模板（网站升级后）--12。21更新

sxhjzsy

请楼主更新啊

爱_很简单

我下载了。。昨天还好好的，，今天就下标越界。。运行不了了。。。{:soso_e105:}
  还有那个500万的。。别人都要开奖了。。。才更新出来。。。

sxhjzsy

我和你一样不能用了

@安@

现在不能更新了，楼主要升级的

weidajunjun

楼主快快感谢啊!先谢谢了!

kangatang

查看其他日期，修改红色部分日期即可

Sub Download2()
Dim tmp As String
With CreateObject("internetexplorer.application")
        .Visible = False
        .Navigate "http://data.shishicai.cn/cqssc/haoma/2013-01-11/"
         Do Until .readystate = 4
             DoEvents
         Loop
         Set Tables = .document.All.tags("TABLE")
         For Each Table In Tables
            If Table.classname = "data_tab" Then
                Set mytable = Table
                Exit For
            End If
         Next
         Do Until tmp <> ""
              tmp = mytable.innerHTML
              DoEvents
         Loop
            Set r = mytable.Rows
            For m = 1 To r.Length - 1
                For j = 0 To r(m).Cells.Length - 1
                    Cells(m, j + 1) = r(m).Cells(j).innerText
                Next j
            Next m
        .Quit
End With
MsgBox "OK"
End Sub

kangatang

还是给附件吧。不需要不需要调整红色部分的日期，改为自动辨认当前日期。 IE法更新.rar (10.13 KB, 下载次数: 142)

2013-1-11 16:44 上传

点击文件名下载附件

现在网站改成POST方式返回数据，以前的GET用不了。
POST http://data.shishicai.cn/handler/kuaikai/data.ashx HTTP/1.1
x-requested-with: XMLHttpRequest
Accept-Language: zh-cn
Referer: http://data.shishicai.cn/cqssc/haoma/2013-01-11/
Accept: */*
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; chromeframe/23.0.1271.91; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648)
Host: data.shishicai.cn
Content-Length: 25
Proxy-Connection: Keep-Alive
Pragma: no-cache
Cookie: Hm_lvt_cad2e9c6544a1e8f06862d019ce44f71=1357877408,1357879763,1357880511,1357880593; Html_v_54=dd75; ssc_user_LandingPage=http%3a%2f%2fdata.shishicai.cn%2fcqssc%2fhaoma%2f2013-01-11%2f; ssc_user_RegEnterPage=http%3a%2f%2fdata.shishicai.cn%2fcqssc%2fhaoma%2f2013-01-11%2f

Postdata = “lottery=4&date=2013-01-11”

weidajunjun

感谢楼主分享!不过貌似不如1楼附件好用!

kangatang

weidajunjun 发表于 2013-1-12 04:40
感谢楼主分享!不过貌似不如1楼附件好用!

方法不一样。用xmlhttp会快点。

weidajunjun

高人 忙里偷闲  1楼附件感谢吧!