| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
 Publicado: Jue 20 Ene, 2005 6:51 pm Asunto: ICQ, mandar mensajes |
 |
|
Se puede hacer que una aplicacion mande un mensaje por ICQ?
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
 |
|
| Volver arriba |
|
 |
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
| Publicado: Sab 16 Jul, 2005 12:51 pm Asunto: |
|
|
alguna idea??
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
|
|
| Volver arriba |
|
|
Roid
Cmdr
Registrado: 18 Ene 2004Mensajes: 135
|
|
| Volver arriba |
|
|
Roid
Cmdr
Registrado: 18 Ene 2004Mensajes: 135
|
|
| Volver arriba |
|
|
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
| Publicado: Sab 16 Jul, 2005 8:52 pm Asunto: |
|
|
lo encontre  pego..
la verda esque no lo e probao pero creo que tiene que funcionar 
| Código: | {
You need 3 TEdits, 1 TMemo und 1 TClientSocket.
Set the TClientsocket's Port to 80 and the Host to wwp.mirabilis.com.
}
{
Für diesen Tip braucht man 3 TEdits, 1 TMemo und 1 TClientSocket.
Setze den Port des TClientsockets auf 80 un den Host auf wwp.mirabilis.com.
}
var
Form1: TForm1;
csend: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10);
cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10);
cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + chr(13) + chr(10);
cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);
cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10);
cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);
cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +
chr(13) + chr(10) + chr(13) + chr(10);
cSend := cSend + 'from=' + edit1.Text + ' &fromemail=' + edit2.Text +
' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send=';
clientsocket1.Active := True;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText(csend);
clientsocket1.Active := False;
end;
|
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
|
|
| Volver arriba |
|
|
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
| Publicado: Sab 16 Jul, 2005 9:22 pm Asunto: |
|
|
pues lo e traducido y no me funciona... no me da ningun error simplemente no llegan 
| Código: |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Host="wwp.mirabilis.com";
ClientSocket1->Port=80;
AnsiString cSend="",ter=(char)(13)+(char)(10);
cSend = "POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0"+ter;
cSend = cSend + "Referer: http://wwp.mirabilis.com"+ter;
cSend = cSend + "User-Agent: Mozilla/4.06 (Win95; I)"+ter;
cSend = cSend + "Connection: Keep-Alive"+ter;
cSend = cSend + "Host: wwp.mirabilis.com:80"+ter;
cSend = cSend + "Content-type: application/x-www-form-urlencoded"+ter;
cSend = cSend + "Content-length:8000"+ter;
cSend = cSend + "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*"+ter+ter;
cSend = cSend + "from="+Edit1->Text+"&fromemail="+Edit2->Text+"&fromicq:110206786&body="+Memo1->Text+"&to="+Edit3->Text+"&Send=245015626";
ClientSocket1->Active=true;
ClientSocket1->Socket->SendText(cSend);
ShowMessage("MENSAJE ENVIADO");
ClientSocket1->Active =false;
}
|
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
|
|
| Volver arriba |
|
|
Roid
Cmdr
Registrado: 18 Ene 2004Mensajes: 135
|
| Publicado: Sab 16 Jul, 2005 10:57 pm Asunto: |
|
|
Te da error pq te pide q introduzcas una clave q aparece en una imagen.
mira la 2º solucion.
Un saludo. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
