Results 1 to 40 of 474

Thread: No troll. What are the (legitimate) reasons people are still using VB6 ?

Threaded View

  1. #10
    Hyperactive Member
    Join Date
    Aug 2017
    Posts
    380

    Re: No troll. What are the (legitimate) reasons people are still using VB6 ?

    Here is an alternative way of bypassing the MS JVM requirement:



    Normally, the installation cannot proceed unless the Java checkbox is ticked.

    Name:  VB6 Setup 1.png
Views: 26551
Size:  35.9 KB

    However, if the Next button is forcibly enabled (using whatever tool at your disposal),

    Name:  VB6 Setup 2.png
Views: 26352
Size:  36.0 KB

    the installer will pop up this message after the now enabled Next button is clicked.

    Name:  VB6 Setup 3.png
Views: 26348
Size:  6.2 KB

    Just click OK to dismiss the message and installation can now continue.

    Name:  VB6 Setup 4.png
Views: 26386
Size:  42.2 KB


    EDIT

    Here's some code you can compile beforehand in case you don't have any utility that can enable/disable arbitrary windows:

    Code:
    Option Explicit 'In a standard (.BAS) module
    
    Private Declare Function EnableWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal bEnable As Long) As Long
    Private Declare Function FindWindowExW Lib "user32.dll" (Optional ByVal hWndParent As Long, Optional ByVal hWndChildAfter As Long, Optional ByVal lpszClass As Long, Optional ByVal lpszWindow As Long) As Long
    
    Private Sub Main()
        Dim hWnd As Long, sText As String
    
        sText = InputBox("Enter Window Title:", , "Installation Wizard for Visual Studio 6.0 Enterprise Edition")
        If LenB(sText) = 0& Then Exit Sub
    
        hWnd = FindWindowExW(, , StrPtr("#32770"), StrPtr(sText))
        If hWnd = 0& Then Exit Sub
    
        sText = InputBox("Enter Button Caption:", , "&Next >")
        If LenB(sText) = 0& Then Exit Sub
    
        hWnd = FindWindowExW(hWnd, , StrPtr("Button"), StrPtr(sText))
        If hWnd = 0& Then Exit Sub
    
        EnableWindow hWnd, -True
    End Sub
    Last edited by Victor Bravo VI; Feb 18th, 2021 at 08:05 AM.

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