怎样实现在另一个程式上输入数字后并按一下回车？如用2.exe在1.exe的文本框中输入8888，再实现按一下回车的效果？

如我要在一个程式的输入框中输入一个4位的纯阿拉伯数字，需要从4个0开始试，我写了一个程式，用Timer做了一个延时，1千以下的还可以，但当试到1500左右以上时就好像死机了一样，好久都没反应，等反应过来了，没有效果，这是我写的源码，请各位提点一下是怎么回事：
For x = 0 To 9999
 
    If Len(x) > 4  Then
    for e = 4 - Len(x)
        x = "0" & x
    next

    for i = 1 to 4
        SendKeys "{backspace}"
    next

    SendKeys x
    SendKeys "{ENTER}"

next

另外，当数字对了以后，怎么让程式停下来？假设验证码是3333，当试到3333后就让程式停下来，不再继续执行？

[ 本帖最后由 appleuser 于 2009-10-13 03:44 编辑 ]