500分求动网自动登陆发贴的实现!

Question

Params.Add('username=uname');
Params.Add('password=pwd');
Params.Add('CookieDate=0');
Params.Add('userhidden=1');
IdHttp.Post('http://bbs.dvbbs.net/login.asp?action=chk',Params);
这样可以实现无验证码的动网登陆,有验证码的又如何实现呢?(验证码图片很容易识别)
另外,如何自动发新帖与顶自己发过的帖呢?菜鸟一只,望大虾指教~

Answer 1

http://support.microsoft.com/kb/q167658/
http://www.pconline.com.cn/pcjob/process/other/borland/0411/500407.html

Answer 2

http://www.pconline.com.cn/pcjob/process/other/borland/0411/500407.html
要打开页面的,不好用啊
微软的页面看不懂,比我帖出来的方法强不了多少

Answer 3

CSDN是不是要垮了,很少问问题,因为我水平不高,所以以前要问的问题基本上可以搜索到答案.
不容易有几个搜索不到答案的问题,结果.....<关注...><UP...><学习...>
晕,CSDN是不是只剩下我这样一些菜鸟了啊?

Answer 4

发贴就是一些http操作，我以前给公司总部做过的一个价格搜索系统，就是这样的东西。
你可以发信到[email protected]，我可以给你说说

Answer 5

看看就明白了procedure AutoLogin(iDoc1:IHTMLDocument2);
var
    spDisp: IDispatch;
    j: integer;
    iELC  : IHTMLElementCollection ;
    S2,sn : string;
    HtmlInputEle : IHTMLInputElement;
    HTMLFormEle  : IHTMLFormElement;
    IF_Have:Boolean;    
begin
    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
        begin
            HTMLFormEle :=HtmlInputEle.form;
            IF_Have:=true;
            with HtmlInputEle do
            begin
              S2:=Type_;
              S2:=UpperCase(S2);
              if StrComp(PChar(S2),'TEXT')=0 then
              begin
                sn := name;
                sn := UpperCase(sn);
                if StrComp(PChar(sn),'U')=0 then
                  value :='12313';
              end;
              if StrComp(PChar(S2),'PASSWORD')=0 then
              begin
                sn := name;
                sn := UpperCase(sn);
                if StrComp(PChar(sn),'PSW')=0 then
                  value :='1213';
              end;
            end;
        end;
      end;  //END FOR
      if(IF_Have)then
          HTMLFormEle.submit; 
    end;
end;