Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/08/2011, 12:36
Riki_89D
 
Fecha de Ingreso: abril-2010
Mensajes: 21
Antigüedad: 14 años, 7 meses
Puntos: 5
Problema con Wininet (Postear en foro)

Hola que tal?,veranmllevo ya varios dias despues de mis vacaciones intentando de crear como una especie de posteador automatico,el caso es que uso las api Wininet para esta funcion,primero inicio sesion en la web en el foro en cuestion y despues pues posteo el tema en la categoria que toque,pero la verdad no se si el programa inicia sesion correctamente o no,por lo que voy perdido,he segudio los pasos de la MSDN pero no me sirve,iamgino que sera algun parametro no adecuado,aqui lees dejo el codigo:


Boton que inicia sesion:

Código:
HINTERNET Sesion1,Sesion2,Conexion1,Conexion2,Query1,Query2;
char *CabeceraWeb = "Content-Type: text/html; charset=ISO-8859-1";
char *Datos = "user=nombreeeed&passwrd=passs";
char *Men = "message=Mensaje del tema&subject=Tituloooooooooooooooo";
 
Sesion1 = InternetOpen("MyAgen",INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL,0);
Conexion1 = InternetConnect(Sesion1,"foro.loquesea.com",INTERNET_DEFAULT_HTTP_PORT,NULL,NULL,INTERNET_SERVICE_HTTP,0,1);
 
Query1 = HttpOpenRequest(Conexion1,"POST","/login2.html",NULL,NULL,NULL,INTERNET_FLAG_NO_CACHE_WRITE,1);
 
bool Fun1 = HttpSendRequest(Query1,CabeceraWeb,strlen(CabeceraWeb),Datos,strlen(Datos));
para ver las acbeceras pues solo miro el codigo de la web i ya esta y para saber el script (objeto) que envia los datos del form y los procesa pues tambine lo hago asin,mew refiero a eso del "form action="script.php" o lo que sea,ahora el codigo de posteo que es lo mismo casi...



Post code

Código:
Sesion2 = InternetOpen("MyAgen",INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL,0);
Conexion2 = InternetConnect(Sesion1,"foro.elquesea.com/post.html;board=7.0",INTERNET_DEFAULT_HTTP_PORT,NULL,NULL,INTERNET_SERVICE_HTTP,0,1);
Query2 = HttpOpenRequest(Conexion1,"POST","http://foro.elquesea.com/post2.html;start=0;board=7",NULL,NULL,NULL,INTERNET_FLAG_NO_CACHE_WRITE,1);
bool Fun2 = HttpSendRequest(Query1,CabeceraWeb,strlen(CabeceraWeb),Men,strlen(Men));