怎么自动填写网页上的input框,然后提交?(200分)

  • 主题发起人 主题发起人 panwenming
  • 开始时间 开始时间
P

panwenming

Unregistered / Unconfirmed
GUEST, unregistred user!
我想自动登录神光www.shenguang.com网站,
能写详细例子吗,我对web一点不懂。
 
给你写了一段HTML代码,你试着我的提示操作


-----------------代码如下----------------------------

<html>
<head>
<title>Untitled Document</title>
</head>

<body bgcolor="#FFFFFF">

<form action="http://www.shenguang.com/aspapp/users/loginsubmit.asp" method=post name="login" >
用户名: <input name="user" size="10" value="张三丰">
密  码: <input type="password" name="password" size="10" value="武当山">
</form>

<script language="javascript">
document.login.submit();
</script>


</body>
</html>

-----------------代码结束----------------------------


注:你将以上代码粘到记事本,将“张三丰”改为你的用户名,
“武当山”改为你的密码,然后另存为后缀为.htm的文件,这样
你想要登录神光网站,直接点击此HTM文件即可。
 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
i:integer;
t:OleVariant;
begin
t := WebBrowser1.Document;
for i := 0 to t.all.length - 1 do
begin
if t.all.item(i).tagName = 'INPUT' then
begin
if t.all.item(i).name = '网页中input框的名字' then
t.all.item(i).value := '要填的内容';
if (t.all.item(i).type = 'submit') and (t.all.item(i).name = '按钮的name') then
begin
t.all.item(i).click;
exit;
end;
end;
end;
end;
这是我所知道的最简单的方法(delphi),如有什么更好的方法请各位高手指点。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
605
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部