在好例子网,分享、交流、成长!
您当前所在位置:首页C# 开发实例C#网络编程 → 极速北京对时(VB.NET代码)

极速北京对时(VB.NET代码)

C#网络编程

下载此实例
  • 开发语言:C#
  • 实例大小:0.07M
  • 下载次数:10
  • 浏览次数:332
  • 发布时间:2017-01-23
  • 实例类别:C#网络编程
  • 发 布 人:zjxuan
  • 文件格式:.rar
  • 所需积分:2
 相关标签: 北京对时

实例介绍

【实例简介】

没有VB.NET选项,只能归为C#分类了,反正共用的是.NET思路差不多。

使用VS2010编译通过,越过UAC(用户控制)提升权限设置WIN7以上的系统时间(修改app.manifest)。网页对时,避开其它对时方法限制和速度慢的缺点。
对时极速,代码量估计是全网里最精简的了,代码通俗易懂。所以给小弟3分也

不足为过吧。
代码1在C#和VB.NET的思路通用,代码2为VB.NET特有,后者代码少半。
具体说明:
1.代码1在C#和VB.NET的思路通用,代码2为VB.NET特有,代码2代码量少半。
2.由于修改了项目属性app.manifest,所以打开项目时会提示你提升权限,请选择“使用其他凭据重新启动”即可。
3.用C#的朋友,可以按我的VB.NET代码思路对应重写一遍,注意VB.NET代码中SetSystemTime(st)改为C#代码时要变为SetSystemTime(ref st)。说实话,感觉C#和VB.NET语法用意基本一致。
4.VB.NET中设置系统时间可以简单使用Today = sk和TimeOfDay = sk,而C#好像没有此用法。
【实例截图】 


【核心代码】

Public Class Form1
    Private Sub 对时_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 对时.Click
        Dim thr As Thread
        thr = New Thread(AddressOf dsh)
        thr.IsBackground = True '设置这个目的是为了随主程序关闭而关闭本线程
        thr.Start()
    End Sub

    Public Sub dsh() '网络对时
        Try
            Dim sp$
            Dim sk As DateTime '时刻
            sp = dw("http://www.beijing-time.org/time15.asp", System.Text.Encoding.Default)
            sk = DateTime.ParseExact(Regex.Match(sp, "(?<=nyear=)[\s\S]*?(?=;)").Value & "-" & Regex.Match(sp, "(?<=nmonth\=)[\s\S]*?(?=;)").Value & "-" & Regex.Match(sp, "(?<=nday\=)[\s\S]*?(?=;)").Value & " " & Regex.Match(sp, "(?<=nhrs\=)[\s\S]*?(?=;)").Value & ":" & Regex.Match(sp, "(?<=nmin\=)[\s\S]*?(?=;)").Value & ":" & Regex.Match(sp, "(?<=nsec\=)[\s\S]*?(?=;)").Value, "yyyy-M-d H:m:s", CultureInfo.InvariantCulture)
            sp = Now
            Today = sk
            TimeOfDay = sk
            Me.Invoke(Sub()
                          MsgBox("对时前:" & sp & vbCrLf & "对时后:" & sk.ToString)
                      End Sub)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Public Function dw(ByVal sss$, ByVal ec As System.Text.Encoding) As String '提取网页信息,sss为网址,s=网页代码
        dw = ""
        Try
            Return New StreamReader(WebRequest.Create(sss).GetResponse().GetResponseStream(), ec).ReadToEnd()
        Catch ex As Exception
        End Try
    End Function
End Class


标签: 北京对时

实例下载地址

极速北京对时(VB.NET代码)

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警