DECLARE LONG WSAStartup
IN "Ws2_32" LONG, STRING@
DECLARE LONG WSACleanup
IN "Ws2_32"
#INCLUDE vfp2c.h
SET LIBRARY TO vfp2c32.fll ADDITIVE
stWsaData
= REPLICATE(0h00, 398)
WSAStartup(0x202, @stWsaData)
?synctosntpserver("128.138.140.44",123)
WSACleanup()
RETURN
这个代码更简单