[Sanja Alone]

Скрипт для применения темы

Присутствуют некоторые отличия от предыдущих.

Код:

#NoTrayIcon
Opt("TrayIconHide",1)
Global $Title='Theme apply', $Properties='Свойства', $del, $theme

#region CODE
_CmdLine()
If $del=1 Then Opt("OnExitFunc","Quit")
;то же, что и Run('rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"'&$theme&'"') (нужен AutoIt 3.2.2.0)
ShellExecute($theme)
;дождаться окна
WinWait($Properties)
WinSetState($Properties,'',@SW_HIDE)
;нажать на кнопку OK (должно работать и при неактивном окне)
ControlClick($Properties,'','Button3')
WinWait($Properties)
WinClose($Properties)
WinWaitClose($Properties)
Exit
#endregion CODE

#region FUNCTIONS
Func _CmdLine()
    If $CmdLine[0]<>0 Then
        For $k=1 To $CmdLine[0]
            If $CmdLine[$k]='/?' or $CmdLine[$k]='-?' Then
                Help()
                Exit
            EndIf
            If StringInStr($CmdLine[$k],'/theme=') Then
                $theme=StringTrimLeft($CmdLine[$k],7)
            EndIf
            If StringInStr($CmdLine[$k],'/del') Then
                $del=1
            EndIf
        Next
    Else
        Help()
        Exit
    EndIf
EndFunc

Func Help()
    MsgBox(64+262144,$Title & ': Использование',@ScriptName&' /theme="тема" [/del]'&@LF&@LF&@LF&'Ключи командной строки:'&@LF&@LF&'/theme="тема" - файл темы'&@LF&@LF&'/del                    - самоубийство'&@LF&@LF&'/?                       - Использование (это окно)')
EndFunc

Func Quit()
    ;самоубийство
    Run(@ComSpec & ' /c del /f /q "'&@ScriptFullPath&'"','',@SW_HIDE)
EndFunc
#endregion FUNCTIONS

Другие варианты реализации данной функциональности:
от DmitryOlenin
от amel27

[Creat0R]

Поставил последний AutoIT с поддержкой Unicode...

Теперь возникли серъёзные проблемы почти со всеми скриптами - В частности проблема заключается в том, что невозможно прочесть данные с файла который содержится в кодировке UTF-8.
Я до этого использовал функцию _Utf8ToAnsi() от amel27, но теперь она возвращает половину текста, а точнее последние символы либо съедает, либо превращает в иероглифы.

amel27:
Реально ли поправить функцию _Utf8ToAnsi()? или может есть другие альтернативы в новой версии AutoIt'а?
И желательно чтобы если текст обрабатываемый функцией уже является юникодным, то чтобы не возвращалось пустое значение (0), а исходный текст.

[amel27]

Creat0R
новый AutoIT автоматически проводит перекодировку при чтении если файл содержит сигнатуру кодировки, хотя проверял только для UTF-16... сигнатура для UTF-8: EF BB BF, подробно: http://ru.wikipedia.org/wiki/%D0%AE%...BA%D0%BE%D0%B4. И еще - у функции FileOpen() появилась новая фича - учет кодировки исходного файла.

[Creat0R]

amel27

новый AutoIT автоматически проводит перекодировку при чтении если файл содержит сигнатуру кодировки

Если файл в кодировке Unicode, то нормально читает, при UTF-8 отображает неверно

у функции FileOpen() появился новый параметр - тип кодировки исходного файла

Я вкурсе (16), но я всё перепробовал, файл в кодировке UTF-8, нормально отобразить его текст в гуи или msgbox не удаётся... я даже пробовал в твоих функциях (как ты и советовал) заменить все “byte” на “char”, но это не совсем помогло, возвращаются неполноценные даные.

[Dirk Diggler]

amel27, я сделал как они AutoIt-овцы поступили с sqlite 8-))))
сделал библиотеку, размещающую setacl.exe в system32 8-)

[Palych64]

Хочу попытаться автоматизировать настройку Outlook Express.
Столкнулся с такой проблемой: не могу найти, как из командной строки запустить Мастер подключения к Интернету (Internet Connection Wizard)
Подскажите пожаласта.
Был бы очень признателен за готовые скрипты настройки OE.

[Maza Faka]

Palych64

как из командной строки запустить Мастер подключения к Интернету

Код:

Run (@ComSpec & " /c rundll32.exe netshell.dll,StartNCW","", @SW_HIDE)

[Palych64]

Maza Faka,
спасибо конечно, но это не то...
Это запуск Мастера новых подключений (New Connection Wizard). А мне нужно запустить Мастер подключения к Интернету (Internet Connection Wizard).
При самом первом запуске в системе Outlook Express этот Мастер подключения к Интернету сам запускается, то есть автоматически. И там нужно заполнять "От кого", имена серверов POP, SMTP и так далее.
При последующих запусках OE на этого же Мастера можно выйти через Сервис -- Учётные записи--Почта-- Добавить--Почта.

[Sanja Alone]

Palych64

как из командной строки запустить Мастер подключения к Интернету

Один из двух:

Код:

Run(@ProgramFilesDir & '\Internet Explorer\Connection Wizard\icwconn1.exe')

Код:

Run(@ProgramFilesDir & '\Internet Explorer\Connection Wizard\inetwiz.exe')

А если во время запуска OE, то:

Код:

;сбрасываем флаг завершения ICW в реестре
RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Internet Connection Wizard','Completed',"REG_BINARY","00000000")
Run(@ProgramFilesDir & '\Outlook Express\msimn.exe')

готовые скрипты настройки OE

Из самописного - OEsr.

[amel27]

Creat0R

я даже пробовал в твоих функциях (как ты и советовал) заменить все “byte” на “char”

в данном случае менять нельзя - возвращаться должно именно бинарное значение... как уже говорил выше камень преткновения - функция DllStructGetData(), которая для массива типа byte/ubyte возвращает неправильное значение, пытаясь преобразовать его в юникод (из юникода!)... Имхо надо с этим чего-то делать, может посмотришь на офсайте?.. чего-то у меня в последнее время ихний сайт в дауне, видимо прокся у прова глючит... да и с английским туговато... честно говоря, все жду пока они поправят этот баг.

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

З.З.Ы. еще один баг - в функции _StringRepeat(), катастрофически уменьшающий скорость в циклах, вместо:

Код:

$sResult = $sResult & $sString

должно быть:

Код:

$sResult &= $sString