内容每5分钟更新
客服QQ:4008017500
客服QQ:4008017500
点击： 回复：4364 关闭此页
自动更新开奖数据的excel文件旧更新地址数据保留更新到2022年12月1日，请尽快更换
楼主
4两搏千金 | 发表于2022-11-02 10:16:52
4两搏千金 | 发表于2022-11-02 10:16:522022年11月1日：整合更新数据源，更改数据原获取地址。旧更新地址数据保留更新到2022年12月1日，请尽快更换更新地址，更换方法如下：
1 下载号码表格，打开并鼠标右击Data或者按Alt+F11，打开号码数据源（如下图），修改数据原获取地址 http://e.17500.cn/getData/***.TXT（或其他）为http://data.17500.cn/***.txt
更新下载链接请点击：https://www.17500.cn/i10/0314/277064.php
2 获取地址 TXT 名称列表（注意 数据正序 倒序 名称不一样）：
1 下载号码表格，打开并鼠标右击Data或者按Alt+F11，打开号码数据源（如下图），修改数据原获取地址 http://e.17500.cn/getData/***.TXT（或其他）为http://data.17500.cn/***.txt
更新下载链接请点击：https://www.17500.cn/i10/0314/277064.php
2 获取地址 TXT 名称列表（注意 数据正序 倒序 名称不一样）：
3楼 duy3 | 发表于2022-11-02 18:10:24
双色球：http://data.17500.cn/ssq_asc.txt 更换新网址后“s = Split(.responseText, Chr(10))”不能分割了，请教怎么更改？
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
duy3 | 发表于2022-11-02 18:10:24双色球：http://data.17500.cn/ssq_asc.txt 更换新网址后“s = Split(.responseText, Chr(10))”不能分割了，请教怎么更改？
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
8楼 柯森 | 发表于2022-11-04 08:37:08
柯森 | 发表于2022-11-04 08:37:082022年11月1日：整合更新数据源，更改数据原获取地址。旧更新地址数据保留更新到2022年12月1日，请尽快更换更新地址，更换方法如下：
下载号码表格，打开并鼠标右击Data或者按Alt+F11，打开号码数据源（如下图），修改数据原获取地址 http://e.17500.cn/getData/***.TXT（或其他）为http://data.17500.cn/***.txt
更新下载链接请点击：https://www.17500.cn/i10/0314/277064.php
下载号码表格，打开并鼠标右击Data或者按Alt+F11，打开号码数据源（如下图），修改数据原获取地址 http://e.17500.cn/getData/***.TXT（或其他）为http://data.17500.cn/***.txt
更新下载链接请点击：https://www.17500.cn/i10/0314/277064.php
11楼 duy3 | 发表于2022-11-05 10:02:33
duy3 | 发表于2022-11-05 10:02:33'XMLHTTP属性
'onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
'responseBody: 结果返回为无符号整数数组?
'responseStream: 结果返回为IStream流?'
'responseText: 结果返回为字符串?
'responseXML: 结果返回为XML格式数据?
'onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
'responseBody: 结果返回为无符号整数数组?
'responseStream: 结果返回为IStream流?'
'responseText: 结果返回为字符串?
'responseXML: 结果返回为XML格式数据?
16楼 duy3 | 发表于2022-11-07 18:24:11
duy3 | 发表于2022-11-07 18:24:11code:StrURL = "http://data.17500.cn/ssq_asc.txt"
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate StrURL
While .readystate <> 4 Or .Busy = True
DoEvents
Wend
innertext = .document.body.innertext
.document.parentwindow.execscript "javascript:window.opener=null;window.open('','_self');window.close();"
S = Split(innertext, Chr(10))
End With
17楼 心情阳光 | 发表于2022-11-13 09:24:18
心情阳光 | 发表于2022-11-13 09:24:18