私人？申報？功能？NetRemoteTOD？Lib？“Netapi32.dll”？(?_
t服務器？作為什麽？有嗎？巴弗。作為什麽？長）？作為什麽？長的
私人？類型？系統時間
懷爾。作為什麽？整數
w月？作為什麽？整數
wDayOfWeek？作為什麽？整數
wDay？作為什麽？整數
我們的？作為什麽？整數
w分鐘？作為什麽？整數
第二次？作為什麽？整數
wMilliseconds？作為什麽？整數
結束？類型
私人？類型？時區信息
偏見？作為什麽？長的
標準名稱（32）？作為什麽？整數
標準日期？作為什麽？系統時間
標準偏見？作為什麽？長的
采光名稱（32）？作為什麽？整數
日光約會？作為什麽？系統時間
采光偏差？作為什麽？長的
結束？類型
私人？申報？功能？GetTimeZoneInformation？Lib？“內核32”？（lpTimeZoneInformation？作為什麽？時區信息）？作為什麽？長的
私人？申報？功能？NetApiBufferFree？Lib？“Netapi32.dll”？（比亞迪爾？lpBuffer？作為什麽？長）？作為什麽？長的
私人？類型？時間信息
tod_elapsedt？作為什麽？長的
tod_msecs？作為什麽？長的
托德小時？作為什麽？長的
分鐘後到達。作為什麽？長的
tod _ secs？作為什麽？長的
托德洪德？作為什麽？長的
tod _時區？作為什麽？長的
tod_tinterval？作為什麽？長的
今天是什麽時候？作為什麽？長的
月日？作為什麽？長的
具體日期？作為什麽？長的
工作日的時間？作為什麽？長的
結束？類型
私人？申報？Sub？復制記憶？Lib？“內核32”？別名？“RtlMoveMemory”？（目的地？作為什麽？有嗎？來源？作為什麽？有嗎？比亞迪爾。長度？作為什麽？長）
公共的？功能？getRemoteTOD（ByVal？strServer？作為什麽？字符串）？作為什麽？日期
暗淡？結果？作為什麽？日期
暗淡？lRet？作為什麽？長的
暗淡？tod？作為什麽？時間信息
暗淡？lpbuff？作為什麽？長的
暗淡？tServer（）？作為什麽？字節
t服務器？=?strServer？& amp？vbNullChar
lRet？=?NetRemoteTOD（tServer（0），？lpbuff）
如果？lRet？=?0?然後
復制記憶？托德？比亞迪爾。lpbuff，？len（tod）
NetApiBufferFree？lpbuff
結果？=?日期序列（tod.tod_year，月日？托德。托德日）？+?_
時間序列（tod.tod_hours，？托德。托德分鐘？-?托德時區？tod.tod _ secs）
getRemoteTOD？=?結果
其他
呃。養？Number:=vbObjectError？+?1001,?_
描述:=“不能？得到？遠程？TOD“
結束？如果
結束？功能
私人？Sub？Command1_Click（）
暗淡？d？作為什麽？日期
d？=?getRemoteTOD（“\ \ 192.168 . 0 . 9“）
MsgBox？d
結束？潛水艇