tc简单开发，设置本地系统时间。

剑仙十号

设置本地系统时间。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)
结束
//=======================================================

游客，如果您要查看本帖隐藏内容请回复

剑仙十号

做法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

sssssssssssssss

这论坛不错

看看。。。

bnphupai

单开发，设置系统时间。 [修

剑仙十号

用API设置系统时间，需要管理员权限。
来宾客户 会提示设置失败。

460071560

ddddddddddd

jushunhe

tc简单开发，设置系统时间

callofduty890

看看哈哈哈

silverlight

谢谢了