鱼儿跟单ea源码 发射端源码
本源码非本人作品，版权归鱼儿所有。
#property copyright "鱼儿编程 QQ：276687220"
#property link "http://babelfish.taobao.com/"
#import "kernel32.dll"
int CopyFileW(string a0, string a1, int a2);
input string Files完整路径 ="!!!需要自行查找和输入路径" ;
string 中转文件名 ="";
input string 中转路径 ="C:";
int OnInit()
{
if(IsDllsAllowed()==false)
Alert("请允许调用动态链接库" );
return(INIT_SUCCEEDED);
}
void OnDeinit(const int reason)
{
Comment("");
}
void OnTick()
{
if(IsDllsAllowed()==false)
return;
while (!IsStopped()&&IsExpertEnabled())
{
Comment("----------已开启跟单------------" );
中转文件名 =DoubleToStr(AccountNumber(),0);
RefreshRates();
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();
name=StringSubstr(OrderSymbol(),0,6);
if(StringFind(name,"GOLD",0)==0)
name="GOLD";
FileWrite(handle,OrderTicket(),name,OrderType(),OrderLots(),OrderStopLoss(),
OrderTakeProfit(),OrderComment(),OrderMagicNumber(),
OrderOpenTime()-TimeCurrent()+TimeLocal(),OrderOpenPrice(),MarketInfo(OrderSymbol(),MODE_TICKVALUE));
}
FileClose(handle);
}
handle=FileOpen(中转文件名 +"2.csv", FILE_CSV|FILE_WRITE, ';');
if(handle>0)
{
for(i=OrdersHistoryTotal();i>=0;i--)
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
if(OrderType()<6)
{
FileWrite(handle,OrderTicket(),OrderSymbol(),OrderType(),OrderLots(),OrderStopLoss(),OrderTakeProfit(),OrderComment(),OrderMagicNumber(),OrderOpenTime()-TimeCurrent()+TimeLocal(),OrderOpenPrice());
}
FileClose(handle);
}
string 发射端发射位置 =中转路径 +"\\"+中转文件名 +".csv";
string 发射端保存位置 =Files完整路径 +"\\" +中转文件名 +".csv";
int t=CopyFileW(发射端保存位置 ,发射端发射位置 ,0);
发射端发射位置 =中转路径 +"\\"+中转文件名 +"2.csv";
发射端保存位置 =Files完整路径 +"\\"+中转文件名 +"2.csv";
t=CopyFileW(发射端保存位置 ,发射端发射位置 ,0);
Sleep(300);
}
return;
}
//+------------------------------------------------------------------+
