Question

按键精灵多线程

刚试写了一个线程脚本，代码如下：
调试报错：您的脚本存在下列错误，将不能正常运行：

语法错误：脚本 自动打风女 ，第87行，第1个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 自动打风女 ，第86行，第5个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 自动打风女 ，第3行，第18个字符：（错误码19）缺少符号Sub。
语法错误：脚本 自动打风女 ，第3行，第18个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 自动打风女 ，第3行，第7个字符：（错误码0）没有找到合法的符号。
语法错误：脚本 自动打风女 ，第3行，第1个字符：（错误码0）没有找到合法的符号。

/////////////////////找标题/////////////////////////
FindPic 0,0,1920,1080,"Attachment:\标签栏.bmp",0.8,QX,QY
If QX > 0 And QY > 0 Then
/////////////////////找标题/////////////////////////

/////////////////////定位置/////////////////////////
L1 = QX + 130/////////找怪范围左上角坐标x
L2 = QY + 180/////////找怪范围左上角坐标y
R1 = QX + 950/////////找怪范围右下角坐标x
R2 = QY + 660/////////找怪范围右下角坐标y
RX1 = QX + 744/////////人物血条坐标x
RX2 = QY + 60/////////人物血条坐标y
AX1 = QX + 810/////////宠1血条坐标x
AX2 = QY + 60/////////宠1血条坐标y
BX1 = QX + 876/////////宠2血条坐标x
BX2 = QY + 60/////////宠2血条坐标y
CX1 = QX + 940/////////宠3血条坐标x
CX2 = QY + 60/////////宠3血条坐标y
/////////////////////定位置/////////////////////////
BeginThread F
Delay 10
BeginThread H
Delay 10

Sub F()
///////////////////找风女/////////////////////////
FindColor L1,L2,R1,R2,"BD3800",intX,intY
If intX > 0 And intY > 0 Then
///////////////////找风女/////////////////////////
MoveTo intX,intY
//打////
LeftClick 1
Delay 5000

End If
End Sub

Sub H()
///////////////////补血-人物/////////////////////////
IfColor RX1, RX2, "0000E7", 1 Then

KeyPress "1", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-人物/////////////////////////

///////////////////补血-宠1/////////////////////////
IfColor AX1,AX2,"0000E7",1 Then
KeyPress "2", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-宠1/////////////////////////

///////////////////补血-宠2/////////////////////////
IfColor BX1,BX2,"0000E7",1 Then
KeyPress "3", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-宠2/////////////////////////

///////////////////补血-宠3/////////////////////////
IfColor CX1,CX2,"0000E7",1 Then
KeyPress "4", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-宠3/////////////////////////

End If
End Sub

求各路前辈大神指点迷津！！！

Answer 1

//你的参照物是标签栏.bmp你就直接这样写吧，如果你懂环境变量就可以用环境变量写
BeginThread F
Delay 10
BeginThread H
Delay 10

Sub F()
    /////////////////////找标题/////////////////////////
FindPic 0,0,1920,1080,"Attachment:\标签栏.bmp",0.8,QX,QY
If QX > 0 And QY > 0 Then 
/////////////////////找标题/////////////////////////

/////////////////////定位置/////////////////////////
L1 = QX + 130/////////找怪范围左上角坐标x
L2 = QY + 180/////////找怪范围左上角坐标y
R1 = QX + 950/////////找怪范围右下角坐标x
R2 = QY + 660/////////找怪范围右下角坐标y
RX1 = QX + 744/////////人物血条坐标x
RX2 = QY + 60/////////人物血条坐标y
AX1 = QX + 810/////////宠1血条坐标x
AX2 = QY + 60/////////宠1血条坐标y
BX1 = QX + 876/////////宠2血条坐标x
BX2 = QY + 60/////////宠2血条坐标y
CX1 = QX + 940/////////宠3血条坐标x
CX2 = QY + 60/////////宠3血条坐标y
/////////////////////定位置/////////////////////////
    End If
///////////////////找风女/////////////////////////
FindColor L1,L2,R1,R2,"BD3800",intX,intY
If intX > 0 And intY > 0 Then 
///////////////////找风女/////////////////////////
MoveTo intX,intY 
//打////
LeftClick 1
Delay 5000

End If
End Sub

Sub H()
    /////////////////////找标题/////////////////////////
FindPic 0,0,1920,1080,"Attachment:\标签栏.bmp",0.8,QX,QY
If QX > 0 And QY > 0 Then 
/////////////////////找标题/////////////////////////

/////////////////////定位置/////////////////////////
L1 = QX + 130/////////找怪范围左上角坐标x
L2 = QY + 180/////////找怪范围左上角坐标y
R1 = QX + 950/////////找怪范围右下角坐标x
R2 = QY + 660/////////找怪范围右下角坐标y
RX1 = QX + 744/////////人物血条坐标x
RX2 = QY + 60/////////人物血条坐标y
AX1 = QX + 810/////////宠1血条坐标x
AX2 = QY + 60/////////宠1血条坐标y
BX1 = QX + 876/////////宠2血条坐标x
BX2 = QY + 60/////////宠2血条坐标y
CX1 = QX + 940/////////宠3血条坐标x
CX2 = QY + 60/////////宠3血条坐标y
/////////////////////定位置/////////////////////////
    End If
///////////////////补血-人物/////////////////////////
IfColor RX1, RX2, "0000E7", 1 Then

KeyPress "1", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-人物/////////////////////////

///////////////////补血-宠1/////////////////////////
IfColor AX1,AX2,"0000E7",1 Then
KeyPress "2", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-宠1/////////////////////////

///////////////////补血-宠2/////////////////////////
IfColor BX1,BX2,"0000E7",1 Then
KeyPress "3", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-宠2/////////////////////////

///////////////////补血-宠3/////////////////////////
IfColor CX1,CX2,"0000E7",1 Then
KeyPress "4", 1
Delay 50
KeyPress "F1", 1
Delay 100
KeyPress "5", 1
End If
///////////////////补血-宠3/////////////////////////

End Sub

Answer 2

线程定义要独立出来，不能写在if，for这类关键字里面。

追问

谢谢您，能麻烦您帮我稍作修改吗？