Question

我正在寻找能够在运行时在窗口7上添加输入语言的vb.net代码的解决方案。我可以使用Powershell脚本

在窗口10上执行此操作

$OldList = Get-WinUserLanguageList
$OldList.Add("fr-fr")    
Set-WinUserLanguageList $OldList -ErrorAction SilentlyContinue -Confirm:$false -Force

使用管道方法在我的vb.net代码中执行相同的脚本，如下所示：

Dim MyRunSpace As Runspace = RunspaceFactory.CreateRunspace()
    MyRunSpace.Open()
    Dim MyPipeline As Pipeline = MyRunSpace.CreatePipeline()MyPipeline.Commands.AddScript("#begin")
    MyPipeline.Commands.AddScript("Set-ExecutionPolicy -Scope CurrentUser RemoteSigned")
    MyPipeline.Commands.AddScript("$OldList = Get-WinUserLanguageList")
    MyPipeline.Commands.AddScript("$OldList.Add(" + qoute + "fr-fr"+ qoute + ")")
    MyPipeline.Commands.AddScript("Set-WinUserLanguageList $OldList -ErrorAction SilentlyContinue -Confirm:$false -Force")
    MyPipeline.Commands.AddScript("#end")
    Dim results As Collection(Of PSObject) = MyPipeline.Invoke()
    MyRunSpace.Close()

此代码在窗口10上运行完美。但是，当我在window7上部署代码时，此代码给出了运行时错误。但是我没有在窗口8或8.1上测试上面的代码。

我已经使用window7 SP1包更新了我的操作系统，并在window7上将powershell版本升级到最新版本。仍然代码不起作用。我认为在窗口10上的powershell版本5.1中运行的这些命令集在Windows 7的旧版本窗口中工作，甚至在window7上的powershell的更新版本上也不起作用。我需要知道是否有任何powershell脚本或vb.net代码可以在运行时添加输入语言到我的系统在以下操作系统上。 Window7，窗口8，窗口8.1 任何帮助都会得到很大的帮助。

vb.net在运行时添加输入语言

0 个答案: