Vb6 на windows 10 64 инструкция по установке

Visual Basic 6 (VB6) was one of the easiest programming languages to learn back in the day. It was released in 1998 and is now replaced by Visual Basic .NET (VB.NET). Even though it is outdated by several years, the programs created and compiled with VB6 can still work with the latest Windows operating systems which is why you can still find people attempting to install VB6 on Windows 10.

If you’re trying to install VB6 on newer operating systems starting from Windows 8 onward, especially with 64-bit architecture, you are sure to encounter installation problems. These range from not being able to continue the install without first installing discontinued versions of Java to the setup process hanging and crashing.

In this article, we’ll show you how to successfully install Visual Basic 6 (VB6) in Windows 10 64-bit.

Bypass Update Microsoft Virtual Machine for Java Requirement

A computer should always maintain the latest version of Java and it’s pointless having the discontinued Microsoft Virtual Machine for Java on the computer just to install Visual Basic 6. The problem is, the VB6 setup does not allow you to continue with the installation if you untick the “Update Microsoft Virtual Machine for Java” checkbox as it grays out the Next button.

The solution is to bypass the VB6 setup by either tricking it into thinking Microsoft Java is already installed or by telling it not to install Java in the first place. Then you can reach the next phase of the installation.

There are two ways in which you can do this which we’ll list below, you only need to use one of them.

Trick VB6 setup into thinking Microsoft Virtual Machine for Java is Installed

The VB6 installer checks if the file msjava.dll exists in the SysWOW64 folder for 64-bit systems or System32 for 32-bit systems. Placing the file into the right folder will let the VB6 install continue.

a) For the quickest and easiest way of doing this, you can download the msjava.dll file from the link below and copy it to the required directory.

Download MSJava.dll

If you’re unsure about the architecture of your Windows operating system, simply try to copy msjava.dll to the C:WindowsSysWOW64 folder. If it doesn’t exist, you have a 32-bit system and should copy the file to the C:WindowsSystem32 folder instead.

b) Alternatively, the same DLL file is also present on the installation disc. You can extract it if you have an archiver such as 7-Zip installed on your system. Go to the IE4 folder located on the install CD, right click on MSJAVX86.exe, go to 7-Zip and select “Open archive“.

In 7-Zip, double click on javabase.cab which will open it. Look for msjava.dll in the list, drag it onto the Desktop and then copy it to SysWOW64 or System32. Copying to the Desktop first will avoid any access denied error when trying to copy the file directly from 7-Zip.

After copying msjava.dll to either the System32 or SysWOW64 folder, you can launch the Visual Basic 6 setup.exe file to start the installation. It now doesn’t prompt you to update Microsoft Virtual Machine for Java.

Tell VB6 setup Not To Install Microsoft Virtual Machine for Java

If you have the VB6 setup files on your hard drive, it’s possible to edit the settings file for the installer and tell it not to ask for Microsoft Virtual Machine for Java. This will ignore the requirement and continue the install process.

a) The simplest option here is to download the SETUPWIZ.INI file from the link below. As the name implies, this is the setup wizard configuration file. Make sure to download the correct INI for your version of Visual Studio.

Download SETUPWIZ.INI (For Visual Studio 6 Enterprise)
Download SETUPWIZ.INI (For Visual Studio 6 Professional)

Place the INI file in the main installation files folder overwriting the current file. Then start the installation and it won’t ask to install Java.

b) If you want to edit the file manually, go to the main folder and open the SETUPWIZ.INI file with Notepad. Look for the line “VmPath=ie4msjavx86.exe”.

Simply delete the whole line or everything after the “=” sign and save the file. The install can be continued but you must also follow the next steps as well or the installation will not complete successfully.

Change VB6 Setup Options To Prevent The Install From Hanging Or Failing

While fixing the above issue gets round the first hurdle of installing Visual Basic 6 on Windows 10, there are some other things that will cause the install to fail.

First of all, you will likely experience the “Setup is updating your system…” progress getting stuck and doing nothing else. After a few seconds, the installer becomes unresponsive and then hangs. Looking in Task Manager will show high CPU usage for ACMSETUP.EXE and the setup window has to be closed manually.

If you fix that, another error that appears will be a “Setup was unable to create a DCOM user account in order to register…valec.exe” message box.

With the default install options, the VB6 installer will likely produce another error message which is “javasign.dll was unable to register itself in the system registry”.

These last two error messages will cause the install to halt with a message saying the setup could not be completed. Since the Visual Basic 6 installer is over 20 years old, there are unsurprisingly some components that will not install properly in Windows 10 which causes the failures. Excluding those components from the install process will allow VB6 to install without errors.

You can use either method below to turn off the options during setup that cause the install to fail.

Disable the Setup Components Automatically

This method is the easiest and requires no manual changes to the setup options during install. We found that the install process is handled by an STF file in the Setup folder on the disc. The optional components are pre-enabled in this file so we found the offenders and disabled them by default.

1. Download the correct file according to the version of Visual Studio you are using. Click on the link below then right click on the grey Download button and select “Save link as” in your browser. This stops the file opening in a browser tab as a text file.

Download VS98ENT.STF (For Visual Studio 6 Enterprise)
Download VS98PRO.STF (For Visual Studio 6 Professional)

2. Make sure that the VB6 install files are on your hard drive as you need to replace the original STF file. You can do that by simply copying all the files from the CD to a folder on your drive. This won’t work if you are trying to install from CD.

3. Go to the SETUP folder and copy the VS98***.STF you downloaded above replacing the file already there.

4. Run the installer and go through the setup steps as usual. When you reach the component selection window, nothing has to be changed because the edited STF already did it.

Any other options that you want to enable or disable can be changed although you must make sure “Microsoft Visual InterDev 6.0”, “ADO and RDS”, and “Visual Studio Analyzer” remain disabled.

Disable the VB6 Setup Components Manually

This method is useful if you are installing from CD or the automatic option above doesn’t work.

1. During the setup, make sure the Custom install option is selected.

2. Continue the install until you’re asked to choose the components from the list. Highlight Data Access and click the “Change Option…” button to the right, then click “Change Option..” for a second time.

3. Now you’ll get another list of components that belong to the ADO, RDS, and OLE DB Providers. Simply uncheck the first ADO and RDS option.

A warning will popup that this component is an essential part of the application and it will not run properly if not installed. Click OK to acknowledge the warning and then click OK two more times to get back to the main install options window.

This will stop the installer hanging and crashing at the updating your system window.

3. Highlight Enterprise Tools and click the “Change Option…” button. At the bottom, uncheck Visual Studio Analyzer and click OK. This option is not in Visual Studio Professional so those users can ignore it.

Disabling the Visual Studio Analyzer will stop the DCOM user account error.

4. Uncheck Microsoft Visual InterDev 6.0 box in the main install options window. This will stop the javasign.dll error from appearing during install.

You can, of course, enable or disable other options in this window depending on personal preference. But make sure the components mentioned here are not enabled or the install won’t finish properly. Continue with the install and you should be able to reach the end with no major errors after a reboot.

Run Visual Basic In Compatibility Mode

After the install is complete, Visual Basic 6 should start. If you get an error on the New Project screen, an optional step to help is running VB6 in compatibility mode. In Explorer, navigate to C:Program Files (x86)Microsoft Visual StudioVB98, right click on VB6.exe and select Properties.

In the Compatibility tab, check the “Run this program in compatibility mode for:” box and click OK. The default option of Windows XP (Service Pack 2) should be fine but you can experiment with Windows Vista or 98/Me if you wish.

Мастер установки

Мастер установки Visual Studio 6.0

По умолчанию следующие пакеты не устанавливаются должным образом в Windows 10:

• Visual Studio 6 Enterprise
• Visual Studio 6 Professional
• Visual Basic 6 Enterprise
• Visual Basic 6 Professional

Чтобы установить вышеуказанные пакеты, вам нужно будет либо выполнить множество настроек, либо взломать реестр, либо воспользоваться фантастическим мастером установщика Visual Studio 6.0 от Giorgio Brausi.

Перед запуском вам понадобятся следующие элементы:

• Оригинальные компакт-диски и клавиши Visual Studio / Basic Program
• Оригинальные компакт-диски MSDN
• Visual Studio Service Pack 6
• Мастер установки Visual Studio 6.0
• В Windows 10 build 1511 или более поздней версии вам понадобятся права администратора.

Мастер проведет вас через необходимые шаги для успешной установки Visual Basic 6.

Обратите внимание, что установка серверных приложений в настоящее время невозможна.

I made this script a while ago because I was having trouble with the installers and fixes I found around the internet. It incorporates all the tricks and tips that I found around the internet into one powershell script.

To run the script you will need to following:

• VB6 Installer
• Service Pack 6
• Mouse Wheel Fix (Optional, set -SkipMouseWheel switch to skip.)

Each of the above should be placed in its own folder. If you save (and then dot-source) the script in a folder that contains these three folders it’ll auto-detect everything for you. You can also set your current location in powershell to this folder and copy the script directly to you session and it’ll detect everything as well.

Once the script is dot-sourced or pasted in an elevated powershell instance you can run it by calling Install-VB6.

It also has the following parameters if you want to override any default behaviour:

Notes:

1. The VB6 and SP6 installer don’t like being run from a network drive, so the script will stop if it detects one of the install folders is not on a local drive.
2. I’ve only tested this with VB6 Pro, not VB6 Enterprise.
3. It doesn’t install MSDN.

Install-VB6.ps1

#Requires -RunAsAdministrator
#Requires -Version 3
<#
.SYNOPSIS
Installs VB6 to the computer.
.DESCRIPTION
Installs VB6 ide with Service Pack 6 and (optional) Mouse Wheel Fix to the local computer.
.PARAMETER Vb6InstallerPath
The path to the VB6 installer folder.
.PARAMETER SP6InstallerPath
The path the the Service Pack 6 installer folder.
.PARAMETER SkipMouseWheel
Skip installing the Mouse Wheel fix.
.PARAMETER MouseWheelPath
The path the Mouse wheel fix folder.
.PARAMETER Regsvr32Path
The path to RegSvr32.exe
.PARAMETER OrganizationName
The organization name
.PARAMETER RegEditPath
The path to regedit.exe
#>
Function Install-VB6{
[CmdletBinding()]
param (
[Parameter(Mandatory=$false)]
[string]$Vb6InstallerPath,
[Parameter(Mandatory=$false)]
[string]$SP6InstallerPath,
[Parameter(Mandatory=$false)]
[switch]$SkipMouseWheel,
[Parameter(Mandatory=$false)]
[string]$MouseWheelPath,
[Parameter(Mandatory=$false)]
[string]$Regsvr32Path,
[Parameter(Mandatory=$false)]
[string]$OrganizationName,
[Parameter(Mandatory=$false)]
[string]$RegEditPath
)
# Tests if the path is a local path. The installer doesn't like network paths.
function Test-LocalDrive{
[CmdletBinding()]
[OutputType([bool])]
param(
[Parameter(Mandatory=$true,
Position=0)]
[string]$Path
)
begin{
$localDrives = Get-WmiObject -Class Win32_logicaldisk -Filter "DriveType<>4" -Property "DeviceID" | Foreach-Object {$_.DeviceID.Replace(":", "")}
}
process{
if(!([bool](Test-Path -Path $Path))){
return $false
}
$item = Get-Item -Path $Path
$drive = $item.PSDrive
if($null -eq $drive){
return $false
}
return ($localDrives -contains $drive.Name)
}
}
function Search-ForFile{
[CmdletBinding()]
[OutputType([System.IO.FileInfo])]
param(
[Parameter(Mandatory=$true,
Position=0)]
[string]$File,
[Parameter(Mandatory=$true,
Position=1)]
[string]$CurrentLocation,
[switch]$IncludeSubDirectory
)
process{
$newPath = $currentLocation
if($IncludeSubDirectory.IsPresent){
$newPath = Join-Path -Path $newPath -ChildPath "*"
}
$newPath = Join-Path -Path $newPath -ChildPath $file
$item = @(Get-Item -Path $newPath)
if($null -eq $item -or $item.Count -eq 0 -or $null -eq $item[0]){
throw ("Could Not find the {0} file." -f $file)
}
return $item[0]
}
}
#region Setting Up File Paths
$currentLocation = $PSScriptRoot
if([System.String]::IsNullOrWhiteSpace($currentLocation)){
$currentLocation = (Get-Location)
}
if([System.String]::IsNullOrWhiteSpace($currentLocation)){
throw "Unable to determine current location"
}
if(!$PSBoundParameters.ContainsKey("Vb6InstallerPath") -or [System.String]::IsNullOrWhiteSpace($Vb6InstallerPath)){
if(!(Test-LocalDrive -Path ($currentLocation))){
Write-Error "The script cannot be ran from a network share."
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
$installerInfo = Search-ForFile -File "SETUP.EXE" -CurrentLocation $currentLocation -IncludeSubDirectory
$installFolder = $installerInfo.DirectoryName
}
else {
if(!(Test-LocalDrive -Path ($Vb6InstallerPath))){
Write-Error "The VB6 Installer Path cannot be a share."
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
$installFolder = $Vb6InstallerPath
$installerInfo = Search-ForFile -File "SETUP.EXE" -CurrentLocation $installFolder
}
$installer2Info = Search-ForFile -File "ACMSETUP.EXE" -CurrentLocation $installFolder -IncludeSubDirectory
$installLocation = $installerInfo.FullName
$install2Location = $installer2Info.FullName
if(!$PSBoundParameters.ContainsKey("SP6InstallerPath") -or [System.String]::IsNullOrWhiteSpace($SP6InstallerPath)){
if(!(Test-LocalDrive -Path ($currentLocation))){
Write-Error "The script cannot be ran from a network share."
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
$SP6Info = Search-ForFile -File "setupsp6.exe" -CurrentLocation $currentLocation -IncludeSubDirectory
$SP6Folder = $SP6Info.DirectoryName
}
else {
if(!(Test-LocalDrive -Path ($SP6InstallerPath))){
Write-Error "The SP6 Installer Path cannot be a network share."
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
$SP6Folder = $SP6InstallerPath
$SP6Info = Search-ForFile -File "setupsp6.exe" -CurrentLocation $SP6Folder
}
$SP6Location = $SP6Info.FullName
if(!$SkipMouseWheel.IsPresent){
if(!$PSBoundParameters.ContainsKey("MouseWheelPath") -or [System.String]::IsNullOrWhiteSpace($MouseWheelPath)){
if(!(Test-LocalDrive -Path ($currentLocation))){
Write-Error "The script cannot be ran from a network share."
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
$MouseWheelDllInfo           = Search-ForFile -File "VB6IDEMouseWheelAddin.dll" -CurrentLocation $currentLocation -IncludeSubDirectory
$MouseWheelRegistryInfo      = Search-ForFile -File "VBA Mouse Wheel Fix.reg" -CurrentLocation $currentLocation -IncludeSubDirectory
}
else {
if(!(Test-LocalDrive -Path ($SP6InstallerPath))){
Write-Error "The Mouse Wheel Path cannot be a network share."
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
$MouseWheelDllInfo           = Search-ForFile -File "VB6IDEMouseWheelAddin.dll" -CurrentLocation $MouseWheelPath
$MouseWheelRegistryInfo      = Search-ForFile -File "VBA Mouse Wheel Fix.reg" -CurrentLocation $MouseWheelPath
}
$MouseWheelDll           = $MouseWheelDllInfo.FullName
$MouseWheelRegistry      = $MouseWheelRegistryInfo.FullName
}
if(!$PSBoundParameters.ContainsKey("Regsvr32Path") -or [System.String]::IsNullOrWhiteSpace($Regsvr32Path)){
$regSvrPath = "$($env:systemroot)SysWoW64regsvr32.exe"
}
else{
$regSvrPath = $Regsvr32Path
}
if(!$PSBoundParameters.ContainsKey("RegEditPath") -or [System.String]::IsNullOrWhiteSpace($RegEditPath)){
$RegEditPath = "$($env:systemroot)regedit.exe"
}
#endregion Setting Up File Paths
#region Test Required Installer Paths Exist
if(!([bool](Test-Path -Path $regSvrPath))){
Write-Error ("Unable to find '{0}'.`r`nThe exe must exist." -f $regSvrPath)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
if(!([bool](Test-Path -Path $RegEditPath))){
Write-Error ("Unable to find '{0}'.`r`nThe exe must exist." -f $RegEditPath)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
if(!$SkipMouseWheel.IsPresent){
if(!([bool](Test-Path -Path $MouseWheelDll))){
Write-Error ("Unable to find '{0}'.`r`nThe 'MouseWheel' Folder must be in the same directory as the install script and the file must exist." -f $MouseWheelDll)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
if(!([bool](Test-Path -Path $MouseWheelRegistry))){
Write-Error ("Unable to find '{0}'.`r`nThe 'MouseWheel' Folder must be in the same directory as the install script and the file must exist." -f $MouseWheelRegistry)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
}
if(!([bool](Test-Path -Path $installFolder))){
Write-Error ("Unable to find '{0}'.`r`nThe 'Installer' Folder must be in the same directory as the install script." -f $installFolder)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
if(!([bool](Test-Path -Path $installLocation))){
Write-Error ("Unable to find '{0}'.`r`nThe 'Installer' Folder must be in the same directory as the install script and the file must exist." -f $installLocation)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
if(!([bool](Test-Path -Path $install2Location))){
Write-Error ("Unable to find '{0}'.`r`nThe 'Installer' Folder must be in the same directory as the install script and the file must exist." -f $install2Location)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
if(!([bool](Test-Path -Path $SP6Location))){
Write-Error ("Unable to find '{0}'.`r`nThe 'SP6' Folder must be in the same directory as the install script and the file must exist." -f $SP6Location)
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
return
}
#endregion Test Required Installer Paths Exist
#region Installer Compatibility
# The installer doesn't auto-elevate to run as an administrator.
# We are setting the required keys in the registry to force the installers to run as administrator
# Same as running the 'troubleshoot compatibilty' wizard and selecting the exe's to run as admins.
Write-Host "Setting compatibility mode on setup files."
$layersPath = "REGISTRY::HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers"
if(![bool](Test-Path -Path $layersPath)){
New-Item -Path $layersPath -Force | Out-Null
}
$registryPath = Get-Item -LiteralPath $layersPath
if($null -eq $registryPath.GetValue($installLocation, $null)){
New-ItemProperty -Path $layersPath -Name $installLocation -Value "^ WINXPSP3" -PropertyType "String" -Force | Out-Null
}
if($null -eq $registryPath.GetValue($SP6Location, $null)){
New-ItemProperty -Path $layersPath -Name $SP6Location -Value "^ WINXPSP3" -PropertyType "String" -Force | Out-Null
}
#endregion Installer Compatibility
#region Previous Install Cleanup
# Locations and keys where old vb6 installs can live.
Write-Host "Cleaning up previous install."
$itemsToDelete = @(
"C:Program Files*Microsoft Visual StudioCommon",
"C:Program Files*Microsoft Visual StudioMSDN",
"C:Program Files*Microsoft Visual StudioMSDN98",
"C:Program Files*Microsoft Visual StudioVB98",
"C:Program Files*Microsoft Visual StudioVC98",
"C:Program Files*Microsoft Visual Studio*.HTM",
"C:Program Files*Microsoft Visual Studio*.TXT",
"C:Program Files*Common FilesMicrosoft SharedMSDesigners98",
"C:Program Files*Common FilesMicrosoft SharedMSDN",
"C:Program Files*Common FilesMicrosoft SharedVS98",
"C:Program Files*Common FilesMicrosoft SharedWizards98",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftDevStudio",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftHTML Help Collections",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftMSVSDG",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftVisual Basic6.0",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftVisual Component Manager",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftVisual Modeler",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareMicrosoftVisualStudio6.0",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftDevStudio",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftHTML Help Collections",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftMSVSDG",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftVisual Basic6.0",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftVisual Component Manager",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftVisual Modeler",
"REGISTRY::HKEY_LOCAL_MACHINESoftwareWow6432NodeMicrosoftVisualStudio6.0",
"REGISTRY::HKEY_CURRENT_USERSoftwareMicrosoftDevStudio",
"REGISTRY::HKEY_CURRENT_USERSoftwareMicrosoftMSVSDG",
"REGISTRY::HKEY_CURRENT_USERSoftwareMicrosoftVisual Basic6.0",
"REGISTRY::HKEY_CURRENT_USERSoftwareMicrosoftVisual Modeler",
"REGISTRY::HKEY_CURRENT_USERSoftwareMicrosoftVisualFoxPro",
"REGISTRY::HKEY_CURRENT_USERSoftwareMicrosoftVisualStudio6.0"
)
$itemsToDelete | Where-Object { Test-Path -Path $_ } | Remove-Item -Force -Recurse | Out-Null
#endregion Previous Install Cleanup
#region Installer Registry Permissions
# The installer needs to be able to write to 'HKEY_CLASSES_ROOTRDSServer.DataFactoryClsid'
# but since the installer isn't built for windows and we have to force it to run as an administrator
# we have to give explicit permissions for your computers Administrators group to write to this key (and all its children)
Write-Host "Setting required permissions for installing user on registry."
$registryPermissionPath = "REGISTRY::HKEY_CLASSES_ROOTRDSServer.DataFactoryClsid"
Write-Host "`tSetting Up required information."
$acl = Get-ACL -Path $registryPermissionPath
$oldOwner = [System.Security.Principal.NTAccount]::new($acl.Owner)
$administratorIdentity = [System.Security.Principal.NTAccount]::new("Administrators")
Write-Host "`tGiving the script required permissions."
$import = '[DllImport("ntdll.dll")] public static extern int RtlAdjustPrivilege(ulong a, bool b, bool c, ref bool d);'
$ntdll = Add-Type -Member $import -Name NtDll -PassThru
$privileges = @{ SeTakeOwnership = 9; SeBackup =  17; SeRestore = 18 }
foreach ($i in $privileges.Values) {
$null = $ntdll::RtlAdjustPrivilege($i, 1, 0, [ref]0)
}
Write-Host "`tGettting The registry key."
$regKey = [Microsoft.Win32.Registry]::ClassesRoot.OpenSubKey("RDSServer.DataFactoryClsid", 'ReadWriteSubTree', 'TakeOwnership')
# We force the Administrators group to be the owner on the key so we can then add required the permissions.
Write-Host "`tSetting Owner."
$acl.SetOwner($administratorIdentity)
$regKey.SetAccessControl($acl)
Write-Host "`tSetting Permission."
$permission = [System.Security.AccessControl.RegistryAccessRule]::new($administratorIdentity, "FullControl", "ContainerInherit", "InheritOnly", "Allow")
$acl.AddAccessRule($permission)
$permission2 = [System.Security.AccessControl.RegistryAccessRule]::new($administratorIdentity, "FullControl", "Allow")
$acl.AddAccessRule($permission2)
$regKey.SetAccessControl($acl)
# Reset the owner to clean-up
Write-Host "`tResetting Owner."
$acl.SetOwner($oldOwner)
$regKey.SetAccessControl($acl)
#endregion Installer Registry Permissions
#region Install
Write-Host "`tStarting Install."
$tempPath = [System.IO.Path]::GetTempPath()
$tempFolder = Join-Path -Path $tempPath -ChildPath ([System.Guid]::NewGuid().ToString("n"))
New-Item -Path $tempFolder -ItemType Directory -Force | Out-Null
$KeyFile = Join-Path -Path $tempFolder -ChildPath ("{0}.dat" -f [System.Guid]::NewGuid().ToString("n"))
$keyFileText = @"
REGEDIT4
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftVisualStudio6.0SetupMicrosoft Visual BasicSetupWizard]
"aspo"=dword:00000000
[HKEY_LOCAL_MACHINESOFTWAREWow6432NodeMicrosoftVisualStudio6.0SetupMicrosoft Visual BasicSetupWizard]
"aspo"=dword:00000000
"@
$keyFileText | Set-Content -Path $keyFile -Force
& $RegEditPath /S $KeyFile
[string[]]$installerArguments = ("/T", "VB98PRO.stf", "/S", $installFolder, "/n", ($env:USERNAME), "/k", "0000000000", "/b", "1", "/qn1")
if($PSBoundParameters.ContainsKey("OrganizationName") -and ![System.String]::IsNullOrWhiteSpace($OrganizationName)){
$installerArguments += "/o"
$installerArguments += $OrganizationName
}
Start-Process -FilePath $install2Location -wait -NoNewWindow -ArgumentList $installerArguments
Start-Process -FilePath $SP6Location -wait -NoNewWindow -ArgumentList ("/qn1")
Write-Host "Setting Vb6 Compatibility"
$vb6ExeLocations = @(Get-Item -Path "C:Program Files*Microsoft Visual StudioVB98VB6.EXE" | Select-Object -ExpandProperty FullName)
$registryPath = Get-Item -LiteralPath $layersPath
foreach($vb6ExeLocation in $vb6ExeLocations){
if($null -eq $registryPath.GetValue($vb6ExeLocation, $null)){
New-ItemProperty -Path $layersPath -Name $vb6ExeLocation -Value "^ WINXPSP3" -PropertyType "String" -Force | Out-Null
}
}
if(!$SkipMouseWheel.IsPresent){
Write-Host "Installing Mouse Wheel"
& $regSvrPath /s $MouseWheelDll
& $RegEditPath /S $MouseWheelRegistry
$registryHeaderText = @"
Windows Registry Editor Version 5.00
"@
$registryItemFormat = @"
[{0}SOFTWAREMicrosoftVisual Basic6.0AddinsVB6IDEMouseWheelAddin.Connect]
"FriendlyName"="MouseWheel Fix"
"LoadBehavior"=dword:00000003
"CommandLineSafe"=dword:00000000
"@
$users = Get-ChildItem -Path "REGISTRY::HKEY_USERS" | Where-Object {$_.Name -notlike "*_Classes"} | Select-Object -ExpandProperty Name
$content = $registryHeaderText
# Install for every user.
foreach($user in $users){
$content += ($registryItemFormat -f $user)
}
$MouseWheelApplyRegistry = Join-Path -Path $tempFolder -ChildPath ("{0}.reg" -f [System.Guid]::NewGuid().ToString("n"))
$content | Set-Content -Path $MouseWheelApplyRegistry -Force
Start-Process $RegEditPath -wait -NoNewWindow -ArgumentList ("/S", $MouseWheelApplyRegistry)
Write-Host "You will still need to enable Mouse Wheel fix in the VB6 IDE." -BackgroundColor Black -ForegroundColor Red
Write-Host "Open a Visual Basic project and go to 'Add-Ins' -> 'Add-In Manager...' " -BackgroundColor Black -ForegroundColor Red
Write-Host "Select 'MouseWheel Fix' and click 'Loaded/Unloaded' and 'Load on Startup'"  -BackgroundColor Black -ForegroundColor Red
}
Remove-Item -Path $tempFolder -Force -Recurse | Out-Null
#endregion Install
Write-Host "Install Complete"
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');
}

Installation Wizard

Visual Studio 6.0 Installer wizard

By default, the following packages do not install properly under Windows 10:

• Visual Studio 6 Enterprise
• Visual Studio 6 Professional
• Visual Basic 6 Enterprise
• Visual Basic 6 Professional

To install the above packages, you’ll either need to make numerous adjustments and registry hacks, or use the fantastic Visual Studio 6.0 Installer wizard by Giorgio Brausi.

You’ll need the following items before starting:

• Your original Visual Studio/Basic Program CDs and keys
• Your original MSDN CDs
• Visual Studio Service Pack 6
• Visual Studio 6.0 Installer wizard
• On Windows 10 build 1511 or later, you’ll require Admin Rights.

The Wizard will take you through the necessary steps for a successful installation of Visual Basic 6.

Note that the installation of the Server Applications is not currently possible.

Skip to content

Содержание

1. Как установить Visual Basic в Windows 10?
2. Могу ли я установить VB6 на 64-разрядную версию Windows 10?
3. Как установить Visual Basic на свой ноутбук?
4. Как установить Visual Basic 10?
5. Как загрузить и установить Visual Basic 2010?
6. Можете ли вы установить VB6 в Windows 10?
7. Поддерживает ли Windows 10 VB6?
8. Как установить визуальный код?
9. Visual Basic и Visual Studio — это одно и то же?
10. Как загрузить Visual Basic 2019?
11. Могу ли я удалить Microsoft Visual C ++?
12. Могу ли я удалить Microsoft Visual C ++?
13. Зачем мне нужна Microsoft Visual Studio?
14. Является ли Visual Basic бесплатным программным обеспечением?
15. Как установить vs2010 на Windows 10?
16. Как установить Microsoft Visual Basic для приложений?
17. Статья Как правильно установить Visual Basic 6
18. Dragokas
19. Как установить vb6 на windows 10
20. 1. Turn off UAC and grant full access to the Admin user
21. 2. Copy MSJAVA.DLL to Windows
22. 3. Get the software
23. 4. Change the SETUP.EXE properties so it runs in XP SP3 compatibility mode
24. 7. Now you could try to install Service Pack 6
25. 8. A few other points
26. 9. Turn UAC on again!
27. 10. Change the compatibility on VB6 executable
28. 11. Links
29. How To Install Visual Basic 6 (VB6) in Windows 10
30. Bypass Update Microsoft Virtual Machine for Java Requirement
31. Trick VB6 setup into thinking Microsoft Virtual Machine for Java is Installed
32. Tell VB6 setup Not To Install Microsoft Virtual Machine for Java
33. Change VB6 Setup Options To Prevent The Install From Hanging Or Failing
34. Disable the Setup Components Automatically
35. Disable the VB6 Setup Components Manually
36. Run Visual Basic In Compatibility Mode
37. Как установить Visual Basic в Windows 10?
38. Могу ли я установить VB6 на 64-разрядную версию Windows 10?
39. Как установить Visual Basic на свой ноутбук?
40. Как установить Visual Basic 10?
41. Как загрузить и установить Visual Basic 2010?
42. Можете ли вы установить VB6 в Windows 10?
43. Поддерживает ли Windows 10 VB6?
44. Как установить визуальный код?
45. Visual Basic и Visual Studio — это одно и то же?
46. Как загрузить Visual Basic 2019?
47. Могу ли я удалить Microsoft Visual C ++?
48. Могу ли я удалить Microsoft Visual C ++?
49. Зачем мне нужна Microsoft Visual Studio?
50. Является ли Visual Basic бесплатным программным обеспечением?
51. Как установить vs2010 на Windows 10?
52. Как установить Microsoft Visual Basic для приложений?