gavindiaz/-mql5_scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit: MQL5 Scripts Collection (MetaTrader 5)

Browse Source
This commit is contained in:
GeneralTradingSarl
2025-06-24 00:33:04 +01:00
commit 60a549d89c
1959 changed files with 31907 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
VPS Trailing Stop Service - script for MetaTrader 5/vps_trailing_stop_service.mq5
+196
View File
@@ -0,0 +1,196 @@
//+------------------------------------------------------------------+
//| VPS Trailing Stop Service.mq5 |
//| Copyright 2023, Igor Gerasimov. |
//| tgwls2@gmail.com |
//+------------------------------------------------------------------+
#property service
#property copyright "Copyright 2023, Igor Gerasimov."
#property link "tgwls2@gmail.com"
#property version "1.00"
input bool S=true, // Remove Unused Object
C=true, // Remove Unused Symbol
W=true, // Real Stop Loss Trail
U=true; // Virtual Object Trail
input string V="VPS Trailing Stop"; // Trailing Object Name
input ushort B=15000; // Sleep Time
//+------------------------------------------------------------------+
//| To use Real SL Trailing - when you open a trade order |
//| in the comment indicate the real stop loss distance in points. |
//| To use Virtual SL Trailing - create horizontal line on |
//| same symbol chart then rename it to the name you used before |
//| launching the program and in the description of the object |
//| indicate the virtual stop loss distance in points. |
//| !!! Be careful !!! When placing an object on chart |
//| use correct SL distance depending on trade direction. |
//| To disable virtual trailing just delete created horizontal line. |
//| To disable real trailing you have to stop this program. |
//+------------------------------------------------------------------+
void OnStart()
{
while(!IsStopped())
{
string e[];
int x=PositionsTotal();
for(int z=0; z<x && !IsStopped(); z++)
{
const ulong t=PositionGetTicket(z);
const long c=(long)StringToInteger(PositionGetString(POSITION_COMMENT));
const string w=PositionGetString(POSITION_SYMBOL);
if((C && TerminalInfoInteger(TERMINAL_VPS)) || (S && !TerminalInfoInteger(TERMINAL_VPS))) A(e,w);
if(((W && !TerminalInfoInteger(TERMINAL_VPS)) || TerminalInfoInteger(TERMINAL_VPS)) && c>0)
{
const ENUM_POSITION_TYPE y=(ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
if(SymbolSelect(w,true))
{
const double p=y==POSITION_TYPE_BUY?SymbolInfoDouble(w,SYMBOL_BID):SymbolInfoDouble(w,SYMBOL_ASK),
s=PositionGetDouble(POSITION_SL),
v=SymbolInfoDouble(w,SYMBOL_POINT);
const long u=(long)SymbolInfoInteger(w,SYMBOL_TRADE_STOPS_LEVEL);
if(MathIsValidNumber(p) && MathIsValidNumber(v) && p>=v && (s>=v?(y==POSITION_TYPE_BUY?(p-s)>(c*v+(u>0?u*v:v)):(s-p)>(c*v+(u>0?u*v:v))):true))
{
const uchar d=(uchar)SymbolInfoInteger(w,SYMBOL_DIGITS);
MqlTradeRequest a;
MqlTradeResult b;
ZeroMemory(a);
ZeroMemory(b);
a.action=TRADE_ACTION_SLTP;
a.position=t;
a.symbol=w;
a.sl=StringToDouble(DoubleToString(y==POSITION_TYPE_BUY?p-c*v:p+c*v,d));
a.tp=PositionGetDouble(POSITION_TP)>0?StringToDouble(DoubleToString(PositionGetDouble(POSITION_TP),d)):0;
if(!OrderSend(a,b)) Print(b.retcode);
}
}
}
if(U && !TerminalInfoInteger(TERMINAL_VPS))
{
long a,b=ChartFirst();
if(b>=0)
{
uchar i=0;
while(i<255 && !IsStopped())
{
if(w==ChartSymbol(b) && ObjectFind(b,V)==0)
{
const int f=(int)StringToInteger(ObjectGetString(b,V,OBJPROP_TEXT));
if(f>0)
{
const ENUM_POSITION_TYPE y=(ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
const double p=y==POSITION_TYPE_BUY?SymbolInfoDouble(w,SYMBOL_BID):SymbolInfoDouble(w,SYMBOL_ASK),
s=ObjectGetDouble(b,V,OBJPROP_PRICE),
v=SymbolInfoDouble(w,SYMBOL_POINT);
if(MathIsValidNumber(p) && MathIsValidNumber(v) && p>=v)
{
if(y==POSITION_TYPE_BUY?(p-s)>(f*v):(s-p)>(f*v))
{
if(ObjectSetDouble(b,V,OBJPROP_PRICE,
StringToDouble(DoubleToString(y==POSITION_TYPE_BUY?p-f*v:p+f*v,(int)SymbolInfoInteger(w,SYMBOL_DIGITS))))) ChartRedraw(b);
}
else if(y==POSITION_TYPE_BUY?p<=s:p>=s)
{
const uchar d=(uchar)SymbolInfoInteger(w,SYMBOL_DIGITS);
MqlTradeRequest j;
MqlTradeResult k;
ZeroMemory(j);
ZeroMemory(k);
j.action=TRADE_ACTION_DEAL;
j.position=t;
j.volume=PositionGetDouble(POSITION_VOLUME);
j.deviation=ULONG_MAX;
j.price=StringToDouble(DoubleToString(p,d));
j.type=POSITION_TYPE_BUY?ORDER_TYPE_SELL:ORDER_TYPE_BUY;
j.symbol=w;
if(OrderSend(j,k))
{
ObjectDelete(b,V);
ChartRedraw(b);
}
else Print(k.retcode);
}
}
}
}
a=ChartNext(b);
if(a<0) break;
b=a;
i++;
}
}
}
}
if(C && TerminalInfoInteger(TERMINAL_VPS))
{
x=SymbolsTotal(true);
for(int z=0; z<x && !IsStopped(); z++)
{
const string y=SymbolName(z,true);
bool b=false;
for(int a=0; a<ArraySize(e) && !IsStopped(); a++)
{
if(y==e[a])
{
b=true;
break;
}
}
if(!b && SymbolSelect(y,b)) break;
}
}
if(S && !TerminalInfoInteger(TERMINAL_VPS))
{
long a,b=ChartFirst();
if(b>=0)
{
uchar i=0;
while(i<255 && !IsStopped())
{
bool c=false;
for(int z=0; z<ArraySize(e) && !IsStopped(); z++)
{
if(e[z]==ChartSymbol(b) && ObjectFind(b,V)==0)
{
c=true;
break;
}
}
if(!c)
{
ObjectDelete(b,V);
ChartRedraw(b);
}
a=ChartNext(b);
if(a<0) break;
b=a;
i++;
}
}
}
Sleep(B);
}
}
//+------------------------------------------------------------------+
//| A |
//+------------------------------------------------------------------+
void A(string &e[],const string w)
{
if(ArraySize(e)<1) if(ArrayResize(e,1)==1) e[0]=w;
else
{
bool b=false;
for(int a=0; a<ArraySize(e) && !IsStopped(); a++)
{
if(w==e[a])
{
b=true;
break;
}
}
if(!b)
{
const int a=ArraySize(e);
if(ArrayResize(e,a+1)==(a+1)) e[a]=w;
}
}
return;
}
//+------------------------------------------------------------------+