用ASP+DLL实现WEB方式修改服务器时间

  次阅读 来源:互联网(转载协议) 2016-03-01 13:09 我要评论(0)

首先,在VB 6.0中建立一个ActiveX Dll工程项目,信息如下:

工程名称:systimeset

类模块名称:timeset

VB 6.0的类模块代码如下:

1Option Explicit 2Private SystemTime As SystemTime 3Private Declare Function SetSystemTime()Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long 4Private Type SystemTime 5wYear As Integer 6wMonth As Integer 7wDayOfWeek As Integer 8wDay As Integer 9wHour As Integer10wMinute As Integer11wSecond As Integer12wMilliseconds As Integer13End Type1415Dim tmp1617Private m_Hour As Integer18Private m_Minute As Integer19Private m_Year As Integer20Private m_Month As Integer21Private m_Day As Integer22Private m_Second As Integer2324'由李锡远修改修改日期:2006-08-31修改项目:增加对年、月、日、秒的操作25'--------------------26'年27Public Property Get()Property Get Year() As Integer28Year = m_Year29End Property30Public Property Let()Property Let Year(tmp_Year As Integer)31

本站部分文章来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

    品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

  • 第一批国家重点研发计划公布,旷视科技开启“五年行动”

    第一批国家重点研发计划公布,旷视科技开启“五年行动”

  • 让AI触手可及  Qualcomm携手创通联达推出全新终端侧AI开发套件

    让AI触手可及 Qualcomm携手创通联达推出全新终端侧AI开发套件

  • 长虹新款智能语音空调,告诉你空调也能玩Siri

    长虹新款智能语音空调,告诉你空调也能玩Siri

网友点评网友点评
阅读推荐阅读推荐

据外媒报道,STEER打造了首款完全自动驾驶停车技术,旨在使常规车辆转变为无人驾驶车辆。STEER的首款技术应用是4级自动驾驶及网络安全停车...

近日,美国软性机器抓手制造商 Soft Robotics 宣布,获得 2000 万美元的融资,本轮投资者包括 Scale Venture Partners,Calibrate Ventures...

据外媒报道,加州车管局发布了《2017自动驾驶脱离报告(California Autonomous Vehicle Disengagement Reports)》,其中谈及了脱离的具体...

用人机语音交互,来解决智能家居适老的问题;通过家庭门禁与安防套件、空气净化套件、可燃气体与有害气体监控套件等相互联动,在不同生活情...