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

时间：2023-02-09 23:30:03

 使用方法举例：

  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. }
标签：

相关文章