• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lấy thời gian từ máy chủ

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Hướng Dẫn Lấy thời gian từ máy chủ
• Lấy thời gian từ máy chủ

• Lấy thời gian từ máy chủ

  trangdv.pchg > 21-12-16, 06:56 PM

  Làm thế nào để lấy thời gian từ 1 máy chủ (máy có chứa dữ liệu) trong mạng LAN

• RE: Lấy thời gian từ máy chủ

  maidinhdan > 21-12-16, 10:33 PM

  (21-12-16, 06:56 PM)trangdv.pchg Đã viết: Làm thế nào để lấy thời gian từ 1 máy chủ (máy có chứa dữ liệu) trong mạng LAN

  
  Trình bày mục đích của bạn là muốn làm cái gì? Hỏi gì mà sợ tốn mực thế

• RE: Lấy thời gian từ máy chủ

  trangdv.pchg > 21-12-16, 11:43 PM

  minh muon lay thoi gian thuc tu mot may chu de dong bo thoi gian giua may tram va may chu

• RE: Lấy thời gian từ máy chủ

  trangdv.pchg > 22-12-16, 07:07 AM

  Do dữ liệu để ở máy chủ, nếu máy trạm mất kết nối Internet thì có thể lấy thời gian từ máy chủ để đảm bảo vẫn có thời gian thực.

• RE: Lấy thời gian từ máy chủ

  ongke0711 > 22-12-16, 10:54 AM

  Có 2 cách cho bạn.
  1. Để đề phòng việc nhân viên chỉnh sửa ngày giờ hệ thống trên PC nhập liệu thì bạn có thể dùng lệnh Dos : NET TIME để đồng bộ giờ PC với máy chủ.
  2. Thuần túy lấy thông tin ngày giờ máy chủ.
  
  Cách 1: đồng bộ giờ
  - Tạo 1 file .bat có nội dung là câu lệnh DOS để đồng bộ giờ máy chủ. Ví dụ file .bat đặt tên là: TimeSync.bat và lưu ở ổ C:\
    NET TIME \\TenServer /SET /YES
  (Thông số /SET: để đồng bộ giờ; /YES: để cmd.exe tự thực thi không cần hỏi bạn có đồng ý hay không (Y/N?)
  - Code để chạy lệnh DOS:
  
  

  Mã PHP:

  Private Sub cmdTimeSync_Click()

   
   Dim FileName As String
   FileName = "C:\TimeSync"  'File TimeSync.bat: NET TIME \\TenSERVER /SET /YES'

   Call Shell("cmd.exe /k " & FileName)
   
End Sub 


  
  Cách 2: Lấy thông tin thời gian
  - Dùng hàm bên VB chia sẽ. Copy đoạn code dưới đây vào module, đặt tên basTimeSync.
  - Tạo 1 nút lệnh chạy test:
  Private Sub cmdTest_Click()
        MsgBox GetRemoteTime("\\TENSERVER")
  End Sub
  
  

  Mã PHP:

  Option Explicit
'API Structures'
Type TIME_OF_DAY_INFO
   tod_elapsed 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

'NetAPI Calls'
Public Declare Function NetRemoteTOD Lib "netapi32.dll" (yServer As Any, pBuffer As Long) As Long
Private Declare Function NetApiBufferFree Lib "netapi32.dll" (ByVal pBuffer As Long) As Long
'Kernel API Calls'
Private Declare Sub CopyMem Lib "kernel32.dll" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long)

'Lay thông tin thoi gian o máy chu trong mang'
Public Function GetRemoteTime(ServerName As String) As Date
   Dim lpBuffer As Long
   Dim t_struct As TIME_OF_DAY_INFO
   Dim ret As Long
   Dim bServer() As Byte

   If Trim(ServerName) = "" Then
       'Neu khong có ten may chu -> lay tu may PC dang chay'
       ret = NetRemoteTOD(vbNullString, lpBuffer)
   Else
       
       If InStr(ServerName, "\\") = 1 Then
           bServer = ServerName & vbNullChar
       Else
           bServer = "\\" & ServerName & vbNullChar
       End If
       ret = NetRemoteTOD(bServer(0), lpBuffer)
   End If
   CopyMem t_struct, ByVal lpBuffer, Len(t_struct)
   If lpBuffer Then
       Call NetApiBufferFree(lpBuffer)
   End If
   GetRemoteTime = DateSerial(t_struct.tod_year, t_struct.tod_month, t_struct.tod_day) + TimeSerial(t_struct.tod_hours, t_struct.tod_mins - t_struct.tod_timezone, t_struct.tod_secs)
End Function 

• Bài trước Bài tiếp