MT4外汇EA圈
加入本圈
收藏本贴

掉线重新连接代码

楼主  收藏   举报   帖子创建时间:  2019-05-05 10:30 回复：0 关注量：784
  1. //+------------------------------------------------------------------+
  2. //|                                             断线自动重连脚本.mq4 |
  3. //|                                                            "ldj" |
  4. //|                                           "http://www.fxvip.net" |
  5. //+------------------------------------------------------------------+
  6. //scripts//脚本文件
  7. #property copyright "ldj"
  8. #property link      "http://www.fxvip.net"
  9. #property show_inputs
  10. //自动登录准备
  11. //把要登录的账号添加到收藏夹，并保证列在第一位。
  12. extern string 邮件标记字符串="EA";
  13. extern string 所有参数单位为秒="以下参数均折算为妙";
  14. extern int 时差=18000; //本地时间与服务器时间的时间差，本地时间迟于服务器时间其值为负。单位秒。
  15. extern int 允许时差=120;//允许服务器行情报价停滞的时间，建议设置2分钟即120秒。
  16. extern int 检测间隔=20;//单位秒,不应小于20秒。
  17. extern bool 邮件报警=false;
  18. extern bool 声音报警=false;
  19. //0、不自动登录。1、重新扫描服务器。2、重新登录第一个服务器。3、登录收藏夹第一个账号4、登录导航窗第一个账号
  20. extern int 重连方式=1;

  22. int ServerNum=0;

  24. #include <WinUser32.mqh>
  25. #import "user32.dll"
  26.   int GetParent( int hWnd );
  27.   int GetDlgItem( int hDlg, int nIDDlgItem );
  28.   int GetLastActivePopup( int hWnd );
  29.   int GetAncestor(int hWnd,int gaFlags);//GetAncestor(HWND hwnd,UINT gaFlags);
  30. #import

  32. #define VK_HOME 0x24
  33. #define VK_DOWN 0x28
  34. #define VK_ENTER 0x0D

  36. #define PAUSE 1000
  37. int LoginSleep=120; //不小于2分钟，避免频繁发送登录请求
  38. int MailSleep=120;  //不小于2分钟，避免频繁发送邮件
  39. datetime LoginTime,MailTime;

  41. //+------------------------------------------------------------------+
  42. //| script program init function                                     |
  43. //+------------------------------------------------------------------+
  44. void init()
  45. {
  46.       LoginTime=TimeLocal();
  47.       MailTime=TimeLocal();
  48.       if(检测间隔<10)检测间隔=10; //避免频繁检测系统资源消耗过多！
  49.       return;
  50. }
  51. //+------------------------------------------------------------------+
  52. //| script program start function                                    |
  53. //+------------------------------------------------------------------+
  54. void start()
  55. {
  56.         if ( !IsDllsAllowed() )
  57.         {
  58.                 alert( "禁止调用DLL文件" );
  59.                 return;
  60.         }

  62.    string 正文;
  63.    double T;
  64.    int week;
  65.    
  66.    while(IsStopped()==false)//如果没有接到脚本终止命令则一直运行
  67.    {
  68.      正文="服务器时间："+TimeToStr(TimeCurrent())+"n本地的时间："+TimeToStr(TimeLocal())+"n"+AccountCompany()+"平台"+"账号为："+AccountNumber()+"的账户";
  69.      
  70.      T=(TimeLocal()-TimeCurrent())/360.0;
  71.      Comment("服务器时间：",TimeToStr(TimeCurrent(),TIME_SECONDS),
  72.              "n本地的时间：",TimeToStr(TimeLocal(),TIME_SECONDS),
  73.              "n参考时差值：",MathRound(T)*360);
  74.      week=TimeDayOfWeek(TimeLocal()-时差);
  75.      if(week>=1 && week<=5)//服务器时间为 星期一  至  星期五，有星期天或星期六 K线的平台可适当修改。
  76.      {
  77.        if ((TimeLocal()-TimeCurrent()-时差)>允许时差)
  78.        {
  79.          if (LoginTime+LoginSleep<TimeLocal())
  80.          {
  81.            LoginTime=TimeLocal();
  82.            switch(重连方式)
  83.            {
  84.              case 0 : break;
  85.              case 1 : ReConnecter();break;
  86.              case 2 : ReConnecterN(ServerNum);break;
  87.              case 3 : ReLogin(1);break;
  88.              case 4 : ReLogin2();break;
  89.              default : break;
  90.            }
  91.          }
  92.          //正文=AccountCompany()+"平台"+"账号为："+AccountNumber()+"的账户";
  93.          if (声音报警==true) alert("从服务器上获取行情数据超时");
  94.          if (邮件报警==true && MailTime+MailSleep<TimeLocal())
  95.          {
  96.            SendMail("从服务器上获取行情数据超时",正文+"n从服务器上获取行情数据超时及时处理n"+邮件标记字符串);
  97.            MailTime=TimeLocal();
  98.          }
  99.          Sleep(检测间隔*1000);
  100.        }
  101.      }
  102.      if(IsConnected()==false)
  103.      {
  104.        if (LoginTime+LoginSleep<TimeLocal())
  105.        {
  106.           LoginTime=TimeLocal();
  107.           switch(重连方式)
  108.           {
  109.             case 0 : break;
  110.             case 1 : ReConnecter();break;
  111.             case 2 : ReConnecterN(ServerNum);break;
  112.             case 3 : ReLogin(1);break;
  113.             case 4 : ReLogin2();break;
  114.             default : break;
  115.           }
  116.        }
  117.        //正文=AccountCompany()+"平台"+"账号为："+AccountNumber()+"的账户";
  118.        if (声音报警==true) alert("服务器断线");
  119.        if (邮件报警==true && MailTime+MailSleep<TimeLocal())
  120.        {
  121.          SendMail("服务器连接中断",正文+"n与服务器连接中断请及时处理n"+邮件标记字符串);
  122.          MailTime=TimeLocal();
  123.        }
  124.        Sleep(检测间隔*1000);
  125.      }
  126.      Sleep(1*1000);
  127.    }
  128.    Comment("");
  129.    return(0);
  130. }
  131. //+------------------------------------------------------------------+
打赏
分享到：

本文作者

Ta的圈贴

更多

最新创建圈子

最新话题

我要发帖