重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

关于VBnet获取网页时间的信息

VB.net中如何获取远程时间,像VB6中可以用getRemoteTOD,那VB.net 呢?最好有详细代码?谢谢!

先要清楚VB6中getRemoteTOD是什么?

从事珉田数据中心,服务器租用,云主机,网页空间,域名与空间,CDN,网络代维等服务。

VB.net中如何获取远程时间,可以利用web页面取值.

'--------------------

百度VB2010(VB.NET)吧建设发展中,需要你的支持和帮助!!!

快加入我们吧!发表你的疑问,经验,程序,分享..

让我们共同进步!

vb.net获取年,月,日,时,分,秒

不是 有 函数嘛?

now() 就是 吧

取得 后 再 分离出你所需的,分别赋值 就行了,当然 还是 有 函数的

VB 网络时间问题

事实上在Internet上有三个不同的时间服务,每一个都由Request for Comment(RFC)定义为Internet日期时间标准。这三个标准分别为:RFC-867、RFC-868和RFC-1305。下面就先介绍RFC-867:RFC867 Daytime协议(RFC867 Daytime Protocol)本RFC规范了一个ARPA Internet community上的标准。在ARPA Internet上的所有主机应当采用和实现这个标准。一个有用的测量和调试工具就是daytime服务。它的作用就是返回当前时间和日期,格式是字符串格式。 * 基于TCP的daytime服务 daytime服务是基于TCP的应用,服务器在TCP端口13侦听,一旦有连接建立就返回ASCII形式的日期和时间(接收到的任何数据被忽略),在传送完后关闭连接。 * 基于UDP的daytime服务 daytime服务也可以使用UDP协议,它的端口也是13,不过UDP是用数据报传送当前时间的。接收到的数据被忽略。 * Daytime格式 对于daytime没有特定的格式,建议使用ASCII可打印字符,空格和回车换行符。daytime应该在一行上。下面是两种流行的格式:一种流行的格式是:Weekday, Month Day, Year Time-Zone例子:Tuesday, February 22, 1982 17:37:43-PST另一种流行的格式用于SMTP中:dd mmm yy hh:mm:ss zzz例子:02 FEB 82 07:59:01 PST 注意:对于机器来说,有用的时间采用了时间协议(Time Protocol RFC-868) 接下来我们用VB程序实现通过RFC867协议设置我们自己的计算机系统时间,为使程序简化,程序未进行日期校正,只进行时间校正。在FORM1中添加1个Winsock控件,将下面代码剪贴到FORM1的代码窗体中即可: Option Explicit'采用RFC867 Daytime协议获取标准时间例程' 为中科院国家授时中心,采用北京时间'时间格式:Mon Jul 26 09:58:57 2004'time.nist.gov为美国标准技术院,采用格灵威时间'时间格式:53212 04-07-26 02:00:12 50 0 0 488.3 UTC(NIST) *Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim NoSrv As BooleanDim TimeFromNet Private Sub Form_Load()Winsock1.Protocol = sckTCPProtocol '采用TCP协议NetTime " " '首先取中科院国家授时中心时间If NoSrv Or TimeFromNet = "" Then'若未取到中科院国家授时中心时间,则取美国标准技术院时间NetTime "time.nist.gov"If NoSrv Or TimeFromNet = "" Then'若不能取美国标准技术院时间,则报错MsgBox "检测不到网络标准时间服务器time.nist.gov!"Else'为使网络传输误差减小,第2次再取美国标准技术院时间NetTime "time.nist.gov"If TimeFromNet = "" ThenMsgBox "网络标准时间服务器time.nist.gov超时!"ElseTimeFromNet = Mid(TimeFromNet, 17, 8)TimeFromNet = TimeSerial((Hour(TimeFromNet) + 8) Mod 24, Minute(TimeFromNet), Second(TimeFromNet))Time = TimeFromNet '设置系统时间End IfEnd IfElse'为使网络传输误差减小,第2次再取中科院国家授时中心时间NetTime " "If TimeFromNet = "" ThenMsgBox "网络标准时间服务器 超时!"ElseTime = Mid(TimeFromNet, 12, 8) '设置系统时间End IfEnd IfEndEnd Sub '关闭Winsock子程序Private Sub Winsock1_Close()If Winsock1.State sckClosed ThenWinsock1.CloseEnd IfEnd Sub 'Winsock接收数据事件Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)TimeFromNet = String(bytesTotal, " ")Winsock1.GetData TimeFromNet, vbString, bytesTotalEnd Sub 'Winsock出错事件Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)NoSrv = TrueEnd Sub '从互联网上标准时间提供网站获取标准时间Private Sub NetTime(TimeSrv As String)NoSrv = FalseTimeFromNet = ""If Winsock1.State sckClosed Then Winsock1.CloseWinsock1.RemoteHost = TimeSrv ' " " 或 "time.nist.gov"Winsock1.RemotePort = 13Winsock1.LocalPort = 0Winsock1.ConnectDo While TimeFromNet = "" '循环等待标准时间网站返回时间数据If NoSrv Then Exit Do '若Winsock出错,则跳出循环等待Sleep 55DoEventsLoopIf Winsock1.State sckClosed Then Winsock1.CloseEnd Sub

VB.NET 获取文件最近访问日期

在文件上右单击鼠标可以看到文件的创建时间、修改时间以及最后访问时间,你取到的时间只要和它们对上就行了,因为这些属性取自文件自身的属性,跟你把文件存了多长时间没有必然的联系。

File.GetLastAccessTime是文件的最后访问时间。

Directory.GetLastAccessTime目录(文件夹)的最后访问时间。

vb.net如何获取完整时间

用大写的H可以显示24小时制:

(Format(DateTime.Now, "yyyyMMddHHmmss")).ToString

vb.net如何获取时间格式?

可以访问注册表HKEY_CURRENT_USER\Control Panel\International下面的一些键值

如sShortDate键值表示的是短日期sLongDate表示的是长日期

中文下的短日期是 yyyy-M-d

中文下的长日期是 yyyy'年'M'月'd'日'


网站标题:关于VBnet获取网页时间的信息
URL分享:http://cqcxhl.com/article/dodijdj.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP