[proxy]

Доброго Времени Суток ещё раз.
1. Подскажите пожалуйста, как отследить нажатую клавишу? - какая именно была нажата?

[bogomolv]

proxy
Поясни вопрос. Обычно AutoIt сам эмулирует нажатие нужных клавиш. А ты хочешь от него обратного?

[proxy]

Я хочу узнать какую клавишу (к примеру ASCII код) нажал пользователь, для последующей записи в log.
.......проще говоря: Как в AutoIt реализовать перехват клавиш, без их замены как это делает HotKeySet.
К примеру я пишу текст в блокноте, а программа будет показывать все нажатые клавиши.

[bogomolv]

proxy
На мой взгляд, ты хочешь от AutoIt то, для чего он не предназначен. "AutoIt", - все-таки, это: "a freeware BASIC-like scripting language designed for automating the Windows GUI".
Наверное, тебе больше подойдет брат AutoIt'а - AutoHotKey. Без труда найдешь его в сети.

[proxy]

Большое Спасибо, по обилию функций в справке - AutoHotKey - это именно то, что я искал.

[NikLok]

bogomolv Канычна сапасиба. Везде поменял на твой вариант и усе замечательно за...лось!


В раже даже написал скрипт для смены веремени выбора систеым в файле BOOT.INI
мОЖЕТ ЕГО еще как можно было изменить, но я сделал так!

Код:

$file = FileOpen("c:\boot.ini",0)
; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open c:\boot.ini file.")
    Exit
EndIf

$newfile = FileOpen('c:\boot_new.ini',2)
; Check if file opened for writing OK
If $newfile = -1 Then
    MsgBox(0, "Error", "Unable to open c:\boot_new.ini file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInSTr( $line, "timeout=", 0) = 1 Then
	     FileWriteLine($newfile, "timeout=7")
    Else
	     FileWriteLine($newfile, $line)
    EndIf
;    MsgBox(0, "Line read:", $line)
Wend

FileClose($file)
FileClose($newfile)

FileSetAttrib ( "c:\boot.ini", "-R-S-H" )
FileCopy ( "c:\boot.ini" , "c:\boot_old.ini", 1 )
FileCopy ( "c:\boot_new.ini", "c:\boot.ini" , 1 )
FileDelete("c:\boot_new.ini")
FileSetAttrib ( "c:\boot.ini", "+R+S+H" )
Exit

Может кому надоть.

[VelDmi]

Имеется следующий скрипт:

$netsh = @ScriptDir & '\netsh.cfg'
RunWait (@SystemDir & '\netsh.exe interface ip dump > ' & $netsh, @SystemDir, @SW_HIDE)

Так вот файл netsh.cfg создается в ДОС кодировке. И я не могу прочитать русские слова командами автоита.
$file = FileOpen($netsh, 0)
$line = FileReadLine($file)
Получаесся абракадабра. Что делать?

[bogomolv]

NikLok
Пожалуйста! Приходите еще!

Код:

RunWait('AutoIt3 script.au3')

[bogomolv]

VelDmi
Когда-то решал подобную проблему так:

Код:

$f = 'C:\1.txt'
$aa = FileRead($f, FileGetSize($f))
$a1 = " ЎўЈ¤Ґс¦§Ё©Є«¬*®ЇабвгдежзийклмнопЂЃ‚ѓ„…р†‡?‰Љ‹ЊЌЋЏђ‘’“”•–—?™љ›њќћџ"
;переменная $a1 взята из ECHO "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" > C:\1.txt
$a2 = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
For $i = 1 To StringLen($aa)
 $k = StringInStr($a1, StringMid($aa, $i, 1))
 If $k>0 Then $aa = StringReplace($aa, $i, StringMid($a2, $k, 1))
Next
msgbox(0,'',$aa)

[VelDmi]

bogomolv
Спасибо, решил свою проблему так:
RunWait (@COMSPEC & ' /c chcp 1251 && netsh.exe interface ip dump > netsh.cfg', @SystemDir, @SW_HIDE)
Файл создается в нужной кодировке.