Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Наборы обновлений для Windows XP/2003/Windows 7 » Система - [addon] neticon - Отображение иконки подключения

Ответить
Настройки темы
Система - [addon] neticon - Отображение иконки подключения

Аватара для mike345

Старожил


Сообщения: 429
Благодарности: 48

Профиль | Отправить PM | Цитировать


Изменения
Автор: mike345
Дата: 19-08-2008
Описание: Добавлены зеркала
[addon] neticon - Отображение иконки подключения

Аддон включает отображение иконки сетевого подключения в системном трее.
Сделан на основе скрипта vbs. Скрипт не мой, если найдется автор - напишу в описании.
Скрипт отрабатывает из RunOnceEx.
Можно запускать на живой системе.

Сам скрипт neticon.vbs:

Код: Выделить весь код
' use "." for local computer 
sComputer = "." 
 
'Constants for WMI StdRegProv 
Const HKCR = &H80000000 
Const HKCU = &H80000001 
Const HKLM = &H80000002 
 
Const NetBase = "SYSTEM\CurrentControlSet\Control\Network\" 
 
On Error Resume Next 
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\default:StdRegProv") 
 
' Finding the right place in registry is not so easy 
' You must find the SettingID for the correct network adapter 
 
' Get adapter collection 
Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True") 
 
' Get all subkeys under NetBase in an array 
iRC = oReg.EnumKey(HKLM, NetBase, aRegKeys) 
 
' Поиск адаптера с именем подключения "Подключение по локальной сети" 
' или с именем "Подключение по локальной сети 2" 
If (Err.Number = 0) And (iRC = 0) Then 
   On Error Goto 0 
   bAdapterFound = False 
   For Each oAdapter In oAdapters 
     sSettingID = oAdapter.SettingID 
     ' Loop through all registry keys 
     For i = 0 To Ubound(aRegKeys) 
       sKeyName = NetBase & aRegKeys(i) & "\" & sSettingID & "\Connection" 
       oReg.GetStringValue HKLM, sKeyName, "Name", sValue 
       If sValue = "Подключение по локальной сети" or sValue = "Подключение по локальной сети 2" Then 
         '' bAdapterFound = True 
         ' WScript.Echo "Updating this setting id: " & sSettingID 
         ' WScript.Echo "Registry path: " & sKeyName 
         ' Now we can get to the network icon setting in registry 
         oReg.SetDWORDValue HKLM, sKeyName, "ShowIcon", 1 
         oReg.SetDWORDValue HKLM, sKeyName, "IpCheckingEnabled", 1
         '' Exit For 
       End If 
     Next 
     If bAdapterFound Then 
       Exit For 
     End If 
   Next 
 
   ' WScript.Echo "Finished, you must log off and on to see the change" 
 
Else 
   WScript.Echo "Error in WMI registry parsing!" 
End If


Скачать addon

Зеркала:
ifolder
rapidshare
Это сообщение посчитали полезным следующие участники:

Отправлено: 05:59, 03-08-2008

 

Аватара для Guman

Ветеран


Сообщения: 631
Благодарности: 58

Профиль | Отправить PM | Цитировать


аш стыдно .. две страницы .. просто в голову че то не влезло что в атаче может быть приклепленно

Отправлено: 23:34, 07-02-2012 | #21



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Так а что делает данный аддон:
то что самостоятельно можно указать в настройках сетевой карты - поставив галочку в - при подключении вывести значек в область уведомлений ? или что то другое ?

Отправлено: 23:50, 07-02-2012 | #22


Аватара для DenchikK

Старожил


Сообщения: 282
Благодарности: 40

Профиль | Отправить PM | Цитировать


Да то что на первой страничке приаттачен аддон - это было видно сразу.
Тотчас поставил, попробовал, работает.
Но после было 2 поста - о том, что в соответствии с оптимизациией и чем то ещё - аддон был перезалит. 2 раза.
Потому то я и спрашивал - ведь в эти 2 раза какие то внесены были ж изменения. Может нужные очень. А ссылки не пашут...

Отправлено: 02:09, 08-02-2012 | #23


Аватара для Mite

Пользователь


Сообщения: 134
Благодарности: 40

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: 7z neticon.7z
(44.3 Kb, 63 просмотров)

DenchikK, прикрепил аддон из шапки (относящийся к посту #12 от 06-08-2008):

Отправлено: 21:58, 30-08-2012 | #24


Новый участник


Сообщения: 37
Благодарности: 4

Профиль | Сайт | Отправить PM | Цитировать


Добрый день! Хочу опробовать аддон, ссылки не рабочие, перезалейте пожалуйста!

-------
Пакистан


Отправлено: 16:42, 08-08-2014 | #25


Аватара для Habetdin


Автор проектов


Сообщения: 3651
Благодарности: 1498

Профиль | Сайт | Отправить PM | Цитировать


Крайне_Аккуратный@vk, пост #8 - описание аддона, #9 - один вариант аддона (это были сообщения с первой страницы темы), второй вариант аддона - прямо над вашим постом (последняя страница темы). Неужели ни то, ни другое при отправке сообщения не было прочитано?

-------
Рекомендую: $25 на тест виртуального сервера (VPS) за регистрацию по ссылке


Отправлено: 17:38, 08-08-2014 | #26



Компьютерный форум OSzone.net » Автоматическая установка Windows » Наборы обновлений для Windows XP/2003/Windows 7 » Система - [addon] neticon - Отображение иконки подключения

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Утилиты - [addon] Aml Maple (отображение текущей раскладки клавиатуры в курсоре мыши) Drinko Наборы обновлений для Windows XP/2003/Windows 7 158 22-05-2016 03:25
Исчезли иконки на ярлыках подключения к интернету Fafnir2007 Microsoft Windows Vista 6 26-07-2009 22:58
Интерфейс - Неправильное отображение иконки файла при перемещении kopylovsergey Microsoft Windows 2000/XP 3 19-08-2008 11:24
[решено] Не видны подключения по локальной сети в папке "Сетевые подключения" Skoba Microsoft Windows NT/2000/2003 12 08-10-2007 09:06
Отображение иконки пользователя в меню Пуск Guest Хочу все знать 1 20-11-2003 01:40




 
Переход