当前位置:编程学习 > Delphi >>

求将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;
非常迫切需要这个代码转成易语言格式的,望全能高手能动动手帮忙翻译一下,感激涕零....

分不多只是意思,但是如果翻译成功,你需要多少分直接和我说(300分以下)赚都赚给你.
追问:

网页填表我会的,关键我是想知道这段代码的意思

PasswordObj:=Doc.all.item('Password_Edit',varEmpty) as IHTMLObjectElement;
V:=PasswordObj.object_;
v.PasswordMode:=True;
v.SecurityMode:=False;
V.TextData:=Password;

如果你可以将我帖子上面的代码翻译成易语言的,我追加你3000分,说到做到

答案:

这是一个淘宝自动登录的源码,完全可以用易语言实现的不至于翻译吧。

晚上回家写个登陆器给你,现在没E程序

上一个:Delphi 7 显示一周日期和对应星期问题
下一个:delphi7 用正则表达式取html中的数据

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,