马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
本帖最后由 剑仙十号 于 2017-9-14 15:19 编辑
设置本地系统时间。SetLocalTime
关键词：
tc简单开发，怎样设置系统时间。
tc简单开发，怎样修改系统时间。
按键精灵，怎样设置系统时间？
按键精灵，怎样修改系统时间？
var 线程ID, bool
功能 执行()
//获取网络时间。
var 页面源码 = http获取页面源码("http://www.beijing-time.org/time15.asp", "utf-8")
var arr = 正则表达式匹配(页面源码, "(\\d+)", true, true)
var now = arr[1] & "年" & arr[2] & "月" & arr[3] & "日" & arr[5] & "时" & arr[6] & "分" & arr[7] & "秒,星期" & arr[4]
traceprint(now)
//设置本地系统时间。
var ST = SYSTEMTIME()
ST["wYear"]["value"] = arr[1]
ST["wMonth"]["value"] = arr[2]
ST["wDay"]["value"] = arr[3]
ST["wHour"]["value"] = arr[5]
ST["wMinute"]["value"] = arr[6]
ST["wSecond"]["value"] = arr[7]
bool = SetLocalTime(ST)
traceprint(bool)
if(bool == true)
traceprint("本地系统时间，设置成功。")
end
结束
功能 启动_热键()
bool = 线程获取状态(线程ID)
if(bool == false)
线程ID = 线程开启("执行", "")
else
messagebox("线程执行中,不要重复启动.")
end
结束
功能 终止_热键()
线程关闭(线程ID)
结束
//=======================================================
|
[复制链接]
/2 
发表于 2017-8-15 16:19:19
收藏
支持
反对
