Spider Gate не установлен, DR Web 10
Надо было скачать несколько мультиков с сайта http://mults.info/и http://mp3tales.info/
Руками было лень, потому написал на Делльфи 5 простейшу программу для скачивания страничек и выцарапывания из них мультиков.
Вот листинг для понимания проблемы.
------------------------Функция для скачивания файла------------ function GetInetFile(const fileURL, FileName: string): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; FileLength,BufferLen: DWORD; f: file; sAppName: string; begin Result := False; FileLength:=0; AutoCreateDir(ExtractFilePath(FileName)); sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); //INTERNET_FLAG_RESYNCHRONIZE try //INTERNET_FLAG_NO_CACHE_WRITE hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, INTERNET_FLAG_RESYNCHRONIZE, 0); //---- Not use Cash internet-- try AssignFile(f, FileName); FileMode:=2; Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); if hurl<>nil then BlockWrite(f, Buffer, BufferLen); FileLength:=FileLength+BufferLen; if Exit_code<>0 then break; Application.ProcessMessages; until (BufferLen = 0) or (hurl=nil); Result := True; finally CloseFile(f); InternetCloseHandle(hURL); end; finally InternetCloseHandle(hSession); end; end; ------------------------Сам кусочек програмы для скачивания страничек------------------------- procedure TMainForm.Button2Click(Sender: TObject); var i,j,j1:Integer; ss,ss1,ss2,ss3,ss4,ss5,ss6,ss7,ss8,fname:String; begin try Button2.Enabled:=False; ss:=ParamStr(0); ss:=ExtractFilePath(ss); // - Здесь кроется проблема - http://mults.info/- и http://mp3tales.info/ // Если написать так //ss1:='http://195.2.241.54/mults/?id='; //или так //ss1:='http://mults.info/mults/?id='; //----------- только после нажатия этой кнопки Button2 доктор Веб пишет что это вирус!!! , при сканировании //программы вирус не обнаруживается, доктор Веб находит его только при попытке скачать файл!! Программу веб убивает ! // Если убрать слово HTTP:// то НИКАКОГО вируса доктор ВЕБ не находит и программа работает!!! // Налицо ЛОЖНОЕ срабатывание Доктора Веба!! // Исправьте пожалуйста!!! Надо что бы на HTTP:// доктор веб не срабатывал ложно! // Неделю назад все работало нормально!!! // Вот что пишет Веб при работе //"Object";"Threat";"Action";"Path"; //"mult.exe[0]";"DPD:Trojan.DownLoader.origin For i:=SpinEdit1.Value to SpinEdit2.Value do begin //StatusBar1.SimpleText:='Download files : '+ss1+IntToStr(i)+' to '+ss+'mult_'+IntToStr(i)+'.num'; GetInetFile(ss1+IntToStr(i),ss+'mult_'+IntToStr(i)+'.num'); Application.ProcessMessages; end; finally Button2.Enabled:=True; end; end;
Сообщение было изменено Konstantin Yudin: 21 Май 2015 - 17:47