你多写了sub了。以下是改好的参考
Sub yunxingliulan
'这个必须存在
End Sub
Sub anzhuangliulan
'这个必须存在
End Sub
FindPic 86, 179, 248, 892, "Attachment:\360浏览器图标.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call yunxingliulan
EndScript
Else
Call anzhuangliulan
EndScript
End If