hobDrive Support

Дело в иероглифах, так как скрипт проверяет название окна "Unidentified USB Device". Если в названии окна иероглифы, то скрипт не сработает.
Вообще данный скрипт неудобный. К чему эти нажимания? Надо писать другой скрипт, импортирующий данные в реестр при загрузке магнитолы.

А с этого момента можно поподробней плиз!

Убрал в скрипте слова"Unidentified.... Device" получилось
Title = "USB"
DriverPath = "\ResidentFlash\usbseralg.dll
#DriverPath = "\NandFlash\ftdi_ser.dll"

While ( TRUE )

If ( WndExists(Title) )

SendKeys(Title, DriverPath)
SendOK(Title)
Exit

EndIf

Sleep(1000)

EndWhile
скрипт запускается, прописывается путь драйвера, но окно не исчезает, если второй раз нажимаю кнопку "навигация", то все исполняется, драйвер прописывается, окно уходит при запуске Hobdrive происходит соединение и все работает. Как сделать так, что бы прошел повтор скрипта?

Видимо, нужно ставить задержку.
Попробуй так:

Title = "USB"
DriverPath = "\ResidentFlash\usbseralg.dll
While ( TRUE )
If ( WndExists(Title) )
SendKeys(Title, DriverPath)
Sleep(1000)
SendOK(Title)
Exit
EndIf
Sleep(1000)
EndWhile

Если не пройдет, попробуй увеличить задержку до 2-3 секунд.

Sergey.Bikov71380 писал(а):А с этого момента можно поподробней плиз!

Нужно с помощью программы RegEdit для winCE, после установки драйвера, сделать экспорт ветки реестра, куда прописался драйвер. У меня нету проводного ELM, поэтому не подскажу в какую ветку он прописывается. Нужно спросить на форуме, либо найти самостоятельно.
После экспорта, созданный файл переименовать, например, в USB_driver.reg, положить его в папку с программой и поставить в автозагрузку такой скрипт:

reg_key = "Software\USBDrv" - ветка реестра (будет другое название)
reg_file = folder\"USB_driver.reg"
Runwait ( folder\"taskmgr.exe", reg_file & " /silent")

Здесь импорт реестра идет через программу taskmgr, если она не работает, то можно попробовать через программу Params:

reg_key = "Software\USBDrv" - ветка реестра (будет другое название)
reg_file = folder \ "storage\USB_driver.reg"
RunWait ( folder \ "Params.exe", "-w ""-path:" & reg_file & """ -reg:"&reg_key&" -read")

Изменил скрипт написав следующим образом
Title = "USB"
DriverPath = "\ResidentFlash\usbseralg.dll
While ( TRUE )
If ( WndExists(Title) )
SendKeys(Title,DriverPath)
SendOK(Title)
SendKeys(Title, DriverPath)
SendOK(Title)
Exit
EndIf
Sleep(1000)
EndWhileм
Стал запускаться, но если запускать черезAutoRunHobdrive , то не запускается. Если запустить через тотал командер, AutoRunHobdrive , то все запускается.

Вот скрипт полностью:
AutoRunHodbrive
aedpath = "\sdmmc\AutoEnterDriver.exe"

hdpath = "\sdmmc\hobdrive\hobdrive.exe"

#navipath = "\sdmmc\navi.exe"

### Optional
# Copy("\ResidentFlash\usbseralg.dll", "\Windows\")

Run(aedpath)

Run(hdpath)

#Run(navipath)

Title = "USB"
DriverPath = "\ResidentFlash\usbseralg.dll
#DriverPath = "\NandFlash\ftdi_ser.dll"

While ( TRUE )

If ( WndExists(Title) )

SendKeys(Title, DriverPath)
SendOK(Title)
Exit

EndIf

Sleep(1000)

EndWhile
Не могу понять почему не работает при автозапуске

Cail помогите по настройке скрипта дравер прописывается, а хобдрайв не запускается. Может быть причиной расположение хобдрайва на карте sdmmc, т.к. не хватает места на ResidentFlash? Может есть какойнибудь другой скрипт? Для магнитол с несохраняемым реестром?

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

Да Ваша программа работает хорошо. Попробую описать работу скрипта: елм подсоединен сразу,при включении гу появляется окно с запросом драйвера, прописывается путь \ResidentFlash\usbseralg.dll, если в этот момент нажать "ок",то запускается hobdrive, соединение с авто начинает работать. В дальнейшем, что бы перейти в оболочку ГУ приходится нажать кнопку "Navi" , но в дальнейшем вернуться в ходрайв уже не возможно, при нажатии кнопки как я понимаю скрипт запускается снова и зависает.

ayn писал(а): как я понимаю скрипт запускается снова и зависает.

Если причина в повторном запуске скрипта, то добавь в самое начало скрипта:
1. Для полной версии

Код: Выделить всё

If(WndExists("hobDrive"))
   Show("hobDrive")
   Exit
EndIf

2. Для демо

Код: Выделить всё

If(WndExists("/hobd"))
   Show("/hobd")
   Exit
EndIf

Спасибо за помощь Captain SHOK , но что то я уже путаться начинаю, если можно покажите по наглядней

AutoRunHodbrive
aedpath = "\sdmmc\AutoEnterDriver.exe"

hdpath = "\sdmmc\hobdrive\hobdrive.exe"

#navipath = "\sdmmc\navi.exe"

### Optional
# Copy("\ResidentFlash\usbseralg.dll", "\Windows\")

Run(aedpath)

Run(hdpath)

#Run(navipath)

ayn писал(а):Спасибо за помощь Captain SHOK , но что то я уже путаться начинаю, если можно покажите по наглядней

Как-то так должно быть. Универсально и для демо и для полной версии:

Код: Выделить всё

If(WndExists("hobDrive"))
   Show("hobDrive")
   Exit
ElseIf(WndExists("/hobd"))
   Show("/hobd")
   Exit
EndIf
AutoRunHodbrive
aedpath = "\sdmmc\AutoEnterDriver.exe"
hdpath = "\sdmmc\hobdrive\hobdrive.exe"
Run(aedpath)
Run(hdpath)

Строки, где спереди стоит знак # не нужны, т.к. все равно не выполняются в вашем случае.

Пробывал исправленый скрипт при запуске пишет: If without Endif

Вы этот скрипт отдельно запускаете или встраиваете в другой? Такая ошибка возникает, если не баланс If и EndIf.
Можно так попробовать:

Код: Выделить всё

If(WndExists("hobDrive"))
   Show("hobDrive")
   Exit
EndIf
If(WndExists("/hobd"))
   Show("/hobd")
   Exit
EndIf
AutoRunHodbrive
aedpath = "\sdmmc\AutoEnterDriver.exe"
hdpath = "\sdmmc\hobdrive\hobdrive.exe"
Run(aedpath)
Run(hdpath)

If(WndExists("/hobd")), наклон палки / перед hobd правильный? Вопрос по встраиваню скрипта не понял, добавляю в FAR к своему.

Что за FAR?

Программа FAR Manager наследует двухоконную идеологию, стандартную расцветку и систему команд (управление с клавиатуры) у известного файлового менеджера Norton Commander.

А разве под wince есть far manager? Может total commander?
С исправленным скриптом тоже ошибка выскакивает?

ayn писал(а):добавляю в FAR к своему.

Вот тут не понял. К чему добавляете? К своему скрипту? Если да, то каким образом?