powershell按钮只能使用一次

Question

我试图创建一个网站“ IsitUP”检查器，以确定一组网站是否启动。

-我的网络不支持ICMP出站，因此Ping /测试连接不可用

-我使用的是Powershell v2，因此Web-RequestGet也已退出

-我决定为页面加上字符串，然后比较该行以检查是否向上。

到现在为止还挺好。

现在，我只想能够刷新结果并在单击按钮时提供时间戳。 现在我的问题是，foreach语句对每个站点状态使用相同的变量，并且不会重置所有变量。 因此，当按下刷新按钮时，只会刷新最后检查的站点。

所以我的问题是我该如何A）每次使用foreach语句为一个新对象设置一个变量？ b）在整个表格上重置所有相同的变量？

##This hides the powershell cmd pmompt

PowerShell.exe -windowstyle hidden {

## This is the APAN DNS array 
$sites = "https://chat.apan.org","https://connect.apan.org","https://m.apan.org","https://mail.apan.org","https://www.apan.org"
$SitelocH = 10
$sitelocW = 10
$statlocH = 10
$statlocW = 150
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") 
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 

$objForm = New-Object System.Windows.Forms.Form 
$objForm.Text = "APAN GO!"
$objForm.Opacity = (.95)
$objForm.Size = New-Object System.Drawing.Size(200,200) 
$objForm.StartPosition = "WindowsDefaultLocation"
## APAN ICON

$RefreshButton = New-Object System.Windows.Forms.Button
$RefreshButton.Location = New-Object System.Drawing.Size(50,130)
$RefreshButton.Size = New-Object System.Drawing.Size(75,23)
$RefreshButton.Text = "Refresh"
$RefreshButton.Add_Click({$objForm.Controls.remove($STAT)})
$RefreshButton.Add_Click({Refresh})
$objForm.Controls.Add($RefreshButton)



foreach ($site in $sites)

{ 
## This is going to call a string for each site, then it is going to count the   characters 
$StatDescrption = (New-Object System.Net.WebClient).DownloadString($site) | Measure-Object -line |Select-Object -ExpandProperty lines
if ($StatDescrption -ge 1) {$StatDescrption = "OK!"} else {$StatDescrption ="DOWN"}




$objLabel = New-Object System.Windows.Forms.Label
$objLabel.Location = New-Object System.Drawing.Size($sitelocW,$sitelocH)  
$objLabel.Size = New-Object System.Drawing.Size(140,15)
$objLabel.Text = $site
$objForm.Controls.Add($objLabel) 

$sitelocH1 = $SitelocH +20
$sitelocH = $sitelocH1




$STAT= New-Object System.Windows.Forms.Label
$STAT.Location = New-Object System.Drawing.Size($statlocW,$statlocH)  
$STAT.Size = New-Object System.Drawing.Size(120,20)
$STAT.ForeColor ="green"
$STAT.Text = $StatDescrption
$objForm.Controls.Add($STAT)  

$statlocH1 = $statlocH +20
$statlocH = $statlocH1

}



Function Refresh { 

$statlocH = 10


foreach ($site in $sites) { 

## This is going to call a string for each site, then it is going to count the    characters 
$StatDescrption = (New-Object System.Net.WebClient).DownloadString($site) | Measure-Object -line |Select-Object -ExpandProperty lines
if ($StatDescrption -ge 1) {$StatDescrption = "OK!!"} else {$StatDescrption ="DOWN"}

$STAT.Refresh

$STAT = New-Object System.Windows.Forms.Label
$STAT.Location = New-Object System.Drawing.Size($statlocW,$statlocH)  
$STAT.Size = New-Object System.Drawing.Size(120,20)
$STAT.ForeColor ="green"
$STAT.Text = $StatDescrption
$objForm.Controls.Add($STAT)  

$statlocH1 = $statlocH +20
$statlocH = $statlocH1

$time.Refresh

$TIME= New-Object System.Windows.Forms.Label
$TIME.Location = New-Object System.Drawing.Size(40,110)  
$TIME.Size = New-Object System.Drawing.Size(120,20)
$TIME.Text = Get-Date
$objForm.Controls.Add($TIME)  


}}


$objForm.Add_Shown({$objForm.Activate()})
[void] $objForm.ShowDialog()

}

Answer 1

问题似乎出在删除控件上。 $RefreshButton.Add_Click({$objForm.Controls.remove($STAT)})仅删除最后一个标签，因为这就是$ STAT所设置的。

放入$objform.controls | foreach-object {if ($_.Tag -eq "STAT") {$objform.controls.remove($_)}} $objform.controls | foreach-object {if ($_.Tag -eq "STAT") {$objform.controls.remove($_)}}在刷新函数开始时， $STAT.Tag = "STAT"删除所有状态标签，然后正确更换它们。