关于网页的自动提交(200分)

网页是.PHP

现想自动选择提交答案，每次出来的题目是三四题不等，是选择题的

能否自动提交

别人给我这些，我看不懂，谁能帮我搞定下

use mshtml
……
procedure TForm1.PutData;
var
ShellWindow: IShellWindows;
nCount: integer;
spDisp: IDispatch;
i,j,X: integer;
vi: OleVariant;
IE1: IWebBrowser2;
IDoc1: IHTMLDocument2;
iELC : IHTMLElementCollection ;
S,S2 : string;
HtmlInputEle : IHTMLInputElement;
HtmlSelEle : IHTMLSelectElement;
begin
ShellWindow := CoShellWindows.Create;
nCount := ShellWindow.Count;

for i := 0 to nCount - 1 do
begin
vi := i;
spDisp := ShellWindow.Item(vi);
if spDisp = nil then continue;
spDisp.QueryInterface( iWebBrowser2, IE1 );
if IE1 <> nil then
begin
IE1.Document.QueryInterface(IHTMLDocument2,iDoc1);
if iDoc1 <> nil then
begin

ielc:=idoc1.Get_all;

for j:=0 to ielc.length-1 do
begin
Application.ProcessMessages;
spDisp := ielc.item(J, 0);
if SUCCEEDED(spDisp.QueryInterface(IHTMLInputElement ,HtmlInputEle))then
with HtmlInputEle do
begin
S2:=Type_;
S2:=UpperCase(S2);
//我把所有的input都填上 try ， checkbox 都打勾
if (StrComp(PChar(S2),'TEXT')=0) or (StrComp(PChar(S2),'PASSWORD')=0) then
value :='try' //S:=S+#9+Value
else if StrComp(PChar(S2),'CHECKBOX')=0 then
begin
checked := True;
end;
end;
if SUCCEEDED(spDisp.QueryInterface(IHTMLselectelement ,HtmlSelEle))then
with HtmlSelEle, Memo1.Lines do
begin
S:=S+#9+IntToStr(selectedIndex+1); //这个是获取数据了
end;
end; //END FOR
Memo2.Lines.Add(S);
exit;
end;
end;
end;
end;

WHO能帮帮WO啊

我只玩过ASP，我记得里面有个settime什么的，好像D里面的timer，过多久就使表单submit就
行啊，呵呵，乱七八糟！

WebBrowser编程-自动登录操作

利用Delphi的Olevariant类型

var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //找到登录用户名的输入框
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交

{

o :=WebBrowser.oleobject.document.all.item('Login',0); //或者用指定表单名称提交
o.Click; //点击操作，对其它对象也可同样操作
}
end;

有没有测试的地方，否则我怎么知道自己的程序是否能行。

楼上两位加我QQ好吗

给个地方，我看看我的程序行吗。
楼上的，你的qq呢？？

我的是9520743先谢过这位朋友

webbrowser很占内存，tclientsocket不错，我做过

楼上的，能否与我合作啊？
加一下我的QQ
我是在玩一个游戏才做这个，累似外挂吧

o.value := 'TEST';
为何总出错？

楼上的，你要的是自动登录的吗？

你要看一下你要提交的是什么，把网页载下来看一下，填那个

OVER

关 注 此 问 题 ！

1、网页上的元素名是不是每次都变动，可以通过看原码看见。
2、如果不是变动的，通过IWebBrowser来判断元素名就可以自动赋数值。
3、如果是变动的，通过判断类型自动数值。
4、具体数值方法可以查询以前帖子。如果要，我可以给你，yanfeng96@163.net

OVER

OVER