【剑仙教程】结构体4。结构体实战案例。设置本地系统时间。

剑仙十号

【剑仙教程】结构体4。结构体实战案例。设置本地系统时间。
.
设置本地系统时间。系统api_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)
结束
//定义部分===================================================
功能 SYSTEMTIME()
var ST0 = 数组() //定义SYSTEMTIME结构。
//数据类型，在VC++中使用unshort类型，TC中必须使用short类型。否则设置失败。
ST0["wYear"]  = 数组("short" = 1 ,"value" = 0)
ST0["wMonth"]  = 数组("short" = 1 ,"value" = 0)
ST0["wDayOfWeek"]  = 数组("short" = 1 ,"value" = -1) //0=星期日，1=星期一...… wDayOfWeek必须设置成-1，wMilliseconds必须有数值。否则设置失败。
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
结束
功能 SetLocalTime(&SetSystem0)
var bool0= dllcall("kernel32.dll","long","SetLocalTime", "pstruct",SetSystem0)
return bool0
结束
//=======================================================

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

剑仙十号

二楼，更新信息专用。
上一篇：【剑仙教程】结构体3。二维.关联数组的学习。
http://bbs.tyuyan.net/forum.php?mod=viewthread&tid=69097&mobile=no

下一篇：已结束。


tc简单开发_爱好群：
433 286 131(已满)
.
tc简单开发2_爱好群：
14335 8382(新群)
.
tc文本处理_爱好群：
612 661 895(新群)
.
文本群不讨论游戏，
只讨论文本办公，文本处理。字符串函数，正则表达式，word,excel,Access数据库。
//
本群大神众多，新手众多，群文件里面_资源海量。普及编程基础，为中国编程事业_做贡献。

sxw005

好东西要学习

fengruili1

谢谢分享 学习下

cxmin123456

*************

15069211280

辅导费

MCyouxi

功能 SetLocalTime(&SetSystem0)
var bool0= dllcall("kernel32.dll","long","SetLocalTime", "pstruct",SetSystem0)
return bool0
结束

wll1309371