【变量和数组】结构体4。实战系统api，设置本地系统时间。

【变量和数组】结构体4。实战系统api，设置本地系统时间。
.
设置本地系统时间。系统api_SetLocalTime()
关键词：
tc简单开发，设置本地系统时间。
tc简单开发，修改本地电脑时间。
按键精灵，设置本地系统时间。
按键精灵，修改本地电脑时间。
1、SetLocalTime设置北京时间；
SetSystemTime设置格林威治时间，比北京时间晚8小时，需要调整wHour。
2、对于这两个函数，其输入参数必须是一个下面这样的结构体，其成员变量类型必须是ushort(2字节)。 成员变量的顺序_不能改变。
3、初始化SYSTEMTIME结构体，是不能忽略其成员变量wDayOfWeek，wMilliseconds的。 设置lpSystemTime->wDayOfWeek = -1; lpSystemTime->wMilliseconds = 0;
否则将返回0，不能成功设定本机时间。
4、而对于那两个Get的方法GetSystemTimer(),和GetLocalTime()的使用，相信不成什么问题，就不多说了。
//=======================================================
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)
结束
//定义部分===================================================
//结构体部分.
功能 SYSTEMTIME()
var ST0 = 数组() //定义SYSTEMTIME结构。
ST0["wYear"] = 数组("short" = 1 ,"value" = 0)
ST0["wMonth"] = 数组("short" = 1 ,"value" = 0)
ST0["wDayOfWeek"] = 数组("short" = 1 ,"value" = -1) //0=星期日，1=星期一...…
ST0["wDay"] = 数组("short" = 1 ,"value" = 0)
ST0["wHour"] = 数组("short" = 1 ,"value" = 0)
ST0["wMinute"] = 数组("short" = 1 ,"value" = 0)
ST0["wSecond"] = 数组("short" = 1 ,"value" = 0)
ST0["wMilliseconds"] = 数组("short" = 1 ,"value" = 0)
return ST0
结束
//api部分.
功能 SetLocalTime(&SetSystem0)
var bool0= dllcall("kernel32.dll","long","SetLocalTime", "pstruct",SetSystem0)
return bool0
结束
//=======================================================
[hide]
全部内容，请跳转到论坛查看。
http://bbs.tyuyan.net/forum.php?mod=viewthread&tid=69100&mobile=no
[/hide]