por gulder Sin sí­ntomas
hola foro com andan espero que bien bueno le digo lo que intento hacer quiero hacer un post http a una pagina o mas bien a un foro que esta hecho en vbulletin, bueno hasta el momento me he loguedo con mi programa corectamente pero cuando intento enviarle la informacion me devuelbe la misma pagina a la que intento hacer el post no se que esta pasando, eston son los datos que tengo que enviarle por el post a la pagina

Código: Seleccionar todo

Field 0   subject
Field 1   message
Field 2   wysiwyg
Field 3   taglist
Field 4   iconid
Field 5   iconid
Field 6   iconid
Field 7   iconid
Field 8   iconid
Field 9   iconid
Field 10  iconid
Field 11  iconid
Field 12  iconid
Field 13  iconid
Field 14  iconid
Field 15  iconid
Field 16  iconid
Field 17  iconid
Field 18  iconid
Field 19  iconid
Field 20  s
Field 21  securitytoken
Field 22  f
Field 23  do
Field 24  posthash
Field 25  poststarttime
Field 26  loggedinuser
Field 27  sbutton
Field 28  preview
Field 29  signature
Field 30  parseurl
Field 31  parseame
Field 32  disablesmilies
Field 33                                 // ojo este no se por que sale en blanco 
Field 34  emailupdate
Field 35  postpoll
Field 36  polloptions
Field 37  sbutton
Field 38  preview
de esta forma me logueo e intento enviar la informacion pero no se que esta pasando, el login esta perfecto el problema es al enviar la informacion


Código: Seleccionar todo

rocedure TForm1.Button1Click(Sender: TObject);
var
  idHttp: TIdHTTP;
  datosPost_login: TIdMultiPartFormDataStream;
  datosPost_informacion_enviar: TIdMultiPartFormDataStream;
begin

  datosPost_login := TIdMultiPartFormDataStream.Create;
  datosPost_informacion_enviar := TIdMultiPartFormDataStream.Create;
  try

    datosPost_login.AddFormField('vb_login_username', 'usuario');
    datosPost_login.AddFormField('vb_login_password', 'contraseña');
    datosPost_login.AddFormField('do', 'login');

    idHttp := TIdHTTP.Create(Self);
    try

      Memo1.Text := idHttp.Post('http://www.paginaa.com/foros/login.php', datosPost_login);

      //datosPost.CleanupInstance;

      datosPost_informacion_enviar.AddFormField('subject','El titulo');
      datosPost_informacion_enviar.AddFormField('message','El cuerpo del tema de gulder'{Memo3.Text});
      datosPost_informacion_enviar.AddFormField('wysiwyg','0');
      datosPost_informacion_enviar.AddFormField('taglist','');

      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');

      datosPost_informacion_enviar.AddFormField('s', '');
      datosPost_informacion_enviar.AddFormField('securitytoken','1246051585-a4b920466447c38879c4c600a7a534c77d7586c2');
      datosPost_informacion_enviar.AddFormField('f', '13');
      datosPost_informacion_enviar.AddFormField('do', 'newthread');
      datosPost_informacion_enviar.AddFormField('posthash', 'f2742dca61938e790b1d84f1e2329a64');
      datosPost_informacion_enviar.AddFormField('poststarttime', '1246051585');
      datosPost_informacion_enviar.AddFormField('loggedinuser', '50739');

      datosPost_informacion_enviar.AddFormField('sbutton','Someter Nuevo Tema');
      datosPost_informacion_enviar.AddFormField('preview','Vista Previa de Mensaje');

      datosPost_informacion_enviar.AddFormField('signature','1');
      datosPost_informacion_enviar.AddFormField('parseurl','1');
      datosPost_informacion_enviar.AddFormField('parseame','1');
      datosPost_informacion_enviar.AddFormField('disablesmilies','1');
      datosPost_informacion_enviar.AddFormField('emailupdate','9999');
      datosPost_informacion_enviar.AddFormField('postpoll','yes');
      datosPost_informacion_enviar.AddFormField('postpoll','polloptions');

      datosPost_informacion_enviar.AddFormField('sbutton','Someter Nuevo Tema');
      datosPost_informacion_enviar.AddFormField('preview','Vista Previa de Mensaje');

      Memo2.Text := idHttp.Post('http://www.lapagina.com/foros/newthread.php', datosPost_informacion_enviar);

       //?do=newthread&f=13
    finally
      idHttp.Free;
    end;
  finally
    datosPost_login.Free;
    datosPost_informacion_enviar.Free;
  end;

end;
Temas similares
http-server for penetration por xrahitel en Manuales y Tutoriales
Links sobre el tema
Variantes de tema
Responder

Volver a “Delphi”