forked from heathermils98/AFL_code
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Telegram gui anh.afl
92 lines (72 loc) · 3.28 KB
/
Telegram gui anh.afl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
_SECTION_BEGIN("RSI_Alert");
RSI_alert = ParamToggle("RSi_Alert", "No|Yes",0);
period = Param("period", 10, 1,100,1);
r = RSI(period);
Buy = Cross(r, 20);
Sell = Cross(r, 80);
TelegramAlerts = ParamTrigger("Telegram Alert","Send Alert");
TelegramAPI_ID = ParamStr("Telegram Bot API Key","1200942736:AAEG8y9qyJ7aHefUm4vt_xKqkNBxfKd3qCc");
TelgramCHAT_ID = ParamStr("Telegram Channel ID","@Victor_AlgoTrading");
Message = numtostr(C) + " Spead = " + NumToStr(H - L) + " Volume = " + NumToStr(V) + " " + WriteVal(ROC(V, 1), 1.2) + ROC(V, 1) + " "
+ " \n" + TimeNum() + " " + Interval() + " " + "RSI_Alert, " + " rsi = " + numtostr(r) ;
if(Buy[BarCount - 1] == 1 OR Sell[BarCount - 1] == 1 OR TelegramAlerts)
{
if(RSI_alert)
//if (TelegramAlerts)
{
exportPath = "C:\\Program Files\\AmiBroker\\ExportedImages\\";
fmkdir(exportPath);
AB = CreateObject("Broker.Application");
AW = AB.ActiveWindow; //SelectedTab = 1;
ABDocs = AB.Documents;
AD = ABDocs.Item(0); // Use the first chart only - set your default layout accordingly
ADWindows = AD.Windows;
AD.Name = Name();
filename = Name() + " " + Now(1) + ".png";
AW.ExportImage(exportPath + filename);
Message1 = "Buy@1h@" + Name()+" " + C;
Photo1 = "C:\\Program Files\\AmiBroker\\ExportedImages\\" + Name() + " " + Now(1) + ".png";
arguments = Message1 + " " + Photo1;
ShellExecute("C:\\Bot\\BotSendPhoto.jar", arguments , "C:\\Bot\\", 1 );
ih = InternetOpenURL("https://api.telegram.org/bot"+ TelegramAPI_ID + "/sendMessage?chat_id="+TelgramCHAT_ID+"&text=" + Message + "files="+my_test_image);
// ih = InternetOpenURL("https://api.telegram.org/bot"+ TelegramAPI_ID + "/sendPhoto?chat_id="+TelgramCHAT_ID+"files="+my_test_image);
InternetClose(ih);
}
else
{
printf("There is problem with POST Request !");
}
}
// AlertIf(Buy,"EXEC https://api.telegram.org/bot"+TelegramAPI_ID+"/sendMessage?chat_id="+TelgramGroupCHAT_ID+"&text=+"+message,"",1,4+8);
_SECTION_END();
/*
//TelegramAlerts = ParamTrigger("Telegram Alert","Send Alert");
TelegramAPI_ID = ParamStr("Telegram Bot API Key","1333859675:AAFTmHzM54SIGgzrHajwbiCY1G_mv0bJ2uw"); //Get the Bot API key via BotFather in Telgram
TelgramCHAT_ID = "@p1234567980";//ParamStr("Telegram Channel ID","@phukhangami"); //Channel ID example : @marketcalls_in
Message1="Buy@1h@ ";
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] ) {
if(i==BarCount-1) {countbuy=countbuy+1;
//Export Chart
exportPath = "C:\\Data\\";
AB = CreateObject("Broker.Application");
ABDocs = AB.Documents;
AD = ABDocs.Item(0); // Use the first chart only - set your default layout accordingly
ADWindows = AD.Windows;
AD.Name = Name();
AW = AD.ActiveWindow;//SelectedTab = 1;
filename = Name() + ".PNG";
AW.ExportImage( exportPath + filename);
// Send chart to telegram
// ih = InternetOpenURL("https://api.telegram.org/bot"+TelegramAPI_ID+"/sendMessage?chat_id="+TelgramCHAT_ID+
//"&text="+Message1+Name()+" "+C[i]);
// InternetClose(ih);
//
Message1 = "Buy@1h@" + Name()+""+C[i];
Photo1 = "C:\\Data\\" + Name() + ".PNG";
arguments = Message1 + " " + Photo1;
ShellExecute("C:\\Bot\\BotSendPhoto.jar", arguments , "C:\\Bot\\", 1 );
}
}
}