请大侠们看看,下面的代码登录易趣可以.登录淘宝不行 再另加300(100)

  • 主题发起人 主题发起人 hying95
  • 开始时间 开始时间
H

hying95

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button8Click(Sender: TObject);var Doc:IHTMLDocument2; input:OleVariant; userinputelement,pwdinputelement:ihtmlinputelement;begin doc:=webbrowser1.document as ihtmldocument2; userinputelement:=(doc.all.item('TPL_username',0) as ihtmlinputelement); userinputelement.value:=edit6.text;//输入用户名 // 下面的点击登录就出错“TPL_password“改成password也不行 //pwdinputelement:=(doc.all.item('TPL_password',0) as ihtmlinputelement); //pwdinputelement.value :=edit7.text; //密码 //input:=doc.all.item('登录',0); // input.click;end;procedure TForm1.Button9Click(Sender: TObject);begin webbrowser1.Navigate('http://member1.taobao.com/member/login.jhtml');end;******************************登录易趣可以webbrowser1.Navigate('http://login.eachnet.com/usr/login.do');procedure TForm1.Button3Click(Sender: TObject);var Doc:IHTMLDocument2; input:OleVariant; userinputelement,pwdinputelement:ihtmlinputelement;begin doc:=webbrowser1.document as ihtmldocument2; userinputelement:=(doc.all.item('userName',0) as ihtmlinputelement); userinputelement.value:=edit1.text; pwdinputelement:=(doc.all.item('passwd',0) as ihtmlinputelement); pwdinputelement.value :=edit2.text; input:=doc.all.item('登录',0); input.click;end;再另加300分.在下面有300解决一并送上http://www.delphibbs.com/delphibbs/dispq.asp?lid=3909719
 
怎么没人回答?自己顶一下吧
 
是:Password_Edit不是'TPL_password',也不是'password'
 
TO Wanglogon改了后还是不行procedure TForm1.Button8Click(Sender: TObject);var Doc:IHTMLDocument2; input:OleVariant; userinputelement,pwdinputelement:ihtmlinputelement;begin doc:=webbrowser1.document as ihtmldocument2; userinputelement:=(doc.all.item('TPL_username',0) as ihtmlinputelement); userinputelement.value:=edit6.text;//输入用户名 // 下面改了后还是不行. pwdinputelement:=(doc.all.item('Password_Edit',0) as ihtmlinputelement); pwdinputelement.value :=edit7.text; //密码 input:=doc.all.item('登录',0); input.click;end;
 
安全控件 你是逮不住的
 
也就是说是个超级难题了.无人能做了
 
你试试在webbrowser1上能否手动登陆淘宝, 如果可以的话, 就证明可以避过安全控件.淘宝几年前的全自动登陆我做过.楼主是要写广告软件吧?
 
to 冰力不足手动可登录。在淘宝上开了个小店,每天上架麻烦,想搞个自动上架的。自己太菜(业余的)。求各位老大帮忙。
 
procedure TForm1.Button1Click(Sender: TObject);begin WebBrowser1.Navigate('http://member1.taobao.com/member/login.jhtml');end;procedure TForm1.Button2Click(Sender: TObject);var MyItem: Olevariant; i: integer; TempName: String;begin MyItem := WebBrowser1.Document; for i := 0 to MyItem.all.length - 1 do begin TempName := Uppercase(MyItem.all.item(i).TagName); if (TempName = 'SELECT') or (TempName = 'INPUT') then begin // 帐户 if MyItem.all.item(i).name = 'TPL_username' then MyItem.all.item(i).value := '11111111'; // 密码 if MyItem.all.item(i).name = 'TPL_password' then MyItem.all.item(i).value := '2222222222'; // 同时登录旺旺 if MyItem.all.item(i).name = 'isww' then MyItem.all.item(i).click; // 点击登录 if MyItem.all.item(i).name = 'Submit' then MyItem.all.item(i).click; end; end;end;ok! 测试通过, 给分吧.
 
to 冰力不足提示"缺少密码",用户名:是111111密码框为空,if MyItem.all.item(i).name = 'TPL_password' then MyItem.all.item(i).value := '2222222222';//好象没反应
 
帐号密码是随便写的当然不能登陆啦 你找个可以登陆的帐号密码换上去代码没有一点点错~~~~~
 
procedure TForm1.Button7Click(Sender: TObject);var MyItem: Olevariant; i: integer; TempName: String;begin MyItem := WebBrowser1.Document; for i := 0 to MyItem.all.length - 1 do begin TempName := Uppercase(MyItem.all.item(i).TagName); if (TempName = 'SELECT') or (TempName = 'INPUT') then begin // 帐户 if MyItem.all.item(i).name = 'TPL_username' then MyItem.all.item(i).value := '11111111'; // 密码 if MyItem.all.item(i).name = 'TPL_password' then MyItem.all.item(i).value := '2222222222'; // 同时登录旺旺 //if MyItem.all.item(i).name = 'isww' then //MyItem.all.item(i).click; // 点击登录 //if MyItem.all.item(i).name = 'Submit' then //MyItem.all.item(i).click; end; end;end;你消掉几句就可以看到帐号密码已经填写上去的
 
注销几句后,账号填了,密码还是不填
 
我去上班了.中午回来再试
 
我这边完全可以,难道你的电脑是美国刚造的跟人家不一样?算了, 估计你是故意玩玩的, 没有时间陪你玩~~~~~查了你的记录, 2006年的帖子很多都没有结帖.88~~~~~~~~
 
我这边真的不行.是不是我的装有安全控件有关系?用户名里面可以填上去.密码框里面填不了你试下:zhanglongcai15zlc1352678
 
to 冰力不足不是不结贴,有两个是忘记了.另外有两个是没人回答,有三个是问题没解决.今晚把所有的贴全部结了.不管有没有解决,参加的都有分,您这贴不算在内.估计我的机上装有淘宝网的安全控件.我找个机会到厂里的电脑上试下.先到下面回复下,晚上回来先加300分给你.http://www.delphibbs.com/delphibbs/dispq.asp?lid=3909719
 
试过了。在其它电脑上可以。在我那台机不行。
 
后退
顶部