Delphi-Quellcode:
///////////////// //////////////////////
if URL= '
http://www1.sunrise.ch/SMS-Sender-cbBpfAqFI.RUoAAAEwinJTNyCu-Sunrise-Residential-Site-WFS-de_CH-CHF.html'
then begin
repeat;
Application.ProcessMessages;
Sleep(1);
until WebBrowser1.ReadyState=4;
webbrowser1.oleobject.document.forms.item(1).elements.item('
LoginForm_Login').value := memo2.Lines[2];
if webbrowser1.oleobject.document.forms.item(1).elements.item('
LoginForm_Login').value =memo2.Lines[2]
then begin
webbrowser1.oleobject.document.forms.item(1).elements.item('
LoginForm_Password').value := memo2.Lines[3] ;
//webbrowser1.oleobject.document.forms.item(1).submit;
end;
//Server1 ENDE
end;
Geht Leider auch so nicht immer das gleiche... (Habe übrigens jetzt wieder den normalen Webbrowser genommen. So zu Sicherheit aber es macht eben auch keinen Unterschied)
Zitat:
Delphi-Quellcode:
FillForm(WebBrowser1, 'smsMessage', memo1.Text) ;
FillForm(WebBrowser1, 'SMSEingabe', edit3.Text) ;
Die beiden mit FillForm zu befüllenden Felder kann ich in der
HTML-Datei nicht finden. Habe ich da was übersehen?
Das wird nur bei einem anderen Server so benötigt. (Den Server wähle ich mit der combobox2 aus)