Send ICQ message

← →
Wiz@rd © (2004-04-04 22:33) [0]

Как послать мессагу на ICQ? Раньше работал такой код:

PUrl := "http://wwp.icq.com/scripts/WWPMsg.dll?to="+Ptoicqnumber+"&from="+PFrom+"&fromemail="+Pfromemail+"&subject="+PSubject+"& body="+PBody;
StrURL := PUrl;

strRead := "";
hHttpSession := InternetOpen ("GetURL", INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_NO_CACHE_WRITE );
InternetQueryOption(hHttpSession , INTERNET_OPTION_CONNECT_TIMEOUT , @nTimeOut , nRead);
nTimeOut := TimeOut;
InternetSetOption(hHttpSession , INTERNET_OPTION_CONNECT_TIMEOUT , @nTimeOut , nRead);

try
hReqUrl := InternetOpenURL (hHttpSession, PChar(StrUrl), nil, 0,0,0);
finally
InternetCloseHandle (hReqUrl);
InternetCloseHandle (hHttpSession);
end;

А щас чё та не работает - видимо линк поменялся

← →
93028472384 (2004-04-05 00:37) [1]

шли на мыло xxxxxxx@pager.icq.com, где ххххххх - нумер уйна

← →
Wiz@rd © (2004-04-05 11:20) [2]

Не неработает...

← →
Verg © (2004-04-05 11:22) [3]

http://www.cobans.net/

← →
Wiz@rd © (2004-04-05 11:31) [4]

да знаю я этот сайт - я там уже задал такой же вопрос

← →
Wiz@rd © (2004-04-05 11:32) [5]

Там есть ICQClient - я знаю - но надо минимум кода для отправки - лучше линк какого-нить скрипта

← →
имя (2004-04-05 21:47) [6]

Удалено модератором

У всех работает - а у него нет!

Покажи пример - может я чё то не так делаю?

Send ICQ message Найти похожие ветки