[Архив

Creat0R · Конфигурация компьютера

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

При проверке на существование файла, если проверяемы путь в кодировке UTF-8, и содержит кериллицу (русские буквы), то файл не найден, перекодировать то можно, но что делать если заранее не известно какая будет кодировка (путь к примеру берётся из файла конфигурации)?

Можно ли написать функцию, которая будет определять кодировку строки?

А таже проблема с отображением кодировки в гуи, если язык в системе не русский и не английски, то ни одна функция не помагает нормально отобразить кириллицу. Есть функция _Utf8ToAnsi() (от amel27), но она тут не помагает (помагает если системный язык русский), есть также функция StringToUTF(), и она тоже не помагает... как сделать уникальное отображение кириллицы в гуи, чтобы на любом языке (установленном в системе), нормально всё отображалось?

i_mihal · Отправлено: **20:41, 15-01-2007** | #**122**

написал скрипт на AutoIt для установки Office 2000.
серийник там в SETUP.INI никак не задается,
поэтому серийный номер ввожу вот так:

Send('FXWX9QCJ4FGHCRYH9Y8FXQP6G')

но срабатывает это далеко не всегда. есть две проблемы:

1) если в винде язык по умолчанию - русский, то вместо латинских букв
скрипт вводит в поле ввода русские: АЧЦЧ9 ЙСО4А итд, то есть
те русские буквы, которые написаны на соответствующих клавишах.
2) иногда что-то протормаживает и вообще вводится мешанина из букв,
как будто из этой строки Send('FXWX9QCJ4FGHCRYH9Y8FXQP6G')
выбрали 7-9 букв, через каждые 2-3 буквы и разбавили их буквой "Ж",
которой вообще по-идее там быть не может, ведь она соответствует
на клавиатуре знаку ";"

сейчас попробую сделать ввод серийника с помощью ControlSetText,
но мне непонятно, почему так странно работает 'Send' если язык в винде
по умолчанию задан русский? может подскажет кто-нибудь?

спасибо.

p.s. с помощью 'ControlSetText' вроде получилось, хотя учитывая непонятность
работы 'Send' нет уверенности, что все и всегда будет работать корректно

пока работает...

Diamond · Отправлено: **21:34, 15-01-2007** | #**123**

i_mihal
Да, есть такая проблема... Я её решаю с помощью вставки из буфера обмена:
ClipPut("FXWX9QCJ4FGHCRYH9Y8FXQP6G")
Send("^м")

Цитата:

почему так странно работает 'Send'

Вопрос, скорее всего, относиться к разработчикам AutoIt.

Всем:
Оказывается, с помощью WinApi можно проделывать интересные манипуляции с окнами...
Анимация окон GUI, с помощью WinApi
Использование:
DllCall("User32.dll","long","AnimateWindow","hwnd",Идентификатор окна,"long",Продолжительность в миллисекундах,"long",Эффект)
Эффекты:
Эффекты имеет смысл задавать в качестве констант: Const $AW_ACTIVATE = 0x20000
AW_ACTIVATE = 0x20000 (Активирует окно, конфликтует с AW_HIDE)
AW_BLEND = 0x80000 (Постепенное исчезновение-появление)
AW_CENTER = 0x10 (Разворачивает окно из центра)
AW_HOR_POSITIVE = 0x1 (Слева направо)
AW_HOR_NEGATIVE = 0x2 (Справа налево)
AW_SLIDE = 0x40000 (Прокрутка)
AW_VER_POSITIVE = 0x4 (Сверху в низ)
AW_VER_NEGATIVE = 0x8 (Снизу в верх)
AW_HIDE = 0x10000 (Скрывает окно)
Эффекты по умолчанию ориентированны на появление окна, для скрытия окна используйте их совместно с AW_HIDE.
Можно получить интересные результаты комбинируя эффекты между собой. Например: 0x4 + 0x1 (анимация по диагонали)

Рабочий пример:

Код:

#include <Guiconstants.au3>
Opt("GUIOnEventMode",1)
$test=GUICreate("WinApi_test",400,300)
GUISetOnEvent($GUI_EVENT_CLOSE,"ExitGui")
DllCall("User32.dll","long","AnimateWindow","hwnd",$test,"long",700,"long",0x8+0x40000)
GUISetState()

While 1
Sleep(100)
WEnd

Func ExitGui()
DllCall("User32.dll","long","AnimateWindow","hwnd",$test,"long",500,"long",0x10+0x10000)
Exit
EndFunc

Creat0R · Конфигурация компьютера

i_mihal
ControlCommand вроде будет всегда срабатывать:

Код:

ControlCommand("Title", "", "Edit1", "EditPaste", "FXWX9QCJ4FGHCRYH9Y8FXQP6G")

На счёт Send(), решение для смены раскладки клавиатуры вроде есть в Faq'е (см. “Как с помощью AutoIt сменить раскладку клавиатуры”)

Diamond

Красиво! :UP: но рамка всего гуи как бы нарисованна, т.е углы не округлённые как должны быть в XP, даже немного затемнённые, это можно поправить?

P.S

Цитата:

Я её решаю с помощью вставки из буфера обмена

Это тоже не всегда надёжно, буфер обмена может неправильно отдавать текст (при вставке в него текста Аутоитом).

Creat0R · Конфигурация компьютера

Оказывается, возможно привязать функцию _MsgBox() (от amel27), и любое окно гуи к другому окну (не обязательно к гуи)....

На мысль меня навёл пример из Faq'а о переключении раскладки клавиатуры (а именно, пременная $hWnd):

Код:

Opt("WinTitleMatchMode", 4)
Run("notepad.exe")
$NotPadTitle = "classname=Notepad"

WinWait($NotPadTitle, "", 5)
$hWnd = WinGetHandle($NotPadTitle)

WinSetState($NotPadTitle, "", @SW_DISABLE)
GuiCreate("Attach To Window Gui", 300, 400, -1, -1, -1, -1, $hWnd)
GuiSetState()

$Msg = 0
While $Msg <> -3
    $Msg = GuiGetMsg()
    Sleep(10)
Wend

WinSetState($NotPadTitle, "", @SW_ENABLE)

Diamond · Отправлено: **01:25, 16-01-2007** | #**126**

Creat0R

Цитата:

углы не округлённые как должны быть в XP

Я тоже заметил этот дефект. Честно говоря, не знаю...

Других вариантов или комбинаций для "AnimateWindow" пока найти не удалось. Разве что попытаться использовать другие стили окна... Во ещё что: Если окно имеет тень, анимация может происходить "рывками".

Цитата:

буфер обмена может неправильно отдавать текст (при вставке в него текста Аутоитом)

Наверное имелось ввиду: "буфер обмена может неправильно принимать текст"? Насколько неправильно? При копировании-вставке обычного текста, у меня ошибок пока не случалось...
Спасибо, приму к сведению.

Creat0R · Конфигурация компьютера

Diamond

Цитата:

Разве что попытаться использовать другие стили окна

Перепробовал почти все, один только справляется почти нормально с задачей - $WS_EX_TOOLWINDOW - но как известно, это не совсем обычное окно

- но всё же неплохая вещь которую ты привёл в студию

спасибо!

Цитата:

Наверное имелось ввиду: "буфер обмена может неправильно принимать текст"?

Скорее так.

Цитата:

Насколько неправильно?

Ну возьмём к примеру кириллицу из ком. строки...

Вставляем так:

ClipPut($CmdLine[1])

Если Ком. строка содержит кириллицу, то когда пытаемся куда то вставить текст из буфера обмена, то уже вставляется в неверном формате... кстати я даже не знаю как перекодировать его, кто знает плиз подскажите, давно хотел узнать

Т.е вот к примеру если такой скрипт закомпилировать:

Код:

ClipPut($CmdLine[1])
MsgBox(0, "", ClipGet())

А потом запустить его к примеру из батника так:

Код:

Start ClipTest.exe тест

То в сообщении мы увидим ЄхёЄ (крякозябры)

Creat0R · Конфигурация компьютера

Ещё один способ получить список существующих дисков на компьютере:

Код:

$Drives = ""
For $iDrv = 65 to 90
    If DriveGetType(Chr($iDrv) & ":\") <> "" Then $Drives = $Drives & @CR & Chr($iDrv) & ":\"
Next
MsgBox(262144+64, "Existing Drives List", $Drives)

VelDmi · Отправлено: **18:22, 16-01-2007** | #**129**

Creat0R

Цитата:

Оказывается, возможно привязать функцию _MsgBox() (от amel27)

Где эту функцию взять?

Diamond · Отправлено: **21:37, 16-01-2007** | #**130**

Creat0R

Цитата:

всё же неплохая вещь которую ты привёл в студию

Спасибо. Мне тоже очень понравилось.

Цитата:

Если Ком. строка содержит кириллицу

Через командную строку проблема решается так:
graftabl 1251 | echo %username%>MyName.txt
Хотя конкретно для твоего случая это не сработает. При создании пакетного Файла возьми за привычку конвертировать текст в Dos(oem), например c помощью текстового редактора: BRED - хороший заменитель блокнота, или любой другой доступный редактор который умеет работать с кодировками, в самом крайнем случае открываешь пакетный файл в WordPad ( > Сохранить как > Текстовой документ MS-DOS), а затем меняешь расширение на *.bat