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

[思考]

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

[思考]

看来还得用 Net Time \\计算机名 >a.txt
5555555555555555555 !!!

[NowCan]

'NETAPI32
Private Declare Function NetRemoteTOD Lib "NETAPI32.DLL" (ByVal UncServerName As String, ByVal BufferPtr As String) As Long

[思考]

要求对方的计算机不能安装任何软件，如winsock

[lxcc]

up

[watt]

i don't know.

[思考]

up

[_131_]

打电话去问问，然后写到程序里面！

[NowCan]

98???

[思考]

谢谢，可是在win98下不行啊，找不到 DLL 入口点 NetRemoteTOD in Netapi32.dll

[cbr7619]

如果对方机上有sql-server的话，
可用getdate()函数使得两机的时间一致

[思考]

没有sql-server,只想取对方计算机时钟,不想校对本机时钟

[思考]

谢谢,楼上的是指win2000吧,那在win98下呢?

[flowerboyhgc]

up

[思考]

up

[lxcc]

up

[lxcc]

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

[思考]

再up

[BAYERN]

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