onyx_online/q3rcon-ps
1
0
Fork 0
mirror of https://github.com/onyx-and-iris/q3rcon-ps.git synced 2025-01-18 16:50:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

adds enter bind for textbox

Browse Source 
clears text on rcon send

window size reduced a little
This commit is contained in:
onyx-and-iris 2023-11-29 22:04:51 +00:00
parent cb7c7b2e04
commit a9ccdb0c19
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/gui.ps1
View File

@ -9,7 +9,7 @@ $Lbl = New-Object System.Windows.Forms.Label
Function InitForm {
$form = New-Object System.Windows.Forms.Form
$form.Text = "Q3Rcon Client"
$form.Size = New-Object System.Drawing.Size(300, 200)
$form.Size = New-Object System.Drawing.Size(275, 200)
$form.StartPosition = "CenterScreen"
return $form
}
@ -20,7 +20,7 @@ Function AddOkButton {
$OKB.Location = New-Object System.Drawing.Size(65, 100)
$OKB.Size = New-Object System.Drawing.Size(65, 23)
$OKB.Text = "Send"
$OKB.Add_Click({ $rcon.Send($OTB.Text) })
$OKB.Add_Click({ SendRconCommand -rcon $rcon })
$form.Controls.Add($OKB)
}
@ -39,9 +39,16 @@ Function AddLabel($form) {
$form.Controls.Add($Lbl)
}
Function AddTextBox($form) {
Function AddTextBox {
param($form, $rcon)
$OTB.Location = New-Object System.Drawing.Size(10, 50)
$OTB.Size = New-Object System.Drawing.Size(240, 20)
$OTB.Add_KeyDown({
if ($_.KeyCode -eq [System.Windows.Forms.Keys]::Enter) {
SendRconCommand -rcon $rcon
}
})
$form.Controls.Add($OTB)
}
@ -50,6 +57,12 @@ Function FinalizeForm($form) {
$form.Add_Shown({ $form.Activate() })
}
Function SendRconCommand() {
param($rcon)
$rcon.Send($OTB.Text)
$OTB.Text = ""
}
Function Get-ConnFromPSD1 {
@ -66,7 +79,7 @@ try {
AddOkButton -form $form -rcon $rcon
AddCloseButton($form)
AddLabel($form)
AddTextBox($form)
AddTextBox -form $form -rcon $rcon
FinalizeForm($form)
[void] $form.ShowDialog()