对一系列网址提交表单,整个过程用webbrower自动完成(100分).

Question

不能用idhttp.post等方法，因为网站限制了跨站提交.
我的代码总是出错,而且总有跳过的现象,召唤大牛支招.procedure TForm1.Button1Click(Sender: TObject);
var
sURL : array[1..5] of String;
i : Integer;
begin
sURL[1] := 'http://1';
sURL[2] := 'http://2';
sURL[3] := 'http://3';
sURL[4] := 'http://4;
sURL[5] := 'http://5';
for i := 1 to 5 do
begin
WebBrowser1.Navigate(sURL[i]);
while True do
begin
Application.ProcessMessages();
if not WebBrowser1.Busy then break;
end;
end;
end;procedure TForm1.WebBrowser1DocumentComplete
begin
    docf := webbrowser1.oleobject.document.all.item('Content',0);
    docf.value := '提交内容';
    docf:=webbrowser1.OleObject.document.all.item('Submit',0);
    docf.click;
end;

Answer 1

是需要session 支援吧；你得将获得得cookies 信息回传到webserver，在post得过程内。

Answer 2

谢谢idcookiemanager不太会用，主要是想问我的代码哪里有问题？

Answer 3

不知道代码什么问题，召唤高人。。下面是一般的防跨站提交代码，也可以试试从来访页入手解决问题。
Function CheckUrl(url)
Dim Where:Where=Request.SeverVariables("HTTP_REFERER")
If Where=url Then
Call main()
Else
Response.write("很抱歉，您必须从"&url&"访问才能进来！")
End if
End Function

Answer 4

跟cookie session好像没关系？