H
hksoobe
Unregistered / Unconfirmed
GUEST, unregistred user!
就下面这个函数我再开个线程出来运行的话程序就崩溃了!procedure TForm1.in_(const ausername,apw:string);var do
c: IHTMLDocument3;
Element: IHTMLElement;
begin
do
c := Form1.WebBrowser1.Document as IHTMLDocument3;
Element :=do
c.getElementById('login_email');
(Element as IHTMLInputElement).value := ausername;
Element :=do
c.getElementById('login_password');
with (Element as IHTMLInputElement)do
begin
value := apw;
form.submit;
end;
end;
c: IHTMLDocument3;
Element: IHTMLElement;
begin
do
c := Form1.WebBrowser1.Document as IHTMLDocument3;
Element :=do
c.getElementById('login_email');
(Element as IHTMLInputElement).value := ausername;
Element :=do
c.getElementById('login_password');
with (Element as IHTMLInputElement)do
begin
value := apw;
form.submit;
end;
end;