股票模拟操作的问题

我想做个程序，能自动在《通达信炒股软件》里模拟键盘输入股票代码（如000002+回车）后调出该股的K线图。

  我是新手，试了几次都失败了。困难有2点：

1. 打开该软件后有很多的句柄，但没有“按键精灵”的，可股票代码要在“按键精灵”里的控件里输入，我不知道要如何获得“按键精灵”的句柄。用SpyLite也没找到。

2. 尝试直接激活《通达信》然后用键盘模拟输入000002，“按键精灵”虽然反应了（该软件在输入数字时会自动调用“按键精灵”），但只接收了第一个0，但我在《记事本》中这样试是可以的，不知道为什么。

  请各位高手指教，最好有源码。在《大智慧》或《同花顺》等软件上能通过的也行。

以同花顺为例
VB code

Private Declare Function GetForegroundWindow Lib "user32 " () As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long

Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = GetForegroundWindow
Dim strClassName As String
strClassName = Space(255)
Call GetClassName(hwnd, strClassName, Len(strClassName))
strClassName = Trim(strClassName)
If InStr(strClassName, "Afx") = 0 Then Exit Sub
SendKeys "002"
End Sub