PowerShellGUI-將行從TextBox1移動到TextBox2-有解無憂

我正在開發一個腳本，它將 ping 多臺計算機并將在線的計算機移動到另一個輸入框。下面的腳本可以 ping 多臺計算機，但我不確定如何將計算機名稱移動到下一個輸入框（$Inputbox_success）。

例子：

電腦	成功 Ping
電腦 1
電腦 2
電腦 3

在我單擊安裝（或 PING）按鈕后。如果計算機在線并且 ping 成功，它將移動到成功的輸入框。

電腦	成功 Ping
	電腦 1
電腦 2
電腦 3

謝謝

# Load required assemblies
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

# Drawing form and controls
$Harvester = New-Object System.Windows.Forms.Form
    $Harvester.Text = "Harvester Installer"
    $Harvester.Size = New-Object System.Drawing.Size(490,415)
    $Harvester.FormBorderStyle = "FixedDialog"
    $Harvester.TopMost = $true
    $Harvester.MaximizeBox = $false
    $Harvester.MinimizeBox = $false
    $Harvester.ControlBox = $true
    $Harvester.StartPosition = "CenterScreen"
    $Harvester.Font = "Segoe UI"

#======================== DROPBOX ========================#
$label_messageCombobox = New-Object System.Windows.Forms.Label
    $label_messageCombobox.Location = New-Object System.Drawing.Size(20,20)
    $label_messageCombobox.Size = New-Object System.Drawing.Size(200,15)
    $label_messageCombobox.Text = "What would you like to do?"
    $Harvester.Controls.Add($label_messageCombobox)    

$DropdownBox = New-Object System.Windows.Forms.ComboBox
    $DropdownBox.Location = New-Object System.Drawing.Size(20,40)
    $DropdownBox.Size = New-Object System.Drawing.Size(300,15)
    $DropdownBox.Height = 200
    $Dropdownbox.DropDownStyle = "DropDownList"
    $Harvester.Controls.Add($DropdownBox)
    
    $Selections = @("Install Harvester","Uninstall Harvester","Check if Harvester is installed")

    foreach($Selection in $Selections){
        $DropdownBox.Items.Add($Selection) | Out-Null
    }

#======================== INPUTBOX - Computers ========================#
$label_message2 = New-Object System.Windows.Forms.Label
    $label_message2.Location = New-Object System.Drawing.Size(20,70)
    $label_message2.Size = New-Object System.Drawing.Size(100,15)
    $label_message2.Text = "Computers"
    $Harvester.Controls.Add($label_message2)    
    
# Inputbox    
    $Inputbox = New-Object System.Windows.Forms.TextBox
    $Inputbox.Multiline = $True;
    $Inputbox.Location = New-Object System.Drawing.Size(20,90)
    $Inputbox.Size = New-Object System.Drawing.Size(200,200)
    $Inputbox.ScrollBars = "Vertical"
    $Harvester.Controls.Add($Inputbox)


#======================== INPUTBOX - Completed ========================#
$label_message_success = New-Object System.Windows.Forms.Label
    $label_message_success.Location = New-Object System.Drawing.Size(250,70)
    $label_message_success.Size = New-Object System.Drawing.Size(100,15)
    $label_message_success.Text = "Successful"
    $Harvester.Controls.Add($label_message_success)    
    
# Inputbox    
    $Inputbox_success = New-Object System.Windows.Forms.TextBox
    $Inputbox_success.Multiline = $True;
    $Inputbox_success.Location = New-Object System.Drawing.Size(250,90)
    $Inputbox_success.Size = New-Object System.Drawing.Size(200,200)
    $Inputbox_success.ScrollBars = "Vertical"
    $Harvester.Controls.Add($Inputbox_success)

#======================== BUTTON ===========================#   
#======================== Installer ========================#   

    $button_Installer = New-Object System.Windows.Forms.Button
    $button_Installer.Location = New-Object System.Drawing.Size(20,300)
    $button_Installer.Size = New-Object System.Drawing.Size(100,32)
    $button_Installer.TextAlign = "MiddleCenter"
    $button_Installer.Text = "Install"
    $button_Installer.Add_Click({
        
        $Inputbox.Text = $Inputbox.Text -replace '(\r\n)(\r\n) ', '$1'
        $Inputbox.Text = $Inputbox.Text -replace '(?:(\r\n) $|^(\r\n) )', ''

          ForEach ($PCname in $Inputbox.lines) {

            $pingPC = Test-Connection -ComputerName $PCName -Quiet -Count 1 -ErrorAction SilentlyContinue
            If ($pingPC -eq $True){
                Add-Type -AssemblyName System.Windows.Forms
                [System.Windows.Forms.MessageBox]::Show("$PCName is Online")}
            #else {
             #   Add-Type -AssemblyName System.Windows.Forms
              #  [System.Windows.Forms.MessageBox]::Show("$PCName is offline")}
            #return
            


        }

       
    })
    $Harvester.Controls.Add($button_Installer)

#======================== Uninstaller ========================#
    $button_UnInstaller = New-Object System.Windows.Forms.Button
    $button_UnInstaller.Location = New-Object System.Drawing.Size(140,300)
    $button_UnInstaller.Size = New-Object System.Drawing.Size(100,32)
    $button_UnInstaller.TextAlign = "MiddleCenter"
    $button_UnInstaller.Text = "Uninstall"
    $button_UnInstaller.Add_Click({
        
        
    })
    $Harvester.Controls.Add($button_UnInstaller)


#======================== Verify ========================#
    $button_Check = New-Object System.Windows.Forms.Button
    $button_Check.Location = New-Object System.Drawing.Size(260,300)
    $button_Check.Size = New-Object System.Drawing.Size(100,32)
    $button_Check.TextAlign = "MiddleCenter"
    $button_Check.Text = "Check"
    $button_Check.Add_Click({
        
        
    })
    $Harvester.Controls.Add($button_Check)

# show form
$Harvester.Add_Shown({$Harvester.Activate()})
[void] $Harvester.ShowDialog()

uj5u.com熱心網友回復：

如評論中所述，即使使用 a 可以做到這一點，但 PowerShell GUI - 將行從 TextBox 1 移動到 TextBox 2

uj5u.com熱心網友回復：

圣地亞哥，這正是我要找的！太感謝了！但我無法在我自己的腳本上復制它。我想我錯過了一些東西，但不確定是什么。下拉選單只是我之前的一個想法，但我不認為我會使用它。我只想要按鈕。你能看看我的劇本嗎？如果 ping 成功，它不會將其移動到成功輸入框。

非常感謝您的幫助。對此，我真的非常感激！

# Load required assemblies
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

# Drawing form and controls
$Harvester = New-Object System.Windows.Forms.Form
    $Harvester.Text = "Harvester Installer"
    $Harvester.Size = New-Object System.Drawing.Size(490,300)
    $Harvester.FormBorderStyle = "FixedDialog"
    $Harvester.TopMost = $true
    $Harvester.MaximizeBox = $false
    $Harvester.MinimizeBox = $false
    $Harvester.ControlBox = $true
    $Harvester.StartPosition = "CenterScreen"
    $Harvester.Font = "Segoe UI"


#======================== INPUTBOX - Computers ========================#
$label_message2 = New-Object System.Windows.Forms.Label
    $label_message2.Location = New-Object System.Drawing.Size(20,10)
    $label_message2.Size = New-Object System.Drawing.Size(100,15)
    $label_message2.Text = "Computers"
    $Harvester.Controls.Add($label_message2)    
    
# Inputbox    
    $Inputbox = New-Object System.Windows.Forms.TextBox
    $Inputbox.Multiline = $True;
    $Inputbox.Location = New-Object System.Drawing.Size(20,30)
    $Inputbox.Size = New-Object System.Drawing.Size(200,150)
    $Inputbox.ScrollBars = "Vertical"
    $Harvester.Controls.Add($Inputbox)


#======================== INPUTBOX - Completed ========================#
$label_message_success = New-Object System.Windows.Forms.Label
    $label_message_success.Location = New-Object System.Drawing.Size(250,10)
    $label_message_success.Size = New-Object System.Drawing.Size(100,15)
    $label_message_success.Text = "Successful"
    $Harvester.Controls.Add($label_message_success)    
    
# Inputbox    
    $Inputbox_success = New-Object System.Windows.Forms.TextBox
    $Inputbox_success.Multiline = $True;
    $Inputbox_success.Location = New-Object System.Drawing.Size(250,30)
    $Inputbox_success.Size = New-Object System.Drawing.Size(200,150)
    $Inputbox_success.ScrollBars = "Vertical"
    $Harvester.Controls.Add($Inputbox_success)

#======================== BUTTON ===========================#   
#======================== Installer ========================#   

$pingEvent = {
    [collections.arraylist] $ref = @(($Inputbox.Text -split '\r?\n').Trim() -ne '')
    if(-not $ref) { return } # if the textbox is empty, don't do anything
    $i = 0
    1..$ref.Count | ForEach-Object {
        if(Test-Connection $ref[$i] -Quiet) {
            $Inputbox_success.Text  = $ref[$i]   [environment]::NewLine
            $ref.RemoveAt($i)
        }
        $Inputbox, $Inputbox_success | ForEach-Object Refresh
    }
}

$button_ping = [System.Windows.Forms.Button]@{
    Location  = [System.Drawing.Size]::new(180, 200)
    Size      = [System.Drawing.Size]::new(100, 32)
    TextAlign = "MiddleCenter"
    Text      = "Ping"
}
    $button_ping.Add_Click($pingEvent)
    $Harvester.Controls.Add($button_ping)


# show form
$Harvester.Add_Shown({$Harvester.Activate()})
[void] $Harvester.ShowDialog()

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/482889.html

標籤：电源外壳用户界面

上一篇：在PySimleGUI中按下按鈕后，有沒有辦法在視覺上保持按鈕？

下一篇：如何在GUI中只運行一次函式