Midi Lead

Midi Lead

I brought a midi lead off the internet.

Windows 7 does not seem to have the gui to select where the midi goes.

copy the text below into midi.vbs

This works and does nothing other than set a registry value.

  ===8<===================================

prompt = "0. GS Wavetable" & vbCrLf & "1. usb midi cable , Roland RD300SX" & vbCrLf & "2. Roland SoundCanvas Out A" & vbCrLf & "3. Roland SoundCanvas Out B"

i = InputBox(prompt, "Map to a MIDI device")

Select Case i
    Case 0
        i = -1
    Case 1, 2, 3

    Case Else
        i = 1
End Select

Set WshShell = WScript.CreateObject("WScript.Shell")

path = "HKCU\Software\Microsoft\ActiveMovie\devenum\{4EFE2452-168A-11D1-BC76-00C04FB9453B}\Default MidiOut Device\MidiOutId"


WshShell.RegWrite path, i, "REG_DWORD"