Добро пожаловать к нам в гости! Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
да это все виртуальные устройства, не физические. но если приспичило, то откройте библиотеку функций F11, выберите пункт New (Новая)->VBScript и запишите в редактор это:
Code
On Error Resume Next
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem in colItems If Not IsNull(objItem.MACAddress) Then x = x + 1 nbSetVar "[net_Descr"&x&"]", objItem.Description nbSetVar "[net_MAC"&x&"]", objItem.MACAddress End If Next
сохраните и вызывайте через Call "имя_файла"
обработку ошибок не забудьте сделать в проекте, если значение не получено Как задавать вопросы
вы немного не поняли. в ответ возвращаются массивы переменных. StrIns - тут вообще ни при чем. он вставляет строку в строку.
массив - это множество переменных с числовыми индексами, типа [Array1], [Array2], [Array3]... это массив [Array]. Вместо индекса можно вставить переменную - [Array[n]]
Call "NetInfo" .получаем число элементов одного из массивов GetArrayInfo "[net_Descr]" "" "" "[n]" .обрабатываем массив в цикле, перебор всех элементов Loop "1" "[n]" "[z]" .добавляем в список ListBoxAddItem "ListBox1" "[z]" "[net_Descr[z]]" ListBoxAddItem "ListBox2" "[z]" "[net_MAC[z]]" .присоединяем к переменной поля ввода Setvar "[Descr]" "[Descr][net_Descr[z]][#10]" Setvar "[MAC]" "[MAC][[b]net_MAC[/b][z]][#10]" EndLoop
Спасибо! Дальше сделаю внедрение в проект. А кстати - возможно ли и дескрипт и мак-значения получать в одной переменной? чтоб - все и сразу в одну шли.
можно, сформируйте новую переменную и запишите все как вам угодно, например SetVar "[Info]" "[net_Descr[z]][net_MAC[z]]" далее работайте именно с ней. можете разделитель вставить еще, например... Как задавать вопросы
так вы используйте эту переменную где нибудь - вставляйте в список, добавляйте к другой... зачем-то же она нужна вам. ... SetVar "[Info]" "[net_Descr[z]]:[net_MAC[z]]" ListBoxAddItem "ListBox1" "[z]" "[Info]" ...
Quote (crossius)
выходит 1 адрес и 1 дескиптер
при каждом обороте цикла она перезаписывается и в конце остается последняя запись. Как задавать вопросы
Ею пользоваться надо. Задумал что то, открыл, и пошел по командам прочитывать что какая умеет. В памяти постепенно все отложиться и решение найдется которое кажется не решаемым. И каждый раз что то новое будешь находить по мере пройденного. Не поверишь, мы все пользуемся справкой. Даже что бы какой то ответ дать, приходится лезть в справку, и оттуда копировать что бы не тыкать по клаве. А оно это надо? Если вы сами можете прочитать, и это только на пользу пойдет. Другое дело когда все прочитал, и в тупике. Понять можно. Были такие, вопрос зададут, а сами профиль правят, фильм смотрят, ждут когда за них все напишут. Кто на форуме сидит, каждый чем то занят. И отвечать на интересные вопросы интересно, а не на такие "дайте ссылку на плагин". Щас... Все брошу и буду по всему интернету ссылку искать. Не хочешь читать хелп?
