Question

我对这一切都很陌生。我试图获得Windows＆＃34;任务计划程序＆＃34;运行弹出到用户屏幕前面的应用程序。

我最初尝试使用4096代码使用VBS msgbox来保持最佳状态。这有效但弹出的窗口很小，我需要为不同的任务改变颜色。

经过更多研究后，我发现了如何制作一个可以自定义并全屏显示的HTA窗口。但是当任务调度程序运行它时，它会弹出用户活动窗口。用户通常具有全屏页面，因此他们无法看到警报。

我不需要警报始终处于最佳状态，我只需要将其初始加载到所有内容之前，然后用户必须在关闭之前查看它。

我很有可能让它变得比它应该更难，所以我对任何更好的选择持开放态度。我将包括我一直在使用的HTA

<html>
<head>
<hta:application 
APPLICATIONNAME = "TEST"
ID = "TEST"
SCROLL = "No"
MinimizeButton = "no"
WINDOWSTATE="maximize"
SINGLEINSTANCE = "Yes"
/> 

<STYLE>
html, body {
background color: #000

 font-size: 100%;
 line-height: 10em;
 margin: 10;
 padding: 0;
}
h1 {font-family: Arial;
 color: #ff0000;
 font-size: 5em;
 text-transform: uppercase;
 text-align: center;
}
h2 {font-family: Arial;
 color: #ffffff;
 font-size: 7em;
 text-transform: uppercase;
 text-align: center;
}

</STYLE> 
</script>
</head>
<body scroll="no">
<br>
<h1>ATTENTION!</h1>
<h2>Check your inventory.<br></h2> 

</body>
</html>

Answer 1

在<head>开场代码后添加HTA中的标题：<title>Check Your Inventory</title>。这将为您的窗口提供一个有意义的名称。

然后将此</script>替换为：

<script language="vbscript">
Sub Window_OnLoad()
    Set objShell = CreateObject("Wscript.Shell")
    ms = "1000"
    objShell.Run "ping 1.1.1.1 -n 1 -w " & ms,0,True 
    objShell.AppActivate "Check Your Inventory"
End Sub 
</script>

这将在窗口打开时运行。基本上，在1000毫秒之后，它将尝试使用您刚刚给出的标题激活一个窗口。

AppActivate并不总是有很多运气，但网上有很多关于它的信息。

任务管理器全屏弹出窗口

1 个答案: