Question

我想运行一个HTA文件，其中有一个循环，其中父HTA调用子HTA以定期显示更新。我希望孩子HTA在旧更新时保持打开状态，并且在使用新更新再次调用它时它应该关闭。我试图这样做，但我无法在孩子HTA上添加严格的HTA条件。这导致所有Child HTA在后台打开。

家长HTA文件，

以下代码

<html>
<head>
<title>Parent Application</title>
<HTA:APPLICATION
  APPLICATIONNAME="Parent Application"
  ID="ParentApplication"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Sub OnClickButtonConnect()
  Dim currentDirectory,pos
  pos=InStrRev(document.location.pathname,"\")
  currentDirectory=""
  If pos>0 Then
    currentDirectory = Left(document.location.pathname,pos)
  End If

  Dim WshShell, i, g
  g = 5
  set WshShell = CreateObject("wscript.Shell")
  For i = 1 To g
  cmdline = "mshta.exe """ & currentDirectory & "child.hta"" """ & login.value & """ """ & password.Value & """"
  WshShell.Run cmdline,1,False
  next
  window.close
End Sub
</script>

<body bgcolor="white">

<!--Add your controls here-->

Login:<input type="text" name="login" id="login"><BR>
Password:<input type="password" name="password" id="password"><BR>
<input type="button" name="Connect" id="Connect" value="Connect" onclick="OnClickButtonConnect">
<!--{{InsertControlsHere}}-Do not remove this line-->
</body>
</html>

儿童HTA

<html>
<head>
<title>Child Application</title>
<HTA:APPLICATION
  APPLICATIONNAME="Child Application"
  ID="ChildApplication"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
  str=""
  arguments = Split(ChildApplication.CommandLine," """)
  For i=0 To UBound(arguments)
    arguments(i)=Replace(arguments(i),"""","")
  Next
  document.body.innerhtml="login is: " & arguments(1) & "<BR>password is: " &  arguments(2)
End Sub

</script>

<body bgcolor="white">

<!--Add your controls here-->

<!--{{InsertControlsHere}}-Do not remove this line-->
</body>
</html>

Answer 1

在打开子hta之前调用此Sub。确保hta的名称与其实际名称匹配。

Sub CloseChild
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery _
        ("Select CommandLine from Win32_Process where CommandLine like '%child.hta%'")
    For Each objProcess In colProcessList
        objProcess.Terminate()
    Next 
End Sub

编辑：我只想评论以后可能会阅读此内容的人。尽管在CommandLine子句中使用了此属性，但未明确要求将where放在select语句中。您可以选择Win32_Process课程中的任何或所有属性，包括或排除 CommandLine。

我建议只选择提高查询速度所需的属性，而且从历史上看，为了清楚起见，我选择与where子句中使用的属性相同的属性，如果我实际上不是需要一个。

关闭子HTA文件的方法如果从父HTA文件再次调用

1 个答案: