|
|
原理大致是，主账号的新单子，会自动写入比如D:\下的某个文件，跟单账号会读取这个文件，然后给自己的账号下单。
·指标可以做本地跟单和远程跟单用
远程跟单的原理，主要是需要在电脑本地安装网盘软件，让多个网盘账号间共享文件夹的形式完成的，还没具体测试。。。而且电脑里外装一个网盘软件有点不放心。
·打开代码，据观察，引入了系统的如下函数命令
#import "kernel32.dll"
int CopyFileA(string a0, string a1, int a2);
理论上，只要可以引入dll，则dll可以做任何事情。
在这里的代码中，只引入了CopyFileA这个命令(复制文件用)
查看了有CopyFileA的代码，没有发现窃取个人信息用的部分，是安全的。
·指标可以做本地跟单和远程跟单用
远程跟单的原理，主要是需要在电脑本地安装网盘软件，让多个网盘账号间共享文件夹的形式完成的，还没具体测试。。。而且电脑里外装一个网盘软件有点不放心。
·极速模式可以使跟单速度非常快，但是如果开的平台数量很多容易卡。。。占用CPU过多。
发射端代码：
- #import "kernel32.dll"
- int CopyFileA(string a0, string a1, int a2);
- string 中转文件名="";
- extern string 中转路径="D:";
- extern bool 修正货币对名称=false;
- extern bool 极速模式=true;
- int init()
- {
- 中转文件名=DoubleToStr(AccountNumber(),0);
- if(IsDllsAllowed()==false)
- Alert("请允许调用动态链接库");
- return(0);
- }
- int deinit()
- {
- Comment("");
- return(0);
- }
- int start()
- {
- if(IsDllsAllowed()==false)
- return(0);
-
- Comment("----------已开启跟单------------");
-
- while (!IsStopped() && IsExpertEnabled())
- {
- int handle;
- handle=FileOpen(中转文件名+".csv", FILE_CSV|FILE_WRITE, ';');
- if(handle>0)
- {
- for(int i=0;i<OrdersTotal();i++)
- if(OrderSelect(i,SELECT_BY_POS))
- {
- string name=OrderSymbol();
-
- if(修正货币对名称)
- name=StringSubstr(OrderSymbol(),0,6);
-
- if(修正货币对名称)
- if(StringFind(name,"GOLD",0)==0)
- name="GOLD";
-
- FileWrite(handle,OrderTicket(),name,OrderType(),OrderLots(),OrderStopLoss(),OrderTakeProfit(),OrderComment(),OrderMagicNumber(),OrderOpenTime(),OrderOpenPrice());
- }
- FileClose(handle);
- }
- handle=FileOpen(中转文件名+"2.csv", FILE_CSV|FILE_WRITE, ';');
- if(handle>0)
- {
- for(i=0;i<OrdersHistoryTotal();i++)
- if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
- if(OrderType()<6)
- {
- FileWrite(handle,OrderTicket(),OrderSymbol(),OrderType(),OrderLots(),OrderStopLoss(),OrderTakeProfit(),OrderComment(),OrderMagicNumber(),OrderOpenTime(),OrderOpenPrice());
- }
- FileClose(handle);
- }
-
- string 发射端发射位置= 中转路径+"\"+中转文件名+".csv";
- string 发射端保存位置= TerminalPath() + "\\Experts\\Files\" +中转文件名+".csv";
- int t=CopyFileA(发射端保存位置,发射端发射位置,0);
- 发射端发射位置= 中转路径+"\"+中转文件名+"2.csv";
- 发射端保存位置= TerminalPath() + "\\Experts\\Files\" +中转文件名+"2.csv";
- t=CopyFileA(发射端保存位置,发射端发射位置,0);
-
- if(t==-1)
- Alert("发射端发送数据失败");
-
- if(极速模式==false)
- return(0);
- }
- return(0);
- }
- //+------------------------------------------------------------------+
接收端代码：
- #import "kernel32.dll"
- int CopyFileA(string a0, string a1, int a2);
- extern bool 是否显示文字标签=true;
- extern string 跟踪主账号="";
- extern string 中转路径="D:";
- extern int 跟单允许秒误差=30000000;
- extern double 跟单允许点误差=1000;
- extern bool 跟踪止损止盈=true;
- extern bool 反向跟单=false;
- extern bool 跟踪挂单=true;
- extern double 单量比例=1;
- extern string 货币对名称附加="";
- extern string comm1="---------个别货币对无法正常跟单时使用------------";
- extern bool 货币对名称强制修正开关=false;
- extern string 所跟货币对名称="XAUUSD";
- extern string 下单货币对名称="GOLD";
- extern string comm2="---------------------";
- extern double 跟主账户单量大于等于N单子=0;
- extern bool 极速模式=true;
- int OrderTicketX[10000];
- string OrderSymbolX[10000];
- int OrderTypeX[10000];
- double OrderLotsX[10000];
- double OrderStopLossX[10000];
- double OrderTakeProfitX[10000];
- string OrderCommentX[10000];
- int OrderMagicNumberX[10000];
- datetime OrderOpenTimeX[10000];
- double OrderOpenPriceX[10000];
- int OrderTicketXH[10000];
- string OrderSymbolXH[10000];
- int OrderTypeXH[10000];
- double OrderLotsXH[10000];
- double OrderStopLossXH[10000];
- double OrderTakeProfitXH[10000];
- string OrderCommentXH[10000];
- int OrderMagicNumberXH[10000];
- datetime OrderOpenTimeXH[10000];
- double OrderOpenPriceXH[10000];
- double 滑点=100;
- //===========================================================================
- int init()
- {
-
- if(IsDllsAllowed()==false)
- Alert("请允许调用动态链接库");
- return(0);
- }
- //===========================================================================
- int deinit()
- {
- return(0);
- }
- //===========================================================================
- int start()
- {
- if(IsTradeAllowed()==false)
- {
- Comment(" 不允许智能交易");
- return(0);
- }
- if(IsDllsAllowed()==false)
- return(0);
- while (!IsStopped() && IsExpertEnabled())
- {
- 提取信号();
- 跟踪市价单();
- 提取历史信号();
-
-
- 修改订单止损止盈();
-
- 平单();
- Comment(
- "\n历史0:"+OrderTicketXH[0]+" "+OrderSymbolXH[0]+" "+OrderTypeXH[0]+" "+OrderLotsXH[0]+
- "\n历史1:"+OrderTicketXH[1]+" "+OrderSymbolXH[1]+" "+OrderTypeXH[1]+" "+OrderLotsXH[1]+
- "\n历史2:"+OrderTicketXH[2]+" "+OrderSymbolXH[2]+" "+OrderTypeXH[2]+" "+OrderLotsXH[2]+
- "\n历史3:"+OrderTicketXH[3]+" "+OrderSymbolXH[3]+" "+OrderTypeXH[3]+" "+OrderLotsXH[3]+
- "\n历史4:"+OrderTicketXH[4]+" "+OrderSymbolXH[4]+" "+OrderTypeXH[4]+" "+OrderLotsXH[4]+
- "\n历史5:"+OrderTicketXH[5]+" "+OrderSymbolXH[5]+" "+OrderTypeXH[5]+" "+OrderLotsXH[5]+
- "\n历史6:"+OrderTicketXH[6]+" "+OrderSymbolXH[6]+" "+OrderTypeXH[6]+" "+OrderLotsXH[6]+
- "\n"+
- "\n持有0:"+OrderTicketX[0]+" "+OrderSymbolX[0]+" "+OrderTypeX[0]+" "+OrderLotsX[0]+" 对应"+已跟单对应记录(OrderTicketX[0])+
- "\n持有1:"+OrderTicketX[1]+" "+OrderSymbolX[1]+" "+OrderTypeX[1]+" "+OrderLotsX[1]+" 对应"+已跟单对应记录(OrderTicketX[1])+
- "\n持有2:"+OrderTicketX[2]+" "+OrderSymbolX[2]+" "+OrderTypeX[2]+" "+OrderLotsX[2]+" 对应"+已跟单对应记录(OrderTicketX[2])+
- "\n持有3:"+OrderTicketX[3]+" "+OrderSymbolX[3]+" "+OrderTypeX[3]+" "+OrderLotsX[3]+" 对应"+已跟单对应记录(OrderTicketX[3])+
- "\n持有4:"+OrderTicketX[4]+" "+OrderSymbolX[4]+" "+OrderTypeX[4]+" "+OrderLotsX[4]+" 对应"+已跟单对应记录(OrderTicketX[4])+
- "\n持有5:"+OrderTicketX[5]+" "+OrderSymbolX[5]+" "+OrderTypeX[5]+" "+OrderLotsX[5]+" 对应"+已跟单对应记录(OrderTicketX[5])+
- "\n持有6:"+OrderTicketX[6]+" "+OrderSymbolX[6]+" "+OrderTypeX[6]+" "+OrderLotsX[6]+" 对应"+已跟单对应记录(OrderTicketX[6])
- );
-
- if(极速模式==false)
- return(0);
-
- }
- return(0);
- }
- //+------------------------------------------------------------------+
- void 平单()
- {
- for(int i2=0;i2<1000;i2++)
- if(OrderTicketXH[i2]!=0)
- if(OrderSelect(findlassorder(-100,-1,"后","现在",OrderTicketXH[i2]),SELECT_BY_TICKET))
- if(OrderCloseTime()==0)
- {
-
- {
- if(OrderType()>1)
- OrderDelete(OrderTicket());
- else
- OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),滑点);
- }
- }
- }
- int 已跟单对应记录(int ti)
- {
- if(ti==0)
- return(-1);
- return(findlassorder(-100,-1,"后","现在",ti)+findlassorder(-100,-1,"后","历史",ti)+1);
- }
- int findlassorder(int type,int magic,string fx,string 现在与历史,string comm)
- {
- if(现在与历史=="现在")
- if(fx=="后")
- for(int i=OrdersTotal()-1;i>=0;i--)
- {
- if(OrderSelect(i,SELECT_BY_POS))
- //if(Symbol()==OrderSymbol())
- if(OrderMagicNumber()==magic||magic==-1)
- if(OrderType()==type||type==-100)
- if(StringFind(OrderComment(),comm,0)!=-1||comm=="")
- return(OrderTicket());
- }
- if(现在与历史=="现在")
- if(fx=="前")
- for(i=0;i<OrdersTotal();i++)
- {
- if(OrderSelect(i,SELECT_BY_POS))
- //if(Symbol()==OrderSymbol())
- if(OrderMagicNumber()==magic||magic==-1)
- if(OrderType()==type||type==-100)
- if(StringFind(OrderComment(),comm,0)!=-1||comm=="")
- return(OrderTicket());
- }
-
- if(现在与历史=="历史")
- if(fx=="后")
- for(i=OrdersHistoryTotal()-1;i>=0;i--)
- {
- if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
- //if(Symbol()==OrderSymbol())
- if(OrderMagicNumber()==magic||magic==-1)
- if(OrderType()==type||(type==-100&&OrderType()<=5&&OrderType()>=0))
- if(StringFind(OrderComment(),comm,0)!=-1||comm=="")
- if(OrderCloseTime()!=0)
- return(OrderTicket());
- }
- if(现在与历史=="历史")
- if(fx=="前")
- for(i=0;i<OrdersHistoryTotal();i++)
- {
- if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
- //if(Symbol()==OrderSymbol())
- if(OrderMagicNumber()==magic||magic==-1)
- if(OrderType()==type||(type==-100&&OrderType()<=5&&OrderType()>=0))
- if(StringFind(OrderComment(),comm,0)!=-1||comm=="")
- if(OrderCloseTime()!=0)
- return(OrderTicket());
- }
- return(-1);
- }
- void 修改订单止损止盈()
- {
- if(跟踪挂单)
- for(int i=0;i<10000;i++)
- if(OrderSelect(已跟单对应记录(OrderTicketX[i]),SELECT_BY_TICKET))
- if(OrderType()>1)
- if(OrderOpenPrice()!=OrderOpenPriceX[i])
- {
-
- OrderModify(OrderTicket(),OrderOpenPriceX[i],OrderStopLoss(),OrderTakeProfit(),0);
- }
- if(跟踪止损止盈)
- for(i=0;i<10000;i++)
- if(OrderSelect(已跟单对应记录(OrderTicketX[i]),SELECT_BY_TICKET))
- {
-
- if(反向跟单==false)
- if(!(OrderStopLoss()==OrderStopLossX[i]&&OrderTakeProfit()==OrderTakeProfitX[i]))
- OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLossX[i],OrderTakeProfitX[i],0);
- if(反向跟单)
- if(!(OrderTakeProfit()==OrderStopLossX[i]&&OrderStopLoss()==OrderTakeProfitX[i]))
- OrderModify(OrderTicket(),OrderOpenPrice(),OrderTakeProfitX[i],OrderStopLossX[i],0);
- }
- }
- //===========================================================================
- void 跟踪市价单()
- {
- for(int i=0;i<10000;i++)
- if(OrderSymbolX[i]!=""&&OrderTicketX[i]!=0)
- if(OrderTypeX[i]<2||跟踪挂单)
- if(TimeCurrent()-OrderOpenTimeX[i]<=跟单允许秒误差)
- if((OrderTypeX[i]==0&&MathAbs(MarketInfo(OrderSymbolX[i],MODE_ASK)-OrderOpenPriceX[i])<=跟单允许点误差*MarketInfo(OrderSymbolX[i],MODE_POINT)*系数())
- ||(OrderTypeX[i]==1&&MathAbs(MarketInfo(OrderSymbolX[i],MODE_BID)-OrderOpenPriceX[i])<=跟单允许点误差*MarketInfo(OrderSymbolX[i],MODE_POINT)*系数())||跟踪挂单)
- if(已跟单对应记录(OrderTicketX[i])==-1)
- if(OrderLotsX[i]>=跟主账户单量大于等于N单子)
- {
-
- if(OrderTypeX[i]<2)
- {
- if(反向跟单==false)
- int t=建立单据(OrderSymbolX[i],OrderTypeX[i],OrderLotsX[i]*单量比例,0,0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- else
- t=建立单据(OrderSymbolX[i],MathAbs(OrderTypeX[i]-1),OrderLotsX[i]*单量比例,0,0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- }
-
- if(跟踪挂单)
- {
- if(OrderTypeX[i]==OP_BUYLIMIT)
- {
- if(反向跟单==false)
- t=建立单据(OrderSymbolX[i],OP_BUYLIMIT,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- else
- t=建立单据(OrderSymbolX[i],OP_SELLSTOP,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- }
- if(OrderTypeX[i]==OP_BUYSTOP)
- {
- if(反向跟单==false)
- t=建立单据(OrderSymbolX[i],OP_BUYSTOP,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- else
- t=建立单据(OrderSymbolX[i],OP_SELLLIMIT,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- }
- if(OrderTypeX[i]==OP_SELLLIMIT)
- {
- if(反向跟单==false)
- t=建立单据(OrderSymbolX[i],OP_SELLLIMIT,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- else
- t=建立单据(OrderSymbolX[i],OP_BUYSTOP,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- }
- if(OrderTypeX[i]==OP_SELLSTOP)
- {
- if(反向跟单==false)
- t=建立单据(OrderSymbolX[i],OP_SELLSTOP,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- else
- t=建立单据(OrderSymbolX[i],OP_BUYLIMIT,OrderLotsX[i]*单量比例,OrderOpenPriceX[i],0,0,0,OrderTicketX[i],OrderMagicNumberX[i]);
- }
- }
- 报错组件("建立跟单");
- }
-
-
- }
- //===========================================================================
- void 提取历史信号()
- {
- string 接收端提取位置= 中转路径+"\"+跟踪主账号 +"2.csv";
- string 接收端保存位置= TerminalPath() + "\\Experts\\Files\" +跟踪主账号 +"2.csv";
- int t=CopyFileA(接收端提取位置,接收端保存位置,0);
- int handle;
- handle=FileOpen(跟踪主账号 +"2.csv", FILE_CSV|FILE_READ, ';');
- if(handle>0)
- {
- for(int i=0;i<10000;i++)
- {
- OrderTicketXH[i]= StrToInteger(FileReadString(handle));
- string namexx=FileReadString(handle);
- OrderSymbolXH[i]=namexx+货币对名称附加;
- if(StringFind(namexx,"XAUUSD",0)!=-1||StringFind(namexx,"GOLD",0)!=-1)
- if(iClose(OrderSymbolXH[i],0,0)==0||iClose(OrderSymbolXH[i],0,0)==-1||iClose(OrderSymbolXH[i],0,0)==EMPTY_VALUE)
- {
- string NEWNAME="XAUUSD"+货币对名称附加;
- if(!(iClose(NEWNAME,0,0)==0||iClose(NEWNAME,0,0)==-1||iClose(NEWNAME,0,0)==EMPTY_VALUE))
- OrderSymbolXH[i]=NEWNAME;
- NEWNAME="GOLD"+货币对名称附加;
- if(!(iClose(NEWNAME,0,0)==0||iClose(NEWNAME,0,0)==-1||iClose(NEWNAME,0,0)==EMPTY_VALUE))
- OrderSymbolXH[i]=NEWNAME;
- }
-
- if(货币对名称强制修正开关)
- if(namexx==所跟货币对名称)
- OrderSymbolXH[i]=下单货币对名称;
-
- OrderTypeXH[i]= StrToInteger(FileReadString(handle));
- OrderLotsXH[i]= StrToDouble(FileReadString(handle));
- if(OrderTicketXH[i]!=0)
- if(OrderTypeXH[i]<6)
- {
- OrderStopLossXH[i]= NormalizeDouble(StrToDouble(FileReadString(handle)),MarketInfo(OrderSymbolXH[i],MODE_DIGITS));
- OrderTakeProfitXH[i]= NormalizeDouble(StrToDouble(FileReadString(handle)),MarketInfo(OrderSymbolXH[i],MODE_DIGITS));
- }
- OrderCommentXH[i]= FileReadString(handle);
- OrderMagicNumberXH[i]=StrToInteger(FileReadString(handle));
- OrderOpenTimeXH[i]= StrToInteger(FileReadString(handle));
- OrderOpenPriceXH[i]= StrToDouble(FileReadString(handle));
- if(FileIsEnding(handle))
- break;
- }
- FileClose(handle);
- }
- }
- //===========================================================================
- void 提取信号()
- {
- string 接收端提取位置= 中转路径+"\"+跟踪主账号 +".csv";
- string 接收端保存位置= TerminalPath() + "\\Experts\\Files\" +跟踪主账号 +".csv";
- int t=CopyFileA(接收端提取位置,接收端保存位置,0);
- int handle;
- handle=FileOpen(跟踪主账号 +".csv", FILE_CSV|FILE_READ, ';');
- if(handle>0)
- {
- ArrayInitialize(OrderTicketX,0);
- ArrayInitialize(OrderTypeX,0);
- ArrayInitialize(OrderLotsX,0);
- ArrayInitializeX(OrderSymbolX,"",10000);
- for(int i=0;i<10000;i++)
- {
- OrderTicketX[i]= StrToInteger(FileReadString(handle));
- string namexx=FileReadString(handle);
- OrderSymbolX[i]=namexx+货币对名称附加;
-
- if(StringFind(namexx,"XAUUSD",0)!=-1||StringFind(namexx,"GOLD",0)!=-1)
- if(iClose(OrderSymbolX[i],0,0)==0||iClose(OrderSymbolX[i],0,0)==-1||iClose(OrderSymbolX[i],0,0)==EMPTY_VALUE)
- {
- string NEWNAME="XAUUSD"+货币对名称附加;
- if(!(iClose(NEWNAME,0,0)==0||iClose(NEWNAME,0,0)==-1||iClose(NEWNAME,0,0)==EMPTY_VALUE))
- OrderSymbolX[i]=NEWNAME;
- NEWNAME="GOLD"+货币对名称附加;
- if(!(iClose(NEWNAME,0,0)==0||iClose(NEWNAME,0,0)==-1||iClose(NEWNAME,0,0)==EMPTY_VALUE))
- OrderSymbolX[i]=NEWNAME;
- }
-
- if(货币对名称强制修正开关)
- if(namexx==所跟货币对名称)
- OrderSymbolX[i]=下单货币对名称;
-
- OrderTypeX[i]= StrToInteger(FileReadString(handle));
- OrderLotsX[i]= StrToDouble(FileReadString(handle));
-
- if(OrderTicketX[i]!=0)
- if(OrderTypeX[i]<6)
- {
- OrderStopLossX[i]= NormalizeDouble(StrToDouble(FileReadString(handle)),MarketInfo(OrderSymbolX[i],MODE_DIGITS));
- OrderTakeProfitX[i]= NormalizeDouble(StrToDouble(FileReadString(handle)),MarketInfo(OrderSymbolX[i],MODE_DIGITS));
- }
- OrderCommentX[i]= FileReadString(handle);
- OrderMagicNumberX[i]=StrToInteger(FileReadString(handle));
- OrderOpenTimeX[i]= StrToInteger(FileReadString(handle));
- OrderOpenPriceX[i]= StrToDouble(FileReadString(handle));
- if(FileIsEnding(handle))
- break;
- }
- FileClose(handle);
- }
- }
- //===========================================================================
- void ArrayInitializeX(string& A[],string b,int c)
- {
- for(int i=0;i<c;i++)
- A[i]=b;
- }
- double 系数()
- {
- int 系数=1;
- if(Digits==3||Digits==5||(StringFind(Symbol(),"XAU",0)==0&&Digits==2)||(StringFind(Symbol(),"GOLD",0)==0&&Digits==2))系数=10;
- if(StringFind(Symbol(),"XAU",0)==0&&Digits==3)系数=100;
- return(系数);
- }
- void laber(string a,color b)
- {
- if(是否显示文字标签==true)
- {
- ObjectDelete("箭头"+TimeToStr(Time[0],TIME_DATE|TIME_MINUTES)+a);
- ObjectCreate("箭头"+TimeToStr(Time[0],TIME_DATE|TIME_MINUTES)+a,OBJ_TEXT,0,Time[0],Low[0]);
- ObjectSetText("箭头"+TimeToStr(Time[0],TIME_DATE|TIME_MINUTES)+a,a,8,"Times New Roman",b);
- }
- }
- int 建立单据(string 货币对,int 类型,double 单量,double 价位,double 间隔,double 止损,double 止盈,string 备注,int magic)
- {
- if(MarketInfo(货币对,MODE_LOTSTEP)<10)int 单量小数保留X=0;
- if(MarketInfo(货币对,MODE_LOTSTEP)<1)单量小数保留X=1;
- if(MarketInfo(货币对,MODE_LOTSTEP)<0.1)单量小数保留X=2;
- 单量=NormalizeDouble(单量,单量小数保留X);
- if(单量<MarketInfo(货币对,MODE_MINLOT))
- {
- laber("低于最低单量",Yellow);
- return(-1);
- }
-
- if(单量>MarketInfo(货币对,MODE_MAXLOT))
- 单量=MarketInfo(货币对,MODE_MAXLOT);
- int t;
- int i;
- double zs,zy;
- double POINT=MarketInfo(货币对,MODE_POINT)*系数();
- int DIGITS=MarketInfo(货币对,MODE_DIGITS);
- int 滑点2=滑点*系数();
- 价位=NormalizeDouble(价位,MarketInfo(货币对,MODE_DIGITS));
- if(类型==OP_BUY)
- {
- RefreshRates();
- t=OrderSend(货币对,OP_BUY,单量,MarketInfo(货币对,MODE_ASK),滑点2,0,0,备注,magic,0);
- 报错组件("");
- if(OrderSelect(t,SELECT_BY_TICKET))
- {
- if(止损!=0&&止盈!=0)
- OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()-止损*POINT,DIGITS),NormalizeDouble(OrderOpenPrice()+止盈*POINT,DIGITS),0);
- if(止损==0&&止盈!=0)
- OrderModify(OrderTicket(),OrderOpenPrice(),0,NormalizeDouble(OrderOpenPrice()+止盈*POINT,DIGITS),0);
- if(止损!=0&&止盈==0)
- OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()-止损*POINT,DIGITS),0,0);
-
- 报错组件("");
- }
- }
- if(类型==OP_SELL)
- {
- RefreshRates();
- t=OrderSend(货币对,OP_SELL,单量,MarketInfo(货币对,MODE_BID),滑点2,0,0,备注,magic,0);
- 报错组件("");
- if(OrderSelect(t,SELECT_BY_TICKET))
- {
- if(止损!=0&&止盈!=0)
- OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()+止损*POINT,DIGITS),NormalizeDouble(OrderOpenPrice()-止盈*POINT,DIGITS),0);
- if(止损==0&&止盈!=0)
- OrderModify(OrderTicket(),OrderOpenPrice(),0,NormalizeDouble(OrderOpenPrice()-止盈*POINT,DIGITS),0);
- if(止损!=0&&止盈==0)
- OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()+止损*POINT,DIGITS),0,0);
- }
- 报错组件("");
- }
- if(类型==OP_BUYLIMIT||类型==OP_BUYSTOP)
- {
- if(价位==0)
- {
- RefreshRates();
- 价位=MarketInfo(货币对,MODE_ASK);
- }
- if(类型==OP_BUYLIMIT)
- {
- if(止损!=0&&止盈!=0)
- t=OrderSend(货币对,OP_BUYLIMIT,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位-间隔*POINT-止损*POINT,DIGITS),NormalizeDouble(价位-间隔*POINT+止盈*POINT,DIGITS),备注,magic,0);
- if(止损==0&&止盈!=0)
- t=OrderSend(货币对,OP_BUYLIMIT,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,0,NormalizeDouble(价位-间隔*POINT+止盈*POINT,DIGITS),备注,magic,0);
- if(止损!=0&&止盈==0)
- t=OrderSend(货币对,OP_BUYLIMIT,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位-间隔*POINT-止损*POINT,DIGITS),0,备注,magic,0);
- if(止损==0&&止盈==0)
- t=OrderSend(货币对,OP_BUYLIMIT,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,0,0,备注,magic,0);
- }
-
- if(类型==OP_BUYSTOP)
- {
- if(止损!=0&&止盈!=0)
- t=OrderSend(货币对,OP_BUYSTOP,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位+间隔*POINT-止损*POINT,DIGITS),NormalizeDouble(价位+间隔*POINT+止盈*POINT,DIGITS),备注,magic,0);
- if(止损==0&&止盈!=0)
- t=OrderSend(货币对,OP_BUYSTOP,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,0,NormalizeDouble(价位+间隔*POINT+止盈*POINT,DIGITS),备注,magic,0);
- if(止损!=0&&止盈==0)
- t=OrderSend(货币对,OP_BUYSTOP,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位+间隔*POINT-止损*POINT,DIGITS),0,备注,magic,0);
- if(止损==0&&止盈==0)
- t=OrderSend(货币对,OP_BUYSTOP,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,0,0,备注,magic,0);
- }
- 报错组件("");
- }
- if(类型==OP_SELLLIMIT||类型==OP_SELLSTOP)
- {
- if(价位==0)
- {
- RefreshRates();
- 价位=MarketInfo(货币对,MODE_BID);
- }
- if(类型==OP_SELLSTOP)
- {
- if(止损!=0&&止盈!=0)
- t=OrderSend(货币对,OP_SELLSTOP,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位-间隔*POINT+止损*POINT,DIGITS),NormalizeDouble(价位-间隔*POINT-止盈*POINT,DIGITS),备注,magic,0);
- if(止损==0&&止盈!=0)
- t=OrderSend(货币对,OP_SELLSTOP,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,0,NormalizeDouble(价位-间隔*POINT-止盈*POINT,DIGITS),备注,magic,0);
- if(止损!=0&&止盈==0)
- t=OrderSend(货币对,OP_SELLSTOP,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位-间隔*POINT+止损*POINT,DIGITS),0,备注,magic,0);
- if(止损==0&&止盈==0)
- t=OrderSend(货币对,OP_SELLSTOP,单量,NormalizeDouble(价位-间隔*POINT,DIGITS),滑点2,0,0,备注,magic,0);
- }
-
- if(类型==OP_SELLLIMIT)
- {
- if(止损!=0&&止盈!=0)
- t=OrderSend(货币对,OP_SELLLIMIT,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位+间隔*POINT+止损*POINT,DIGITS),NormalizeDouble(价位+间隔*POINT-止盈*POINT,DIGITS),备注,magic,0);
- if(止损==0&&止盈!=0)
- t=OrderSend(货币对,OP_SELLLIMIT,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,0,NormalizeDouble(价位+间隔*POINT-止盈*POINT,DIGITS),备注,magic,0);
- if(止损!=0&&止盈==0)
- t=OrderSend(货币对,OP_SELLLIMIT,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,NormalizeDouble(价位+间隔*POINT+止损*POINT,DIGITS),0,备注,magic,0);
- if(止损==0&&止盈==0)
- t=OrderSend(货币对,OP_SELLLIMIT,单量,NormalizeDouble(价位+间隔*POINT,DIGITS),滑点2,0,0,备注,magic,0);
- }
- 报错组件("");
- }
- return(t);
- }
- //--------------------------------------
- //------------------------------------
- void 报错组件(string a)
- {
- Sleep(100);
- int t=GetLastError();
- string 报警;
- if(t!=0)
- switch (t)
- {
- case 0:报警="错误代码:"+0+"没有错误返回";break;
- case 1:报警="错误代码:"+1+"没有错误返回但结果不明";break;
- case 2:报警="错误代码:"+2+"一般错误";break;
- case 3:报警="错误代码:"+3+"无效交易参量";break;
- case 4:报警="错误代码:"+4+"交易服务器繁忙";break;
- case 5:报警="错误代码:"+5+"客户终端旧版本";break;
- case 6:报警="错误代码:"+6+"没有连接服务器";break;
- case 7:报警="错误代码:"+7+"没有权限";break;
- case 8:报警="错误代码:"+8+"请求过于频繁";break;
- case 9:报警="错误代码:"+9+"交易运行故障";break;
- case 64:报警="错误代码:"+64+"账户禁止";break;
- case 65:报警="错误代码:"+65+"无效账户";break;
- case 128:报警="错误代码:"+128+"交易超时";break;
- case 129:报警="错误代码:"+129+"无效价格";break;
- case 130:报警="错误代码:"+130+"无效停止";break;
- case 131:报警="错误代码:"+131+"无效交易量";break;
- case 132:报警="错误代码:"+132+"市场关闭";break;
- case 133:报警="错误代码:"+133+"交易被禁止";break;
- case 134:报警="错误代码:"+134+"资金不足";break;
- case 135:报警="错误代码:"+135+"价格改变";break;
- case 136:报警="错误代码:"+136+"开价";break;
- case 137:报警="错误代码:"+137+"经纪繁忙";break;
- case 138:报警="错误代码:"+138+"重新开价";break;
- case 139:报警="错误代码:"+139+"定单被锁定";break;
- case 140:报警="错误代码:"+140+"只允许看涨仓位";break;
- case 141:报警="错误代码:"+141+"过多请求";break;
- case 145:报警="错误代码:"+145+"因为过于接近市场，修改否定";break;
- case 146:报警="错误代码:"+146+"交易文本已满";break;
- case 147:报警="错误代码:"+147+"时间周期被经纪否定";break;
- case 148:报警="错误代码:"+148+"开单和挂单总数已被经纪限定";break;
- case 149:报警="错误代码:"+149+"当对冲备拒绝时,打开相对于现有的一个单置";break;
- case 150:报警="错误代码:"+150+"把为反FIFO规定的单子平掉";break;
- case 4000:报警="错误代码:"+4000+"没有错误";break;
- case 4001:报警="错误代码:"+4001+"错误函数指示";break;
- case 4002:报警="错误代码:"+4002+"数组索引超出范围";break;
- case 4003:报警="错误代码:"+4003+"对于调用堆栈储存器函数没有足够内存";break;
- case 4004:报警="错误代码:"+4004+"循环堆栈储存器溢出";break;
- case 4005:报警="错误代码:"+4005+"对于堆栈储存器参量没有内存";break;
- case 4006:报警="错误代码:"+4006+"对于字行参量没有足够内存";break;
- case 4007:报警="错误代码:"+4007+"对于字行没有足够内存";break;
- case 4008:报警="错误代码:"+4008+"没有初始字行";break;
- case 4009:报警="错误代码:"+4009+"在数组中没有初始字串符";break;
- case 4010:报警="错误代码:"+4010+"对于数组没有内存";break;
- case 4011:报警="错误代码:"+4011+"字行过长";break;
- case 4012:报警="错误代码:"+4012+"余数划分为零";break;
- case 4013:报警="错误代码:"+4013+"零划分";break;
- case 4014:报警="错误代码:"+4014+"不明命令";break;
- case 4015:报警="错误代码:"+4015+"错误转换(没有常规错误)";break;
- case 4016:报警="错误代码:"+4016+"没有初始数组";break;
- case 4017:报警="错误代码:"+4017+"禁止调用DLL ";break;
- case 4018:报警="错误代码:"+4018+"数据库不能下载";break;
- case 4019:报警="错误代码:"+4019+"不能调用函数";break;
- case 4020:报警="错误代码:"+4020+"禁止调用智能交易函数";break;
- case 4021:报警="错误代码:"+4021+"对于来自函数的字行没有足够内存";break;
- case 4022:报警="错误代码:"+4022+"系统繁忙 (没有常规错误)";break;
- case 4050:报警="错误代码:"+4050+"无效计数参量函数";break;
- case 4051:报警="错误代码:"+4051+"无效参量值函数";break;
- case 4052:报警="错误代码:"+4052+"字行函数内部错误";break;
- case 4053:报警="错误代码:"+4053+"一些数组错误";break;
- case 4054:报警="错误代码:"+4054+"应用不正确数组";break;
- case 4055:报警="错误代码:"+4055+"自定义指标错误";break;
- case 4056:报警="错误代码:"+4056+"不协调数组";break;
- case 4057:报警="错误代码:"+4057+"整体变量过程错误";break;
- case 4058:报警="错误代码:"+4058+"整体变量未找到";break;
- case 4059:报警="错误代码:"+4059+"测试模式函数禁止";break;
- case 4060:报警="错误代码:"+4060+"没有确认函数";break;
- case 4061:报警="错误代码:"+4061+"发送邮件错误";break;
- case 4062:报警="错误代码:"+4062+"字行预计参量";break;
- case 4063:报警="错误代码:"+4063+"整数预计参量";break;
- case 4064:报警="错误代码:"+4064+"双预计参量";break;
- case 4065:报警="错误代码:"+4065+"数组作为预计参量";break;
- case 4066:报警="错误代码:"+4066+"刷新状态请求历史数据";break;
- case 4067:报警="错误代码:"+4067+"交易函数错误";break;
- case 4099:报警="错误代码:"+4099+"文件结束";break;
- case 4100:报警="错误代码:"+4100+"一些文件错误";break;
- case 4101:报警="错误代码:"+4101+"错误文件名称";break;
- case 4102:报警="错误代码:"+4102+"打开文件过多";break;
- case 4103:报警="错误代码:"+4103+"不能打开文件";break;
- case 4104:报警="错误代码:"+4104+"不协调文件";break;
- case 4105:报警="错误代码:"+4105+"没有选择定单";break;
- case 4106:报警="错误代码:"+4106+"不明货币对";break;
- case 4107:报警="错误代码:"+4107+"无效价格";break;
- case 4108:报警="错误代码:"+4108+"无效定单编码";break;
- case 4109:报警="错误代码:"+4109+"不允许交易";break;
- case 4110:报警="错误代码:"+4110+"不允许长期";break;
- case 4111:报警="错误代码:"+4111+"不允许短期";break;
- case 4200:报警="错误代码:"+4200+"定单已经存在";break;
- case 4201:报警="错误代码:"+4201+"不明定单属性";break;
- //case 4202:报警="错误代码:"+4202+"定单不存在";break;
- case 4203:报警="错误代码:"+4203+"不明定单类型";break;
- case 4204:报警="错误代码:"+4204+"没有定单名称";break;
- case 4205:报警="错误代码:"+4205+"定单坐标错误";break;
- case 4206:报警="错误代码:"+4206+"没有指定子窗口";break;
- case 4207:报警="错误代码:"+4207+"定单一些函数错误";break;
- case 4250:报警="错误代码:"+4250+"错误设定发送通知到队列中";break;
- case 4251:报警="错误代码:"+4251+"无效参量- 空字符串传递到SendNotification()函数";break;
- case 4252:报警="错误代码:"+4252+"无效设置发送通知(未指定ID或未启用通知)";break;
- case 4253:报警="错误代码:"+4253+"通知发送过于频繁";break;
- }
- if(t!=0)
- {
- Print(a+报警);
- laber(a+报警,Yellow);
- }
- }
|
|
窥视卡
雷达卡
发表于 2014-3-10 17:31
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
转播
分享
淘帖
支持
保留
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡