海口二手汽车网:请高手帮忙看看这个脚本为什么总提示缺少语句 End If

'F4放血瓶子，这个脚本是来杀主动怪的。
Dim IsAttack'是否已经已经攻击
Dim LeftX,TopY
Dim ZM,CTime
Sub Main()
Dim i,j
Dprint GetWinMod
Select Case GetWinMod
Case 0:
MessageBox "游戏运行在全屏幕方式下无效，游戏必须运行在800*600窗口模式下"
Exit Sub
Case 1: '经典模式
ZM = 0
Case 2: 'XP模式
ZM = 8
End Select
i=1
CTime = GetTime
SaveWinPos LeftX,TopY '保存游戏窗口位置
Do While i<100000 '循环10万次，你可以挂上10小时了
IsAttack=0 '是否发生过攻击
Do While IsAttack<1 '如果没发生攻击则寻找怪物攻击
IsAttack=IsAttack+1 '假设攻击发生
Call SetInPos '调用在身边找怪并攻击的函数
AddBlood '加血函数
SetOutPos1 '调用外圈找怪并攻击的函数
SetOutPos2 '调用最外圈找怪并攻击的函数
'SetOutPos3
Loop
Delay 10
'AddBlood '加血
Loop
End Sub
'设置内圈攻击
Sub SetInPos()'设置内圈攻击
MoveTo 385+leftx,305+topy +ZM +35 '鼠标移动
attack '调用攻击函数
MoveTo 412+leftx,305+topy +ZM +35
attack
MoveTo 335+leftx,285+topy +ZM +35
Attack
MoveTo 365+leftx,270+topy +ZM +35
Attack
MoveTo 395+leftx,255+topy +ZM +35
Attack
MoveTo 425+leftx,270+topy +ZM +35
Attack
MoveTo 455+leftx,285+topy +ZM +35
Attack
MoveTo 425+leftx,300+topy +ZM +35
Attack
MoveTo 395+leftx,315+topy +ZM +35
Attack
MoveTo 365+leftx,300+topy +ZM +35
Attack
End Sub
'补血
Sub AddBlood() '加血函数
SaveWinPos LeftX,TopY
If (IsColor(102+ LeftX,53+TopY +ZM ,"1111AA",0) = 1 ) Then '判断是否要加血
'不补血
Else '补血
'KeyPress "F1",1 '按键<F1>执行1次（F1放蛋糕）注意：F1--F8 千万别放技能
'KeyPress "F2",1 '（F2放蛋糕）
'KeyPress "F3",1 '（F3放蛋糕）
KeyPress "F4",1 '（F4放蛋糕）
'KeyPress "F5",1 ' （F5放蛋糕）
'KeyPress "F6",1 '（F6放蛋糕）
'Keypress "F7",1 '（F7放蛋糕）
'KeyPress "F8",1 '（F8放蛋糕）
End If
End Sub

Sub Attack()'攻击怪物函数
Dim cc,kk
cc=0
AddBlood
Delay 50
Do While IsMousePic(Path + "\images\大唐豪侠鼠标武器.bmp")=1 '通过判断鼠标是否变化确定鼠标位置是否为怪物！
For kk=0 To 1
Delay 100
If IsMousePic(Path+"\Images\大唐抓取.bmp")=1 Then LeftClick 1
Do While IsMousePic(Path + "\images\大唐豪侠鼠标武器.bmp")=1
End If

Next
If cc=1 Then Exit Do
LeftClick 1
IsAttack=0
For i=0 To 2
AddBlood
Next
Loop
End Sub
<每次运行，总提示错误出现在下边的“End If”这行。>
<错误为：缺少语句>
<错误代码为： End If>
_______________________________________________
Do While IsMousePic(Path + "\images\大唐豪侠鼠标武器.bmp")=1
End If

Next
If cc=1 Then Exit Do
LeftClick 1
IsAttack=0
For i=0 To 2
AddBlood
Next
Loop
End Sub