Well, I sent to Avast support the information about this problem and other 2:
2nd problem:
I am a Delphi/C computer programmer. One of my programs is this one:
http://reboot.pro/files/file/339-virtual-machine-usb-boot/As in many other apps, the user has the option to go to the app's website. But Avast is not letting my app to open the default browser.
Code:
procedure TfrmMain.OpenInternetHelp(const OwnerWindowHandle: THandle; const SiteHelp: array of WideString);
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
i, dwConnectionTypes: Integer;
isConnected: Boolean;
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead: dWord;
begin
try
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@dwConnectionTypes, 0) then
isConnected := True
else
isConnected := False;
except
isConnected := False;
end;
if not isConnected then
begin
msgBoxCaption := GetLangTextDef(idxMessagesType, ['Warning'], 'Warning');
PostMessage(OwnerWindowHandle, WM_USER + 1024, 0, 0);
MessageBoxW(OwnerWindowHandle,
PWideChar(GetLangTextDef(idxMain, ['Messages', 'NoInternet'], 'No internet connection detected !')),
PWideChar(msgBoxCaption),
MB_OK or MB_ICONWARNING);
end
else
begin
for i := Low(SiteHelp) to High(SiteHelp) do
begin
NetHandle := InternetOpen(PAnsiChar(Application.Title), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if not Assigned(NetHandle) then
Continue;
try
UrlHandle := InternetOpenUrlW(NetHandle, PWideChar(SiteHelp
), nil, 0, INTERNET_FLAG_RELOAD, 0);
if not Assigned(UrlHandle) then
Continue;
try
try
InternetReadFile(UrlHandle, @Buffer, 1024, BytesRead);
if BytesRead <> 1024 then //if the default browser is not already opened Avast will "cut" this to 1018 B
Continue;
except
Continue;
end;
finally
InternetCloseHandle(UrlHandle);
end;
finally
InternetCloseHandle(NetHandle);
end;
if ShellExecuteW(OwnerWindowHandle, 'open', PWideChar(SiteHelp), nil, nil, SW_SHOW) > 32 then
Exit;
end;
msgBoxCaption := GetLangTextDef(idxMessagesType, ['Warning'], 'Warning');
PostMessage(OwnerWindowHandle, WM_USER + 1024, 0, 0);
MessageBoxW(OwnerWindowHandle,
PWideChar(GetLangTextDef(idxMain, ['Messages', 'NoHelp'], 'Help site not found or error opening browser !')),
PWideChar(msgBoxCaption),
MB_OK or MB_ICONWARNING); //this is the message the user gets
end;
end;
3rd problem: There is one site which other 61 antiviruses say it's not infected: https://www.virustotal.com/ro/url/79a59ad288c107412a02bc60dc47203147259cb9d18745ef398513b37aaa5e8b/analysis/1420773290/
Avast says it's infected with JS:ScriptIP-Inf [Trj]. But it's a false positive.
For all 3 problems, if I deactivate Avast's shield, are solved.
With other antiviruses like Avira or ESS I don't have them.
Also, just a few min ago, I tried to rebuild my app's setup with Inno Setup Compiler but each time Avast is not letting Inno to create the setup exe file.
As usual, like with Opera or my app opening it's website, it's not giving any message. But when the shield is deactivated, all is ok.
Hopefully the Avast programmers team will solve these problems in the near future.
But, speaking from my 20+ years internet experience, I think it will not happen very soon.
So, I guess it's time to test another antivirus for my computer...
Regards,
David
