vbs开机自动启动同步系统时间

胜的青春

胜的青春

2016-02-19 20:24

想要天天向上,就要懂得享受学习。图老师为大家推荐vbs开机自动启动同步系统时间,精彩的内容需要你们用心的阅读。还在等什么快点来看看吧!

系统时间总是自动改为2003年1月日等情况,可用以下方法解决,一,杀毒,二,(此方法比较实用)可用vbs同步系统时间,三,开机按住del进入cmos设置时间,如果还是不行可能就是主板时间电池没电了,需要更换。一下是vbs代码法,将一下代码复制到文本文档里,然后扩展名由txt改为vbs,即可解决。

===========================(复制以下代码)======================================

set fso=CreateObject("Scripting.FileSystemObject")

set ws=CreateObject("wscript.shell")

set f=fso.getfile(wscript.scriptfullname)

ws.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionRun"&f.name,f.path

"Created By escortmnm from VBS团队 这些代码为开机自动启动 下面代码为自动同步时间

strComputer="."

Set objSWbemDateTime=CreateObject("WbemScripting.SWbemDateTime")

Set objWMIService=GetObject("winmgmts:{(Systemtime)}" & strComputer & "rootcimv2")

oldtime = Now()

"设置新的日期和时间(可用 10:38:00 PM 上下午格式)

""2009-8-5 08:35:49"

strNewDateTime=GetServerTime()

objSWbemDateTime.SetVarDate strNewDateTime,True

dtmNewDateTime=objSWbemDateTime.Value

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem")

For Each objOS In colOSes

objOS.SetDateTime dtmNewDateTime

Next

newtime = Now()

Wscript.Echo oldtime & " " & newtime

Function GetServerTime()

Url = "http://www.time.ac.cn/stime.asp"

innerHTML = BytesToStr(GetHttpPage(Url),"GB2312")

Dim regEx, mh, mhs "建立变量

Set regEx = New RegExp "建立正则表达式

regEx.IgnoreCase = False "设置是否区分字符大小写

regEx.Global = True "设置全局可用性

p1 = "script language=[sS]+?document.write("([0-9]{4})[sS]+?([0-9]{1,2})[sS]+?([0-9]{1,2})[sS]+?")[sS]+?var hrs = ([0-9]{2})[sS]+?var min = ([0-9]{2})[sS]+?var sec = ([0-9]{2})"

regEx.Pattern = p1

Set mhs = regEx.Execute(innerHTML) "执行搜索

GetServerTime = Now()

If mhs.Count0 Then

net_year = CStr(mhs.Item(0).SubMatches(0))

net_month = CStr(mhs.Item(0).SubMatches(1))

net_date = CStr(mhs.Item(0).SubMatches(2))

net_hour = CStr(mhs.Item(0).SubMatches(3))

net_minute = CStr(mhs.Item(0).SubMatches(4))

net_second = CStr(mhs.Item(0).SubMatches(5))

GetServerTime = net_year & "-" & net_month & "-" & net_date & " " & net_hour & ":" & net_minute & ":" & net_second

End If

End Function

Function GetHttpPage(URL)

On Error Resume Next

Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")

objXmlHttp.Open "GET",URL,False

objXmlHttp.Send()

If objXmlHttp.readyState 4 Then

Exit Function

End If

GetHttpPage = objXmlHttp.ResponseBody

If Err.Number 0 Then

Set objXmlHttp=Nothing

"GetHttpPage = "$False$"

Exit Function

End If

Set objXmlHttp = Nothing

End Function

Function BytesToStr(Str,Chrset)

Dim objStream

Set objStream = CreateObject(Replace("ADODB-qw-Stream","-qw-","."))

objStream.Mode = 3

objStream.Type = 1

objStream.Open

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

objStream.Write Str

objStream.Position = 0

objStream.Type = 2

objStream.Charset = Chrset

BytesToStr = objStream.Readtext

objStream.Close()

Set objStream = Nothing

End Function

======================================(虚线不要复制)=======================================

展开更多 50%)
分享

猜你喜欢

vbs开机自动启动同步系统时间

电脑入门
vbs开机自动启动同步系统时间

Windows7系统设置自动同步系统时间

电脑网络
Windows7系统设置自动同步系统时间

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Win 8系统掌控开机自动启动程序

电脑入门
Win 8系统掌控开机自动启动程序

Win8如何设置自动同步系统时间

windows系统
Win8如何设置自动同步系统时间

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Windows8中如何设置自动同步系统时间

windows系统
Windows8中如何设置自动同步系统时间

Win8系统设置时间自动同步方法教程

windows系统
Win8系统设置时间自动同步方法教程

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Java基础知识:谈谈简单Hibernate入门

Java基础知识:谈谈简单Hibernate入门

CSS中expression使用简介

CSS中expression使用简介
下拉加载更多内容 ↓