我需要放置一个弹出框

Question

我需要将弹出框定位在右上角，但就在关闭的最小化和最大化按钮下方。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Do

   set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oServices = oLocator.ConnectServer(".","root\wmi")
set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
for each oResult in oResults
   iFull = oResult.FullChargedCapacity
next

while (1)
  set oResults = oServices.ExecQuery("select * from batterystatus")
  for each oResult in oResults
    iRemaining = oResult.RemainingCapacity
    bCharging = oResult.Charging
  next
  iPercent = ((iRemaining / iFull) * 100) mod 100
  if bCharging and (iPercent > 80) Then msgbox "Battery is charged now more than 80%. Please stop charging for optimal battery life."
  if bCharging and (iPercent < 20) Then msgbox "Battery is discharging and is below 20%. Please switch on charging immediately."

if bcharging then
CreateObject("WScript.Shell").Popup "Charging", 1, "Charging status"
else
end if
if not bcharging then
CreateObject("WScript.Shell").Popup "Not charging", 1, "Charging status"
end if
wend
WScript.Quit 1
    WScript.Sleep 0
Loop

我试过测试不同的脚本来定位它，但它们从来没有用过。

Answer 1

该脚本需要编写为 HTA，以便显示保留在屏幕上的所需位置并按时间间隔更新。 这是为执行此操作而重写的脚本（将其另存为类似Battery.hta ）：

<!DOCTYPE html>
<html>
<head>
<title>Battery Status</title>
<meta charset="UTF-8" http-equiv="X-UA-Compatible" content="IE=9">
<hta:application
  icon=perfmon.exe
  maximizeButton=no
  minimizeButton=no
  contextmenu=no
>
<script language="VBScript">
w=200: h1=75: h2=110
Window.ResizeTo w, h1
Window.MoveTo (screen.availWidth - w), 0

Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer(".","root\wmi")
Set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")

For Each oResult in oResults
  iFull = oResult.FullChargedCapacity
Next

Sub window_onload
  UpdateBattery()
  UpdateBatteryHandle = Window.SetInterval("UpdateBattery()", 10000) 'Every 10 seconds
End Sub

Sub window_unonload
  ClearInterval(UpdateBatteryHandle) 'Not really needed
End Sub

Sub UpdateBattery
  Set oResults = oServices.ExecQuery("select * from batterystatus")
  For Each oResult In oResults
    iRemaining = oResult.RemainingCapacity
    bCharging = oResult.Charging
  Next
  iPercent = Int(iRemaining/iFull * 100)
  Msg1.InnerText = iPercent & "% (Not Charging)"
  Msg2.InnerText = ""
  Window.ResizeTo w, h1
  If bCharging Then
    Msg1.InnerText = iPercent & "% (Charging)"
    If iPercent>80 Then
      Msg2.InnerText = "Please stop charging to preserve battery life."
      Window.ResizeTo w, h2
    End If
  Else
    If iPercent<20 Then
      Msg2.InnerText = "Battery is low. Please start charging."
      Window.ResizeTo w, h2
    End If
  End If
End Sub

</script>

<style>
  body  {color:White; background-color:Black; font-family:Segoe UI; font-size:9pt}
  .TopM {margin-top:4pt}
</style>
</head>

<body>
  <div id=msg1></div>
  <div id=msg2 class=TopM></div>
</body>
</html>