@ بروكرايدر شكرا لك على المحاولة
2 مرفق (ق) ربما يمكنك مساعدتي من قبل مشكلة أخرى. أريد تشغيل البرنامج النصي EasyOrder كـ ExpertAdvisor وإنشاء هذا: رمز المدرج/ -------------------------------- ---------------------------------- /| _eSisTest.mq4 |/| حقوق النشر © 2012 ، شركة MetaQuotes Software Corp. |/| http://www.metaquotes.net |/ ----------------------------------------------- ------------------- #property Copyright Copyright 2012، MetaQuotes Software Corp. #property link http://www.metaquotes.net #import EasyOrder.dll int EasyOrder (int hwnd) ؛/ ----------------------------------------------- ------------------- /| وظيفة تهيئة الخبراء |/ ----------------------------------------------- ------------------- int start () {//----/---- return (0)؛ }/ ---------------------------------------------- -------------------- /| وظيفة إزالة النظرة الخبراء |/ ----------------------------------------------- ------------------- int deinit () {//----/---- return (0)؛ }/ ---------------------------------------------- -------------------- /| وظيفة بدء الخبير |/ ----------------------------------------------- ------------------- int EasyOrder (int hwnd)؛ int start () {string obj؛ أنا int hwnd = WindowHandle (Symbol ()، 0)؛ if (hwnd == 0) {return (0)؛ } int ret = EasyOrder (hwnd)؛ إذا (retlt؛ 0) {Alert (فشلت وظيفة Dll!) ؛ عودة (0)؛ } if (ret == 1) {ModifyOrder ()؛ } آخر {لـ (i = ObjectsTotal () - 1؛ igt؛ = 0؛ i--) {obj = ObjectName (i)؛ إذا كان (StringFind (obj ، EASYORDER ، 0) gt؛ = 0) ObjectDelete (obj)؛ }} InitLines ()؛ عودة (0) ؛ }/ ---------------------------------------------- -------------------- void InitLines () {int i، pos، ticket؛ bool bdelete؛ سلسلة obj لـ (i = ObjectsTotal () - 1؛ igt؛ = 0؛ i--) {obj = ObjectName (i)؛ if (StringFind (obj، EASYORDER_MOD) gt؛ = 0) {bdelete = True؛ نقاط البيع = StringFind (obj، #، 1)؛ إذا (poslt؛ 0) تابع ؛ تذكرة = StrToDouble (StringSubstr (obj ، pos 1 ، StringLen (obj) -pos-1)) ؛ if (OrderSelect (تذكرة ، SELECT_BY_TICKET)) {if (OrderCloseTime () == 0) bdelete = false؛ } if (bdelete) ObjectDelete (obj)؛ }} double sl، tp؛ لـ (i = 0؛ ilt؛ OrdersTotal ()؛ i ) {OrderSelect (i، SELECT_BY_POS)؛ if (OrderSymbol () == Symbol ()) {ticket = OrderTicket ()؛ obj = EASYORDER_MOD_SL _ # تذكرة ؛ sl = OrderStopLoss () ؛ tp = OrderTakeProfit () ؛ إذا (sl == 0) sl = OrderOpenPrice () ؛ إذا (tp == 0) tp = OrderOpenPrice () ؛ إذا كان (ObjectFind (obj) gt؛ = 0) ObjectMove (obj، 0، Time # 91؛ 0 # 93؛، sl)؛else DrawLine (SL، ticket، sl)؛ obj = EASYORDER_MOD_TP _ # تذكرة ؛ إذا كان (ObjectFind (obj) gt؛ = 0) ObjectMove (obj، 0، Time # 91؛ 0 # 93؛، tp)؛ else DrawLine (TP، ticket، tp)؛ إذا كانت (OrderType () gt؛ OP_SELL) {obj = EASYORDER_MOD_PRICE _ # تذكرة؛ إذا كان (ObjectFind (obj) gt؛ = 0) ObjectMove (obj، 0، Time # 91؛ 0 # 93؛، OrderOpenPrice ())؛ else DrawLine (PRICE، ticket، OrderOpenPrice ())؛ }}}} void ModifyOrder () {string obj؛ int i، تذكرة؛ sl المزدوج ، السعر ، tp ؛ مزدوج osl ، otp. لـ (i = 0؛ ilt؛ OrdersTotal ()؛ i ) {OrderSelect (i، SELECT_BY_POS)؛ if (OrderSymbol () == Symbol ()) {ticket = OrderTicket ()؛ sl = 0 ؛ السعر = 0 tp = 0 ؛ obj = EASYORDER_MOD_SL _ # تذكرة ؛ osl = OrderStopLoss () ؛ إذا (osl == 0) osl = OrderOpenPrice () ؛ otp = OrderStopLoss () ؛ if (otp == 0) otp = OrderOpenPrice ()؛ إذا (ObjectFind (obj) gt؛ = 0) {if (MathAbs (ObjectGet (obj، OBJPROP_PRICE1) -osl) gt؛ Point) sl = ObjectGet (obj، OBJPROP_PRICE1)؛ } obj = EASYORDER_MOD_TP _ # تذكرة ؛ if (ObjectFind (obj) gt؛ = 0) {if (MathAbs (ObjectGet (obj، OBJPROP_PRICE1) -otp) gt؛ Point) tp = ObjectGet (obj، OBJPROP_PRICE1)؛ } if (OrderType () gt؛ OP_SELL) {obj = EASYORDER_MOD_PRICE _ # ticket؛ if (ObjectFind (obj) gt؛ = 0) {if (MathAbs (ObjectGet (obj، OBJPROP_PRICE1) -OrderOpenPrice ()) gt؛ Point) price = ObjectGet (obj، OBJPROP_PRICE1)؛ }} if (sl tp pricegt؛ 0) {if (sl == 0) sl = OrderStopLoss ()؛ إذا (tp == 0) tp = OrderTakeProfit ()؛ إذا (السعر == 0) السعر = OrderOpenPrice () ؛ OrderModify (تذكرة، السعر، م، ن، 0، CLR_NONE)؛ }}}} باطلة DrawLine (نوع السلسلة ، تذكرة int ، مستوى مزدوج) {string obj = EASYORDER_MOD_ type _ # تذكرة؛ اللون clr = الأحمر. إذا (النوع == PRICE) clr = LimeGreen؛/else if (type == TP) clr = Blue؛ ObjectCreate (الكائنات، OBJ_HLINE، 0، الوقت # 91؛ 0 # 93؛، مستوى، 0،0)؛ ObjectSet (الكائنات، OBJPROP_COLOR، CLR)؛ ObjectSet (الكائنات، OBJPROP_STYLE، STYLE_DASHDOT)؛ } الحصول على هذه الأخطاء:
ماذا أفعل الخطأ؟
https://www.forexdrop.com/attachment...2031289805.mq4