[问题] 写了个自动种菜的脚本，为什么调试点击启动就卡死了呢？ [复制链接]

点击启动就卡死了，只能任务管理器里面关闭，是循环出了问题还是线程出了问题？求大佬解答
代码如下：// 定义全局变量
running = False
cycleCount = 0
firstPlant = True // 标记是否是第一次播种

// 启动按钮的点击事件
Event Form1.button1.Click
Call StartScript()
End Event

// 停止按钮的点击事件
Event Form1.button2.Click
Call StopScript()
End Event

Sub StartScript()
running = True
cycleCount = 0
firstPlant = True // 启动时初始化标记为第一次播种

// 启动钓鱼线程
Call StartFishingCycle()

// 启动播种浇水线程
Call StartPlantingCycle()
End Sub

Sub StartFishingCycle()
While running
Call Fishing()

// 固定等待时间45分钟20秒
Delay 2720000 // 45分钟20秒
Wend
End Sub

Sub StartPlantingCycle()
While running
// 进入播种和浇水操作
Call PlantCrop()

// 执行后续的浇水操作
For i = 1 To 2
If Not running Then Exit For
Call WaterCrop()
Delay 945000 // 等待15分钟45秒
Next

// 第三次浇水
If running Then
Call WaterCrop()
End If

// 第三次浇水后等待13分钟然后重新开始
Delay 780000 // 等待13分钟
Wend
End Sub

Sub Fishing()
// 钓鱼
KeyPress "T", 1 // 复位
Delay 200
// 向左移动一秒
KeyDown "A", 1
Delay 1000
KeyUp "A", 1
Delay 200
KeyPress "H", 1 // 开始钓鱼
Delay 21000 // 钓鱼所需时间
End Sub

Sub PlantCrop()
// 播种作物和第一次浇水
KeyPress "T", 1 // 复位
Delay 200
// 向左移动一秒
KeyDown "A", 1
Delay 1000
KeyUp "A", 1
Delay 200
KeyPress "F", 1 // 开始播种
Delay 200
Delay 8000 // 播种和第一次浇水共用8秒
If firstPlant Then
firstPlant = False // 标记为非第一次播种
End If
End Sub

Sub WaterCrop()
// 后续浇水操作
KeyPress "F", 1 // 浇水操作
Delay 8000 // 每次浇水需要8秒
End Sub

Sub StopScript()
running = False
End Sub