怎样编程获取另一微机的时钟（非net time方法）？

思考 2003-03-31 08:25:38

在win98下怎样编程获取另一微机的时钟，不用 net time方法
有api函数吗？

...全文

47 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

BAYERN 2003-04-03

打赏
举报

等着看。。。。。。。。。。。。。

思考 2003-04-03

打赏
举报

再up

lxcc 2003-04-02

打赏
举报

option Explicit

'

'

private Declare Function NetRemoteTOD Lib "Netapi32.dll" ( _

　　tServer as Any, pBuffer as Long) as Long

'

private Type SYSTEMTIME

　　wYear as Integer

　　wMonth as Integer

　　wDayOfWeek as Integer

　　wDay as Integer

　　wHour as Integer

　　wMinute as Integer

　　wSecond as Integer

　　wMilliseconds as Integer

End Type

'

private Type TIME_ZONE_INFORMATION

　　Bias as Long

　　StandardName(32) as Integer

　　StandardDate as SYSTEMTIME

　　StandardBias as Long

　　DaylightName(32) as Integer

　　DaylightDate as SYSTEMTIME

　　DaylightBias as Long

End Type

'

private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation as TIME_ZONE_INFORMATION) as Long

'

private Declare Function NetApiBufferFree Lib "Netapi32.dll" (byval lpBuffer as Long) as Long

'

private Type TIME_OF_DAY_INFO

　　tod_elapsedt as Long

　　tod_msecs as Long

　　tod_hours as Long

　　tod_mins as Long

　　tod_secs as Long

　　tod_hunds as Long

　　tod_timezone as Long

　　tod_tinterval as Long

　　tod_day as Long

　　tod_month as Long

　　tod_year as Long

　　tod_weekday as Long

End Type

'

private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination as Any, Source as Any, byval Length as Long)

'

'

public Function getRemoteTOD(byval strServer as string) as date

'　　

　　Dim result as date

　　Dim lRet as Long

　　Dim tod as TIME_OF_DAY_INFO

　　Dim lpbuff as Long

　　Dim tServer() as Byte

'

　　tServer = strServer & vbNullChar

　　lRet = NetRemoteTOD(tServer(0), lpbuff)

'　　

　　If lRet = 0 then

　　　　CopyMemory tod, byval lpbuff, len(tod)

　　　　NetApiBufferFree lpbuff

　　　　result = DateSerial(tod.tod_year, tod.tod_month, tod.tod_day) + _

　　　　TimeSerial(tod.tod_hours, tod.tod_mins - tod.tod_timezone, tod.tod_secs)

　　　　getRemoteTOD = result

　　else

　　　　Err.Raise Number:=vbObjectError + 1001, _

　　　　Description:="cannot get remote TOD"

　　End If

'

End Function

要运行该程序，通过如下方式调用。

private Sub Command1_Click()

　　Dim d as date

'

　　d = GetRemoteTOD("your NT server name goes here")

　　MsgBox d

End Sub

lxcc 2003-04-02