| Парсинг страницы сайта и MQL4 |
input string URL="http://opentraders.ru/";
input string SubString="level-66";
#import "wininet.dll"
int InternetAttemptConnect(int x);
int InternetOpenW(string sAgent,int lAccessType,string sProxyName="",string sProxyBypass="",int lFlags=0);
int InternetOpenUrlW(int hInternetSession,string sUrl,string sHeaders="",int lHeadersLength=0,int lFlags=0,int lContext=0);
int InternetReadFile(int hFile,int &sBuffer[],int lNumBytesToRead,int &lNumberOfBytesRead[]);
int InternetCloseHandle(int hInet);
#import
//+------------------------------------------------------------------+
// Скачивает исходный код страницы HTML в текстовую переменную |
// и возвращает как результат |
//+------------------------------------------------------------------+
string ReadHTML()
{
if(!IsDllsAllowed())
{
Alert("Необходимо в настройках разрешить использование DLL");
return("");
}
int rv = InternetAttemptConnect(0);
if(rv != 0)
{
Alert("Ошибка при вызове InternetAttemptConnect()");
return("");
}
int hInternetSession=InternetOpenW("Microsoft Internet Explorer",0,"","",0);
if(hInternetSession<=0)
{
Alert("Ошибка при вызове InternetOpenW()");
return("");
}
int hURL=InternetOpenUrlW(hInternetSession,URL,"",0,0,0);
if(hURL<=0)
{
Alert("Ошибка при вызове InternetOpenUrlW()");
InternetCloseHandle(hInternetSession);
return("");
}
int cBuffer[256];
int dwBytesRead[1];
string TXT="";
while(!IsStopped())
{
bool bResult=InternetReadFile(hURL,cBuffer,1024,dwBytesRead);
if(dwBytesRead[0]==0)
break;
string text = "";
string text0= "";
for(int i=0; i<256; i++)
{
text0=CharToStr((char)(cBuffer[i]&0x000000FF));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
text0=CharToStr((char)(cBuffer[i]>>(8 &0x000000FF)));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
text0=CharToStr((char)(cBuffer[i]>>(16 &0x000000FF)));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
text0=CharToStr((char)(cBuffer[i]>>(24 &0x000000FF)));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
}
TXT=TXT+text;
Sleep(1);
}
InternetCloseHandle(hInternetSession);
return(TXT);
}
//+------------------------------------------------------------------+
int sf=StringFind(s,SubString);
string level=StringSubstr(s,sf+7,2);
//+------------------------------------------------------------------+
//| Parser.mq4 |
//| Copyright 2016, AM2 |
//| http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link "http://www.forexsystems.biz"
#property version "1.00"
#property strict
#import "wininet.dll"
int InternetAttemptConnect(int x);
int InternetOpenW(string sAgent,int lAccessType,string sProxyName="",string sProxyBypass="",int lFlags=0);
int InternetOpenUrlW(int hInternetSession,string sUrl,string sHeaders="",int lHeadersLength=0,int lFlags=0,int lContext=0);
int InternetReadFile(int hFile,int &sBuffer[],int lNumBytesToRead,int &lNumberOfBytesRead[]);
int InternetCloseHandle(int hInet);
#import
input string URL="http://opentraders.ru/";
input string SubString="level-66";
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
// Скачивает исходный код страницы HTML в текстовую переменную |
// и возвращает как результат |
//+------------------------------------------------------------------+
string ReadHTML()
{
if(!IsDllsAllowed())
{
Alert("Необходимо в настройках разрешить использование DLL");
return("");
}
int rv = InternetAttemptConnect(0);
if(rv != 0)
{
Alert("Ошибка при вызове InternetAttemptConnect()");
return("");
}
int hInternetSession=InternetOpenW("Microsoft Internet Explorer",0,"","",0);
if(hInternetSession<=0)
{
Alert("Ошибка при вызове InternetOpenW()");
return("");
}
int hURL=InternetOpenUrlW(hInternetSession,URL,"",0,0,0);
if(hURL<=0)
{
Alert("Ошибка при вызове InternetOpenUrlW()");
InternetCloseHandle(hInternetSession);
return("");
}
int cBuffer[256];
int dwBytesRead[1];
string TXT="";
while(!IsStopped())
{
bool bResult=InternetReadFile(hURL,cBuffer,1024,dwBytesRead);
if(dwBytesRead[0]==0)
break;
string text = "";
string text0= "";
for(int i=0; i<256; i++)
{
text0=CharToStr((char)(cBuffer[i]&0x000000FF));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
text0=CharToStr((char)(cBuffer[i]>>(8 &0x000000FF)));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
text0=CharToStr((char)(cBuffer[i]>>(16 &0x000000FF)));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
text0=CharToStr((char)(cBuffer[i]>>(24 &0x000000FF)));
if(text0!="\r") text=text+text0;
else dwBytesRead[0]--;
if(StringLen(text)==dwBytesRead[0]) break;
}
TXT=TXT+text;
Sleep(1);
}
InternetCloseHandle(hInternetSession);
return(TXT);
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
int r=0;
string s=ReadHTML();
int sf=StringFind(s,SubString);
string level=StringSubstr(s,sf+7,2);
if(StringToInteger(level)>66 && OrdersTotal()<1)
r=OrderSend(NULL,0,0.1,NormalizeDouble(Ask,Digits),100,0,0,"",0,0,Lime);
Comment("\n Начало подстроки: ",sf,
"\n Уровень: ",level);
}
//+------------------------------------------------------------------+
18 июля 2016
|
26 июля 2016
|
Комментарии (8)
офигенный советник, надо на мониторинг ставить
46 Bishop Сообщений: 5825 - АЛЬФАХАМЕЦ-Машковод
27 Oxy Сообщений: 3430 - ..ιllιlι.lι.ιllι.ιlι..
35 AM2 Автор Сообщений: 16665 - Андрей
Очень клево!!! Но что то с друн=гих сайтов ерунду выдает(((разбераемся
А подскажите как сделать задержку опроса сайта, например столько то секунд?
спасибо
3 LichSL Сообщений: 4
Только вчера с инвестинг котировки вытаскивал. С лмакс напрямую не получилось.
попробуйте
35 AM2 Автор Сообщений: 16665 - Андрей
И еще вопрос если между уникальным именем и искомой величиной несколько строк (на следующей строке) как высчитать смещение… у меня выходит большие цифры, как будто он не в тхт файле отсчитывает, а из htm или как правильно я не знаю.
Короткая сделка
1.00 лотов
15
Хммм вставил в сообщение часть, а он его переиначил((( Редактирован: 16 сентября 2016, 09:08
3 LichSL Сообщений: 4
8 Kudryashov Сообщений: 129
Подскажите как работать с такими страницами?
Возможно ли это?
0 Earring Сообщений: 1
Зарегистрируйтесь или авторизуйтесь, чтобы оставить комментарий