Используйте WScript.Sleep () или замену в mshta.exe с одной строкой - PullRequest
Новая
       112

Используйте WScript.Sleep () или замену в mshta.exe с одной строкой

0 голосов
/ 29 июня 2018

Я хочу использовать WScript.Sleep() функцию с однострочником mshta.exe из пакета (я не хочу записывать временные файлы), но я получаю ошибку WScript undefined.

Как указано в этот ответ :

WScript - это объект, предоставленный хостами W | CScript.exe; IExplorer или MSHTA не предоставляет его (см. здесь ).

В Режим сна для сценариев HTA :

  • ответ Стивена Куана использует window.setTimeOut и window.ResizeTo, которые только что бросили ошибки (но, возможно, есть способ сделать это, которого я не нахожу).
  • uk2015 - это VBScript.
  • iRon's : ошибка в символ 5 ';' ожидается; Кроме того, select имеет одинарные кавычки (в mshta, параметр заключен в двойные кавычки, и вы можете использовать одинарные кавычки внутри, но это третий уровень цитата , так сказать. Кроме того, вам нужны права администратора.
  • TorATB : используется пинг! Та же проблема с кавычками тоже.

Я не знаю, как сделать один-единственный ответ на эти работы или, если возможно, *

Внутри .js, запускаемой c / wscript, он работает отлично. Есть ли замена или способ ссылки на эту функцию для 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?

Ответы [ 4 ]

0 голосов
/ 12 ноября 2018

Попробуйте запрос уведомления о событии 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>
0 голосов
/ 04 июля 2018

На основании вашего вопроса редактирования вы можете сделать что-то подобное с командным файлом: 

@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%"
0 голосов
/ 17 июля 2018 
Sub Sleep(lngDelay)
    CreateObject("WScript.Shell").Run "Timeout /T " & lngDelay & " /nobreak", 0, True
End Sub

Sleep 1
0 голосов
/ 04 июля 2018

Вот полный пример, показывающий, как спать с 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>
...