![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как обратиться к данному url'у?
dukenn © (2004-09-16 23:23:00)Как обратиться к данному url'у, но чтобы ничего при этом не открывалось и считалось, что я на него зашел.
DukeNN (2004-09-18 14:41:00) [1]/Накрутку счетчика пишемс?/
Вроде того.
Кстати уже написал. Спасибо РЕАКТОР'у!
Rouse_ (2004-09-17 20:56:00) [2]Накрутку счетчика пишемс?
DukeNN (2004-09-17 18:28:00) [3]Я пишу прогу для быстрой обработки писем от почтовых спонсоров. И мне нужно, чтобы на серваке считалось, что я посетил страницу.
PEAKTOP (2004-09-17 06:03:00) [4]Где "считалось", что ты на него зашел ? На WEB-серваке сичталось, что ты посетил страницу, или на FireWalle было видно, что прога полезла в Инет ?
Если ты пишешь баннерный кликер, то юзай WinInet.dll
----------------------------------------------------
uses
Windows,
WinInet,
SysUtils;
....................
functionGoToURL( constsURL : string):Boolean;
var
hInet :HINTERNET;
hURL :HINTERNET;
begin
Result := FALSE;
hInet := NIL;
hURL := NIL;
hInet := InternetOpen('Microsoft Internet Explorer', 0, NIL, NIL, 0);
if(hInet<> NIL) then
begin
hURL := InternetOpenUrl(hInet, @sURL[1], NIL, 0, 0, 0);
if(hURL<> NIL) then
begin
InternetCloseHandle(hURL);
Result := TRUE;
end;
InternetCloseHandle(hInet);
end;
end.