Results 1 to 10 of 10

Thread: [VB6] - Library info.

  1. #1

  2. #2
    Member
    Join Date
    Apr 2014
    Posts
    32

    Re: [VB6] - Library info.

    Thousand thanks The trick... your code is so cleaver ! I learn a lot with it .... you are a genious

    NB In my society TlbInf32 isn't alway install (may be remove ? or a problem of UAC, policies ?)....

  3. #3

  4. #4
    Member
    Join Date
    Apr 2014
    Posts
    32

    Re: [VB6] - Library info.

    - This code has no dependencies after compiling. It doesn't require olelib.tlb on target machine.

    Of course I notice this ! and it's while I love it so much....
    One again thanks for all the good code you share with us

  5. #5
    PowerPoster
    Join Date
    Jan 2020
    Posts
    3,742

    Re: [VB6] - Library info.

    HOW to get Library Name by Com DLL with vb6?

    https://www.vbforums.com/showthread....m-DLL-with-vb6

  6. #6
    New Member
    Join Date
    Sep 2021
    Posts
    2

    Unhappy Re: [VB6] - Library info.

    Quote Originally Posted by The trick View Post
    Hi everyone.
    This is quite simple project, which allows to view some information about libraries and PE-files:
    • Export;
    • Import;
    • Delay import;
    • For type libraries and PE which contains the type libraries:
      1. Interfaces;
      2. CoClasses;
      3. Types;
      4. Enumerations;
      5. Aliases.

    It requires Edanmo's OLE interfaces & functions (olelib.tlb) for the work.

    Regards,
    Кривоус Анатолий.
    Private Sub mnuOpen_Click()
    Dim ofn As OPENFILENAME, Out As String, i As Long
    ofn.nMaxFile = 260
    Out = String(260, vbNullChar)
    ofn.hwndOwner = hWnd
    ofn.lpstrTitle = StrPtr("Îòêðûòü ôàéë")
    ofn.lpstrFile = StrPtr(Out)
    ofn.lStructSize = Len(ofn)
    ofn.lpstrFilter = StrPtr("Ïîääåðæèâàåìûå ôàéëû" & vbNullChar & "*.dll;*.ocx;*.exe;*.tlb" & vbNullChar)
    If GetOpenFileName(ofn) Then
    i = InStr(1, Out, vbNullChar, vbBinaryCompare)
    If i Then Out = Left$(Out, i - 1)
    LoadLib Out
    End If
    End Sub

    Can translate?

  7. #7

    Thread Starter
    PowerPoster
    Join Date
    Feb 2015
    Posts
    2,671

    Re: [VB6] - Library info.

    Quote Originally Posted by m65jo View Post
    Private Sub mnuOpen_Click()
    Dim ofn As OPENFILENAME, Out As String, i As Long
    ofn.nMaxFile = 260
    Out = String(260, vbNullChar)
    ofn.hwndOwner = hWnd
    ofn.lpstrTitle = StrPtr("Îòêðûòü ôàéë")
    ofn.lpstrFile = StrPtr(Out)
    ofn.lStructSize = Len(ofn)
    ofn.lpstrFilter = StrPtr("Ïîääåðæèâàåìûå ôàéëû" & vbNullChar & "*.dll;*.ocx;*.exe;*.tlb" & vbNullChar)
    If GetOpenFileName(ofn) Then
    i = InStr(1, Out, vbNullChar, vbBinaryCompare)
    If i Then Out = Left$(Out, i - 1)
    LoadLib Out
    End If
    End Sub

    Can translate?
    Code:
    Private Sub mnuOpen_Click()
        Dim ofn     As OPENFILENAME, Out    As String, i        As Long
        
        ofn.nMaxFile = 260
        Out = String(260, vbNullChar)
    
        ofn.hwndOwner = hWnd
        ofn.lpstrTitle = StrPtr("Open file")
        ofn.lpstrFile = StrPtr(Out)
        ofn.lStructSize = Len(ofn)
        ofn.lpstrFilter = StrPtr("Supported files" & vbNullChar & "*.dll;*.ocx;*.exe;*.tlb" & vbNullChar)
        
        If GetOpenFileName(ofn) Then
            i = InStr(1, Out, vbNullChar, vbBinaryCompare)
            If i Then Out = Left$(Out, i - 1)
            LoadLib Out
        End If
    End Sub

  8. #8
    New Member
    Join Date
    Sep 2021
    Posts
    2

    Re: [VB6] - Library info.

    Thank You Very Much

  9. #9
    Addicted Member
    Join Date
    Feb 2022
    Posts
    163

    Re: [VB6] - Library info.

    I actually had to perform a few google handsprings to find
    Edanmo's OLE interfaces & functions (olelib.tlb), so here it is for the rest of us.

  10. #10
    PowerPoster
    Join Date
    Jul 2010
    Location
    NYC
    Posts
    5,625

    Re: [VB6] - Library info.

    Just FYI if you want an updated alternative, my oleexp.tlb project is originally forked from olelib and apart from some bug fixes and sub/function changes, the original parts are unmodified, so can be substituted without change (you may need to do a find/replace of "olelib." to "oleexp." without the quotes).

    This project runs with only one change besides unchecking olelib and checking oleexp in references, in LoadTypeInfo, StringFromGUID2 tAttr.iid, strGuid, 39 must use StrPtr(strGuid) instead.
    Last edited by fafalone; Aug 22nd, 2023 at 11:37 AM.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width