vb.net - 为什么我的代码不会循环？

Question

抱歉代码困惑:S

If CheckBox2.Checked = True Then
For i As Integer = 0 To 1 Step 0
If CheckBox1.Checked = True Then
        If TextBox1.Text = lblCLickLImit.Text Then
            Timer1.Stop()
            TextBox1.Text = "0"
            System.Windows.Forms.SendKeys.Send("{F5}")
            System.Threading.Thread.Sleep(delaydelaytime)
            System.Windows.Forms.SendKeys.Send("{ENTER}")

        Else
            If CheckBox1.Checked = False Then
                If TextBox1.Text = lblCLickLImit.Text Then
                    Timer1.Stop()
                    TextBox1.Text = "0"
                End If
            End If
        End If
    Else
        If CheckBox2.Checked = False Then
            If CheckBox1.Checked Then
                If TextBox1.Text = lblCLickLImit.Text Then
                    Timer1.Stop()
                    TextBox1.Text = "0"
                    System.Windows.Forms.SendKeys.Send("{F5}")
                    System.Threading.Thread.Sleep(delaydelaytime)
                    System.Windows.Forms.SendKeys.Send("{ENTER}")
                End If
            Else
                If CheckBox1.Checked = False Then
                    If TextBox1.Text = lblCLickLImit.Text Then
                        Timer1.Stop()
                        TextBox1.Text = "0"
                    End If
                End If
            End If
        End If
    End If
Next

基本上，这段代码是用于自动点击器程序的，(希望这能帮助您理解 http://prntscr.com/7tuc3o 界面)好的，所以当选择“连续”复选框时，理论上代码应该无限循环。然而，当我运行程序并选择所有内容(如图所示)时，发生的只是程序单击一次然后崩溃(没有响应)。任何帮助我在其他程序中尝试过这个循环并且它有效，只是不适用于此代码。

Answer 1

您的循环正在占用 UI 线程。您需要考虑使用后台工作人员:

BackgroundWorker handles long-running tasks. It does not freeze the entire program as this task executes. (dotnetperls.com)

以下是如何设置后台工作程序的 msdn 演练: https://msdn.microsoft.com/en-us/library/ywkkz4s1.aspx

或者

如果这是一个个人项目，并且您所爱的人不需要维护此代码，您可以使用 Application.DoEvents() 继续发送消息，同时程序正在循环。这是该文件的 msdn 文档 https://msdn.microsoft.com/en-us/library/system.windows.forms.application.doevents(v=vs.110).aspx