| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何网络上的日期 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161858) |
| -- 作者：漂亮美眉vszh -- 发布时间：2021/4/1 12:00:00 -- 如何网络上的日期 老师：如果电脑上单机版，电脑日期改了，取的日期就是电脑的日期，数据库在当前已更改日期的电脑上。 要取的日期是网络上的日期，能取到么？ |
| -- 作者：有点蓝 -- 发布时间：2021/4/1 14:04:00 -- 如果电脑可以联网，参考： Dim htc As new HttpClient("https://www.baidu.com/") htc.GetInformation() htc.Close() Dim gmtStr As String = htc.ResponseHeaders("Date") Output.Show(gmtStr ) Dim enUS As new System.Globalization.CultureInfo("en-US") Dim d As Date DateTime.TryParseExact(gmtStr, "r", enUS, System.Globalization.DateTimeStyles.AssumeLocal, d) Output.Show(d ) d = d.AddHours(8) Output.Show(d ) |
| -- 作者：lihe60 -- 发布时间：2022/6/9 8:58:00 -- 如何获取当前电脑所在地？ |
| -- 作者：有点蓝 -- 发布时间：2022/6/9 9:24:00 -- 调用接口查询：https://www.baidu.com/s?wd=ip%E6%9F%A5%E8%AF%A2%E6%8E%A5%E5%8F%A3 调用方法：http://www.foxtable.com/mobilehelp/topics/0157.htm
|
| -- 作者：lihe60 -- 发布时间：2022/6/10 14:17:00 -- CS [此贴子已经被作者于2022/6/10 14:19:59编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/6/10 14:18:00 -- 使用HttpClient调用接口获取 |
| -- 作者：lihe60 -- 发布时间：2022/6/10 14:22:00 -- Dim web As New System.Windows.Forms.WebBrowser() web.ScriptErrorsSuppressed = True web.Navigate("http://pv.sohu.com/cityjson#%20设置编码http://pv.sohu.com/cityjson?ie=utf-8") Do Until web.ReadyState = 4 Application.DoEvents Loop Dim tb As object = web.Document.GetElementsByTagName("table")(2) Dim trs = tb.GetElementsByTagName("tr") For i As Integer = 0 To trs.count-1 Dim tds As object = trs(i).GetElementsByTagName("td") For j As Integer = 0 To tds.count-1 output.show(i & "行" & j & "列:" & tds(j).innerText) Next Next 这个代码有错误
|
| -- 作者：有点蓝 -- 发布时间：2022/6/10 14:32:00 -- Dim hc As New HttpClient("http://pv.sohu.com/cityjson#%20设置编码http://pv.sohu.com/cityjson?ie=utf-8") hc.ResponseEncoding = "GBK" Dim dt As String = hc.GetData() MessageBox.Show(dt) [此贴子已经被作者于2022/6/10 14:31:52编辑过]
|
| -- 作者：lgzhao -- 发布时间：2023/2/14 3:57:00 -- mark |