如何在PowerShell中关闭Windows窗体？

时间：2014-09-23 11:22:12

标签： windows forms powershell

我正在编写一个脚本，以便在某个程序中拥有访问控制，在本例中为计算器

启动程序（脚本）时，脚本会生成一个包含用户名和时间戳的文本文件。如果第二个人试图访问，脚本将检查该文本文件是否存在，并提供用户名和时间戳，以便稍后再尝试。如果文件不存在，则可以访问该程序，并生成文件。当您关闭程序时，文件将被删除。

我正在使用一些Windows窗体来包含一个ingnore函数并退出脚本。

问题是，在您点击两个表单上的忽略按钮后，窗体不会关闭。

我不知道如何解决它。

代码：

##### further functions #####

Function Warnung {
[reflection.assembly]::LoadWithPartialName( "System.Windows.Forms")

$Form1.text = "Warning!"
$Form1.Width = 300
$Form1.Height = 200

$Text = New-Object Windows.Forms.Label
$Text.Location = New-Object Drawing.Point 75,30
$Text.Size = New-Object Drawing.Point 200,30
$Text.text = "Am $timestamp hat sich" 

$Text2 = New-Object Windows.Forms.Label
$Text2.Location = New-Object Drawing.Point 75,60
$Text2.Size = New-Object Drawing.Point 200,30
$Text2.text = "$user"

$Text3 = New-Object Windows.Forms.Label
$Text3.Location = New-Object Drawing.Point 75,90
$Text3.Size = New-Object Drawing.Point 200,30
$Text3.text = "im calculator angemeldet!"

$Close = New-Object Windows.Forms.Button
$Close.text = "Close"
$Close.Location = New-Object Drawing.Point 20,120
$Close.add_click({$Form1.Close()})

$Taskmgr = New-Object Windows.Forms.Button
$Taskmgr.text = "Taskmgr"
$Taskmgr.Location = New-Object Drawing.Point 105,120
$Taskmgr.add_click({Taskmgr})

$Ignore = New-Object Windows.Forms.Button
$Ignore.text = "Ignore"
$Ignore.Location = New-Object Drawing.Point 190,120
$Ignore.add_click({Warning2})

$Form1.controls.add($Close)
$Form1.controls.add($Taskmgr)
$Form1.controls.add($Ignore)
$Form1.controls.add($Text)
$Form1.controls.add($Text2)
$Form1.controls.add($Text3)
$Form1.ShowDialog()
}

Function Taskmgr{
$Form1.Close() 
Start-process taskmgr.exe
}

Function Ign2{
$Form2.Close() 
$Form1.Close() 
Remove-Item C:\users\heisem\desktop\test.txt
$date = Get-Date
$file = "C:\users\heisem\desktop\test.txt"
$env:username | set-content $file
$date | add-content $file
}

Function Warning2 {

$Form2.text = "Warnung!"
$Form2.Width = 300
$Form2.Height = 200

$Text4 = New-Object Windows.Forms.Label
$Text4.Location = New-Object Drawing.Point 40,30
$Text4.Size = New-Object Drawing.Point 200,70
$Text4.text = "Sind Sie sich sicher, dass Sie $user übergehen möchten?" 
               "Haben Sie $user angesprochen
                ob diese(r) den Passwortsafe verlassen kann/hat?" 

$Close2 = New-Object Windows.Forms.Button
$Close2.text = "Close"
$Close2.Location = New-Object Drawing.Point 20,120
$Close2.add_click({$Form2.Close()})

$Ignore2 = New-Object Windows.Forms.Button
$Ignore2.text = "Ignore"
$Ignore2.Location = New-Object Drawing.Point 190,120
$Ignore2.add_click({Ign2})

$Form2.controls.add($Close2)
$Form2.controls.add($Ignore2)
$Form2.controls.add($Text4)
$Form2.ShowDialog()
}            

##### Main function #####

[reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
$Form1 = New-Object Windows.Forms.Form
$Form2 = New-Object Windows.Forms.Form    

if (Test-Path C:\users\heisem\desktop\test.txt) {

$user = Get-content "C:\users\heisem\desktop\test.txt" -totalcount 1 
$timestamp = Get-Content "C:\users\heisem\desktop\test.txt" | Select-Object -Skip 1
Warnung 
Start-Process calc.exe -Wait                   
Remove-Item C:\users\heisem\desktop\test.txt 

} else {

$datum = Get-Date
$datei = "C:\users\heisem\desktop\test.txt"
$env:username | set-content $datei
$datum | add-content $datei
Start-Process calc.exe -Wait
Remove-Item C:\users\heisem\desktop\test.txt    
}

1 个答案:

答案 0 :(得分：0)

这与您在调用-Wait时使用的calc.exe参数有关。您在调用taskmgr.exe的函数中没有遇到此问题，因为您没有使用-Wait。

我还会从本地函数范围中取出$Form1和$Form2定义，以便每个人都可以全局访问它们。

相当疯狂地猜测，我认为-Wait参数不允许前面的代码完成执行，直到函数退出，即框架正在决定某些引用仍然需要存在，而您调用的进程存在

##### further functions #####

Function Warnung {
    [reflection.assembly]::LoadWithPartialName( "System.Windows.Forms")

    $Form1.text = "Warning!"
    $Form1.Width = 300
    $Form1.Height = 200

    $Text = New-Object Windows.Forms.Label
    $Text.Location = New-Object Drawing.Point 75,30
    $Text.Size = New-Object Drawing.Point 200,30
    $Text.text = "Am $timestamp hat sich" 

    $Text2 = New-Object Windows.Forms.Label
    $Text2.Location = New-Object Drawing.Point 75,60
    $Text2.Size = New-Object Drawing.Point 200,30
    $Text2.text = "$user"

    $Text3 = New-Object Windows.Forms.Label
    $Text3.Location = New-Object Drawing.Point 75,90
    $Text3.Size = New-Object Drawing.Point 200,30
    $Text3.text = "im calculator angemeldet!"

    $Close = New-Object Windows.Forms.Button
    $Close.text = "Close"
    $Close.Location = New-Object Drawing.Point 20,120
    $Close.add_click({$Form1.Close()})

    $Taskmgr = New-Object Windows.Forms.Button
    $Taskmgr.text = "Taskmgr"
    $Taskmgr.Location = New-Object Drawing.Point 105,120
    $Taskmgr.add_click({Taskmgr})

    $Ignore = New-Object Windows.Forms.Button
    $Ignore.text = "Ignore"
    $Ignore.Location = New-Object Drawing.Point 190,120
    $Ignore.add_click({Warning2})

    $Form1.controls.add($Close)
    $Form1.controls.add($Taskmgr)
    $Form1.controls.add($Ignore)
    $Form1.controls.add($Text)
    $Form1.controls.add($Text2)
    $Form1.controls.add($Text3)
    $Form1.ShowDialog()
}

Function Taskmgr{
    $Form1.Close() ### IT WORKS HERE
    Start-process taskmgr.exe
}

Function Ign2{
    $Form2.Close() ### HERE IS THE PROBLEM
    $Form1.Close() ### THE FORMS DO NOT CLOSE
    Remove-Item C:\users\heisem\desktop\test.txt
    $date = Get-Date
    $file = "C:\users\heisem\desktop\test.txt"
    $env:username | set-content $file
    $date | add-content $file
    Start-Process calc.exe
    Remove-Item C:\users\heisem\desktop\test.txt
}

Function Warning2 {

    $Form2.text = "Warnung!"
    $Form2.Width = 300
    $Form2.Height = 200

    $Text4 = New-Object Windows.Forms.Label
    $Text4.Location = New-Object Drawing.Point 40,30
    $Text4.Size = New-Object Drawing.Point 200,70
    $Text4.text = "Sind Sie sich sicher, dass Sie $user übergehen möchten?" 
                   "Haben Sie $user angesprochen
                    ob diese(r) den Passwortsafe verlassen kann/hat?" 

    $Close2 = New-Object Windows.Forms.Button
    $Close2.text = "Close"
    $Close2.Location = New-Object Drawing.Point 20,120
    $Close2.add_click({$Form2.Close()})

    $Ignore2 = New-Object Windows.Forms.Button
    $Ignore2.text = "Ignore"
    $Ignore2.Location = New-Object Drawing.Point 190,120
    $Ignore2.add_click({Ign2})

    $Form2.controls.add($Close2)
    $Form2.controls.add($Ignore2)
    $Form2.controls.add($Text4)
    $Form2.ShowDialog()
}            

##### Main function #####

[reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
$Form1 = New-Object Windows.Forms.Form
$Form2 = New-Object Windows.Forms.Form    

if (Test-Path C:\users\heisem\desktop\test.txt) {

    $user = Get-content "C:\users\heisem\desktop\test.txt" -totalcount 1 
    $timestamp = Get-Content "C:\users\heisem\desktop\test.txt" | Select-Object -Skip 1
    Warnung 

} else {

    $datum = Get-Date
    $datei = "C:\users\heisem\desktop\test.txt"
    $env:username | set-content $datei
    $datum | add-content $datei
    Start-Process calc.exe -Wait
    Remove-Item C:\users\heisem\desktop\test.txt    
}
相关问题
最新问题