易语言如何分割数字然后模拟键盘一个个输入？

.版本 2
.支持库 spec
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 长度, 整数型
.程序集变量 a, 整数型
.程序集变量 X, 整数型

.子程序 _按钮1_被单击

a ＝ 1
长度 ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (长度, )
调用子程序 (&子程序1, , , )
.计次循环尾 ()

.子程序 子程序1

X ＝ 到整数 (取文本中间 (编辑框1.内容, a, 1))
.如果真 (X ＝ 1)
模拟按键 (#键1, , )
.如果真结束
.如果真 (X ＝ 2)
模拟按键 (#键2, , )
.如果真结束
.如果真 (X ＝ 3)
模拟按键 (#键3, , )
.如果真结束
.如果真 (X ＝ 4)
模拟按键 (#键4, , )
.如果真结束
.如果真 (X ＝ 5)
模拟按键 (#键5, , )
.如果真结束
.如果真 (X ＝ 6)
模拟按键 (#键6, , )
.如果真结束
.如果真 (X ＝ 7)
模拟按键 (#键7, , )
.如果真结束
.如果真 (X ＝ 8)
模拟按键 (#键8, , )
.如果真结束
.如果真 (X ＝ 9)
模拟按键 (#键9, , )
.如果真结束
a ＝ a ＋ 1

易语言？不会那么无聊吧。