Мир Автомобильных навигаторов

Мир Автомобильных навигаторов (http://4pna.com/index.php)
-   Альтернативное меню (http://4pna.com/forumdisplay.php?f=39)
-   -   К знатокам MortScript (http://4pna.com/showthread.php?t=4547)

avp1 14.04.2010 13:44

К знатокам MortScript
 
Вложений: 1
Уважаемые Гуру!

Какой примочкой можно конвертнуть reg-файл вида:

Цитата:

REGEDIT4

[HKEY_CLASSES_ROOT\MortScript]
@="MortScript"

[HKEY_CLASSES_ROOT\MortScript\Shell]

[HKEY_CLASSES_ROOT\MortScript\Shell\Open]

[HKEY_CLASSES_ROOT\MortScript\Shell\Open\Command]
@="\"\\MyFlashDisk\\-Utils\\MortScript\\MortScript.exe\" \"%1\""

[HKEY_CLASSES_ROOT\MortScript\DefaultIcon]
@="\\MyFlashDisk\\-Utils\\MortScript\\MortScript.exe,-130"
в mscr-файл вида (это для примера):

Цитата:

RegWriteDWord("HKLM","nls","DefaultOCP",866)
RegWriteDWord("HKLM","nls","DefaultACP",1251)
RegWriteDWord("HKLM","nls","DefaultLCID",1049)
Помогите! У меня :dostali:

Спасибо!

torro 14.04.2010 13:56

avp1,
ты хоть сам понял, что спросил?
В первом примере у тебя есть запись реестра, во втором кусочек программы на языке мортскрипта.
Это похоже на пример можно ли текст с английского языка перевести на картину.
Если тебе надо сделать запись в реестре, то на языке мортсккрипта можно написать программу, которая это выполнит. Но для этого сначала разберись что, куда и зачем тебе надо.

avp1 14.04.2010 14:11

Цитата:

Сообщение от torro (Сообщение 62112)
avp1,
ты хоть сам понял, что спросил?
...
Но для этого сначала разберись что, куда и зачем тебе надо.

Что, непонятно сформулировал?
Попробую иначе...
Имею "кусок" реестра, который меня вполне устраивает. После Хард-ресета навигатора его (кусок реестра нужного мне) смывает в сортир.
Хочу восстанавливать этот кусок из MobileNavigator.mscr при старте альтернативного меню.
Различия синтаксиса очевидны? Хочу без гимора конвертить из первого второе.

Капитошка 14.04.2010 14:21

Цитата:

Сообщение от avp1 (Сообщение 62116)
Что, непонятно сформулировал?
Попробую иначе...
Имею "кусок" реестра, который меня вполне устраивает. После Хард-ресета навигатора его (кусок реестра нужного мне) смывает в сортир.
Хочу восстанавливать этот кусок из MobileNavigator.mscr при старте альтернативного меню.
Различия синтаксиса очевидны? Хочу без гимора конвертить из первого второе.

экспортруй нужные строки в файл, а потом записывай их обратно.
Синтаксис такой же как в скрипте запуска Навител:
Цитата:

folder = SystemPath("ScriptPath")
получение пути к папке с навителом
reg_file = "\temp\settings.reg"
путь к папке с настройками
reg_key = "Software\CNT"
название ветки реестра
XCopy ( folder \ "storage\settings.reg","\temp",True,True)
копируем файл с настройками с карточки в папку к которой прописан путь во 2 строке
XCopy ( folder \ "storage\GPS Tracks and Waypoints\*.*","\My Documents\GPS Tracks and Waypoints",True,True)
копируем с карточки данные треков и путевых точек и прочей роутинговой информации
RunWait ( folder \ "Params.exe", "-w -path:" & reg_file & " -reg:"&reg_key&" -read")
заносим в реестр настройки из фала
RunWait ( folder \ "Navitel.exe")
запускаем навител
RunWait ( folder \ "Params.exe", "-w -path:" & reg_file & " -reg:"&reg_key&" -write")
из реестра записываем в файл текущие настройки
XCopy ("\My Documents\GPS Tracks and Waypoints\*.*",folder \"storage\GPS Tracks and Waypoints",True,True)
копируем данные треков и путевых точек и прочей роутинговой информации обратно на карточку
XCopy (reg_file,folder \ "storage",True,True)
сохраняем на карточку в папку storage которая лежит в папке с навителом файл с настройками
PlaySound ( folder \ "ok.wav")
Издаем звук, означающий конец работы скрипта. Устройство можно выключать. Настройки сохранены

avp1 14.04.2010 15:09

Цитата:

Сообщение от Капитошка (Сообщение 62122)
экспортруй нужные строки в файл, а потом записывай их обратно.
Синтаксис такой же как в скрипте запуска Навител:

Спасибо, это мысль!

P.S.
Что за файл "Params.exe" упоминается в примере?

LinXP 14.04.2010 17:26

avp1, Не парься, всё давно уже написано

Код:

Drive = SystemPath("ScriptPath")

#Register the MortScript file association with the MortScript under
If (NOT (RegKeyExists ("HKCR", "MortSscript")))
        RegWriteString ("HKCR","MortScript", "Default", "MortScript")
        RegWriteString ("HKCR","MortScript\DefaultIcon","Default", Drive \"MortScript.exe,-130")
        RegWriteString ("HKCR","MortScript\Shell\Open\Command","","""" & Drive \"MortScript.exe"" ""%1""")
        RegWriteString ("HKCR",".mortrun","Default","MortScript")
        RegWriteString ("HKCR", ".mscr", "Default", "MortScript" )
Endif


avp1 15.04.2010 08:06

Цитата:

Сообщение от LinXP (Сообщение 62160)
avp1, Не парься, всё давно уже написано

Огромное спасибо!:best: Больше не парюсь!:)

krest 12.09.2010 01:30

Прошу у знатоков помощи в написании скрипта для PNA.
Сам не осилю.
Для людей понимающих дело минутное,для меня недельное.
Проблема такая.
При запуске PNA надо....(есть опция на автозапуск только одного exe файла)
1-Копировать папку Application Data из \NANDFlash\Application Data в Application Data на PNA с заменой файлов и папок внутри.
2-Копировать(импортировать) часть реестра а именно HKLN из папки Reg \NANDFlash\Reg в реестр на PNA
3-Запускать exe(WolfNCU.exe) фаил из папки \StorageCard\Wolfplus FINALv4.1f\WolfNCU.exe
Буду рад за любую помощь :)

LinXP 12.09.2010 03:22

krest,

Код:

#1-Копировать папку Application Data из \NANDFlash\Application Data в Application Data на PNA с заменой файлов
# (и так для каждой папки)
XCopy ( "\NANDFlash\Application Data\*.*","\Application Data\",True,True)

#2-Копировать(импортировать) часть реестра а именно HKLN из папки Reg \NANDFlash\Reg в реестр на PNA (из файл settings.reg)
RunWait(tre.exe, "-s \NANDFlash\Reg\settings.reg")

#3-Запускать exe(WolfNCU.exe) фаил из папки \StorageCard\Wolfplus FINALv4.1f\WolfNCU.exe
Run("\StorageCard\Wolfplus FINALv4.1f\WolfNCU.exe")

гдето так, с реестром не уверен..

ЗЫ: а вообще зачем это?

krest 12.09.2010 09:05

Зверёк на mesada,не сохраняет изменения реестра и созданные папки в Appdata после перезагрузки.Спасибо за помощь.

krest 02.10.2010 22:08

Может кто подскажет.
Никак не могу победить написание скрипта для изменения региональных настроек.
Wince5 на китайском и поэтому запуск любой программы автоматом выдаёт китайский язык(интерфейс программ).Если меняю региональные настройки на английский,то и программы запускаются на английском.Настройки не запоминает.Только скрипт.
Получилось вот что
Вызов контрольной панели..
Вызов региональных настроек...
Прокрутка вниз(в данном случае на 8 раз)...
Нажатие ок....
Скрипт
folder = SystemPath("ScriptPath")
Run("\Windows\ctlpnl.exe", "\Windows\intll.cpl,0")
WaitFor("Regional and Language Settings",1000)
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendDown("Regional and Language Settings")
SendOK("Regional and Language Settings")

Проверял на эмуляторе Wince5 английской.Всё работает.
На эмуляторе с русской wince5 вообще ничего не происходит.
Запускаю на зверьке(wince5 на китайском)доходит только до окна региональных настроек и не прокручивает вниз.Не могу понять почему не прокручивает вниз(да и вверх тоже SendUp).Может из-за языка.То есть сам скрип писать на китайском что ли?

pppoe 07.01.2011 13:43

прошу помощи в написании скрипта. Написал уже кучу скриптов, и такие замуты на них делал..... но тут проблемка..... как удалить скриптом ветку реестра Software\cnt ?

RegDelete( "HKCU","Software/CNT","" )

выдаёт ошибку. помогите кто знает!!
ключи по отдельности знаю как удалять, но не буду же я удалять по сотне ключей!

LinXP 07.01.2011 21:13

pppoe,
RegDeleteKey("HKCU", "Software\CNT", TRUE, TRUE)

pppoe 07.01.2011 22:41

LinXP, респект тебе и уважуха, всё заработало!!! лови спасибку!!

Taurus59 05.03.2011 15:06

Подскажите возможно ли сделать только при вызове иконки навигации включение GPS приемника, а то при использовании остального меню работает GPS и сильно садит батарею?


Текущее время: 21:13. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot

Время генерации страницы 0.03586 секунды с 10 запросами