Email Account abfragen

[Christian Zink]

Hi!

Ich möchte mir selber nen Tool schreiben, was die Anfangseite von Yahoo parst und dann meine daten übermittelt um dann auf die Seite von Yahoo zu gelangen.

So hab ich das:

unsigned TForm_Mailcheck_main::Yahoo(const AnsiString &sUserId, const AnsiString &sPassword)
{
unsigned iResult=0; // 0=not available / 1=available / 2=PSW or ID not oj / 3=Host not available

AnsiString sURL=YAHOO;
AnsiString sDynamicURL;
AnsiString sHTMLYAHOOPortal;
AnsiString sParsURL;
AnsiString sParsString;

// get URL FIRST
NMHTTP1->Get(sURL);
sHTMLYAHOOPortal=NMHTTP1->Body;

// show in memo and save it
Memo_html->Lines->Add(sHTMLYAHOOPortal);
Memo_html->Lines->SaveToFile("htmlTemp\\yahoo.htm");

// show in browser
wchar_t dest[100];
CppWebBrowser1->Navigate( sURL.WideChar(dest, 100) );
// begin parsing Yahoo

// pars url
yahoo_de_http yaStream (sUserId,sPassword,sHTMLYAHOOPortal);
sDynamicURL = yaStream.ClipString("post action=\"","autocomplete=off",sHTMLYAHOOPortal);
int iPosition = sDynamicURL.Pos("?");
sDynamicURL = sDynamicURL.Insert(".rand=",iPosition+1);
// pars action post
sParsString="&.tries=&.src=ym&.last=&promo=&.intl= de&.bypass=&.partner=&.ch kP=Y&.done=&login="+sUserId+"&passwd="+sPassword;
AnsiString sTest=sURL+sParsString;
// go to mail-page
NMHTTP1->Post(sDynamicURL, sParsString);
NMHTTP1->Get(sTest);

Memo_html->Lines->Clear();
sHTMLYAHOOPortal=NMHTTP1->Body;
Memo_html->Lines->Add(sHTMLYAHOOPortal);

Memo_html->Lines->SaveToFile("htmlTemp\\Yah_Data.htm");

sURL="C:\\Dokumente und Einstellungen\\Christian\\Eigene Dateien\\Arbeit\\SourceCodes\\Mail Checker\\output_final\\htmlTemp\\Yah_Data.htm";

CppWebBrowser1->Navigate( sTest.WideChar(dest, 100) );



return iResult;
}

Die Methode ClipString gibt mir den String zurück der zwischen den beiden Strings (1 / 2 Parameter) steht. (im 3 String ist das ganze Document)

Ich bekomme keine Fehlermeldung und trotzdem wird die Seite - wo draufsteht ob ich Mails habe oder nicht geladen.

Ich bin verzweifelt ;-)
Christian