Results 1 to 8 of 8

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
    Frenzied Member
    Join Date
    Jan 2020
    Posts
    1,707

    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,197

    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

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