» AutoIT

Народ подскажите неразумному как сделать передачу клавиатурных сочетаний типа ctrl - a, ctrl - c при дефолтной раскладке клавиатуры русской.
Send("^a")... в таких случаях не работает.
Спасибо.

Подскажите как такое написать на AutoIT. Большое спасибо.

Dim WshShell, file_name, old_file_name, objHTM

set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "124"

WScript.Sleep 200

WshShell.SendKeys "^C"

WshShell.SendKeys "^A"

WScript.Sleep 200

Set objHTM = CreateObject("htmlfile")

old_file_name = objHTM.ParentWindow.ClipboardData.GetData("text")

file_name=InputBox("Введите новое имя файла:", "Переименовать", old_file_name)

If (file_name=vbCansel) Then

WScript.Quit()

End If

WshShell.SendKeys "124"

WScript.Sleep 200

WshShell.SendKeys file_name

WshShell.SendKeys "{ENTER}"

WScript.Sleep 100

WshShell.SendKeys "{ENTER}"

WScript.Sleep 100

WshShell.SendKeys "^o"

WScript.Sleep 300

WshShell.SendKeys "^c"

WshShell.SendKeys "%{F4}"

WScript.Sleep 300

WshShell.SendKeys "124"

WScript.Sleep 200

WshShell.SendKeys file_name

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "+{HOME}"

WshShell.SendKeys "^v"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{Enter}"

WScript.Sleep 100

WshShell.SendKeys "{Enter}"

WScript.Quit()

Dementei
Наверное так:

Код:
Dim $WshShell, $file_name, $old_file_name, $objHTM

$WshShell = ObjCreate("WScript.Shell")
Send("124")
Sleep(200)
Send("^c")
Send("^a")
Sleep(200)
$objHTM = ObjCreate("htmlfile")
$old_file_name = $objHTM.ParentWindow.ClipboardData.GetData("text")
$file_name = InputBox("Введите новое имя файла:", "Переименовать", $old_file_name)
If @error Then Exit
Send("124")
Sleep(200)
Send($file_name)
Send("{Enter}")
Sleep(100)
Send("{Enter}")
Sleep(100)
Send("^o")
Sleep(300)
Send("^c")
Send("%{F4}")
Sleep(300)
Send("124")
Sleep(300)
Send("124")
Sleep(200)
Send($file_name)
Sleep(100)
Send("{Tab}")
Send("+{HOME}")
Send("^v")
Send("{Tab}")
Send("{Enter}")
Sleep(100)
Send("{Enter}")
Exit

ViSiToR
В справке по Auto3Lib нашел функцию _ImageList_AddMasked, но она чето ваше ниче не возвращает или я ниче понял, у функ. _ImageList_AddBitmap есть св-во $sMask, но эффекта никакого(как и без него).
Может че делаю неправильно, дайте пример!

euheny

Цитата:

поробуй "выдрать" саму Create

Там слишком большая функция... у меня тот скрипт что я привёл работает но не совсем корректно, т.е если его запустить, и потом открыть диалог настроек файла подкачки, то данные там обновлены, хотя сам файл до перезапуска системы не меняется в размере.

Kauffman

Цитата:

$Toolbar - хэндл тулбара

Я имел в виду что такое Toolbar? его многие понимают по разному, я лично не работал с контролем по имени Toolbar.

Dementei

Цитата:

как сделать передачу клавиатурных сочетаний типа ctrl - a, ctrl - c при дефолтной раскладке клавиатуры русской

Ну если именно эти клавиши, то намного надёжнее использовать аналоги...


Код: Send("^{Insert}") = Ctrl C (копирование)
Send("^{Home} ^+{End}") = Ctrl A (выделить все)

ViSiToR

Цитата:

Там слишком большая функция...

Ага (знать бы api-метод)
Хотя весь смысл в создании этого файла в системе ,где его нет


Как узнать в скрипте что происходит перезагрузка компа (или подобное) ?

euheny

Цитата:

Как узнать в скрипте что происходит перезагрузка компа

Не уверен, но можно пробовать проверять процесс Shutdown.exe

ViSiToR
Toolbar - это панель инструментов, т.е. такая типа полоска из кнопок с иконками (иногда ещё и надписи есть). Вот мне и надо добавить иконки на эти кнопки, добавить то их не проблема, а вот сделать с прозрачностью (т.е. иконки должны быть неправильной формы, см. в IE cверху кнопки есть Назад с зеленой стрелкой и т.д.), а получ. фигня с черным цветом вместо прозрачности, кстати в справке по-моему есть пример и там как раз та же проблема!

Добавлено:
Всё, я доехал!!!
Понял, короче можно в Toolbar ставить даже 32бит иконки!!!
Просто над было в функции _ImageList_Create установить св-во $iColor на 5 (Use a 32 bit DIB section). Т.е. как раз то, что нужно!!!

Попробовал написать скрипт, который ассоциирует mp3-файлы с плеером 1by1. Сначала хотел через реестр, но оказалось сложно и не всегда срабатывает, решил просто сэмулировать вызов "Открыть с помощью...".

Код: Run("rundll32 shell32, OpenAs_RunDLL %1 " & @ScriptDir & "\empty.mp3")
WinWaitActive('Выбор программы', 'Выберите программу для открытия' )

;Ставим флажок "Всегда открывать"
ControlClick("Выбор программы", "", "Button2")

;Нажимаем "Обзор"
ControlClick("Выбор программы", "", "Button3")
WinWaitActive ("Открыть с помощью...", "" )

;Подставляем путь к программе
ControlCommand ( "Открыть с помощью...", "", "Edit1", "EditPaste", '%systemdrive%\Ready\_mp3\1by1\1by1.exe')

;Нажимаем "Открыть"
ControlClick("Открыть с помощью...", "", "Button2")
WinWaitActive('Выбор программы', '')

;Нажимаем "ОК"
ControlClick("Выбор программы", "", "Button4")
WinWaitActive('1by1 - The Directory Player', '')

;Закрываем программу
Send("!{F4}")

exit

Цитата:

есть подозрение, что ошибка происходит, если запущены и не закрыты другие процессы AutoIt

Ну так обьедини все скрипты в один или скомпилируй их в *.exe.

Цитата:

Ну так обьедини все скрипты в один или скомпилируй их в *.exe.

Я уже думал об этом. Компиляция сильно увеличивает размер файла, а для загрузочного CD каждый мегабайт важен.
Но дело не в этом. Я просто хочу разобраться, что имеет место быть - ошибка моего кода или баг AutoIT. Если моя ошибка, то как ее можно обойти (без таких сильнодействующих средств, как компиляция или объединение всех скриптов в один). Если баг, то надо разработчикам сказать.
Но за содействие спасибо, если ничего не поможет, буду все объединять.

to Hugh

;функция, которая возвращает тип расширения
Func _ExtType($ext)
$a2 = " /c assoc ." & $ext
$cmdRun = Run(@ComSpec & $a2, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
$a1 = StdoutRead($cmdRun, -1)
if StringInStr($a1, "=")>1 then
     $b1=StringSplit ($a1,'=') ;из вывода assoc беру тока слово после =
     $b1=StringStripCR($b1[2]) ;удаляю @CR если введено отсутствующее расширение - выскочит ошибка
     $q=StringSplit( $b1, @lf) ;удаляю @lf
Return $q[1]    
Endif
EndFunc

;собственно функция ассоциации
Func _FiletypeAssociation($extension, $type, $program, $description = '')
; e.g. _FiletypeAssociation('.pdf', 'FoxitReader.Document', '"%ProgramFiles%\FoxitReader.exe" "%1"')
$exitcode = RunWait(@ComSpec & ' /c ftype ' & $type & '=' & $program & _
' && assoc ' & $extension & '=' & $type, '', @SW_HIDE)
If $description And Not $exitcode Then ; если есть описалово и нормальный код выхода
Return RegWrite('HKCR' & $type, '', 'Reg_sz', $description)
EndIf
Return Not $exitcode
Endif
EndFunc

как видишь - это надстройки над стандартными командами assoc и ftype

Команды assoc и ftype я пробовал с самого начала, в обычном батнике. По какой-то причине в случае с mp3 они не работают, так как винды изначально некоторые расширения подмяли под себя (под Windows Media Player), и надо как-то специально выкручиваться через реестр. Про это была тема на oszone. Рецепт, данный там, у меня не сработал.

Hugh
Попробуй такие функции:


Код: ;================================================================
;
; Description: FileRegister($ext, $cmd, $verb[, $def[, $icon = ""[, $desc = ""]]])
; Registers a file type in Explorer
; Parameter(s): $ext - File Extension without period eg. "zip"
; $cmd - Program path with arguments eg. '"C:\test\testprog.exe" "%1"'
; (%1 is 1st argument, %2 is 2nd, etc.)
; $verb - Name of action to perform on file
; eg. "Open with ProgramName" or "Extract Files"
; $def - Action is the default action for this filetype
; (1 for true 0 for false)
; If the file is not already associated, this will be the default.
; $icon - Default icon for filetype including resource # if needed
; eg. "C:\test\testprog.exe,0" or "C:\test\filetype.ico"
; $desc - File Description eg. "Zip File" or "ProgramName Document"
;
;================================================================
Func FileRegister($ext, $cmd, $verb, $def = 0, $icon = "", $desc = "")
$loc = RegRead("HKCR\." & $ext, "")
If @error Then
RegWrite("HKCR\." & $ext, "", "REG_SZ", $ext & "file")
$loc = $ext & "file"
EndIf
$curdesc = RegRead("HKCR\" & $loc, "")
If @error Then
If $desc <> "" Then
RegWrite("HKCR\" & $loc, "", "REG_SZ", $desc)
EndIf
Else
If $desc <> "" And $curdesc <> $desc Then
RegWrite("HKCR\" & $loc, "", "REG_SZ", $desc)
RegWrite("HKCR\" & $loc, "olddesc", "REG_SZ", $curdesc)
EndIf
If $curdesc = "" And $desc <> "" Then
RegWrite("HKCR\" & $loc, "", "REG_SZ", $desc)
EndIf
EndIf
$curverb = RegRead("HKCR\" & $loc & "\shell", "")
If @error Then
If $def = 1 Then
RegWrite("HKCR\" & $loc & "\shell", "", "REG_SZ", $verb)
EndIf
Else
If $def = 1 Then
RegWrite("HKCR\" & $loc & "\shell", "", "REG_SZ", $verb)
RegWrite("HKCR\" & $loc & "\shell", "oldverb", "REG_SZ", $curverb)
EndIf
EndIf
$curcmd = RegRead("HKCR\" & $loc & "\shell\" & $verb & "\command", "")
If Not @error Then
RegRead("HKCR\" & $loc & "\shell\" & $verb & "\command", "oldcmd")
If @error Then
RegWrite("HKCR\" & $loc & "\shell\" & $verb & "\command", "oldcmd", "REG_SZ", $curcmd)
EndIf
EndIf
RegWrite("HKCR\" & $loc & "\shell\" & $verb & "\command", "", "REG_SZ", $cmd)
If $icon <> "" Then
$curicon = RegRead("HKCR\" & $loc & "\DefaultIcon", "")
If @error Then
RegWrite("HKCR\" & $loc & "\DefaultIcon", "", "REG_SZ", $icon)
Else
RegWrite("HKCR\" & $loc & "\DefaultIcon", "", "REG_SZ", $icon)
RegWrite("HKCR\" & $loc & "\DefaultIcon", "oldicon", "REG_SZ", $curicon)
EndIf
EndIf
EndFunc

;================================================================
;
; Description: FileUnRegister($ext, $verb)
; UnRegisters a verb for a file type in Explorer
; Parameter(s): $ext - File Extension without period eg. "zip"
; $verb - Name of file action to remove
; eg. "Open with ProgramName" or "Extract Files"
;
;================================================================
Func FileUnRegister($ext, $verb)
$loc = RegRead("HKCR\." & $ext, "")
If Not @error Then
$oldicon = RegRead("HKCR\" & $loc & "\shell", "oldicon")
If Not @error Then
RegWrite("HKCR\" & $loc & "\DefaultIcon", "", "REG_SZ", $oldicon)
Else
RegDelete("HKCR\" & $loc & "\DefaultIcon", "")
EndIf
$oldverb = RegRead("HKCR\" & $loc & "\shell", "oldverb")
If Not @error Then
RegWrite("HKCR\" & $loc & "\shell", "", "REG_SZ", $oldverb)
Else
RegDelete("HKCR\" & $loc & "\shell", "")
EndIf
$olddesc = RegRead("HKCR\" & $loc, "olddesc")
If Not @error Then
RegWrite("HKCR\" & $loc, "", "REG_SZ", $olddesc)
Else
RegDelete("HKCR\" & $loc, "")
EndIf
$oldcmd = RegRead("HKCR\" & $loc & "\shell\" & $verb & "\command", "oldcmd")
If Not @error Then
RegWrite("HKCR\" & $loc & "\shell\" & $verb & "\command", "", "REG_SZ", $oldcmd)
RegDelete("HKCR\" & $loc & "\shell\" & $verb & "\command", "oldcmd")
Else
RegDelete("HKCR\" & $loc & "\shell\" & $verb)
EndIf
EndIf
EndFunc

ViSiToR
Спасибо, вроде бы все сработало!

Я перед этим еще покопался, похоже, что эта ошибка не связана с одновременным запуском нескольких AutoIt.

Есть диалог, содержащий элемент SysTabControl32 (типа стандартного диалога свойств экрана).
Подскажите плз, как можно получить название вкладки, на которой сейчас нахожусь

Следующий фрагмент кода выдает порядковый номер вкладки, а не ее название

Код:
$S_CurrTab = ControlCommand ( "Preferences", "", "SysTabControl321", "CurrentTab", "" )
MsgBox(0,"Current Tab Is", $S_CurrTab)

Народ если возможность не отображать прорисовку открытия менюх... диалоговых окон... чтоб все в фоне как бы делалось?

gh7019

Цитата:

как можно получить название вкладки, на которой сейчас нахожусь

Самому не верится, но собрав ресурсы с разных источников, мне удалось построить для этого (и не только) функцию:


Код: $GUI = GUICreate("ControlTab Demo")

GUICtrlCreateTab(10, 20)
$Tab_1 = GUICtrlCreateTabItem("Tab 1")
$Tab_2 = GUICtrlCreateTabItem("Tab 2")
$Tab_3 = GUICtrlCreateTabItem("More Tab")

GUISetState()

For $i = 0 To ControlTab($GUI, "", "GetTabsCount")-1
MsgBox(0, "", "Zero-Based tab number [" & $i & "]: " & @LF & ControlTab($GUI, "", "GetItemText", $i))
ControlTab($GUI, "", "TabRight")
Next

Func ControlTab($hWnd, $sText, $iCommand, $iParam1="", $iParam2="", $iParam3="")
Local Const $TCM_FIRST = 0x1300
Local $hTab = ControlGetHandle($hWnd, $sText, "SysTabControl321")

Switch $iCommand
Case "GetItemState", "GetItemText", "GetItemImage"
Local Const $TagTCITEM = "int Mask;int State;int StateMask;ptr Text;int TextMax;int Image;int Param"
Local Const $TCIF_ALLDATA = 0x0000001B
Local Const $TCM_GETITEM = $TCM_FIRST + 5

Local $tBuffer = DllStructCreate("char Text[4096]")
Local $pBuffer = DllStructGetPtr($tBuffer)
Local $tItem = DllStructCreate($tagTCITEM)
Local $pItem = DllStructGetPtr($tItem)

DllStructSetData($tItem, "Mask", $TCIF_ALLDATA)
DllStructSetData($tItem, "TextMax", 4096)
DllStructSetData($tItem, "Text", $pBuffer)

If $iParam1 = -1 Then $iParam1 = ControlTab($hWnd, $sText, "CurrentTab")
DllCall("user32.dll", "long", "SendMessage", "hwnd", $hTab, "int", $TCM_GETITEM, "int", $iParam1, "int", $pItem)

If @error Then Return SetError(1, 0, "")
If $iCommand = "GetItemState" Then Return DllStructGetData($tItem, "State")
If $iCommand = "GetItemText" Then Return DllStructGetData($tBuffer, "Text")
If $iCommand = "GetItemImage" Then Return DllStructGetData($tItem, "Image")
Case "CurrentTab", "TabRight", "TabLeft"
Local $iRet = ControlCommand($hWnd, $sText, "SysTabControl321", $iCommand, "")
If @error Then Return SetError(1, 0, -1)
Return $iRet - 1
Case "GetTabsCount"
Local Const $TCM_GETITEMCOUNT = $TCM_FIRST + 4
Local $iRet = DllCall("user32.dll", "long", "SendMessage", "hwnd", $hTab, "int", $TCM_GETITEMCOUNT, "int", 0, "int", 0)
If @error Then Return SetError(1, 0, -1)
Return $iRet[0]
Case "FindTab"
If Not IsNumber($iParam2) Or $iParam2 < 0 Then $iParam2 = 0
Local $sTabText

For $i = $iParam2 To ControlTab($hWnd, $sText, "GetTabsCount")
$sTabText = ControlTab($hWnd, $sText, "GetItemText", $i)
If $iParam3 = True And StringInStr($sTabText, $iParam1) Then Return $i
If $sTabText = $iParam1 Then Return $i
Next
Return -1
Case Else
Return SetError(2, 0, "")
EndSwitch
EndFunc

ViSiToR

Цитата:

Самому не верится

Цитата:

An exception occurred while trying to run "shell32.dll,Control_RunDLL sysdm.cpl"

хотя конечно случай специфичный но всё же множество системных "действий" не хотят работать и всё
(я даже догадываюсь почему )

вот интересно: можно ли как-то "подсмотреть" происходящие в системи вызовы длл-ок и их параметры ?

euheny

Цитата:

An exception occurred while trying to run "shell32.dll,Control_RunDLL sysdm.cpl"

Какая система, на какой строке выпадает ошибка?


Цитата:

я даже догадываюсь почему

Почему?


Цитата:

можно ли как-то "подсмотреть" происходящие в системи вызовы длл-ок и их параметры ?

Вроде что то слышал связанное с системным логом, вроде в Au3Library что то есть, но я не разбирался толком.

Кстати, в последних бета-версиях, A3LLibrary уже так просто работать не будет, многие жалуются на полную несовместимость библиотеки с бета-версией AutoIt'а.
Т.ч придётся многие скрипты переделывать (работающие с этой библиотекой).

ViSiToR

Цитата:

Какая система, на какой строке выпадает ошибка?

проверял на обрезанной хрюше, но смысл в проверке скрипта на Run("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl")

Цитата:

Почему?

безопасность (частично что-то есть в A3LLibrary)

Цитата:

Кстати, в последних бета-версиях

Я вобще не понимаю почему ядро AutoIt и A3LLibrary идут немного порознь. Видимо у Джона и Полла разные взгляды.

Цитата:

Вроде что то слышал связанное с системным логом, вроде в Au3Library что то есть

мне интересно - попробуй поточнее

euheny

Цитата:

смысл в проверке скрипта на Run("rundll32.exe...

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


Цитата:

почему ядро AutoIt и A3LLibrary идут немного порознь

Это не нарошно, просто A3LLibrary это практический чистый API, AutoIt дружит с API, но не для этого он был разработан, а поддерживать такую массу функции нет ни у кого желания/времени, кроме этого есть ещё кучу проблем в AutoIt (пусть с кодировками хотябы разберутся для начала).


Цитата:

Видимо у Джона и Полла разные взгляды

Джон видит вот это: AutoIt is simple, subtle, elegant, а Пауль (не уверен как на нашем правильнее, Пауль или Полл ) слепил из MSDN всё что противоречит лозунгу джона

Всем кто “увликается” функциями DllCallBack:

В последней бетте добавили поддержку DllCallBack!!!


Цитата:

3.2.9.12 (17th November, 2007) (Beta)

- Added: DllCallbackRegister(), DllCallbackGetPtr() and DllCallbackFree()

Это будет вместо библиотеки DllCallBack.au3 как мне кажется.

ViSiToR

Цитата:

В последней бетте добавили поддержку DllCallBack!!!

А скомпилированный пример из мануала не работает -

Код: Line -1:
Error: Unknown function name.

NIKZZZZ

Цитата:

скомпилированный пример из мануала не работает

*.bin файл обновлён?
Хотя я сам ещё не ставил бету, т.ч я тут не помощник... я ставлю только финал, мне и так проблем хватает и без бетт

ViSiToR

Цитата:

*.bin файл обновлён?

Обновлены.

Здравствуйте. Меня интересует такая задача: мне нужен код AutoIt скрипта, после выполнения которого в трее появлялась бы иконка. И после правого клика по этой иконке появлялось бы обыкновенное ниспадающее меню имеющие 3 строки:
1. Запустить некий *.exe файл
2. Завершить процесс
Разделитель
3. Закрыть приложение (завершить скрипт)

Ну разумеется после нажатия на тот или иной пункт должно выполнятся указанное действие. Буду очень благодарен за помощь.

RwR

Цитата:

мне нужен код AutoIt скрипта, после выполнения которого в трее появлялась бы иконка.

В хелпе TrayCreateMenu приведен похожий пример.

Всё. Уже не надо. Сам во всём разобрался. Всё оказалось проще пареной репы. В любом случае спасибо, NIKZZZZ, что откликнулся.

Хотя нет, есть всё-таки парочка вопросов.
Каким образом можно ввести текст, который появляется после наведения мышки на иконку? Как после присвоения некоего значения переменной $var использовать эту переменную в некотором фрагменте пути к папке? Пример такой:
$var получает значение из реестра.
Это значение - имя некоторой папки.
Затем нужно создать используя путь типа C:\WINDOWS\$var\File.exe ещё одну переменную.

И вообще возможно ведь наличие нескольких переменных в одном скрипте/файле?

RwR

Цитата:

Каким образом можно ввести текст, который появляется после наведения мышки на иконку?

Смотри в справке TraySetToolTip


Цитата:

нужно создать используя путь типа C:\WINDOWS\$var\File.exe ещё одну переменную

Из справки:

Цитата:

& Объединение/конкатенация строк. "one" & 10 - ("one10")

Код:
$var2 = "C:\WINDOWS\" & $var & "\File.exe"