Chia sẻ COM DLL giúp tra cứu mã số thuế từ trang web masothue.com (4 người xem)

[nguyendang95]

Hiện tại trên GPE đã có nhiều giải pháp về vấn đề cào dữ liệu mã số thuế trên trang web masothue.com nên hôm nay tôi xin đóng góp một giải pháp khác dưới dạng COM DLL. Thư viện này được viết bằng Visual C++ dựa trên ATL project.
Dưới đây là phương thức duy nhất chịu trách nhiệm cào dữ liệu từ trang web masothue.com:

HRESULT ITaxCodeLookupTool::Lookup(/*[in]enum*/ TaxLookupOptions Options, /*[in]*/BSTR Filter, /*[out, retval]*/ITaxCodeLookupResult** Result);

Ví dụ:

Option Explicit

Public Sub TraCuuMST()
    Dim Tool As TaxCodeLookupUtilityLib.TaxCodeLookupTool
    Set Tool = New TaxCodeLookupUtilityLib.TaxCodeLookupTool
    Dim Result As TaxCodeLookupUtilityLib.TaxCodeLookupResult
    On Error Resume Next
    Set Result = Tool.Lookup(Identity, "035089009994")
    On Error GoTo 0
    If Result Is Nothing Then Exit Sub
    If Result.Success = False Then Exit Sub
    Debug.Print Result.Count
    Debug.Print Result.LookupOption
    Dim Person As TaxCodeLookupUtilityLib.PersonalTaxCodeInfo
    For Each Person In Result
        Debug.Print Person.FullName
    Next
    On Error Resume Next
    Set Result = Tool.Lookup(EnterpriseTaxCode, "0111107213")
    On Error GoTo 0
    If Result Is Nothing Then Exit Sub
    If Result.Success = False Then Exit Sub
    Debug.Print Result.Count
    Debug.Print Result.LookupOption
    Dim Enterprise As TaxCodeLookupUtilityLib.EnterpriseTaxCodeInfo
    For Each Enterprise In Result
        Debug.Print Enterprise.Address
    Next
End Sub

Để sử dụng COM DLL này, người dùng cần mở trình Command Prompt dưới quyền quản trị viên bằng cách nhấn phím Start hoặc nhấp vào ô tìm kiếm trong Task Bar từ màn hình Desktop, gõ cmd và nhấp chuột phải vào và chọn tiếp Run as Administrator, sau đó gõ lệnh dưới đây để tiến hành đăng ký COM DLL:

regsvr32 example.dll

Trong đó, example.dll chính là đường dẫn đầy đủ của COM DLL.
Rất mong nhận được ý kiến đóng góp từ mọi người.