[问题] 下面的脚本超级模拟为什么会失效 [复制链接]

SetSimMode 2
// 定义全局变量用于线程间通信或共享数据（这里假设可能需要共享一些坐标等信息，可根据实际需求调整）
Dim g_intX, g_intY
Dim g_subIntX, g_subIntY

// 定义主程序找图并点击的函数作为一个线程函数
Sub MainProgramFindAndClickThread()
Dim intX, intY
// 在指定区域查找图片"Attachment:\1.bmp"，相似度为0.9
FindPic 0, 0, 2560, 1080, "Attachment:\1.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
// 移动到找到的图片位置并点击，每次操作前设置适当延迟，模拟真实操作节奏
Delay 1000
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1

Delay 1000
// 执行一些其他操作，这里设置了几个固定的点击位置和延迟
Delay 1000
MoveTo 86, 198
Delay 1000
LeftClick 1

Delay 10000
KeyPress "Z", 1

// 以下循环部分用于重复执行一系列点击操作，简化了原代码的重复编写
For i = 1 To 97
Call ClickSequence()
Next

// 按下按键 "Z"
End If
End Sub

// 定义一个函数用于执行一组固定的点击操作序列，避免在循环中重复编写相同代码
Sub ClickSequence()
MoveTo 2513, 663
Delay 500
LeftClick 1
Delay 500
MoveTo 2235, 452
Delay 500
LeftClick 1
Delay 500
MoveTo 2363, 877
Delay 500
LeftClick 1
Delay 500
MoveTo 2356, 1012
Delay 500
LeftClick 1
Delay 500
MoveTo 2278, 453
Delay 500
LeftClick 1
Delay 500
MoveTo 2363, 877
Delay 500
LeftClick 1
Delay 500
MoveTo 2356, 1012
Delay 500
LeftClick 1
Delay 500
MoveTo 2319, 453
Delay 500
LeftClick 1
Delay 500
MoveTo 2363, 877
Delay 500
LeftClick 1
Delay 500
MoveTo 2356, 1012
Delay 500
LeftClick 1
Delay 500
MoveTo 2363, 448
Delay 500
LeftClick 1
Delay 500
MoveTo 2363, 877
Delay 500
LeftClick 1
Delay 500
MoveTo 2356, 1012
Delay 500
LeftClick 1
Delay 500
MoveTo 2403, 448
Delay 500
LeftClick 1
Delay 500
MoveTo 2363, 877
Delay 500
LeftClick 1
Delay 500
MoveTo 2356, 1012
Delay 500
LeftClick 1
Delay 500
End Sub

// 定义找图并点击的子程序作为一个线程函数
Sub SubProgramFindAndClickThread()
Dim subIntX, subIntY
// 在指定区域查找子程序对应的图片，这里假设图片名为"Attachment:\sub.bmp"，相似度为0.8
FindPic 0, 0, 2560, 1080, "Attachment:\2.bmp", 0.8, subIntX, subIntY
If subIntX > 0 And subIntY > 0 Then
// 移动到找到的图片位置并点击，设置适当延迟
Delay 1000
Delay 1000
MoveTo 2199, 244
Delay 1000
LeftClick 1

Delay 1000
Delay 1000
Delay 1000
Delay 1000
MoveTo 2195, 246
Delay 1000
LeftClick 1
Delay 1000
// 这里可以添加子程序点击图片后需要执行的其他操作，比如再进行一些点击、输入等动作，暂时先留空
End If
End Sub

// 启动主程序找图并点击的线程
BeginThread MainProgramFindAndClickThread

// 查找子程序的图片，找到则暂停主程序，运行子程序，运行完继续主程序（这里在主线程中处理与子程序的交互）
Do
Call SubProgramFindAndClickThread()
If g_subIntX > 0 And g_subIntY > 0 Then
// 暂停主程序（这里可以根据按键精灵提供的暂停线程相关函数来实现，假设为PauseThread函数）
PauseThread "MainProgramFindAndClickThread"

// 运行子程序（这里再次调用确保执行相关操作，可根据实际需求调整是否重复调用等）
Call SubProgramFindAndClickThread()

// 恢复主程序运行（这里可以根据按键精灵提供的恢复线程相关函数来实现，假设为ResumeThread函数）
ResumeThread "MainProgramFindAndClickThread"
End If
Loop