[gregaz]

А вообще лучше использовать UDF ID3, там вроде нормально с кириллицей. »

Однако в UDF ID3.au3 нет функции записи тега , а CDDBControl.CddbID3Tag позволяет и запись !
Кстати своя запись кирилицы воспроизводится нормально
Пример :

Код:

#include <array.au3>
$patch="C:\Documents and Settings\All Users\Документы\Моя музыка\Образцы музыки"
$file =FileOpenDialog('',$patch, "(*.mp3)", 1  )

$oId3 = ObjCreate("CDDBControl.CddbID3Tag")
$oId3.LoadFromFile ($file, False)

$New3 = ObjCreate("CDDBControl.CddbID3Tag")
$New3.LoadFromFile ($file, False)
$New3.Title='Иван'
$New3.SaveToFile ($file)
MsgBox(0,'Композиция',$oId3.Title & @cr & $New3.Title)

И перекодировку можно выполнить , сравнивая два алфавита : кодированный и русский.
Только где хранить кодированный алфавит (àáâãäåæçèéêëìíîïðñòóôõö÷øùüûýþÿ) ???
В скрипте не получается.
Приходится создавать текстовый файл с кодированным алфавитом , затем читать его и , сравнивая , раскодировать
Это не есть удобно.
А где хранить ???.

[gvshil]

Вы не могли бы подсказать, как решить такую задачу:
Есть интернет подключение (ADSL, Стрим). Раз в сутки провайдер разрывает соединение.
Т.к. модем USB - подключаться заново приходиться вручную.
Как реаливать в AutoIt:
Постоянная проверка соcтояния подключения и при его отсутствии производить подключение.
Как подключить - на форуме нашел:

Код:

$ConnectionName="AccessRunner DSL"
Run(@SystemDir&"\rasphone.exe -f """&@AppDataCommonDir&"\Microsoft\Network\Connections\Pbk\rasphone.pbk"" -d """&$ConnectionName&"""")
WinWait ("Подключение к AccessRunner DSL", "По&льзователь")
WinActivate ("Подключение к AccessRunner DSL", "По&льзователь")
ControlClick ("Подключение к AccessRunner DSL", "По&льзователь", "Button4")

А вот с зацикленной проверкой не получается...

[semiono]

Creat0R, а если на основе этого скрипта примерчик?
Типа он для меня как образец, потому-что охватывает многое часто встречающееся,
а я только начинающий. Всмысле можно переделать только диалог, без всяки реестров, файлов итп.
всмысле мне надо, чтоб скрыть все окошки! Типа для тихой установки, чтоб GUI вообще запрятать!
Я вообще-то очарован автоитом и его возможностями, но времени не хватает проникнуться изучением,
хотя я хотел бы его знать от и до! Но щас хотяб один рабочий шаблон наладить, чтоб инсталлеры штамповать! Вообщем этот образец пойдёть, только надо окна убрать...
ЗЫ в chm мало, что понятно и примеры все не к тому что нужно... Я вот своим умом уже доганять стал что
[Class: ;Instanse: ] это то же самое что и слова на окнах, как бы можно и так и так лабать,
конечно же Класс выигрывает повсему! Только я чё-то в Alcohol окне сколько не вбивал класс который
сграбил AutiInfo.exe что -то не пошло... иль я по неопытности ошибок понаделал...

[Creat0R]

не правильно экспортируестся значение »

А откуда мне было знать что значение должно быть на китайском?

Можно заменить FileOpen($sRegFile, 2) на FileOpen($sRegFile, 128+2).

можно ли по шагово сделат Debugging? »

Можно, я уже ответил на этот вопрос, но вам придётся дать больше информации чтобы получить полноценный ответ

А где хранить ? »

В массиве?
Я только не понял суть перекодирвки...

если на основе этого скрипта примерчик? »

Не уверен что понял, на основе чего?

[gregaz]

Я только не понял суть перекодирвки... »

Примерно так :

Код:

$tagRus=Decodering($tag)
MsgBox(0, "", $tag & @cr & $tagRus)
;===================================
Func Decodering($str)
;===================================  
  $var = FileOpen(@ScriptDir & '\' & "Alphavit.txt", 0)
   If $var = -1 Then
      MsgBox(0, "Error", "Unable to open file.")
      Exit
   EndIf
 
   $line1 = FileReadLine($var);строка алф-та в виде : àáâãäåæçèéêëìíîïðñòóôõö÷øùüûýþÿ
   $line2 = FileReadLine($vaк);строка алф-та в виде : абвгдежзийклмнопрстуфхцчшщьыэюя
   FileClose($var)
   ;MsgBox(0, "Lines read:", $line1 & @cr & $line2)

   dim $AA
   For $i = 1 To StringLen($str)
      $M=StringMid($str, $i, 1); 
      $k = StringInStr($line1, $M);
      If $k=0 Then 
         $M2=$M ; 
      Else
         $M2=StringMid($line2, $k, 1); 
      EndIf
      If Asc($M)< 91 and Asc($M)>64 Then $M2 = Chr (Asc($M2)-32); Замена строчных букв на заглавные
      $AA&=$M2
   Next
   Return $AA
EndFunc ; ===> Decodering

Текстовый файл Alphavit.txt содержит 2 строки :
àáâãäåæçèéêëìíîïðñòóôõö÷øùüûýþÿ
абвгдежзийклмнопрстуфхцчшщьыэюя

Вопрос : Куда заложить эту строку àáâãäåæçèéêëìíîïðñòóôõö÷øùüûýþÿ на постоянное хранение ?
(вместо файла Alphavit.txt ) . чтобы обойтись без него

[Medic84]

А откуда мне было знать что значение должно быть на китайском? Можно заменить FileOpen($sRegFile, 2) на FileOpen($sRegFile, 128+2). »

Почему на китайском??? НА английском... Все равно не работает...

Код:

"codkey"="8TEDYQQEW4QEMYQG****"

Это выглядит так.... (**** последние 4 цифры и буквы)
И я так и не понял про прогресс бар можно его вставить??

[semiono]

На основе этого >

Вобщем вот: Поправленная версия »

Вот изначальный пост http://forum.oszone.ru/post-905321-923.html

я знаю сумбурно написал... просто там задача была в инсталяторе понажимать кнопки, ввести путь
установки - всё это довольно часто одинакого происходит, больше мне пока ничего не надо.
А тот скрипт, что "Поправленная версия" примерно хорошее начало, только еслиб там скрыть окна.
Мне тут уже подсказывали, но я одно с другим не смог связать самостоятельно.
Лучше уж на этом готовом и работающем скрипте, пожалуста! Надо чтоб окон не было видно! Никаких

[SyDr]

gvshil, а опция перезвонить при разрыве связи не помогает? (В свойствах подключения убери галку Запрашивать имя, пароль и т.д.)

Посмотри ещё в Свойствах обозревателя, вкладку Подключения.


Или чётко напиши, что нужно.

[Creat0R]

Примерно так : »

Не работает так у меня, сделай полный рабочий пример, а где хранить это не проблема, в переменной - Просто сам скрипт перекодировать в UTF-8 (в SciTE есть такая возможность), чтобы сохранилась кодировка.

Почему на китайском??? НА английском »

Просто то что я вижу, это похоже на китайский, как могло до такого дойти не пойму.
Только что проверил, нормально экспортируется.

можно его вставить? »

Для копирования папки? можно, но это займёт больше времени (сам процесс копирования), можно просто вывести прогресс для наглядности, чтобы юзер думал что процесс идёт

только еслиб там скрыть окна »

На скрытых окнах может и не сработать, но можно попробовать:

Код:

WinSetState($Title, "", @SW_HIDE)

[gregaz]

Не работает так у меня, сделай полный рабочий пример, а где хранить это не проблема, в переменной - Просто сам скрипт перекодировать в UTF-8 (в SciTE есть такая возможность), чтобы сохранилась кодировка »

Вот полный рабочий пример :

Код:

#include <array.au3>
$patch="C:\Documents and Settings\All Users\Документы\Моя музыка\Образцы музыки"
$file =FileOpenDialog('',$patch, "(*.mp3)", 1  )

$oId3 = ObjCreate("CDDBControl.CddbID3Tag")
$oId3.LoadFromFile ($file, False)
$tag=$oId3.Title
$tagRus=Decodering($oId3.Title); ===>
MsgBox(0, "", $tag & @cr & $tagRus)

$oId3.Title='Новый тег'
$oId3.SaveToFile ($file)

;===================================
Func Decodering($str)
;===================================  
	$var = FileOpen(@ScriptDir & '\' & "Alphavit.txt", 0)
	If $var = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Exit
	EndIf
 
	$line1 = FileReadLine($var);строка алф-та в виде : àáâãäåæçèéêëìíîïðñòóôõö÷øùüûýþÿ
	$line2 = FileReadLine($var);строка алф-та в виде : абвгдежзийклмнопрстуфхцчшщьыэюя
	FileClose($var)
	;MsgBox(0, "Lines read:", $line1 & @cr & $line2)

	dim $AA
	For $i = 1 To StringLen($str)
		$M=StringMid($str, $i, 1); 
		$k = StringInStr($line1, $M);
		If $k=0 Then 
			$M2=$M ; 
		Else
			$M2=StringMid($line2, $k, 1); 
		EndIf
		If Asc($M)< 91 and Asc($M)>64 Then $M2 = Chr (Asc($M2)-32); Замена строчных букв на заглавные
		$AA&=$M2
	Next
	Return $AA
EndFunc ; ===> Decodering

Текстовый файл Alphavit.txt содержит 2 строки :
àáâãäåæçèéêëìíîïðñòóôõö÷øùüûýþÿ
абвгдежзийклмнопрстуфхцчшщьыэюя

Однако если выполнить перекодировку в UTF-8 в SciTE , тогда уже текст русского алфавита воспринимается неверно ???