Add-Type -AssemblyName System.Windows.Forms # 创建窗体 $form = New-Object System.Windows.Forms.Form $form.Text = "发送文本" $form.Width = 400 $form.Height = 180 $form.StartPosition = "CenterScreen" # 提示标签 $label = New-Object System.Windows.Forms.Label $label.Text = "请输入要发送的文本:" $label.AutoSize = $true $label.Location = New-Object System.Drawing.Point(20,20) $form.Controls.Add($label) # 输入框 $textBox = New-Object System.Windows.Forms.TextBox $textBox.Width = 340 $textBox.Location = New-Object System.Drawing.Point(20,50) $form.Controls.Add($textBox) # 确定按钮 $button = New-Object System.Windows.Forms.Button $button.Text = "确定" $button.Width = 80 $button.Location = New-Object System.Drawing.Point(150,90) $form.Controls.Add($button) # 点击按钮事件 $button.Add_Click({ $text = $textBox.Text.Trim() if ($text -ne "") { $encodedText = [System.Web.HttpUtility]::UrlEncode($text) Start-Process "https://aticores.cn/send.php?text=$encodedText" $form.Close() } else { [System.Windows.Forms.MessageBox]::Show("请输入文本!", "提示") } }) # 显示窗口 $form.Topmost = $true [void]$form.ShowDialog()