Visual Basic中如何修改变量内字符串片段读取文本框输入值

当前代码无法读取文本框输入的账号密码，是两个写法错误导致的：

• 你在类层级定义的postEmail、postPassword、postData变量会在窗体初始化阶段就完成赋值，此时文本框还未接收任何用户输入，读取到的永远是空值
• postData直接写死了USERNAME@btinternet.com和PASSWORD占位符，没有拼接用户实际输入的内容

1. 删除类层级错误的变量初始化代码，只保留Cookie容器的定义即可：

   Public Class Form1
       Dim logincookie As CookieContainer
       ' 删掉下面三行错误初始化
       ' Dim postEmail As String = txtEmail.Text
       ' Dim postPassword As String = txtPassword.Text
       ' Dim postData As String = "username=USERNAME@btinternet.com&password=PASSWORD"
   

2. 把postData的拼接逻辑移到butStart_Click事件内部，在用户点击登录、输入完成后再读取文本框内容，同时补上空值校验，避免空请求：

   Private Sub butStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butStart.Click
       ' 输入非空校验
       If String.IsNullOrWhiteSpace(txtEmail.Text) OrElse String.IsNullOrWhiteSpace(txtPassword.Text) Then
           MessageBox.Show("请输入完整的用户名和密码", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
           Return
       End If
   
       Dim keyAcctype As String = DirectCast(comboAcctype.SelectedItem, KeyValuePair(Of String, String)).Key
       Dim valueAcctype As String = DirectCast(comboAcctype.SelectedItem, KeyValuePair(Of String, String)).Value
   
       Dim tempCookies As New CookieContainer
       Dim encoding As New UTF8Encoding
       ' 动态拼接用户输入，对参数做URL编码避免特殊字符导致请求异常
       Dim postData As String = $"username={Uri.EscapeDataString(txtEmail.Text.Trim() & "@btinternet.com")}&password={Uri.EscapeDataString(txtPassword.Text.Trim())}"
       Dim byteData As Byte() = encoding.GetBytes(postData)
   
       ' 注意：你之前的keyAcctype是字符串类型"1""2""3"，判断时不要用数值1/2/3，避免隐式转换报错
       If keyAcctype = "1" Then
           ' 原有BT Home Broadband请求逻辑不变
       ElseIf keyAcctype = "2" Then
           ' 原有BT Buisness Broadband请求逻辑不变
       ElseIf keyAcctype = "3" Then
           ' 原有BT Wi-Fi请求逻辑不变
       End If
   

修改完成后，点击登录按钮就会自动读取文本框里输入的账号密码拼接请求参数，不需要硬编码。

• 给密码文本框设置PasswordChar属性为*，避免输入密码时明文显示
• 三个账号类型的POST请求逻辑重复度超过90%，可以把公共请求逻辑抽成独立函数，只把请求URL作为参数传入，减少冗余代码，后续修改逻辑只需要调整一处
• 所有Stream、HttpWebResponse对象建议用Using块包裹，自动释放非托管资源，避免内存泄漏
• 给网络请求部分加Try...Catch异常捕获，处理网络超时、连接失败、认证返回错误等场景，给用户明确提示，避免程序直接崩溃
• 你计划实现的Portal检测功能不需要用ping，很多公共Wi-Fi会封禁ICMP协议导致ping检测失效，可以直接发HTTP GET请求访问固定的HTTP测试地址，如果请求被跳转到BT Wi-Fi的认证页面，再触发登录逻辑，准确率更高。

内容的提问来源于stack exchange，提问作者Aidan Macgregor