wow毛布卷:请高手帮忙看看这个脚本为什么总提示缺少语句 End If

来源：百度文库编辑：高考问答时间：2024/05/04 12:47:38

'说明：下面的脚本是用来测试[按键游侠]模拟性能，软件使用者可以用此测试软件性能。切不可用来挂机刷怪，否则后果自负。
'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

请高手帮忙看看这个脚本为什么总提示缺少语句 End If 请高手帮忙看看这个脚本为什么总提示缺少语句 End If 请高手帮忙看看这个脚本为什么总提示缺少语句 End If 为什么显示这个提示？？请高手帮忙？？请攒机高手帮忙看看这个配置！请高手帮忙看看这个配置怎么样？请高手帮忙看看这个配置怎么样？请高手帮忙看看这个电脑配置请攒机高手帮忙看看这个配置！我按要求装完solid works2005，却是打不开提示脚本错误，连接不到服务器，为什么呀？请高手帮忙多谢