HSPA Locker не опасная программа??

[beegl]

привет, подскажите, HSPA Locker - не опасная программа? (ссылка на описание и программу)

[WinCoder]

Сам напиши свой HSPA локер.

at^hspa=0 - wcdma
at^hspa=1 - hsdpa
at^hspa=2 - hspa
at^hspa=3 - hspa+

А глупых вопросов больше не задавай. ОК?

[Stilet]

А глупых вопросов больше не задавай.

Просто интересно чем же это вопрос глуп?

[WinCoder]

Stilet А мне интересно, почему Вы сами не ответили на него, если считаете иначе?

[Stilet]

почему Вы сами не ответили на него, если считаете иначе?

Может потому что я сам использую такие модемы?
Но это не важно. Что бы я не ответил, мой ответ бы не возвел вопрос в ранг "глупых" )

[beegl]

не знаю как добавить счётчик, сколько кб скачало при каждом скачивании одного и того же файла

взял из этого примера:

kachalka.zip

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, wininet, ExtCtrls;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn4: TBitBtn;
    Timer1: TTimer;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
  nado: boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var F: File;
    ResumePos,BufferLen,SumSize: DWORD;
    hSession, hURL: HInternet;
    Buffer: array[1..1024] of Byte;
    err: boolean;

begin
SumSize:=0; ResumePos:=0;   //Инициализируемся
AssignFile (F,'C:\Documents and Settings\icon_13.png');  //Свяжемся с файлом
IF FileExists ('C:\Documents and Settings\icon_13.png') then //Есть ли на диске этот файл
  begin
   Reset(f,1); //Ах, есть? Откроем!
   ResumePos:=FileSize(F); //Откуда докачать
   Seek(F, FileSize(F)); //А писать бум в конец
  end else ReWrite(f,1);  //А раз нет, так создадим

NADO:= TRUE; //Надо качать...
//Открыли сессию
hSession:= InternetOpen('X-Kachalka',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
//И наш УРЛ
hURL := InternetOpenURL(hSession,PChar('http://ruweb.mobimeet.com/imgs/i176/icon_13.png'),nil,0,0,0);
//Сколько там наш файл весит?
InternetQueryDataAvailable(hURL, SumSize,0,0);
label4.Caption:= IntToStr (SumSize); //Сообщим об этом
if ResumePos>0 then //Если докачиваем,
 begin
 InternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся
end;

REPEAT //Качаем
 err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер
 IF err= false then //Ошибка чтения
  begin
  ShowMessage ('Произошел облом :('); //Сообщим и выходим
  exit;
  end;
 BlockWrite(f, Buffer, BufferLen); //Пишем в файл
 Application.Processmessages;
UNTIL (BufferLen= 0) Or (NADO= FALSE); //Качаем, пока не все или надо
ShowMessage ('Успешно загружено!');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
nado:= false;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
BitBtn1.Perform(WM_LBUTTONDOWN, 0, 0);
BitBtn1.Perform(WM_LBUTTONUP, 0, 0);
end;
end.

[WinCoder]

Сообщение от Stilet

Может потому что я сам использую такие модемы?

Я тоже использую. И на практике выяснил, что забивать канал пингом, не самое красивое решение для задачи удержания модема в режиме hspa+. Гораздо проще, и правильнее принудительно перевести модем в этот режим AT командами, указанными выше, и не сужать канал мусорным трафиком. Теперь по поводу глупости вопроса. Глуп он потому, что вредность программы нужно проверять антивирусами (как вариант, вирустотал), а не мнением программистов, которые проверяют программы теми же самыми антивирусами. Я ответил на Ваш вопрос?

не знаю как добавить счётчик, сколько кб скачало при каждом скачивании одного и того же файла

Если это попытка повторить функционал вышеуказанного софта, то придётся переделывать. Эффект достигается путём пинга сервера. Как делать пинг, ищи сам. Статей на эту тему полно.