如何将程序激活，并发送消息？

Question

Dim MyAppID, ReturnValue
AppActivate "Microsoft Word"   ' Activate Microsoft 
   ' Word.' AppActivate can also use the return value of the Shell function.
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)   ' Run Microsoft Word.
AppActivate MyAppID   ' Activate Microsoft 
   ' Word.' You can also use the return value of the Shell function.
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1)   ' Run Microsoft Excel.
AppActivate ReturnValue   ' Activate Microsoft 
   ' Excel.然后用SendMessage这个API

Answer 1

用API吧,FindWindow找到窗口,SetActiveWindow来激活,用keybd_event来发送按键

Answer 2

同意楼上的
用findwindow找到窗口
然后用sendmessage发送消息

Answer 3

WindowFromPoint这个也可以找到窗口的HWND