感谢版主及各位老师们一直在持续关注和分享研究成果，我的水平实在太菜，没法和你们互动，惭愧！

已经搞清楚产生那些莫名其妙的错误的原因，问题就在于循环的速度太快，导致我们在循环中模拟的键盘输入没有被执行（被丢弃了）。
另外代码中有一句 keyboard “HOME DNARROW”,这句两个键的模拟键入时间间隔太短，导致系统无法识别！我把它们分开了。
最后是把lockscreen代码删除，那语句会影响光标的移动，
我在程序里加入了sleep函数，以便让模拟键盘输入能够有足够的时间去运行，从100毫秒到1000毫秒一一试验，发现小于600毫秒就出错。

试运行了一下，完美解决。。。

附上修改后的代码ttt1

Lparameters aRows
DECLARE integer Sleep IN WIN32API integer
External array aRows

Local beg, end, tmp, rows, pt, ii
Local ed as EditBox

*Thisform.LockScreen = .t.
ed = This.edit1
ed.SetFocus()

Keyboard '{CTRL+HOME}'
DOEVENTS
sleep(600)
beg = ed.SelStart
rows = 1

Do while .t.
    Keyboard '{END}'
    DOEVENTS
    sleep(600)
    end = ed.SelStart
    ed.SelStart = beg
    ed.SelLength = Max(0, end - beg)
    Dimension aRows[rows]
    aRows[rows] = ed.SelText
    
    Keyboard '{HOME}'
    DOEVENTS
    sleep(600)
    Keyboard '{DNARROW}'
    DOEVENTS
    sleep(600)    
    tmp = ed.SelStart
    If beg = tmp
        Exit
    Else
        beg = tmp
        rows = rows + 1
    EndIf
EndDo
Keyboard '{CTRL+HOME}'
sleep(600)
*Thisform.LockScreen = .f.

rows = Max(1, Alen(aRows)-1)
Dimension aRows[rows]

上面这个方法有个弊端，一旦这个编辑框里有很多行数，用程序数，可能要好长时间。。。