Keith Watfordさんが作ったらしい。

スクリプトの導入の仕方が知らない人は

コメントに書いてください。

コメントが多ければ、導入の仕方を記事にしますねー！

//+------------------------------------------------------------------+
//| Close All Trades.mq4 |
//| Keith Watford |
//| none |
//+------------------------------------------------------------------+
#property copyright "Keith Watford"
#property link "none"
#property version "1.00"
#property strict
#property show_inputs

input bool ClosePendings=true;//Close Pending Orders
input bool CloseBS=true;//Close Open Orders
#include <stdlib.mqh>
#include <stderror.mqh>
//+------------------------------------------------------------------+
//| Script program start function |
//+------------------------------------------------------------------+
void OnStart()
{
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i, SELECT_BY_POS))
{
int type = OrderType();
bool result = true;

switch(type)
{
case OP_BUY : if(CloseBS) result = OrderClose( OrderTicket(), OrderLots(), OrderClosePrice(), 50, Red );break;
case OP_SELL : if(CloseBS) result = OrderClose( OrderTicket(), OrderLots(), OrderClosePrice(), 50, Red );break;
default : if(ClosePendings)result = OrderDelete( OrderTicket() );break;
}

if(result == false)
{
Alert("Error Closing " , OrderTicket() , " -" , ErrorDescription(GetLastError()) );
Sleep(3000);
}
}
}

return;
//---

}
//+------------------------------------------------------------------+