50分求一个简单程序
做一个服务端跟客户端程序，使得客户端一启动 客户端的系统时间 自动修改为 服务端的系统时间，
并且服务端自动发送几个文件到客户端某固定文件夹
急啊！谢谢了！
问题点数：50、回复次数：8Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-05 10:33:16 得分 10
修改系统日期、时间：
Date="2006-03-05"
Time="10:33"Top
2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-05 10:36:45 得分 20
从远程NT服务器中读取日期和时间
（作者： 2000年05月19日 10:36）
[程序语言] Microsoft Visual Basic 4.0,5.0,6.0
[运行平台] WINDOWS
[源码来源] http://codeguru.developer.com/vb/articles/1915.shtml
[功能描述]
该程序正常执行后，将返回日期和时间值。而如果NetRemoteTOD API调用失败，则显示出错信息。
它将包含所有的时区信息。把下列代码加入到标准的BAS模块中。
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
Top
3 楼ludayi2001（陆毅）回复于 2006-03-05 10:37:51 得分 0
自动修改为 服务端的系统时间!!!Top
4 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-05 10:39:55 得分 20
发送文件可以用 WinSock控件来做Top
5 楼Silo（炽天之翼）回复于 2006-03-05 11:59:51 得分 0
mark，备用Top
6 楼pa_wei（肖玮）回复于 2006-03-05 13:49:22 得分 0
先所服务器的系统时间获取到,然后再用data=服务器的时间.就这样
还不懂的就,给我联系pa_wei@163.comTop
7 楼ludayi2001（陆毅）回复于 2006-03-05 14:19:52 得分 0
你好，我想做一个服务端与客户端程序，请问怎么获取服务器时间并修改客户机时间，请给出代码好吗？谢谢！我已经发邮件了Top
8 楼jpzLove（云步天）回复于 2006-03-10 00:18:11 得分 0
做一个ASP网页，是系统正确时间。客户端通过Webbrowser访问该服务器ASP页面。然后客户端自动将该页面内容转到Text中，就得到了服务器正确的日期和时间了。Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
