如何修改InputBox左上角图标为atts.ico？

你写的代码里，InputBox的第二个参数是窗口标题，不是图标路径，所以没法加载atts.ico。原生VBScript的InputBox不支持自定义图标，要实现需求可以用以下两种方式：

方式一：用VBScript创建自定义对话框 #

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
objIE.ToolBar = False
objIE.StatusBar = False
objIE.Width = 400
objIE.Height = 200
objIE.Left = (CreateObject("Shell.Application").Desktop.Width - objIE.Width) / 2
objIE.Top = (CreateObject("Shell.Application").Desktop.Height - objIE.Height) / 2
objIE.Document.Title = "ATTS"

' 设置对话框内容
objIE.Document.body.innerHTML = "<div style='padding:20px;'><p>Enter text to speech.</p><input type='text' id='inputTxt' style='width:320px;'><br><br><button onclick='window.external.RetVal=inputTxt.value;window.close();' style='padding:5px 15px;'>确认</button></div>"
objIE.Visible = True
' 加载图标（确保atts.ico和脚本同目录）
objIE.Icon = "atts.ico"

' 等待对话框关闭
Do While objIE.Visible
    WScript.Sleep 100
Loop

message = objIE.Document.parentWindow.RetVal
Set objIE = Nothing

方式二：用AutoHotkey实现（更简洁） #

如果你用AutoHotkey，直接给InputBox指定图标参数即可：

InputBox, message, ATTS, Enter text to speech.,, 400, 200,,,,, atts.ico

注意：不管哪种方式，都要确保atts.ico和脚本在同一目录，或者使用完整的文件路径（比如D:\files\atts.ico）。

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