» Autoplay Media Studio

Подскажите как получить модель и производителя компа в параграф. Я тут подсмотрел в одной програмке, но она на жабе. А я в жабе нуль...

Выглядит так

Цитата:

<tr>
                    <td><script>l(system_comp)</script></td>
           <td><a href="#"><script>document.write(wpi('Manufacturer','Win32_ComputerSystem') + " " + wpi('Model','Win32_ComputerSystem'));</script></a></td>
    </tr>

я повторюсь
хочу сделать одну прогу которая будет брать значения из текстового файла и редактировать в Input
вот прога для примера и фаил который нужно будет редактировать http://rw4pir.ucoz.ru/GTAIVHandlingEditor.rar
в этой проге много не нужного я хочу сделать проще и можноли будет сделать это ?

нужно будет переключать строки в файле с помощью ComboBox1
я прикреплял фаил там чтото воде этого
ADMIRAL 1700.0 6.0 85 0.0 0.0 -0.2 0.0 5 0.17 1.0 150.0 0.22 0.65...
AIRTUG 1400.0 20.0 85 0.0 0.0 -0.2 0.0 5 0.10 1.0 140.0 0.4 0.50...
AMBULANCE 2500.0 6.0 80 0.0 0.0 -0.15 0.5 5 0.18 1.0 140.0 0.3 0.65...
BANSHEE 1500.0 8.0 85 0.0 0.1 -0.18 0.0 5 0.25 1.0 160.0 0.45 0.65 ...
BENSON 7500.0 5.0 80 0.0 0.0 -0.1 0.0 5 0.12 1.0 115.0 0.2 0.60...
BIFF 9000.0 4.0 80 0.0 0.0 -0.2 0.0 5 0.11 0.3 110.0 0.2 0.60...
в ComboBox1 нужно будет выбирать первый столбик с названиями
ADMIRAL
AIRTUG
AMBULANCE
BANSHEE
...... и так далее
далее идут значения разделёные пробелом их надо будет редактировать в Input1 Input2 и тп..
как это сделать????
как еще подробнее написать я незнаю я прикреплял фаил и прогу которая не сохраняет значения в фаил поэтому хочу сделать свою но незнаю как
вот архивчек http://rw4pir.ucoz.ru/GTAIVHandlingEditor.rar

Lexua
Ты VBS-скрипт кажется не полностью привел... По-крайне мере в таком виде он у меня он не работает.
Также классWin32_ComputerSystem не содержит вроде как значений Manufacturer и Model.
_______________________________
Немного пищи для размышлений..

Код: Script.SetLanguage(Script_VBScript);

--*** Наш vbs-скрипт
strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
result=""
For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
Exit For
Next
result=result & objOS.Caption & vbCrLf    'короткое описание версии операционной системы'
result=result & objOS.SerialNumber    'серийный номер' ]];    --> конец vbs-скрипта

Script.AddCode(strScript, Script_InternalCode);
strInfo = Script.GetResultAsString("result");    -- инфа из vbs-скрипта

function String.ToTable(str, delimiter)    -- функция перевода строки в таблицу
local result = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(result, line);
end    
return (table.getn(result) > 0) and result or nil
end


if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("", "Операционная система: "..tblInfo[1].."\r\nСерийный номер: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

RW4PIR

Цитата:

я повторюсь
хочу сделать одну прогу которая будет брать значения из текстового файла и редактировать в Input

Не видно что ты хоть что-то сам сделал..
Если не можешь написать сам, то жди благодати свыше (т.е. от нас )...
ЗЫ. Написал бы какие значения тебе необходимо редактировать..или все 36? для каждого Vehicle ID?!

RW4PIR Сделать то - можно. Вот только нужно справку почитать и знать, что ты хочешь получить. Прога, что ты выложил у меня вобще не запускается - пишет "ошибка инициализации" А вобще то изучи разделы справки Text, String, Table ну и циклы, в частности for Может и сам чего наваяешь Ведь на все нужно время.

Подскажите, пожалуйста, как сделать такую фишку, чтобы при открытии картинки при сценарии Dialog.SplashImage, при наведении на картинку мышкой появлялась всплывающая подсказка, например "Кликни сюда, чтобы закрыть изображение"?

Цитата:

Ты VBS-скрипт кажется не полностью привел... По-крайне мере в таком виде он у меня он не работает.

Ну не знаю, но программа написана на Java. Мини версию можно скачать здесь http://drp.su/download/DRPSu9Pro_mini.zip

Однако за инфу спасибо, попробую переварить

Djon1970
Стандартно нельзя...нестандартно вроде тоже

Lexua
Исправлено

Код: Script.SetLanguage(Script_VBScript);

--*** Наш vbs-скрипт
strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
result=""

For Each objOS In objService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Exit For
Next

result=result & objOS.Manufacturer & vbCrLf
result=result & objOS.Model ]]; --> конец vbs-скрипта

Script.AddCode(strScript, Script_InternalCode);
strInfo = Script.GetResultAsString("result"); -- инфа из vbs-скрипта

function String.ToTable(str, delimiter) -- функция перевода строки в таблицу
local result = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(result, line);
end
return (table.getn(result) > 0) and result or nil
end


if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("", "Manufacturer: "..tblInfo[1].."\r\nModel: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Zloy_Gelud
Товарищ скачал с торрента диск "Программы на флешке", меню вроде похоже, что сделано в AMS и там есть такая фишка.

Кому надо неро 9 для флешки качайте http://***/download/503613299291/ner9port--softaznet.ru.rar.html

Меня вопрос Neronk'a тоже интересует

Djon1970
Ну а если сделать с помощью "Dialog1"?

Neronkkk

Цитата:

вот как мне сделать такое же окно в AutoPlay тока чтоб и на XP норм было. Чтоб по бокам прозрачность была а в центре нет

Стандартными средствами AMS - этого не сделать. Возможно только с использованием соответствующего плагина, которого я пока не встречал.

Zloy_Gelud
я не знаю как сделай пожалуйста для примера напиши проект чтоб редактировать 2 строки в файле и первые два три значения дальше я сам постараюсь разобраться

tavria2 Я со скриптами VBS раньше не работал.
1. При попытке вставки кода в пустой проект ошибка

Цитата:

Line 12: unexpected symbol near `&'

2. Что я должен добавить в проект, чтобы это заработало. Код, который привел Zloy_Gelud вставляется без ошибок, но при запуске

Цитата:

On Show, Line 1: attempt to index global `Script' (a nil value)

Я так полагаю, что нет какого-то плагина, отвечающего за Script

Zloy_Gelud

Цитата:

Ну а если сделать с помощью "Dialog1"?

Я в скриптах нашел только "Dialog" и "DialogEx"

Djon1970

Цитата:

Я в скриптах нашел только "Dialog" и "DialogEx"

Ну да..делай с помощью DialogEx. Вроде элементарно..

---

RW4PIR
Подожди немного..делаю.

Lexua

Цитата:

При попытке вставки кода в пустой проект ошибка

Убери закоментированные строчки - они нарушают синтаксис VBScript, я оставил их для сравнения...
Скрипт исправил - удалил эти строчки, чтобы никто больше не наступал на эти грабли.

Цитата:

Я так полагаю, что нет какого-то плагина, отвечающего за Script

Да, нужен плагин AMSWScript - он есть в KindlyPluginPowerPack v3.2

Zloy_Gelud
Перекопал сегодня вечером весь DialogEx, если я правильно понял, то в скрипте должно быть что-то типа TooltipText.
Нашел только один пример, где он встречается, но ничего не получается, пробовал всяко.
DialogEx нужно применять отдельно или вкупе с Dialog?


Код: -- Initialize the properties table
tImageProperties = {};
tImageProperties.ImageFile = _SourceFolder .. "\\AutoPlay\\Images\\Create_Me.jpg";
tImageProperties.UseTransColor = false;
tImageProperties.Opacity = 75;
tImageProperties.HitTest = HITTEST_STANDARD;
tImageProperties.Enabled = true;
tImageProperties.Visible = true;
tImageProperties.X = 50;
tImageProperties.Y = 50;
tImageProperties.Width = 100;
tImageProperties.Height = 200;
tImageProperties.TooltipText = "I was created by an action!!";
tImageProperties.Cursor = CURSOR_MEDIA;
tImageProperties.HighlightSound = SND_STANDARD;
tImageProperties.ClickSound = SND_STANDARD;

-- Create the image object
DialogEx.CreateObject(OBJECT_IMAGE, "AC_Image_Object", tImageProperties);

RW4PIR
GTAIV Handling Editor (as AMS).apz (20.49 kB)

Добавлено:
Djon1970
Sample.apz (25.06 kB)

Цитата:

objOS.Manufacturer

Цитата:

objOS.Model

Когда я у себя такое тестировал - скрипт выдал:

Цитата:

System Manufacturer
System Name

Мне показалось это бредом, вот и не стал на форум постить. А оказалось правдой..

пишу авторан. и хочу сделать возможность по двойному клику открывать файл с помощью специальной проги,которая будет на диске. грубо говоря - это равно тому, что я сам запущу эту прогу с диска, а потом перетащу туда файл.

файл открывается из Tree-ветви, при помощи кода на On Double-Click:


Код:
local strSelectedNode = Tree.GetSelectedNode("Tree1");
if (strSelectedNode ~= "") then
    local strData = Tree.GetNode("Tree1", strSelectedNode).Data;
    if (strData ~= "") then
        File.Open("AutoPlay\\Docs\\"..strData, "AutoPlay\\Docs", SW_SHOWNORMAL);
    end
end

tavria2, спасибо, все как всегда работает.
Еще один вопросик, есть какие-то наработки по работе с подсказками(tooltip)? Помнится GOOSE когда-то приводил такой код по многострочным подсказкам, но он был очень громоздок и тормозил ужасно.

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

Цитата:

File.Run("AutoPlay\\Docs\\Data\\akelpad.exe", "C:\\Temp\\data.txt", "AutoPlay\\Docs\\Data", SW_SHOWNORMAL, true);

Существует ли возможность отправки e-mail прямо из окна проекта, заполнив необходимую форму?
Нашел только "File.OpenEmail", но он вызывает стандартную почтовую программу.

И существует ли подробное описание action'ов и методики их использования (желательно на русском) для "чайников", а то банального плеера из listbox'a сделать не могу

Zloy_Gelud
Ограмнейшее спасибо !!!
Всё сделал отлично, ещё раз огромнеишее спасибо !!!
Если не трудно можешь уделить пять минут, что в кнопочку написать чтоб не сохранить как, а просто сохранить тогда тебе ваще уважуха !!!

Zloy_Gelud
надо в глобальных ф-циях указать правильный путь к скрипту, там неправильный или я скачал не то?

столкнулся с такой проблемой:

Код: lan = System.GetLANInfo();
Paragraph.SetText("Адрес в локальной сети: "..lan.IP.."\nФизический адрес: "..lan.NIC);

будет ли работать если я размещю что то например в page2 и в Page3 а кнопки вставлю в меню и скопирую на каждую страницу ComboBox1