Question

我想将WScript.Sleep()函数与批处理中的mshta.exe单行一起使用（我不想编写临时文件），但是收到WScript undefined错误。

如this answer中所述：

WScript是W | CScript.exe主机提供的对象。 IExplorer或 MSHTA不提供它（请参阅here）。

在Sleep routine for HTA scripts中：

Stephen Quan's answer 使用window.setTimeOut和window.ResizeTo 错误（但也许有一种我找不到的方法）。
uk2015's是VBScript。
iRon's：错误字符5';'预期;另外，select带有单引号（在 mshta，参数用双引号引起来，您可以使用单引号内部，但这可以说是 quotification 的第三层。此外，您需要管理员权限。
TorATB's：使用ping命令！引号也有同样的问题。

我不知道如何做出这些工作的单一答案，或者如果可能的话。

在由c / wscript运行的.js内，它运行良好。是否有替代方法或为mshta.exe引用此功能的方法？

示例：

将以下代码另存为.js并运行。

new ActiveXObject('Internet.HHCtrl').TextPopup('Warning message', 'Tahoma, 16, , BOLD', 8, 4, 0x0000FF, 0x00FFFF );WScript.Sleep(5000);

但是，正如我所说，我想从批处理中运行而没有任何临时.js（或.vbs）。尝试从命令提示符处运行以下代码：

mshta "javascript:new ActiveXObject('Internet.HHCtrl').TextPopup('Warning message', 'Tahoma, 16, , BOLD', 8, 4, 0x0000FF, 0x00FFFF );close()"

文本弹出窗口会立即打开和关闭，但是您有时可以看到它。使用mshta运行此代码时，如何在给定的时间内保存文本？

Answer 1

这是一个完整的示例，向您展示如何使用HTA进行睡眠

<html>
<head>
<HTA:APPLICATION 
APPLICATIONNAME="Volume + - ON/OFF" 
BORDER="THIN" 
BORDERSTYLE="NORMAL" 
ICON="SndVol.exe" 
INNERBORDER="NO" 
MAXIMIZEBUTTON="NO" 
MINIMIZEBUTTON="NO" 
SCROLL="NO" 
SELECTION="NO" 
SINGLEINSTANCE="YES"/>
<title>Volume + - ON/OFF </title>
<script language="vbscript">
'************************************************************************************
Sub window_onload()
    CenterWindow 250,150
End Sub
'************************************************************************************
Sub Sleep(MSecs)' Function to pause because wscript.sleep does not work with HTA 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
    Dim tempName : tempName = "Sleeper.vbs"
    If Not Fso.FileExists(tempFolder&"\"&tempName) Then
        Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
        objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
        objOutputFile.Close
    End If
    CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
End Sub
'************************************************************************************
Sub Volume(Param)
    set oShell = CreateObject("WScript.Shell") 
    Select Case Param 
    Case "MAX"
        oShell.run "%SystemRoot%\System32\SndVol.exe" 'Runs The Master Volume App.
        Sleep 2000 'Waits For The Program To Open
        oShell.SendKeys("{HOME}")' volume maximum 100%
        Sleep 100
        oShell.SendKeys"%{F4}"  ' ALT + F4
    Case "MIN"
        oShell.run "%SystemRoot%\System32\SndVol.exe" 'Runs The Master Volume App.
        Sleep 2000 'Waits For The Program To Open
        oShell.SendKeys("{END}") 'volume minimum 0% 
        Sleep 1000
        oShell.SendKeys"%{F4}"  ' ALT + F4
    Case "UP"
        oShell.run "%SystemRoot%\System32\SndVol.exe" 'Runs The Master Volume App.
        Sleep 2000 'Waits For The Program To Open
        oShell.SendKeys("{PGUP}") 'volume +20%
        Sleep 1000
        oShell.SendKeys"%{F4}"  ' ALT + F4
    Case "DOWN"
        oShell.run "%SystemRoot%\System32\SndVol.exe" 'Runs The Master Volume App.
        Sleep 2000 'Waits For The Program To Open
        oShell.SendKeys("{PGDN}") 'Turns Up The Volume 20, If It Is Muted Then It Will Unmute It
        Sleep 1000
        oShell.SendKeys"%{F4}"  ' ALT + F4
    Case "MUTE"
        oShell.run "%SystemRoot%\System32\SndVol.exe" 'Runs The Master Volume App.
        Sleep 1000 'Waits For The Program To Open
        oShell.SendKeys(" " & chr(173)) 'permet de couper/remettre le son (bascule)
        Sleep 1000
        oShell.SendKeys"%{F4}"  ' ALT + F4
    End select
End Sub
'*************************************************************************************
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'************************************************************************************
</script>
</head>
<body>
<center>
<BUTTON style="background: Red; color: white;" onClick="Call Volume('MAX')" style="WIDTH: 85px; HEIGHT: 30px">Volume MAX</BUTTON>&nbsp;&nbsp;
<BUTTON style="background: Blue; color: white;" onClick="Call Volume('MIN')" style="WIDTH: 85px; HEIGHT: 30px">Volume MIN</BUTTON>&nbsp;&nbsp;
<BUTTON style="background: Green; color: white;" onClick="Call Volume('UP')" style="WIDTH: 85px; HEIGHT: 30px">Volume +20%</BUTTON>&nbsp;&nbsp;
<BUTTON style="background: Orange; color: white;" onClick="Call Volume('DOWN')" style="WIDTH: 85px; HEIGHT: 30px">Volume -20%</BUTTON>&nbsp;&nbsp;
<BUTTON style="background: DarkOrange; color: white;" onClick="Call Volume('MUTE')" style="WIDTH: 85px; HEIGHT: 30px">ON/OFF</BUTTON>&nbsp;&nbsp;
</center>
</body>
</html>

Answer 2

根据您的编辑问题，您可以使用批处理文件执行以下操作：

@echo off
Title Execute a .JS and .VBS file in a batch script
echo Hello World !
Set "JS_Warning=%Temp%\Warning.js"
Set "VBS_Msg=%Temp%\Msg.vbs"
REM Create a .js temporary file
echo new ActiveXObject('Internet.HHCtrl'^).TextPopup('Warning message', 'Tahoma, 16, , BOLD', 8, 4, 0x0000FF, 0x00FFFF ^);WScript.Sleep(5000^);>"%JS_Warning%"
REM Create a .vbs temporary file
echo CreateObject("Internet.HHCtrl"^).TextPopup "Hello !" ^& vbCrLf ^& "How are you ?", "Verdana,8", 6, 6, 6, 6 : WScript.Sleep 5000>"%VBS_Msg%"
REM We execute the .js file
Wscript "%JS_Warning%"
REM We execute the .vbs file
Wscript "%VBS_Msg%"

Answer 3

Sub Sleep(lngDelay)
    CreateObject("WScript.Shell").Run "Timeout /T " & lngDelay & " /nobreak", 0, True
End Sub

Sleep 1

Answer 4

尝试WMI事件通知查询。
以下查询示例向您展示了如何永久每秒生成事件。

SELECT * FROM __InstanceModificationEvent WHERE TargetInstance ISA "Win32_LocalTime"

您可以使用SWbemServices.ExecNotificationQuery方法订阅事件。

<html>
<head>
  <title>Sleep</title>
  <HTA:APPLICATION>
</head>
<body>
<script language="javascript">
window.resizeTo(640, 480);

var CIMv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\CIMv2")

function sleep(count) {
    var event_gen = CIMv2.ExecNotificationQuery("SELECT * FROM __InstanceModificationEvent WHERE TargetInstance ISA \"Win32_LocalTime\"")
    for(var i = 0; i < count; i++) {
        event_gen.NextEvent();
    }
}

for(var i=0; i<3; i++) {
    sleep(3)
    alert("3 seconds passed")
}

document.write("<h1>Goodbye</h1>");
</script>
</body>

在mshta.exe中使用WScript.Sleep（）或替换

4 个答案: