web-dev-qa-db-ja.com

シンプルなInputBox関数

PowerShellの簡単なポップアップ関数を知っています。たとえば:

function popUp($text,$title) {
    $a = new-object -comobject wscript.Shell
    $b = $a.popup($text,0,$title,0)
}

popUp "Enter your demographics" "Demographics"

しかし、入力を求めるポップアップを表示するための同等のものを見つけることができません。

確かに、 Read-Line がありますが、コンソールからプロンプトが表示されます。

そして、この複雑な機能があります。これは、1回または2回入力を要求するスクリプトにとってはやり過ぎのようです。

function getValues($formTitle, $textTitle){
    [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") 
    [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 

    $objForm = New-Object System.Windows.Forms.Form
    $objForm.Text = $formTitle
    $objForm.Size = New-Object System.Drawing.Size(300,200)
    $objForm.StartPosition = "CenterScreen"

    $objForm.KeyPreview = $True
    $objForm.Add_KeyDown({if ($_.KeyCode -eq "Enter") {$x=$objTextBox.Text;$objForm.Close()}})
    $objForm.Add_KeyDown({if ($_.KeyCode -eq "Escape") {$objForm.Close()}})

    $OKButton = New-Object System.Windows.Forms.Button
    $OKButton.Location = New-Object System.Drawing.Size(75,120)
    $OKButton.Size = New-Object System.Drawing.Size(75,23)
    $OKButton.Text = "OK"
    $OKButton.Add_Click({$Script:userInput=$objTextBox.Text;$objForm.Close()})
    $objForm.Controls.Add($OKButton)

    $CANCELButton = New-Object System.Windows.Forms.Button
    $CANCELButton.Location = New-Object System.Drawing.Size(150,120)
    $CANCELButton.Size = New-Object System.Drawing.Size(75,23)
    $CANCELButton.Text = "CANCEL"
    $CANCELButton.Add_Click({$objForm.Close()})
    $objForm.Controls.Add($CANCELButton)

    $objLabel = New-Object System.Windows.Forms.Label
    $objLabel.Location = New-Object System.Drawing.Size(10,20)
    $objLabel.Size = New-Object System.Drawing.Size(280,30)
    $objLabel.Text = $textTitle
    $objForm.Controls.Add($objLabel)

    $objTextBox = New-Object System.Windows.Forms.TextBox
    $objTextBox.Location = New-Object System.Drawing.Size(10,50)
    $objTextBox.Size = New-Object System.Drawing.Size(260,20)
    $objForm.Controls.Add($objTextBox)

    $objForm.Topmost = $True

    $objForm.Add_Shown({$objForm.Activate()})

    [void] $objForm.ShowDialog()

    return $userInput
}

$schema = getValues "Database Schema" "Enter database schema"
15
Rhonda

おそらく最も簡単な方法は InputBox メソッドの Microsoft.VisualBasic.Interaction クラス:

[void][Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic')

$title = 'Demographics'
$msg   = 'Enter your demographics:'

$text = [Microsoft.VisualBasic.Interaction]::InputBox($msg, $title)
34
Ansgar Wiechers

こんな感じ

function CustomInputBox([string] $title, [string] $message, [string] $defaultText) 
{
$inputObject = new-object -comobject MSScriptControl.ScriptControl
$inputObject.language = "vbscript" 
$inputObject.addcode("function getInput() getInput = inputbox(`"$message`",`"$title`" , `"$defaultText`") end function" ) 
$_userInput = $inputObject.eval("getInput") 

return $_userInput
}

次に、これに似た関数を呼び出すことができます。

$userInput = CustomInputBox "User Name" "Please enter your name." ""
if ( $userInput -ne $null ) 
{
 echo "Input was [$userInput]"
}
else
{
 echo "User cancelled the form!"
}

これは私が考えることができる最も簡単な方法です。

2
Luke

選択された答えは私にはうまくいきませんでした。しかし、私はそれを使用できるようになりたいです。アイデアはありません。長い間ハングしているだけです。私は自分のものを知っています。私は非常に多くのライブラリを所有しており、Visual Studioのフルインストールを含め、PCにないものはすべて90 Gbです。

これは解決策として悪臭を放ちます!私は知っていますが、その50 repルールにより、ソリューションの下でコメントすることはできません。それは私を夢中にさせます。あなたが想像できる最悪のことを私に電話してください-そして、あなたが何をしても-私は将来私がちょうど適切な方法で対応できるように私を支持しません。

1
Andy T

入力ボックスを取得する最も簡単な方法は、Read-Hostコマンドレットと-AsSecureStringパラメーターを使用することです。

$us = Read-Host 'Enter Your User Name:' -AsSecureString
$pw = Read-Host 'Enter Your Password:' -AsSecureString

これは、上記の私の例のようにログイン情報を収集している場合に特に便利です。変数をSecureStringオブジェクトとして難読化したままにする場合は、次のようにその場で変数を変換できます。

[Runtime.InteropServices.Marshal]::PtrToStringAuto([Runtime.InteropServices.Marshal]::SecureStringToBSTR($us))
[Runtime.InteropServices.Marshal]::PtrToStringAuto([Runtime.InteropServices.Marshal]::SecureStringToBSTR($pw))

情報をまったく安全にする必要がない場合は、プレーンテキストに変換できます。

$user = [Runtime.InteropServices.Marshal]::PtrToStringAuto([Runtime.InteropServices.Marshal]::SecureStringToBSTR($us))

Read-Hostと-AsSecureStringはすべてのPowerShellバージョン(1〜6)に含まれているように見えますが、コマンドが同じように機能することを確認するためのPowerShell 1または2はありません。 https://docs.Microsoft.com/en-us/powershell/module/Microsoft.powershell.utility/read-host?view=powershell-3.

1
DBADon