求助，万分感谢

这是我自己写的找色循环，已经能完美运行，我想设置，我想按一下F10就运行，按一下F11，就暂停运行，请问有人会修改吗
dim intX as integer, intY as integer
do
if FindColor(57,32,102,77,"0x9E60D3",1.0,0,intX,intY)=1 then
RandomDelay(100,300)
KeyPress("4",1)
End If
if FindColor(57,32,102,77,"0x63817B",1.0,0,intX,intY)=1 then
RandomDelay(100,300)
KeyPress("2",1)
End If
if FindColor(57,32,102,77,"0x132D10",1.0,0,intX,intY)=1 then
RandomDelay(100,300)
KeyPress("3",1)
End If
loop