Question

我有一个工作HTA用vbscript唤醒/重启/关闭多台计算机。一个选择下拉菜单，有3个按钮可以执行3种不同的功能。

主要的人：

        <select name="Control_PC">
            <option value="0" selected>Select Computer</option>     
            <option value="1">PC1</option>
            <option value="2">PC2</option>
            <option value="3">PC3</option>

            <input type="button"    value="WAKE UP"         onClick="executewake">
            <input type="button"    value="RESTART"         onClick="executereboot">
            <input type="button"    value="SHUTDOWN"        onClick="executeshutdown">  
        </select>

使用vbscript：

	' SELECTION REBOOT PCs
	Sub executereboot
		if Control_PC.value = 1 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "shutdown -r -t 01 -m \\PC1"
			Shell.Run command, 1, false
		Elseif Control_PC.value = 2 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "shutdown -r -t 01 -m \\PC2"
			Shell.Run command, 1, false
		Elseif Control_PC.value = 3 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "shutdown -r -t 01 -m \\PC3"
			Shell.Run command, 1, false
		end if	
	End Sub		
	
	
	' SELECTION SHUTDOWN PCs
	Sub executeshutdown
		if Control_PC.value = 1 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "shutdown -s -t 01 -m \\PC1"
			Shell.Run command, 1, false
		Elseif Control_PC.value = 2 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "shutdown -s -t 01 -m \\PC2"
			Shell.Run command, 1, false
		Elseif Control_PC.value = 3 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "shutdown -s -t 01 -m \\PC3"
			Shell.Run command, 1, false
		end if	
	End Sub			
	
	
	' SELECTION WAKE PCs
	Sub executewake
		if Control_PC.value = 1 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "tools\wol.exe 10604B7609CE"
			Shell.Run command, 1, false
		Elseif Control_PC.value = 2 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "tools\wol.exe 10604B7609F2"
			Shell.Run command, 1, false
		Elseif Control_PC.value = 3 then 
			Set Shell = CreateObject("Wscript.Shell") : command = "tools\wol.exe 10604B7E829B"
			Shell.Run command, 1, false
		end if	
	End Sub

现在我知道如何在javascript中使用一个按钮创建选择选项，使用一个值：

   
		<select id="Control_PC">
				<option value="" selected>Select Computer</option>
				<option value="shutdown -r -t 01 -m \\PC1">PC1</option>
				<option value="shutdown -r -t 01 -m \\PC2">PC2</option>
				<option value="shutdown -r -t 01 -m \\PC3">PC3</option>
				<input 	type="button" value="Reboot" 	onClick="runSelection(document.getElementById('Control_PC').value)">
		</select>

但是如何使用javascript创建三个按钮以与vbscript版本相同，优雅的解决方案将所有wake / reboot / shutdown命令用作一个函数中的不同值，如：

选择电脑 PC1 PC2 PC3

非常感谢任何帮助：）

由于大卫

Answer 1

您似乎可以通过向您调用的函数发送变量来执行您要执行的操作。

例如，您可以将MAC地址设置为选择框的值，如下所示：

    <select name="Control_PC">
        <option value="" selected>Select Computer</option>      
        <option value="10604B7609CE">PC1</option>
        <option value="10604B7609F2">PC2</option>
        <option value="10604B7E829B">PC3</option>
    </select>

然后你可以设置每个按钮用一个参数调用相同的函数来执行你想要做的动作，如下所示：

    <input type="button"    value="WAKE UP"         onClick="RunSelection('wake')">
    <input type="button"    value="RESTART"         onClick="RunSelection('restart')">
    <input type="button"    value="SHUTDOWN"        onClick="RunSelection('shutdown')">

然后，您可以配置该vbscript函数，以根据该参数的值和选择框的值执行特定操作。像这样：

Sub RunSelection(strAction)
    If Control_PC.selectedIndex = 0 Then MsgBox "Select a computer.",vbExclamation : Exit Sub 
    pcName = Control_PC.Options(Control_PC.selectedIndex).innerText
    macAddress = Control_PC.value

    Select Case strAction
        Case "wake"
            strCommand = "tools\wol.exe " & macAddress
        Case "restart"
            strCommand = "shutdown -r -t 01 -m \\" & pcName
        Case "shutdown"
            strCommand = "shutdown -s -t 01 -m \\" & pcName
    End Select 
    MsgBox "Running command: " & strCommand
End Sub

有很多方法可以做你想做的事情，但这应该可以帮助你开始。

编辑OP的评论：

我认为你要做的就是这样。

<select name="Control_PC">
    <option value="" selected>Select Computer</option>      
    <option restart="shutdown -r -t 01 -m \\PC1"  shutdown="shutdown -s -t 01 -m \\PC1" >PC1</option>
    <option restart="shutdown -r -t 01 -m \\PC2"  shutdown="shutdown -s -t 01 -m \\PC2" >PC2</option>
    <option restart="shutdown -r -t 01 -m \\PC3"  shutdown="shutdown -s -t 01 -m \\PC3" >PC3</option>

</select>
<input  type="button" value="Restart"    onClick="RunSelection(Control_PC.Options(Control_PC.selectedIndex).getAttribute('restart'))">
<input  type="button" value="Shutdown"    onClick="RunSelection(Control_PC.Options(Control_PC.selectedIndex).getAttribute('shutdown'))">

基本上，您正在创建自定义属性并为其指定值。

Control_PC.Options(Control_PC.selectedIndex)将获得所选的选项，getAttribute将获得您指定的属性的值。

在HTA中{Javascript单选选项多个值

1 个答案: