碗扣架立杆尺寸:飞飞加血脚本出错，错在那里？

VBS Dim HpBar,MpBar,Hpl,Hph,Mpl,Mph
Rem Configuration
VBSCall Hpl=InputBox("输入Hp喝药下限")@<stdlib.vbs>
VBSCall Hph=InputBox("输入Hp喝药上限")@<stdlib.vbs>
VBSCall Mpl=InputBox("输入Mp喝药下限")@<stdlib.vbs>
VBSCall Mph=InputBox("输入Mp喝药上限")@<stdlib.vbs>
Rem GetMemoryDetect
VBSCall Call ReadMemory(&H00D92164,1,HpBar)
VBSCall Call ReadMemory(&H00D92168,1,MpBar)
VBS HpBar=cint(HpBar)
IfExpression HpBar<Hpl
Rem PressF4
KeyPress 116 1
IfExpression HpBar<Hph
VBSCall Call ReadMemory(&H00D92164,1,HpBar)
VBS HpBar=cint(HpBar)
Goto PressF4
EndIf
EndIf
IfExpression MpBar<Mpl
Rem PressF5
KeyPress 115 1
IfExpression MpBar<Mph
VBSCall Call ReadMemory(&H00D92168,1,MpBar)
VBS HpBar=cint(MpBar)
Goto PressF5
EndIf
EndIf
Delay 500
Goto GetMemoryDetect

这个脚本会不断的按下F5，到底是错在那里了