0

我正在尝试创建一种持久性菜单以放置在我的 WinPE 图像顶部，它提供：关闭电源、重新启动和控制台访问 - 按此顺序。

我尝试过切换顺序、切换名称、切换图像、更改关联，我所做的任何事情都不会一次完成两个以上的工作。电源和管理员工作但重新启动没有，或者重新启动并且电源工作并且管理员没有，或者管理员和重新启动工作并且电源没有。

您可以拥有的图像输入数量是否有限制？

<SCRIPT LANGUAGE="VBScript">

    ' Resize and center the window
    ' ==========================================================
        sub DoResize
            window.resizeTo 175,75
            screenWidth = Document.ParentWindow.Screen.AvailWidth
            screenHeight = Document.ParentWindow.Screen.AvailHeight
            posLeft = (screenWidth - 100) / 2
            posTop = (screenHeight - 100) / 2    
            window.moveTo posLeft, posTop
        end Sub

        DoResize()
    ' ==========================================================

</SCRIPT>

<HEAD>
  <TITLE> </TITLE>
  <HTA:APPLICATION ID="oMyApp"
    APPLICATIONNAME="Options"
    INNERBORDER="no"
    BORDER="none"
    CAPTION="no"
    SCROLL="NO"
    SHOWINTASKBAR="NO"
    SINGLEINSTANCE="yes"
    SYSMENU="NO"
    WINDOWSTATE="normal">
</HEAD>
<BODY>
<body background="Options.png">
<SCRIPT LANGUAGE="VBScript">

Option Explicit

Sub Power

    Dim objShell
    Dim ret

    Set objShell = CreateObject("Wscript.Shell")

    ret = MsgBox("Shut Down Computer?", vbYesNo, "Power Off")

    If ret = 6 Then
        objShell.Run "x:\windows\system32\cmd.exe /c wpeutil shutdown", 0, True
    ElseIf ret = 7 Then
        Exit Sub
    End If

End Sub

Sub Reboot

    Dim objShell
    Dim ret

    Set objShell = CreateObject("Wscript.Shell")

    ret = MsgBox("Restart Computer?", vbYesNo, "Restart")

    If ret = 6 Then
        objShell.Run "x:\windows\system32\cmd.exe /c wpeutil reboot", 0, True
    ElseIf ret = 7 Then
        Exit Sub
    End If

End Sub

Sub Admin

    Dim objShell
    Dim ret

    Set objShell = CreateObject("Wscript.Shell")

    ret = InputBox("Enter Admin Password", "Password Required")

    If ret = "password" Then
        objShell.Run "x:\windows\system32\cmd.exe /k"
    ElseIf Not ret = "password" Then
        MsgBox "Incorrect Password", vbOKOnly, "Access Denied"
    End If

End Sub

</SCRIPT>
<input type="image" img src="power.png" name="power" size="48" onclick="Power">
<input type="image" img src="restart.png" name="reboot" size="48" onclick"Reboot">
<input type="image" img src="config.png" name="config" size="48" onclick="Admin">
</BODY>
4

1 回答 1

0

<input>第二个标签中有语法错误。代替

<input type="image" ... onclick"Reboot">

和

<input type="image" ... onclick="Reboot">
于 2013-08-28T11:49:47.080 回答