设为首页 收藏本站 切换语言

请高手看看,这个源码实盘为什么不开单?  

| 发表于 2021-10-7 10:41:55 | 显示全部楼层 |复制链接
最后由 naowei 于 2021-10-7 10:41 编辑

   这个EA只能测试,但模拟实盘和真实账户均不开单。联系其QQ,难以回答验证问题。在网上查了一下,只找到一个线索:要加载wininet.dll的动态链接库,怎样加载,没有说明。有请高手帮忙解决这个EA实盘不开单的问题。能解决这个问题或者修改源码使EA能实盘开单者,请将解决问题后的EA源码发至本人邮箱。重谢!

源码于下

//QQ1778332087
#property copyright   "2019,COMBO PLAN EA."
#property link        "http://www.snipersuite.com/"

#import "wininet.dll"
  int InternetOpenA(string a0, int a1, string a2, string a3, int a4);
  int InternetOpenUrlA(int a0, string a1, string a2, int a3, int a4, inta5);
  int InternetReadFile(int a0, string a1, int a2, int& a3[]);
  int InternetCloseHandle(int a0);

#import
intg_datetime_84;
extern int SL = 40;
extern int TP = 8;
extern int Cls = 3;
extern bool MM = TRUE;
extern double Risk = 1.0;
extern double ManLot = 0.01;
extern int OpenHour = 21;
extern int CloseHour = 12;
extern int Slippage = 3;
extern int MaxSpread = 3;
extern int Friday = 65;
extern int Monday = 5;
extern bool CloseBy = TRUE;
extern int FilterD = 5;
extern int FilterV = 10;
extern int FilterC = 20;
extern int FilterDS = 5;
extern int FilterVS = 10;
extern int FilterCS = 20;
extern int gi_88;
extern int gi_92;
extern int gi_96 = 0;
extern int gi_100 = 1;
extern int gi_104 = 13;
extern double FX = 3.5;
extern double FXS = 3.5;
extern int Magic = 7895123;

string s0 = "=== 茵彘腓磴 橡铘栩?===============================================================================";
extern bool TrailingProf_Use = TRUE;
extern int TrailingProfStart = 8;
extern int TrailingProf = 11;
bool gi_232 = TRUE;
double gd_unused_236 = 100.0;
double gd_unused_244 = 0.01;
int gi_252 = 1;
bool gi_256;
double g_ask_260;
double g_bid_268;
int g_datetime_276 = 0;
int g_datetime_280 = 0;
int g_datetime_284 = 0;
int g_datetime_288 = 0;

double setpoint() {
  double ld_ret_0;
   if(Digits <= 3) ld_ret_0 = 0.01;
  else ld_ret_0 = 0.0001;
  return (ld_ret_0);
}
intinit ()
{



    }
int start() {



  Comment("");
   if(CloseBy) CloseProfit();
   if(Friday > 0) {
     if (TimeDayOfWeek(TimeCurrent()) == 5) {
        if (TimeCurrent() > 86400 * (TimeCurrent() / 86400) + 86400 - 60 *Friday) {
           fOrderCloseMarket();
           return (0);
        }
      }
   }
   if(Monday > 0) {
     if (TimeDayOfWeek(TimeCurrent()) == 1)
        if (TimeCurrent() < 86400 * (TimeCurrent() / 86400) + 60 * Monday)return (0);
   }
   if(Ask - Bid <= MaxSpread * setpoint()) {
     if (TradingTime() == 1) {
        if (gi_232) {
           g_ask_260 = Ask;
           g_bid_268 = Bid;
           gi_232 = FALSE;
           return (0);
        }
        if (MathAbs(Open[0] - Open[FilterD]) <= FilterV * setpoint()) {
           if (g_bid_268 - Bid >= FX * setpoint() && Close[0] <=Open[0] && !(MathAbs(Close[0] - Open[0]) > setpoint() * FilterC)) {
               OrderSend(Symbol(), OP_BUY,Lots(), Ask, Slippage, Ask - SL * setpoint(), Ask + TP * setpoint(), "QQ1778332087",Magic, 0, DarkGreen);
              Print(GetLastError(), "ASK=", Ask, " SL=", Ask - SL * setpoint(), " TP=", Ask+ TP * setpoint());
               Sleep(500);
               RefreshRates();
           }
        }
        if (MathAbs(Open[0] - Open[FilterDS]) <= FilterVS * setpoint()) {
           if (Ask - g_ask_260 >= FXS * setpoint() && Close[0] >=Open[0] && !(MathAbs(Close[0] - Open[0]) > setpoint() * FilterCS)) {
               OrderSend(Symbol(), OP_SELL,Lots(), Bid, Slippage, Bid + SL * setpoint(), Bid - TP * setpoint(), "QQ1778332087",Magic, 0, DeepPink);
               Print(GetLastError(), "BID=", Bid, " SL=", Bid + SL * setpoint(), " TP=", Bid- TP * setpoint());
               Sleep(500);
               RefreshRates();
           }
        }
     }
   }
  g_ask_260 = Ask;
  g_bid_268 = Bid;
   if(TrailingProf_Use) fTrailingProfWithStart();
  return (0);
}

void CloseProfit() {
  int li_unused_0 = 0;
  int li_unused_4 = 0;
  double ld_unused_8 = 0;
   if(OrdersTotal() > 0) {
     for (int l_pos_16 = OrdersTotal() + 1; l_pos_16 >= 0; l_pos_16--) {
        if (OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES)) {
           if (OrderSymbol() == Symbol()) {
               if (OrderMagicNumber() == Magic){
                  if (OrderCloseTime() == 0) {
                     if (OrderType() == OP_BUY){
                        RefreshRates();
                        if (Bid >OrderOpenPrice() + Cls * setpoint()) {
                          Print("del");
                           del(OrderTicket());
                        }
                     }
                     if (OrderType() ==OP_SELL) {
                        RefreshRates();
                        if (Ask <OrderOpenPrice() - Cls * setpoint()) {
                           Print("del");
                           del(OrderTicket());
                        }
                     }
                  }
               }
           }
        }
     }
   }
}

void del(int a_ticket_0) {
  int l_error_4;
  string l_symbol_8;
  double l_bid_16;
  for (int l_count_24 = 0; l_count_24 < 1; l_count_24++) {
     GetLastError();
     OrderSelect(a_ticket_0, SELECT_BY_TICKET, MODE_TRADES);
     l_symbol_8 = OrderSymbol();
     if (OrderType() == OP_BUY) {
         RefreshRates();
        l_bid_16 = MarketInfo(l_symbol_8, MODE_BID);
        if (!OrderClose(a_ticket_0, OrderLots(), l_bid_16, 3, Green)) l_error_4= GetLastError();
     }
     if (OrderType() == OP_SELL) {
        RefreshRates();
        l_bid_16 = MarketInfo(l_symbol_8, MODE_ASK);
        if (!OrderClose(a_ticket_0, OrderLots(), l_bid_16, 3, Green)) l_error_4= GetLastError();
     }
     if (l_error_4 == 0/* NO_ERROR */) {
        PlaySound("expert.wav");
        return;
     }
      if (l_error_4 != 0/* NO_ERROR */) {
        PlaySound("timeout.wav");
        Print("Error for Close Funtion =", l_error_4);
     }
     while (!IsTradeAllowed()) Sleep(5000);
     if (l_error_4 == 146/* TRADE_CONTEXT_BUSY */) while(IsTradeContextBusy()) Sleep(11000);
   }
}

int TradingTime() {
  gi_256 = FALSE;
   if(TimeHour(TimeCurrent()) >= OpenHour || TimeHour(TimeCurrent()) <CloseHour) gi_256 = TRUE;
  return (gi_256);
}

double Lots() {
  double ld_ret_0;
  int li_8;
  double ld_12 = NormalizeDouble(MarketInfo(Symbol(), MODE_LOTSTEP), 2);
  double ld_20 = NormalizeDouble(MarketInfo(Symbol(),MODE_MARGINREQUIRED), 4);
  double ld_28 = 100.0 * (ld_20 + 5.0);
   if(ld_12 == 0.01) li_8 = 2;
  else li_8 = 1;
  gi_252 = li_8;
   if(MM == TRUE) ld_ret_0 = NormalizeDouble(AccountFreeMargin() / (ld_28 / Risk) -0.05, gi_252);
  else ld_ret_0 = ManLot;
  double ld_36 = NormalizeDouble(MarketInfo(Symbol(), MODE_MINLOT), 2);
  double ld_44 = NormalizeDouble(MarketInfo(Symbol(), MODE_MAXLOT), 2);
   if(gi_252 == 2) ld_36 = 0.01;
   if(ld_ret_0 < ld_36) ld_ret_0 = ld_36;
   if(ld_ret_0 > ld_44) ld_ret_0 = ld_44;
  return (ld_ret_0);
}

int fOrderCloseMarket(bool ai_0 = TRUE,bool ai_4 = TRUE) {
  int l_error_8;
  int li_ret_12 = 0;
  for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
     if (OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES)) {
        if (OrderSymbol() == Symbol()) {
           if (ai_0) {
               if (OrderType() == OP_BUY) {
                  RefreshRates();
                  if (!IsTradeContextBusy()) {
                     if(!OrderClose(OrderTicket(), OrderLots(), ND(Bid), 3, CLR_NONE)) {
                        l_error_8 =GetLastError();
                        Print("Error closeBUY " + OrderTicket() + " " + l_error_8);
                        li_ret_12 = -1;
                     }
                  } else {
                     if (TimeCurrent() >g_datetime_276 + 20) {
                        g_datetime_276 =TimeCurrent();
                        Print("Need closeBUY " + OrderTicket() + ". Trade Context Busy");
                     }
                     return (-2);
                  }
               }
           }
           if (ai_4) {
               if (OrderType() == OP_SELL) {
                  RefreshRates();
                  if (!IsTradeContextBusy()) {
                     if(!OrderClose(OrderTicket(), OrderLots(), ND(Ask), 3, CLR_NONE)) {
                        l_error_8 =GetLastError();
                        Print("Error closeSELL " + OrderTicket() + " " + l_error_8);
                        li_ret_12 = -1;
                     }
                  } else {
                     if (TimeCurrent() >g_datetime_280 + 20) {
                        g_datetime_280 =TimeCurrent();
                        Print("Need closeSELL " + OrderTicket() + ". Trade Context Busy");
                     }
                     return (-2);
                  }
               }
           }
        }
     }
   }
  return (li_ret_12);
}

double ND(double ad_0) {
  return (NormalizeDouble(ad_0, Digits));
}

void fTrailingProfWithStart() {
  double l_price_0;
  int l_error_8;
  for (int l_pos_12 = 0; l_pos_12 < OrdersTotal(); l_pos_12++) {
     if (OrderSelect(l_pos_12, SELECT_BY_POS, MODE_TRADES)) {
        if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic) {
           if (OrderType() == OP_BUY) {
               RefreshRates();
               if (ND(Bid - OrderOpenPrice())<= ND((-setpoint()) * TrailingProfStart)) {
                  l_price_0 = ND(Bid +setpoint() * TrailingProf);
                  if (ND(OrderTakeProfit())> l_price_0 || ND(OrderTakeProfit()) == 0.0) {
                     if (!IsTradeContextBusy()){
                        if(!OrderModify(OrderTicket(), OrderOpenPrice(), OrderStopLoss(), l_price_0, 0,CLR_NONE)) {
                           l_error_8 =GetLastError();
                           Print("Errortrailingprofit BUY " + OrderTicket() + " - " + l_error_8);
                        }
                     } else {
                        if (g_datetime_284 + 15< TimeCurrent()) {
                           g_datetime_284 =TimeCurrent();
                           Print("Needtrailingprofit BUY " + OrderTicket() + ". Trade Context Busy");
                        }
                     }
                  }
               }
           }
           if (OrderType() == OP_SELL) {
               RefreshRates();
               if (ND(OrderOpenPrice() - Ask)<= ND((-setpoint()) * TrailingProfStart)) {
                  l_price_0 = ND(Ask - setpoint() *TrailingProf);
                  if (!IsTradeContextBusy()) {
                     if (ND(OrderTakeProfit())< l_price_0) {
                        if(!OrderModify(OrderTicket(), OrderOpenPrice(), OrderStopLoss(), l_price_0, 0,CLR_NONE)) {
                           l_error_8 =GetLastError();
                           Print("Errortrailingprofit SELL " + OrderTicket() + " - " + l_error_8);
                        }
                     }
                  } else {
                     if (g_datetime_288 + 15< TimeCurrent()) {
                        g_datetime_288 =TimeCurrent();
                        Print("Needtrailingprofit SELL " + OrderTicket() + ". Trade Context Busy");
                     }
                 }
               }
           }
        }
     }
   }
}
举报

评论 使用道具

精彩评论30

彩虹桥
DDD
| 发表于 2021-10-7 11:02:42 | 显示全部楼层
学习学习
举报

点赞 评论 使用道具

ZHANG34334
DD
| 发表于 2021-10-7 11:10:53 | 显示全部楼层
extern int MaxSpread = 3;  改成extern int MaxSpread = 30;就行了点差问题
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-10-7 11:29:09 | 显示全部楼层
非常感谢!我修改后试试。请问老师,这个3点是大点,还是微点?(1大点=10微点),其他EA点差通常都是大点。
举报

点赞 评论 使用道具

ZHANG34334
DD
| 发表于 2021-10-7 11:33:47 | 显示全部楼层
我没好好看,这个应该是大点,3就是30微点,应该也可以,这EA有开单时间限制,extern int OpenHour = 21;
extern int CloseHour = 12;  21-12点
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-10-7 12:10:38 | 显示全部楼层
naowei 发表于 2021-10-7 11:29
非常感谢!我修改后试试。请问老师,这个3点是大点,还是微点?(1大点=10微点),其他EA点差通常都是大点 ...

已修改挂实盘验证,等待结果。
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-10-7 13:37:22 | 显示全部楼层
那就改成0-24试试看。谢谢老师!我在帖中 已告知线索:”在网上查了一下,只找到一个线索:要加载wininet.dll的动态链接库,怎样加载,没有说明“,请问老师,是否跟wininet.dll的动态链接库有关?源码开头有一段有关wininet.dll的代码:
  #import "wininet.dll"
  int InternetOpenA(string a0, int a1, string a2, string a3, int a4);
  int InternetOpenUrlA(int a0, string a1, string a2, int a3, int a4, inta5);
  int InternetReadFile(int a0, string a1, int a2, int& a3[]);
  int InternetCloseHandle(int a0);
谢谢老师!
举报

点赞 评论 使用道具

ZHANG34334
DD
| 发表于 2021-10-7 14:42:59 | 显示全部楼层
naowei 发表于 2021-10-7 13:37
那就改成0-24试试看。谢谢老师!我在帖中 已告知线索:”在网上查了一下,只找到一个线索:要加载wininet.d ...

这段代码没有用,删了都行
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-10-7 14:50:46 | 显示全部楼层
谢谢老师!我已改了时间,看看实盘是否开单。
举报

点赞 评论 使用道具

beck168
DD
| 发表于 2021-10-7 15:13:32 | 显示全部楼层
学习学习
举报

点赞 评论 使用道具

gjhgjh
未及格
| 发表于 2021-10-7 16:52:50 | 显示全部楼层
学习学习
举报

点赞 评论 使用道具

EA1314
DD
| 发表于 2021-10-7 22:00:23 | 显示全部楼层
学习学习
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-10-8 09:22:42 | 显示全部楼层
naowei 发表于 2021-10-7 14:50
谢谢老师!我已改了时间,看看实盘是否开单。

        高手就是高手!按照老师的指导,昨天下午修改了时间,直到昨天收盘未开单,今天早上一看,已经开单!因为是小资金账户,只加载了两个货币对:GU,GCHE,均在服务器开盘时开单,并已平仓,GU盈利,GCHE亏损。无论交易结果如何,实盘能开单就是良好的开端!再次感谢老师解决了实盘不开单的大问题!师傅领进门,修行靠自身。只要能开单,后面再调整测试参数,停止真实账户验证,转入模拟实盘验证观察。也希望对该EA源码感兴趣的朋友,直接复制源码,编译后测试,向大家分享调整测试的经验体会,多多交流,共同受益。为让不懂如何复制源码和缺少HB的朋友享受该EA,将另文免费发布EA源码.
        再次感谢老师的精心指导!同时感谢大家的关注和支持!
举报

点赞 评论 使用道具

Figo123456
DD
| 发表于 2021-10-8 10:23:46 | 显示全部楼层
期待你调试成功的EA发布,哈哈
举报

点赞 评论 使用道具

Jackiechiu
DDD
| 发表于 2021-10-8 10:37:32 | 显示全部楼层
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-10-8 12:01:13 | 显示全部楼层
Figo123456 发表于 2021-10-8 10:23
期待你调试成功的EA发布,哈哈

已提交,正在审核中。请耐心等待,谢谢关注!
举报

点赞 评论 使用道具

johnsun888
C
| 发表于 2021-11-8 08:52:44 | 显示全部楼层
这个是ForeXer_v4.0,网上搜一下正确的代码,下载就好了。
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-11-8 09:18:34 | 显示全部楼层
johnsun888 发表于 2021-11-8 08:52
这个是ForeXer_v4.0,网上搜一下正确的代码,下载就好了。

非常感谢您提供的重要信息!今后多多交流!
举报

点赞 评论 使用道具

cdebjihong
DDD
| 发表于 2021-11-8 09:54:30 | 显示全部楼层
谢谢分享
举报

点赞 评论 使用道具

naowei
CCC
 楼主 | 发表于 2021-11-8 09:59:26 | 显示全部楼层
johnsun888 发表于 2021-11-8 08:52
这个是ForeXer_v4.0,网上搜一下正确的代码,下载就好了。

       刚才搜了百度及几大外汇网站,未见ForeXer_v4.0踪影,虽然未找到,还是要再次感谢您!您若有这个源码,可以考虑交换吗?不管该EA是好是差,只要能得到正确的源码,我还是想实盘验证一下,给出定论。谢谢!
举报

点赞 评论 使用道具

12下一页
发新帖
EA交易
您需要登录后才可以评论 登录 | 立即注册

简体中文
繁體中文
English(英语)
日本語(日语)
Deutsch(德语)
Русский язык(俄语)
بالعربية(阿拉伯语)
Türkçe(土耳其语)
Português(葡萄牙语)
ภาษาไทย(泰国语)
한어(朝鲜语/韩语)
Français(法语)