报名机器人

昨天帮人报一个参加日语能力考试的朋友报名，无奈报名比较火暴，到处名额已满，需要不断重试碰运气。想到本科的时候，老师组织我们去上机，结果是帮人报TOFEL的名，那场景，如打仗一般，大家先对表，精确到秒。先把表单的数据填好，等时间一到，马上按提交按钮。早了不行，要重定向回来充填好几项数据耽误时间，晚了也不行，要不就是报满，要不就是服务器负荷太重处理不过来。记得当时前后花了半个小时，每人发了30元的报酬，看了报名还是一种待遇不错的劳动，也许以后会出现不少职业的代报名公司或个人。

手工操作几次，像一般的注册或报名程序一样，没报成功要重定向回来，有几项填写的结果（如密码框）会被清掉，重试还得重填，很麻烦，就决定做一个机器人试试，于是翻出了去年做的一个投票机器人（见《一个简单的投票机器人》）。

       看了一下，原来的投票页面做得很业余，就一个ASP页面，没有用户注册和IP限制，完全的匿名投票。而这个报名程序看来是花了一定心思的，有5个（根据页面的代码猜的，因为没有成功，只看到前面的三个）步骤（JSP页面），更麻烦的是几个步骤后会弹出对话框（这大大增加了难度，后面会描述解决办法）。因此不能想投票机器人那样简单的构造页面模拟提交，要想别的办法。

       还是轻车熟路，用Delphi的Webbrowser控件开发。

       首先就是决定不再在本地生成临时页面，而是直接打开它的页面。因为试过想跳过前面两个无关紧要的步骤而直接提交关键的第三步，但发现它检查Cookie，本地无法生成匹配的Cookie，也无法跳过，只好从头开始。

       然后自动填写表单。

       为了保证灵活性，表单要填的数据保存在一个XML文件中。

表格 1

读如要填数据的XML文件： 

procedure TfrmMain.readInfo;

var

   // xmlDom1: TXMLDocument;

    Nroot,Nentry,NsubEntry:IXMLNode;

    filePath : string;

    i:integer;

begin

      filePath := ExtractFilePath(Application.ExeName) + ''''infor.xml'''';

      try

          xmlDom1.LoadFromFile(filePath);

      except

        on e:exception do

           showmessage(e.Message);

      end;

      Nroot:=xmldom1.DocumentElement;

       Nentry:= Nroot.ChildNodes[''''level''''];

       level := Nentry.NodeValue;

       Nentry:= Nroot.ChildNodes[''''ID''''];

       id := Nentry.NodeValue;

        Nentry:= Nroot.ChildNodes[''''pwd''''];

       pwd := Nentry.NodeValue;

         Nentry:= Nroot.ChildNodes[''''sex''''];

       sex := Nentry.NodeValue;

         Nentry:= Nroot.ChildNodes[''''sr''''];

       sr := Nentry.NodeValue;

        Nentry:= Nroot.ChildNodes[''''cFirstName''''];

       cFirstName := Nentry.NodeValue;

        Nentry:= Nroot.ChildNodes[''''cLastName''''];

       cLastName := Nentry.NodeValue;

        Nentry:= Nroot.ChildNodes[''''eFirstName''''];

       eFirstName := Nentry.NodeValue;

        Nentry:= Nroot.ChildNodes[''''eLastName''''];

       eLastName := Nentry.NodeValue;

       Nentry:= Nroot.ChildNodes[''''question''''];

       question := Nentry.NodeValue;

        Nentry:= Nroot.ChildNodes[''''answer''''];

       answer := Nentry.NodeValue;

       Nentry:= Nroot.ChildNodes[''''places''''];

       placeNum :=  Nentry.ChildNodes.Count;

       for i

[1] [2] [3] [4]  下一页