vbscript - 从 VBScript 中的单个 onClick 调用多个函数

Question

我创建了一个 VBScript 函数，它允许用户通过单击按钮来安装网络打印机。这很好用，但是单击按钮后没有反馈。单击按钮后，我尝试添加警报，但语法有问题。

这是用于安装打印机的有效 onClick 函数：

<script type="text/vbscript">
   function AddP(pName)
       Set WshNetwork = CreateObject("Wscript.Network")
       WshNetwork.AddWindowsPrinterConnection pName
   end function
</script>

<td><a href="#" language="vbscript" onclick="AddP('\\PrinterName')"><input name="Button1" type="button" value="Add"></a></td>

Answer 1

最简单的解决方案：在声明中添加一个冒号，作为语句分隔符。这将允许您调用附加函数。

<a href="#" language="vbscript" onclick="AddP('\\PrinterName': msgbox 'Printer added')">

Answer 2

只需在您的行之后添加此WshNetwork.AddWindowsPrinterConnection行

MsgBox "Printer Added"

Answer 3

如果您想在添加打印机时给用户一些指示，您可以更改按钮状态。

<script type="text/vbscript">
   function AddP(pName)
       Dim allButton1s
       Set allButton1s = document.getElementsByName("Button1")
       allButton1s(0).value = "Please wait..."
       Set WshNetwork = CreateObject("Wscript.Network")
       WshNetwork.AddWindowsPrinterConnection pName
       MsgBox "Printer Added"
       allButton1s(0).value = "Add"
   end function
</script>