通达信TDX翻页辅助工具

tdx翻页默认为8秒，用起来颇有不便，正好闲来无事，造了个轮子，写一个tdx自动翻页工具玩玩，行情报价、多股同列、个股界面均可定时翻页，艺不如人，请勿见笑。网速快者可适当减少翻页间隔时间，因人而异。
 TDX翻页辅助工具20170324.rar (176.81 KB) 

部分核心源码[delphi]

查找窗口句柄
  CurHandle:= GetWindow(Handle, GW_HWNDFirst);
   while CurHandle<> 0 do
   begin
     if (GetWindowText(CurHandle, @WinText, 255) > 0) and (IsWindowVisible(CurHandle))
       and (StrPas(@WinText) <> 'Program Manager') and (StrPas(@WinText) <> self.Caption) then
     begin
       i := GetClassName(CurHandle, ps, 255);
       if ps = 'TdxW_MainFrame_Class' then
       begin
         handLst.Add(StrPas(@WinText) + '=' + inttostr(hCurWindow));
         inc(j);
       end;
     end;
     CurHandle:= GetWindow(CurHandle, GW_HWNDNEXT);
   end;

发送翻页消息

      postmessage(h4, wm_keydown, vk_next, $001F0001);
       postmessage(h4, wm_keyup, vk_next, $001F0001);
       sendmessage(h4, wm_user + 3026, 0, 0);