Loguję się na stronie wykorzystując TWebBrowser
KOD cpp: UKRYJ
void __fastcall TForm1::Login(TObject *Sender)
{
IHTMLDocument2 *HTMLDoc = NULL;
IPersistFile *PersistFile = NULL;
if(SUCCEEDED(Web->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDoc)))
{
IHTMLElementCollection *pAll = NULL;
if(SUCCEEDED(HTMLDoc->get_all(&pAll)))
{
long len=0;
pAll->get_length(&len);
for(int i=0;i<len; i++)
{
IDispatch *pDisp = NULL;
if(SUCCEEDED(pAll->item( (TVariant)i, (TVariant)i, &pDisp)))
{
if(pDisp)
{
IHTMLInputElement *pInput = NULL;
pDisp->QueryInterface(IID_IHTMLInputElement, (LPVOID*)&pInput);
if(pInput)
{
wchar_t * nazwa;
pInput->get_name(&nazwa);
if (WideString(nazwa) == WideString("login") )
{
pInput->put_value ("login");
}
if (WideString(nazwa) == WideString("password") )
{
pInput->put_value("haslo");
IHTMLFormElement *HTMLForm = NULL;
pInput->get_form(&HTMLForm);
if (HTMLForm)
{
HTMLForm->submit(); //logowanie
HTMLForm->Release();
}
}
pInput->Release();
}
pDisp->Release();
}
}
}
}
pAll->Release();
HTMLDoc->Release();
}
}
{
IHTMLDocument2 *HTMLDoc = NULL;
IPersistFile *PersistFile = NULL;
if(SUCCEEDED(Web->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDoc)))
{
IHTMLElementCollection *pAll = NULL;
if(SUCCEEDED(HTMLDoc->get_all(&pAll)))
{
long len=0;
pAll->get_length(&len);
for(int i=0;i<len; i++)
{
IDispatch *pDisp = NULL;
if(SUCCEEDED(pAll->item( (TVariant)i, (TVariant)i, &pDisp)))
{
if(pDisp)
{
IHTMLInputElement *pInput = NULL;
pDisp->QueryInterface(IID_IHTMLInputElement, (LPVOID*)&pInput);
if(pInput)
{
wchar_t * nazwa;
pInput->get_name(&nazwa);
if (WideString(nazwa) == WideString("login") )
{
pInput->put_value ("login");
}
if (WideString(nazwa) == WideString("password") )
{
pInput->put_value("haslo");
IHTMLFormElement *HTMLForm = NULL;
pInput->get_form(&HTMLForm);
if (HTMLForm)
{
HTMLForm->submit(); //logowanie
HTMLForm->Release();
}
}
pInput->Release();
}
pDisp->Release();
}
}
}
}
pAll->Release();
HTMLDoc->Release();
}
}
Po zalogowaniu, za pomocą ReadFileURL(const AnsiString &Url), chce pobrać dane ze strony jednak automatycznie wylogowuje mnie ze strony. Czy jest jakiś sposób aby mnie nie wylogowywało?