主题：金字塔实现自动通达信交易

 我用autoit3实现VBA操作通达信自动交易，

Sub Test1()

Dim oShell
Dim oAutoIt

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Initialise Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set oAutoIt = createobject("AutoItX3.Control")

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Start of Script
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call oAutoIt.ToolTip("hi★★欢迎使用我的软件★★★★")

call oAutoIt.Run("notepad.exe")

' Wait for the Notepad window to become active
oAutoIt.WinWaitActive "Untitled - Notepad", ""

' Send some keystokes to notepad
oAutoIt.Send "Hello, this is line 1{ENTER}"
oAutoIt.Send "This is line 2{ENTER}This is line 3"
oAutoIt.Sleep 1000
oAutoIt.Send "!{F4}"
oAutoIt.WinWaitActive "Notepad", "save the changes?"
oAutoIt.Send "!n"
oAutoIt.WinWaitClose "Untitled - Notepad", ""

Set oAutoIt=nothing
End Sub

但是用了这个代码，金字塔就卡死了，对应的OCX已经regsvr32，难道金字塔调用外部的DLL，有限制？EXCEL的VBA调用都正常

我调试了一下，知道原因了，通过AUTOIT可以实现任何第三方的股票软件的自动化交易，金字塔的VBA很棒