by TheseusWrex » Mon Feb 15, 2021 3:29 pm
So, I know this is a very old topic, but I think I've figured out a fix for this. I've at least stopped the error messages from popping up when I open up MM.
I slightly modified the script as follows... here's the original...
Code: Select all
Sub OnStartup
strProgramPath = SDB.ApplicationPath&"LyricsFetcher.exe"
SET objShell = CREATEOBJECT("Wscript.Shell")
objShell.Run Chr(34) & strProgramPath & Chr(34),1,false
End Sub
Sub FirstRun
strProgramPath = SDB.ApplicationPath&"LyricsFetcher.exe"
SET objShell = CREATEOBJECT("Wscript.Shell")
objShell.Run Chr(34) & strProgramPath & Chr(34),1,false
End Sub
My edited script looks like this...
Code: Select all
Sub OnStartup
strProgramPath = SDB.ApplicationPath
SET objShell = CREATEOBJECT("Wscript.Shell")
End Sub
Sub FirstRun
strProgramPath = SDB.ApplicationPath&"LyricsFetcher.exe"
SET objShell = CREATEOBJECT("Wscript.Shell")
objShell.Run Chr(34) & strProgramPath & Chr(34),1,false
End Sub
I don't know much about the scripting language, but I do know that there's no file called "LyricsFetcher.exe," so I got rid of that reference in the script. I also took the objShell.Run line. It seems to work perfectly, now.
So, I know this is a very old topic, but I think I've figured out a fix for this. I've at least stopped the error messages from popping up when I open up MM.
I slightly modified the script as follows... here's the original...
[code]
Sub OnStartup
strProgramPath = SDB.ApplicationPath&"LyricsFetcher.exe"
SET objShell = CREATEOBJECT("Wscript.Shell")
objShell.Run Chr(34) & strProgramPath & Chr(34),1,false
End Sub
Sub FirstRun
strProgramPath = SDB.ApplicationPath&"LyricsFetcher.exe"
SET objShell = CREATEOBJECT("Wscript.Shell")
objShell.Run Chr(34) & strProgramPath & Chr(34),1,false
End Sub
[/code]
My edited script looks like this...
[code]
Sub OnStartup
strProgramPath = SDB.ApplicationPath
SET objShell = CREATEOBJECT("Wscript.Shell")
End Sub
Sub FirstRun
strProgramPath = SDB.ApplicationPath&"LyricsFetcher.exe"
SET objShell = CREATEOBJECT("Wscript.Shell")
objShell.Run Chr(34) & strProgramPath & Chr(34),1,false
End Sub
[/code]
I don't know much about the scripting language, but I do know that there's no file called "LyricsFetcher.exe," so I got rid of that reference in the script. I also took the objShell.Run line. It seems to work perfectly, now.