Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Webbrowser без звука / 16 сообщений из 16, страница 1 из 1
05.07.2009, 10:49
    #36073712
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Всем доброго бремени суток!=)
Есть вопросик. Как убрать в Webbrowser controle характерный звук клика(щелчёк) при переходе?
Заранее благодарен=)
...
Рейтинг: 0 / 0
05.07.2009, 11:47
    #36073728
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Панель управления - Звуки и аудиоустройства - Звуки - Проводник - Начать обзор.
...
Рейтинг: 0 / 0
05.07.2009, 14:14
    #36073792
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Antonariy,

так и любой ламо может=)
Ну а серьёзно. Именно для этого веббраузера. =)
...
Рейтинг: 0 / 0
05.07.2009, 22:35
    #36074134
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Никак.
...
Рейтинг: 0 / 0
06.07.2009, 10:07
    #36074421
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Antonariy,

ненадо. всё возможно, если хорошенько подумать
...
Рейтинг: 0 / 0
06.07.2009, 10:11
    #36074426
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Вот и подумай.
...
Рейтинг: 0 / 0
15.07.2009, 10:31
    #36090477
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
вот и подумаю
...
Рейтинг: 0 / 0
15.07.2009, 10:48
    #36090539
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Начни свои размышления с того, что это настройка не веббраузера, а шелла, браузер ей просто пользуется с тех времен, когда был частью шелла.
...
Рейтинг: 0 / 0
17.07.2009, 10:39
    #36094973
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
однако я видел компонент на Delphi где есть все решения, но я сижу на VB и по этому аблом. может кто знает, где такой активис взять в котором можно было устанавливать свойства тип использовать звуки?
Вот компонент для дельфи
...
Рейтинг: 0 / 0
17.07.2009, 12:44
    #36095380
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Решение все-таки есть и оно все время было у тебя под носом.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 procedure  TEmbeddedWB.DisableNavSound(bDisable: Boolean);
 var 
  i, Code: Integer;
 begin 
  Val(GetIEVersionMajor, I, Code);
   if  Code =  0   then 
   begin 
     if  I >=  7   then 
     begin 
      CoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, FEATURE_FROM_PROCESS, bDisable);      Exit;
     end ;
   end ;
  EwbTools.DisableNavSound(bDisable);
 end ;

Код: plaintext
1.
2.
Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" ( _
    ByVal FeatureEntry As INTERNETFEATURELIST, ByVal dwFlags As Long, _
    ByVal fEnable As Long) As Long

Jah loves you.
...
Рейтинг: 0 / 0
17.07.2009, 15:11
    #36095866
Mr.Power
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Antonariy,
спасибо вот тока константа FEATURE_FROM_PROCESS чему равна?=)
...
Рейтинг: 0 / 0
17.07.2009, 15:21
    #36095894
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
typedef enum _tagINTERNETFEATURELIST {
    FEATURE_OBJECT_CACHING =  0 ,
    FEATURE_ZONE_ELEVATION =  1 ,
    FEATURE_MIME_HANDLING =  2 ,
    FEATURE_MIME_SNIFFING =  3 ,
    FEATURE_WINDOW_RESTRICTIONS =  4 ,
    FEATURE_WEBOC_POPUPMANAGEMENT =  5 ,
    FEATURE_BEHAVIORS =  6 ,
    FEATURE_DISABLE_MK_PROTOCOL =  7 ,
    FEATURE_LOCALMACHINE_LOCKDOWN =  8 ,
    FEATURE_SECURITYBAND =  9 ,
    FEATURE_RESTRICT_ACTIVEXINSTALL =  10 ,
    FEATURE_VALIDATE_NAVIGATE_URL =  11 ,
    FEATURE_RESTRICT_FILEDOWNLOAD =  12 ,
    FEATURE_ADDON_MANAGEMENT =  13 ,
    FEATURE_PROTOCOL_LOCKDOWN =  14 ,
    FEATURE_HTTP_USERNAME_PASSWORD_DISABLE =  15 ,
    FEATURE_SAFE_BINDTOOBJECT =  16 ,
    FEATURE_UNC_SAVEDFILECHECK =  17 ,
    FEATURE_GET_URL_DOM_FILEPATH_UNENCODED =  18 ,
    FEATURE_TABBED_BROWSING =  19 ,
    FEATURE_SSLUX =  20 ,
    FEATURE_DISABLE_NAVIGATION_SOUNDS =  21 ,
    FEATURE_DISABLE_LEGACY_COMPRESSION =  22 ,
    FEATURE_FORCE_ADDR_AND_STATUS =  23 ,
    FEATURE_XMLHTTP =  24 ,
    FEATURE_DISABLE_TELNET_PROTOCOL =  25 ,
    FEATURE_FEEDS =  26 ,
    FEATURE_BLOCK_INPUT_PROMPTS =  27 ,
    FEATURE_ENTRY_COUNT =  28 
} INTERNETFEATURELIST;
...
Рейтинг: 0 / 0
17.07.2009, 15:21
    #36095897
Mr.Power
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
нашёл FEATURE_FROM_PROCESS=&O2

спасибо Antonariy, в очередной раз помог!=)
...
Рейтинг: 0 / 0
17.07.2009, 15:23
    #36095905
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
...
Рейтинг: 0 / 0
18.07.2009, 15:21
    #36096877
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
слушай а как там можна отключить загрузку изображений?
я там нахожу свойство downloadimages а функции не нахожу.
...
Рейтинг: 0 / 0
18.07.2009, 16:10
    #36096917
аплоадер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Webbrowser без звука
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
procedure TCustomEmbeddedWB.SetDownloadOptions(const Value: TDownloadControlOptions);
begin
  FDownloadControlOptions := Value;
  UpdateDownloadControlValues;
  with (Application as IOleControl) do
  begin
    OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
    _Release;
  end;
end;




procedure TCustomEmbeddedWB.UpdateDownloadControlValues;
const
  acardDownloadControlValues: array[TDownloadControlOption] of Cardinal =
  ($ 00000010 , $ 00000020 , $ 00000040 , $ 00000080 ,
    $ 00000100 , $ 00000200 , $ 00000400 , $ 00000800 ,
    $ 00001000 , $ 00002000 , $ 00004000 , $ 00008000 ,
    $ 00010000 , $ 00020000 , $ 00040000 , $ 10000000 ,
    $ 20000000 , $ 40000000 , $ 80000000 );
var
  dco: TDownloadControlOption;
begin
  FDownloadOptionValue :=  0 ;
  if (FDownloadControlOptions <> []) then
    for dco := Low(TDownloadControlOption) to High(TDownloadControlOption) do
      if (dco in FDownloadControlOptions) then
        Inc(FDownloadOptionValue, acardDownloadControlValues[dco]);
end;





вот коечто нарыл, но не пойму чё к чему и куда =)

?????
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Webbrowser без звука / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]