VBScript InputBox调用CHM帮助文件遇兼容问题求解决方案

你遇到的问题确实是因为原生VBScript的InputBox函数只支持旧的.hlp格式帮助文件，对.chm没有原生支持。好在不需要重做帮助文件，也不用让团队额外下载阅读器，有两种实用的方法可以解决：

方法1：用HTA自定义带帮助按钮的输入窗口（推荐） #

这种方法可以完全模拟原生InputBox的体验，同时添加自定义的帮助按钮来直接打开CHM文件，而且Windows系统自带支持HTA，不需要额外安装软件。

首先创建一个名为inputWithHelp.hta的文件，内容如下：

<!DOCTYPE html>
<html>
<head>
<title>Test Input with Help</title>
<hta:application 
  id="oHTA"
  applicationname="TestInput"
  border="thin"
  caption="yes"
  maximizebutton="no"
  minimizebutton="no"
  showintaskbar="yes"
  singleinstance="yes"
  sysmenu="yes"
  windowstate="normal"
>
<style>
body { font-family: Arial; padding: 20px; }
.input-group { margin: 10px 0; }
button { padding: 5px 15px; margin-right: 10px; }
</style>
</head>
<body>
<div class="input-group">
  <label for="userInput">Test:</label>
  <input type="text" id="userInput" size="30">
</div>
<button onclick="submitInput()">OK</button>
<button onclick="openHelp()">Help</button>

<script language="VBScript">
Sub submitInput()
  Dim inputValue
  inputValue = document.getElementById("userInput").value
  window.returnValue = inputValue
  window.close()
End Sub

Sub openHelp()
  Dim shell
  Set shell = CreateObject("WScript.Shell")
  ' 替换成你的CHM文件路径，如果和HTA同目录直接写文件名即可
  shell.Run "hh.exe Hardware_Project_Wizard_Help.chm"
  Set shell = Nothing
End Sub

' 支持F1快捷键打开帮助
document.onkeydown = function() {
  If event.keyCode = 112 Then
    openHelp()
    event.returnValue = False
  End If
}
</script>
</body>
</html>

然后在你的原脚本里调用这个HTA来获取输入：

Dim shell, htaPath, inputValue
Set shell = CreateObject("WScript.Shell")
htaPath = "inputWithHelp.hta" ' 确保路径正确，和脚本同目录的话直接写文件名
inputValue = shell.Run(htaPath, 1, True) ' 等待用户关闭HTA后返回输入值

' 这里可以像原来使用InputBox的结果一样处理inputValue
If inputValue <> "" Then
  MsgBox "You entered: " & inputValue
End If
Set shell = Nothing

方法2：简单的替代方案（无需额外文件） #

如果不想创建HTA文件，可以放弃原生InputBox的帮助按钮，改用提示文本引导用户触发帮助：

Do
  sTest = InputBox("Test" & vbCrLf & "*Enter ? and click OK to view help*", "Test")
  
  ' 判断用户是否请求帮助
  If sTest = "?" Then
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    ' 直接打开CHM文件
    shell.Run "hh.exe Hardware_Project_Wizard_Help.chm"
    Set shell = Nothing
  ElseIf sTest <> "" Then
    Exit Do ' 用户输入了有效内容，退出循环
  End If
Loop Until sTest = "" Or sTest <> "?"

' 处理用户的输入
If sTest <> "" Then
  MsgBox "Input received: " & sTest
End If

这种方法的好处是代码简洁，不需要额外文件，缺点是没有直观的帮助按钮，需要用户看提示文本操作。

两种方法都不需要重做CHM文件，也不需要团队安装任何额外软件，你可以根据团队的使用习惯选择合适的方案。

内容的提问来源于stack exchange，提问作者detroitwilly