TC官方合作论坛

标题: tc简单开发，设置本地系统时间。 [打印本页]

作者: 剑仙十号 时间: 2017-8-15 16:19
标题: tc简单开发，设置本地系统时间。
本帖最后由剑仙十号于 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)
结束
//=======================================================

作者: 剑仙十号 时间: 2017-8-15 17:22
本帖最后由剑仙十号于 2017-8-30 11:42 编辑

做法1：
命令("cmd.exe /c date 2017-8-12",假)
命令("cmd.exe /c time 20:02:33",假)
这个不是创建进程来执行，会弹出黑黑的DOS窗口。

做法2：
把下面2句代码，写进记事本，
把记事本后缀名 a.txt改成 a.bat
用命令执行这个a.bat ，则不会弹出DOS窗口。
date 2017-8-12
time 20:02:02
命令(".\\a.bat",真)

tc简单开发_爱好群：
433 286 131(已满)

tc简单开发2_爱好群：
14335 8382(新开群)

tc文本处理_爱好群：
612 661 895(新开群)
文本群不讨论游戏，
只讨论文本办公，文本处理。字符串函数，正则表达式，word,excel,Access数据库。

作者: a145356 时间: 2017-8-15 17:32
sssssssssssssss

作者: 这论坛不错 时间: 2017-8-15 23:04
看看。。。

作者: bnphupai 时间: 2017-8-16 10:46
单开发，设置系统时间。 [修

作者: 剑仙十号 时间: 2017-8-16 10:49
用API设置系统时间，需要管理员权限。
来宾客户会提示设置失败。

作者: 460071560 时间: 2017-8-16 14:43
ddddddddddd

作者: jushunhe 时间: 2017-8-17 16:25
tc简单开发，设置系统时间

作者: callofduty890 时间: 2017-8-20 16:32
看看哈哈哈

作者: silverlight 时间: 2017-8-22 11:31
谢谢了

作者: ms5084456 时间: 2017-8-22 18:48
本帖最后由 ms5084456 于 2017-8-22 18:51 编辑

我用的批处理
TIME="DATE "&年&"/"&月&"/"&日&"\r\nTIME "&时&":"&分&":"&秒

作者: as963838 时间: 2017-8-29 09:14
看看看啦啦啦啦

作者: 剑仙十号 时间: 2017-8-29 19:55
12345678.

作者: a145356 时间: 2017-8-30 14:15
设置失败

作者: lanskylin 时间: 2017-9-1 16:35
学习学习

作者: zhainanup 时间: 2017-10-13 12:34
564321321

作者: say 时间: 2017-10-18 01:40
学习

作者: shkasim 时间: 2018-1-21 17:19
ddddddd

作者: 472540265 时间: 2018-1-22 09:17
的点点滴滴多多多多多多多多

作者: flywuya88 时间: 2018-2-20 17:02
本地系统时间

作者: wll1309371 时间: 2018-9-6 17:49
学习学习

作者: 舍我其谁 时间: 2018-9-10 12:56
厉害了,,,,,

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)