Hallo
Ich will über mein Programm mich in meine Fritzbox einloggen. Und anschließend den Gast Zugang aktivieren.
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
webbrowser1.Navigate('http://fritz.box/home/home.lua?sid=673058b530b4f2dc&login:command/password=molfr102');
webbrowser1.Navigate('http://fritz.box/wlan/guest_access.lua?sid=8eada0064f00bcff&login:command/password=molfr102');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.OleObject.document.forms.item(0).elements.item('uiviewactivateguestaccess').click;
Webbrowser1.OleObject.document.forms.item(0).elements.item('apply').click;
end;
procedure TForm1.LMDDockSpeedButton1Click(Sender: TObject);
begin
close;
end;
auf meinem Progrechner läuft es aber auf anderen nicht er zeigt mir invalid variant operation an. bzw er logt sich nicht ein.
Hat jemand ne Lösung parat ????