大智慧或者同花顺插件 EnumWindows keybd_event

 使用方法举例：

1. //---------------------------------------------------------------------------
3. #include <vcl.h>
4. #pragma hdrstop
6. #include "Unit1.h"
7. //---------------------------------------------------------------------------
8. #pragma package(smart_init)
9. #pragma resource "*.dfm"
10. TForm1 *Form1;
11. typedef  void __stdcall (*sthndl)(char*);
12. sthndl StartSearch;
13. //---------------------------------------------------------------------------
14. __fastcall TForm1::TForm1(TComponent* Owner)
15.     : TForm(Owner)
16. {
17.     hDLL=LoadLibrary((LPCTSTR)"ZTSearch.dll");
18.     if(hDLL==NULL){
19.         exit(1);
20.     }
21.     StartSearch = (sthndl)GetProcAddress(hDLL, "StartSearch");
22. }
23. //---------------------------------------------------------------------------
24. void __fastcall TForm1::Button1Click(TObject *Sender)
25. {
26.     StartSearch("522001");
27. }
28. //---------------------------------------------------------------------------

以下是dll的代码：

1. //---------------------------------------------------------------------------
3. #include <vcl.h>
4. #include <windows.h>
5. #pragma hdrstop
6. //---------------------------------------------------------------------------
7. //   Important note about DLL memory management when your DLL uses the
8. //   static version of the RunTime Library:
9. //
10. //   If your DLL exports any functions that pass String objects (or structs/
11. //   classes containing nested Strings) as parameter or function results,
12. //   you will need to add the library MEMMGR.LIB to both the DLL project and
13. //   any other projects that use the DLL.  You will also need to use MEMMGR.LIB
14. //   if any other projects which use the DLL will be performing new or delete
15. //   operations on any non-TObject-derived classes which are exported from the
16. //   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
17. //   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
18. //   the file BORLNDMM.DLL should be deployed along with your DLL.
19. //
20. //   To avoid using BORLNDMM.DLL, pass string information using "char *" or
21. //   ShortString parameters.
22. //
23. //   If your DLL uses the dynamic version of the RTL, you do not need to
24. //   explicitly add MEMMGR.LIB as this will be done implicitly for you
25. //---------------------------------------------------------------------------
27. #pragma argsused
28. extern "C" __declspec(dllexport)  void  __stdcall StartSearch(char * str);
29. //---------------------------------------------------------------------------
30. void __fastcall SearchInWin(HWND handle,char * str);
31. void __fastcall SetWindowAlpha(HWND handle,bool flag);
32. void __fastcall DoSearch(HWND mainhandle,HWND edithandle);
33. BOOL CALLBACK EnumWindowsProc(HWND hWnd,LPARAM lParam);
34. BOOL CALLBACK FindTHSMainWinProc(HWND hWnd,LPARAM lParam);
35. //---------------------------------------------------------------------------
36. char * StockStr = NULL;
37. bool Find = false;
38. HWND HTHSMainWin = NULL;
39. HWND HDZHWin = NULL;
40. //---------------------------------------------------------------------------
41. int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
42. {
43.     return 1;
44. }
45. //---------------------------------------------------------------------------
46. void __fastcall SearchInWin(HWND handle,char * str)
47. {
48.     SetForegroundWindow(handle);
49.     ShowWindow(handle,SW_SHOW);
50.     keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   0,0   );
51.     keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   KEYEVENTF_KEYUP,0);
52.     char* charofstr = str;
53.     while(*charofstr!=0){
54.         keybd_event(*charofstr, MapVirtualKey(*charofstr, 0), 0, 0);
55.         keybd_event(*charofstr, MapVirtualKey(*charofstr, 0), KEYEVENTF_KEYUP, 0);
56.         charofstr++;
57.     }
58.     keybd_event(VK_RETURN   , 0, 0, 0);
59.     keybd_event(VK_RETURN   , 0, KEYEVENTF_KEYUP, 0);
60. }
61. //---------------------------------------------------------------------------
62. void __fastcall SetWindowAlpha(HWND handle,bool flag)
63. {
64.     long rtn = GetWindowLong(handle, GWL_EXSTYLE);
65.     rtn = rtn|WS_EX_LAYERED;
66.     if(flag){
67.         SetWindowLong(handle, GWL_EXSTYLE, rtn);
68.         SetLayeredWindowAttributes(handle, 0, 10, LWA_ALPHA);
69.     }else{
70.         SetWindowLong(handle, GWL_EXSTYLE, rtn);
71.         SetLayeredWindowAttributes(handle, 0, 255, LWA_ALPHA);      
72.     }
73. }
74. //---------------------------------------------------------------------------
75. void __fastcall DoSearch(HWND mainhandle,HWND edithandle)
76. {
77.     SendMessage(mainhandle,WM_SETREDRAW,false,0);
78.     SetWindowAlpha(edithandle,true);
79.     SearchInWin(mainhandle,StockStr);
80.     SendMessage(mainhandle,WM_SETREDRAW,true,0);
81.     Sleep(1000);
82.     SetWindowAlpha(edithandle,false);
83. }
84. //---------------------------------------------------------------------------
85. void __fastcall ProduceCMDWin(HWND mainhandle)
86. {
87.     SendMessage(mainhandle,WM_SETREDRAW,false,0);
88.     SetForegroundWindow(mainhandle);
89.     ShowWindow(mainhandle,SW_SHOW);
90.     keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   0,0   );
91.     keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   KEYEVENTF_KEYUP,0);
92.     Sleep(100);
93.     keybd_event('1', MapVirtualKey('1', 0), 0, 0);
94.     keybd_event('1', MapVirtualKey('1', 0), KEYEVENTF_KEYUP, 0);
95.     Sleep(100);
96.     keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   0,0   );
97.     keybd_event(VK_ESCAPE ,0,KEYEVENTF_EXTENDEDKEY   |   KEYEVENTF_KEYUP,0);
98.     SendMessage(mainhandle,WM_SETREDRAW,true,0);
99. }
100. //---------------------------------------------------------------------------
101. BOOL CALLBACK FindTHSMainWinProc(HWND hWnd,LPARAM lParam)
102. {
103.     char windclassname[MAX_PATH];
104.     GetWindowText(hWnd,windclassname,MAX_PATH);
105.     if(NULL != strstr(windclassname , "同花顺")){
106.         HTHSMainWin = hWnd;
107.         return false;
108.     }
109.     return true;
110. }
111. //---------------------------------------------------------------------------
112. BOOL CALLBACK EnumWindowsProc(HWND hWnd,LPARAM lParam)
113. {
114.     char windclassname[MAX_PATH];
115.     GetClassName(hWnd,windclassname,MAX_PATH);
116.     if(StrComp(windclassname,"Afx:400000:0") == 0){
117.         RECT wndrect;
118.         GetWindowRect(hWnd,&wndrect);
119.         if( (wndrect.right-wndrect.left == 236) && (wndrect.bottom-wndrect.top == 200) ){
120.             if(HTHSMainWin){
121.                 DoSearch(HTHSMainWin,hWnd);
122.                 Find = true;
123.             }
124.         }
125.     }
126.     if(StrComp(windclassname,"TCommander") == 0){
127.         if(NULL != FindWindowEx(hWnd, NULL,"TPanel", NULL) ){
128.             if(HDZHWin){
129.                 DoSearch(HDZHWin,hWnd);
130.                 Find = true;
131.             }
132.         }
133.     }
134. }
135. //---------------------------------------------------------------------------
136. void __stdcall StartSearch(char * str)
137. {
138.     HTHSMainWin = NULL;
139.     HDZHWin = NULL;
140.     Find = false;
141.     StockStr = str;
142.     EnumWindows((WNDENUMPROC)FindTHSMainWinProc,0);
143.     HDZHWin = FindWindow("THJ32Main", NULL);
144.     if(HTHSMainWin){
145.         ProduceCMDWin(HTHSMainWin);
146.     }
147.     if(HDZHWin){
148.         ProduceCMDWin(HDZHWin);
149.     }
150.     EnumWindows((WNDENUMPROC)EnumWindowsProc,0);
151.     if(!Find){
152.         MessageBox(NULL,"您没有运行登录大智慧或者同花顺软件，请先启动并登录大智慧或者同花顺","涨停板敢死队",MB_OK);
153.     }
154. }