• Trang chủ click to expand contents 

  • [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

  • [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

    maidinhdan > 09-09-15, 11:27 PM

    Công dụng: Sử dụng các chức năng này để xác định xem một tập tin hoặc thư mục có thể truy cập không, đặt biệt thích hợp cho các ứng dụng kết nối qua LAN, xem máy chủ đang tắt hay mở, nếu không có code này, máy con khi mở ứng dụng nó chạy lòng vòng khoảng 1 phút sau hiện 1 thông báo toàn Tiếng anh, rất phiền phức.

    Khả năng áp dụng:
    - Ứng dụng có sử dụng Link table qua LAN
    - Ứng dụng kiểu Máy chủ-Máy con
    - Ứng dụng liên quan đến quản lý file và thư mục.

    [Hình: Hinh-Ketnoifile.jpg]

    Code sử dụng:
    Mã PHP:
    Function KiemtraFile(ByVal DuongdanFile As String, Optional Xacdinh As Boolean) As Boolean  ' Xacdinh la True/False
        Dim Thuoctinh As Long

        Thuoctinh = (vbReadOnly Or vbHidden Or vbSystem)
        If Xacdinh Then
            Thuoctinh = (Thuoctinh Or vbDirectory)
        Else
            Do While Right$(DuongdanFile, 1) = "\"
                DuongdanFile = Left$(DuongdanFile, Len(DuongdanFile) - 1)
            Loop
        End If
        On Error Resume Next
        KiemtraFile = (Len(Dir(DuongdanFile, Thuoctinh)) > 0)
    End Function 


    Mã PHP:
    Function KiemtraFolder(DuongdanFolder As String) As Boolean
        On Error Resume Next
        KiemtraFolder     = ((GetAttr(DuongdanFolder) And vbDirectory) = vbDirectory)
    End Function 

    Cú pháp gọi:
    KiemtraFile(DuongdanFile)
    KiemtraFolder(DuongdanFolder As String)

    Đối số:
    True/False: ra True là tồn tại ra False là không tồn tại

    Ví dụ 1:
    Mã PHP:
    If KiemtraFile(Me.txtLinkfile) = True Then
    MsgBox     "File dang ton tai"
    Else
    MsgBox "Sory, File khong co tren may"
    End If 

    Trong đó: Me.txtLinkfile = "D:\Vidu.mdb"

    Ví du 2:
    Private Sub cmdTestFolder_Click()
    If KiemtraFolder(Me.txtLinkfolder) = True Then
    MsgBox "Thu muc dang ton tai"
    Else
    MsgBox "Sory, Thu muc nay khong co tren may"
    End If
    End Sub

    Trong đó: Me.txtLinkfolder = "\\192.168.1.10\VBDT$"

    Đính kèm Demo

    Ghi chú: Đây là đoạn code đơn giản nhất sử dụng hàm Dir, ngày tiếp theo mình sẽ post thêm 1 demo code khác để kiểm tra chỉ dựa trên IP của bất kỳ máy nào trong mạng LAN xem máy đó đang tắt hay mở.

    Chúc các bạn vui vẻ...

  • RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

    maidinhdan > 10-09-15, 05:01 PM

    Có lẽ lần sau làm Demo sẽ khóa Pass file RAR quá, chẳng thấy ai có ý kiến là nó giở/ hay thế nào? Chẳng biết đường mà mò

    Huhu 040

  • RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

    tronghieu9792 > 11-09-15, 12:56 AM

    Những bài viết của bác maidinhdan đều rất hay, bài này cũng vậy. Phải bác cho một ứng dụng chương trình máy chủ - máy con để minh họa thì hay biết mấy.

  • RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

    maidinhdan > 18-09-15, 12:41 AM

    (11-09-15, 12:56 AM)tronghieu9792 Đã viết: Những bài viết của bác maidinhdan đều rất hay, bài này cũng vậy. Phải bác cho một ứng dụng chương trình máy chủ - máy con để minh họa thì hay biết mấy.

    Xin ghi nhận ý kiến này, trong thời gian gần nhất sẽ có 1 demo cho vấn đề này

    Dự kiến: 14/12/2015

    Thân mến!

  • RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

    cpucloi > 12-10-15, 09:50 PM

    Không phải là mọi người không cho ý kiến, mà có thể họ chưa hiểu thôi mà pác.
    Lâu lâu em cũng mới lên diễn đàn, nhiều bài của pác còn chưa xem được hết.

    Pác tiếp tục hướng dẫn anh em nha.

  • RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...

    maidinhdan > 13-10-15, 09:09 PM

    (12-10-15, 09:50 PM)cpucloi Đã viết: Không phải là mọi người không cho ý kiến, mà có thể họ chưa hiểu thôi mà pác.
    Lâu lâu em cũng mới lên diễn đàn, nhiều bài của pác còn chưa xem được hết.

    Pác tiếp tục hướng dẫn anh em nha.

    Cứ xem từ từ, có vài Demo hà. 015 015 015 015


    Bài viết mới kiểm tra dựa trên IP của máy: [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở