求将delphi源代码转换成易语言.感谢回答!
uses
SHDocVw, MSHTML, OleCtrls;
procedure Taobao_Login(Browser: TWebBrowser;UserName,Password:string);
var
Doc:IHTMLDocument2;
PasswordObj:IHTMLObjectElement;
V:OleVariant;
begin
Browser.Navigate(' http://member1.taobao.com/member/login.jhtml');
while Browser.ReadyState<>4 do
Application.ProcessMessages;
Doc:=Browser.Document as IHTMLDocument2;
(Doc.all.item('TPL_username',varEmpty) as IHTMLInputElement).value:=UserName;
PasswordObj:=Doc.all.item('Password_Edit',varEmpty) as IHTMLObjectElement;
V:=PasswordObj.object_;
v.PasswordMode:=True;
v.SecurityMode:=False;
V.TextData:=Password;
(Doc.all.item('Submit',varEmpty) as IHTMLElement).Click;
end;
非常迫切需要这个代码转成易语言格式的,望全能高手能动动手帮忙翻译一下,感激涕零....
追问:网页填表我会的,关键我是想知道这段代码的意思
PasswordObj:=Doc.all.item('Password_Edit',varEmpty) as IHTMLObjectElement;
V:=PasswordObj.object_;
v.PasswordMode:=True;
v.SecurityMode:=False;
V.TextData:=Password;
如果你可以将我帖子上面的代码翻译成易语言的,我追加你3000分,说到做到