[архив - Часть 2] AutoIt скрипты

[Creat0R]

Drsmog,
Этот скрипт проверяет всю страницу в блокноте на наличии знаков
Задача была поставлена значит неясно...


Надо чтоб возле каждого символа писал слово
А это уже совсем другая задача ;)

Что то вроде этого:

$NotepadTitle = "[CLASS:Notepad]"

Run(@WindowsDir & "\Notepad.exe")
WinWait($NotepadTitle)

ControlSetText($NotepadTitle, "", "Edit1", "+" & @CRLF & "-" & @CRLF & "?")

$EditText = ControlGetText($NotepadTitle, "", "Edit1")

;Разделим весь текст из блокнота по строчкам, и заменим в каждой строчке по надобности
$SplitText = StringSplit($EditText, @CRLF)
$NewText = ""
For $i = 1 To UBound($SplitText)-1
If StringInStr($SplitText[$i], "+") Then
$SplitText[$i] = StringReplace($SplitText[$i], "+", "+ это плюс")
ElseIf StringInStr($SplitText[$i], "-") Then
$SplitText[$i] = StringReplace($SplitText[$i], "-", "- это минус")
ElseIf StringInStr($SplitText[$i], "?") Then
$SplitText[$i] = StringReplace($SplitText[$i], "?", "? это вопрос")
EndIf
$NewText &= $SplitText[$i] & @CRLF
Next

ControlSetText($NotepadTitle, "", "Edit1", $NewText)

MsgBox(0, "", "Сделано!")

;Просто закроем то что открыли
WinClose($NotepadTitle)
WinWaitClose($NotepadTitle, "", 1)
If WinActive("[CLASS:#32770]", "&") Then ControlClick("[CLASS:#32770]", "&", "Button2")


fak1r,
Увы, мне тоже никогда не приходилось производить авторизацию на сайте/форуме, я поищю на оф. форуме, возможно там кто-то уже делал подобное...

[Drsmog]

Спасибо !!! Ну вроде то что надо

[Creat0R]

Два вопроса на повестке дня:

1) Возможно ли отключить (временно) устройство ввода (клавиатуру)? позже нужно будет его включить, без “побочных эффектов” :)

2) Как определить, установлен ли Flash Player для Internet Explorer?
Обсуждение на оф. форуме (http://www.autoitscript.com/forum/index.php?s=&showtopic=57279&view=findpost&p=433664) зашло в тупик, функция чуть ниже возвращает True, однако при открытии странички с роликом на YouTube к примеру, получаю предупреждение о том что нужно установить Flash Player...

Func ShockWavePlayer_Installed()
Local $sObjRead = RegRead("HKCR\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\ProgID", "")
Local $sFlashObj = ObjCreate($sObjRead)
If Not IsObj($sFlashObj) Then Return False
Return True
EndFunc

[Creat0R]

AutoIt v3.2.10.0 Release!!! (http://www.autoitscript.com/autoit3/downloads.shtml)

25 ноября, 2007 - v3.2.10.0


ВНИМАНИЕ: Следующий выпуск AutoIt будет иметь следующие изменения, которые нарушат обратную совместимость:
FileInstall() (http://www.autoitscript.com/autoit3/docs/functions/FileInstall.htm) будет переписана с нуля. FileInstall() функция останется, но не будет действовать таким же образом как ранее. Новые реализации появятся в будущих бета версиях.
Библиотека GUIConstants.au3 стала излишней, она будет идентична GUIConstantsEx.au3. Самый простой способ преодалеть это изменение, заключается в замене всех GUIConstants.au3 на GUIConstantsEx.au3, затем запустите Au3Check, и включите все недостающие библиотеки и константы пока все ошибки не будут исчерпаны.
Это изменение желательно сделать сейчас, оно не требует ожидания будущей бета-версии. В какой-то момент в ходе следующей бета-версии, GUIConstants.au3 станет идентичной GUIConstantsEx.au3, и тогда скрипты использующие GUIConstants.au3 могут работать некорректно (в зависимости от констант, которые используются в скриптах).



Изменено: DllCall() (http://www.autoitscript.com/autoit3/docs/functions/DllCall.htm) Новый метод передачи типов ByRef используя *.
Изменено: DllCall() (http://www.autoitscript.com/autoit3/docs/functions/DllCall.htm): short_ptr, long_ptr, и int_ptr типы запрещены. Используйте short*, long* и int* соответственно.
Изменено: Сняты ограничения на Execute() (http://www.autoitscript.com/autoit3/docs/functions/Execute.htm).
Изменено: PCRE движок регулярных выражений (http://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm) обновлен до 7,4.



Добавлено: 64-битные (x64) версии AutoIt, Aut2Exe, Au3Info и AutoItX (см. здесь (http://www.autoitscript.com/autoit3/docs/intro/64-bit_support.htm)).
Добавлено: DllCallbackRegister() (http://www.autoitscript.com/autoit3/docs/functions/DllCallbackRegister.htm), DllCallbackGetPtr() (http://www.autoitscript.com/autoit3/docs/functions/DllCallbackGetPtr.htm) и DllCallbackFree() (http://www.autoitscript.com/autoit3/docs/functions/DllCallbackFree.htm) [Ураааа!].
Добавлено: DllCall() (http://www.autoitscript.com/autoit3/docs/functions/DllCall.htm) теперь принимает двойные типы, int64, uint64, wparam и lparam.
Добавлено: SendKeepActive() (http://www.autoitscript.com/autoit3/docs/functions/SendKeepActive.htm).
Добавлено: ControlTreeView() (http://www.autoitscript.com/autoit3/docs/functions/ControlTreeView.htm) [Ураааа!].
Добавлено: ProcessGetStats() (http://www.autoitscript.com/autoit3/docs/functions/ProcessGetStats.htm).
Добавлено: VarGetType() (http://www.autoitscript.com/autoit3/docs/functions/VarGetType.htm) [Ураааа!].
Добавлено: макрос @AutoItX64 (http://www.autoitscript.com/autoit3/docs/macros/AutoItRelated.htm).
Добавлено: Au3Info: Информация идентификатора для окон и контролей (элементов GUI).
Добавлено: DllStructCreate() (http://www.autoitscript.com/autoit3/docs/functions/DllStructCreate.htm) добавлен ключ "align" для установки согласования структуры.



Исправлено: Control...() функции при использовании CLASS и TEXT вместе иногда приводит к неправильному результату.
Исправлено: Control ...() функции при использовании CLASSNN иногда приводит к неправильному результату.
Исправлено: Предпросмотр панели задач в Windows Vista вызывает проблемы с соответствием (поиском) окон.
Исправлено: $var = $var не выводило ошибку если переменная $var не обьявлена.
Исправлено: GUICtrlSetImage() (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetImage.htm) регрессии с изменением размера в 3.2.4.9.
Исправлено: GUICtrlCreateListView() (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateListView.htm) без колонок (Columns).
Исправлено: Экстра уведомление при использовании цветной кнопки.
Исправлено: IniReadSectionNames() (http://www.autoitscript.com/autoit3/docs/functions/IniReadSectionNames.htm) для секции без имени ( [] ).
Исправлено: Opt( "WinTitleMatchMode", Default) фатальная ошибка.
Исправлено: GUICtrlSetStyle() (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetStyle.htm) с $ES_READONLY плохой $WS_TABSTOP.
Исправлено: AutoIt вылетает при выходе, если в функциях Win...() COM-объект используется как заголовок.
Исправлено: ProcessExists() (http://www.autoitscript.com/autoit3/docs/functions/ProcessExists.htm) с сервисным процессом под Win2K.
Исправлено: DefPushButton поведение [Ураааа!].
Исправлено: ControlCommand (http://www.autoitscript.com/autoit3/docs/functions/ControlCommand.htm)(SelectString) порядок отбора.
Исправлено: Массив не может иметь 2 ^ 24 записей (элементов).
Исправлено: GuiCreateMenu() (http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateMenu.htm) на окна без заголовка и без области клиентской части.
Исправлено: WinWaitActive() (http://www.autoitscript.com/autoit3/docs/functions/WinWaitActive.htm) иногда не срабатывает после WinActivate().
Исправлено: При использовании GUIRegisterMsg() в цикле, не срабатывает отмена ригестрации.
Исправлено: Фокус на ES_READONLY Edit контроля.
Исправлено: Многочисленные исправления в UDF'ах.


Перевод by CreatoR (мой), мод на перевод от Google (http://translate.google.com/translate?u=http://www.autoitscript.com/autoit3/docs/history.htm&hl=ru&langpair=en|ru&tbb=1&ie=windows-1252) ;)


[hr]


P.S

Скажу от себя, что в этой версии, как я и писал ранее (http://forum.oszone.net/thread-60616-169.html#post672554), разработчики сделали поворот в 360 градусов, изменили многие функции, добавили новые. Да, теперь чтобы перейти на новую версию, нужно будет поменять многие (если не все) наши скрипты, я если честно не спешу этого делать, т.к у меня их слишком много :) - разработчики знают о том, что подобные перемены проблематичны скриптерам, но понаблюдав за их действиями (на оф. форуме), можно понять, что такие перемены оправданы, тем более что это принесёт пользу в будущем, ведь рано или поздно нужно что-то менять, улучшать, и лучше поменять всё(?) одним махом, чем каждый раз по чуть чуть, мучаясь переписывая скрипты.

Happy Scripting!!! http://files.myopera.com/Creat0R/Opera_AC/Icons/Kolobki/crazy.gif http://files.myopera.com/Creat0R/Opera_AC/Icons/sunglasses_cool.gif

[amel27]

Creat0Rпри открытии странички с роликом на YouTube к примеру, получаю предупреждение о том что нужно установить Flash Player »не знаю как надо, но по тому линку который ты указал проверка производится по алгоритму (вытащил из HTML):MsgBox(0, "", ShockwaveDetectAxVer(0))

; $iVerReq=0 - возврат текущей версии
; $iVerReq>0 - соответствие минимальным требованиям к версии
Func ShockwaveDetectAxVer($iVerReq)
Local $i, $iVer, $sVer
For $i=8 To 1 Step -1
$sVer = GetShockwaveVer($i)
If $sVer <> '0.0' Then
$iVer = Number($sVer)
If $sVer='1.0' Then $iVer = 6
If $iVerReq Then Return $iVer>=$iVerReq
Return $iVer
EndIf
If $iVerReq Then Return False
Return 0
Next
EndFunc

Func GetShockwaveVer($iVer)
Local $swControl=ObjCreate("SWCtl.SWCtl." & $iVer), $sVer = '0.0'
If IsObj($swControl) Then
$sVer = $iVer + '.0'
$sVer = $swControl.ShockwaveVersion("")
Return $sVer
EndIf
EndFunc

[amel27]

Creat0R
Возможно ли отключить (временно) устройство ввода (клавиатуру)? »на базе скрипта-кейлоггера (http://www.autoitscript.com/forum/index.php?showtopic=55694&view=findpost&p=422967) получилось вот что:; Скрипт для версии v3.2.10.0

Global Const $WH_KEYBOARD_LL = 13

Global $hKeyProc = DllCallbackRegister ("_KeyProc", "int", "int;ptr;ptr")
Global $hmod = DllCall("kernel32.dll","hwnd","GetModuleHandle","ptr",0)
Global $hHook = DllCall("user32.dll","hwnd","SetWindowsHookEx","int", $WH_KEYBOARD_LL, _
"ptr", DllCallbackGetPtr($hKeyProc), "hwnd", $hmod[0], "dword", 0)

MsgBox(4096, "", 'После нажатия "Ok" клавиатура будет заблокирована на 10 сек.')
Sleep(10000)
MsgBox(4096, "", 'Клавиатура разблокирована!')

OnAutoItExit()
Exit

Func _KeyProc($nCode, $wParam, $lParam)
If $nCode < 0 Then
$ret = DllCall("user32.dll","long","CallNextHookEx","hwnd", $hHook[0], _
"int",$nCode, "ptr", $wParam, "ptr", $lParam)
Return $ret[0]
EndIf
Return 1
EndFunc

Func OnAutoItExit()
DllCall("user32.dll","int","UnhookWindowsHookEx","hwnd",$hHook[0])
DllCallbackFree($hKeyProc)
EndFunc

[Creat0R]

amel27,
Спасибо, но функция всегда возвращает 0 :( , у меня на компе установлен Flash Player.
Объекта SWCtl.SWCtl у меня нет, возможно это не стандартный объект...

Но вот piccaso вроде нашёл решение (http://www.autoitscript.com/forum/index.php?s=&showtopic=57279&view=findpost&p=438675), у меня, где есть флэш (для IExplorer), возвращает 9, на компе без флэша пока нет возможности проверить:

Global $oErr = ObjEvent("AutoIt.Error","_ComError")
ConsoleWrite(_FlashMajorVersion() & @CRLF)

Func _FlashMajorVersion()
Local $oSwf,$sVersion
$oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash")
if @error Then Return 0 ; No flash at all
$oSwf.AllowScriptAccess = "always"
$sVersion = $oSwf.GetVariable("$version")
if @error Then
$oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash.3")
if @error Then
$oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash.2")
if @error then return 0
Return 2
EndIf
Return 3
EndIf
$sVersion = StringTrimLeft($sVersion,3)
$sVersion = StringLeft($sVersion,StringInStr($sVersion,",")-1)
Return Number($sVersion)
EndFunc

Func _ComError()
; Just set @error, the script will handle it...
Local $iErr = $oErr.number
if $iErr = 0 Then $iErr = -1
SetError($iErr)
EndFunc

на базе скрипта-кейлоггера получилось вот что
:yahoo: Получилось то что надо!!! я правда поменял концепцию примера, во-первых потому то ещё не ставил последнюю версию, а во-вторых потому что мне нужно иметь возможность включать/выключать клавиатуру по запросу (не при выходе из скрипта)...

#include <DllCallBack.au3>
Global $hWinHook

$CallBackProc = TogglePlugKeyBoard()
MsgBox(4096, "", "Клавиатура заблокирована, нажмите OK для разблокирования.")

TogglePlugKeyBoard($CallBackProc)
MsgBox(4096, "", "Клавиатура разблокирована!")

Exit

Func TogglePlugKeyBoard($hCallProc=0)
If IsArray($hWinHook) Then
DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hWinHook[0])
_DllCallBack_Free($hCallProc)
Return 0
EndIf

Local Const $WH_KEYBOARD_LL = 13
Local $hKeyProc = _DllCallBack("_KeyProc", "int;ptr;ptr")
Local $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
$hWinHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", _
"int", $WH_KEYBOARD_LL, _
"ptr", $hKeyProc, _
"hwnd", $hMod[0], _
"dword", 0)
Return $hKeyProc
EndFunc

Func _KeyProc($nCode, $wParam, $lParam)
If $nCode < 0 Then
Local $iRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hWinHook[0], _
"int", $nCode, _
"ptr", $wParam, _
"ptr", $lParam)
Return $iRet[0]
EndIf
Return 1
EndFunc

Но это мелочи, главное что оно блокирует все(?) клавишы, на любой клавиатуре :)

P.S
Кстати, функция OnAutoItExit вызывается по умолчанию, её не обязательно вызывать ( OnAutoItExit() ).

[amel27]

Creat0R
функция всегда возвращает 0 »была ошибка - исправил... чес говоря не проверял - просто тупо сконвертировал
Объекта SWCtl.SWCtl у меня нет, возможно это не стандартный объект »не знаю, у меня после установки плеера объект появился... просто интересно - разные сайты используют разный код для обнаружения... попадался еще один вариант, который был приведен piccaso и использует свойство ShockwaveVersion объекта SWCtl.SWCtl :dont-know

функция OnAutoItExit вызывается по умолчанию, её не обязательно вызывать ( OnAutoItExit() )спасибо, буду знать :)

[Creat0R]

amel27,
у меня после установки плеера объект появился
И ещё у многих... видимо это что-то специфичное/системно-зависимое/условное :)

Я на днях (максимум в субботу) проверю скрипт от piccaso, мне кажется что он сработает (вернёт 0 или ошибку).

По поводу примера для клавы... есть подозрение что это тот же BlockInput, только для клавиатуры, т.к Ctrl Alt Del всё же работает (клаву не включает, но вызывает Диспетчер задач)... нет, я конечно не хочу блокировать и эти клавиши, но просто интересно, действительно ли блокируются все клавиши кроме этих, как бы это проверить точно?

[amel27]

Creat0R
Ctrl Alt Del всё же работает »гы, а эта комбинация неотключаемая aka "in design" :) - требование безопасности

В том скрипте что я прикрепил, замени создание строки состояния (Label) на настоящий StatusBar, и полученное имя видео отобрази в этом статус баре »подправил штатную _GUICtrlStatusBar_SetText() для случая юникода...
если на вход подать результат _Utf8ToUnicode() ту что приводил выше, то текст отобразится корректно... там номер сообщения отличается на 10 ;); Вариант установки текста статус-бара для юникода
; $binUTF16 - текст, тип Binary

Func _GUICtrlStatusBar_SetUTF16($hWnd, $binUTF16, $iPart = 0, $iUFlag = 0)
If $Debug_SB Then _GUICtrlStatusBar_ValidateClassName($hWnd)
Local $ret, $struct_String, $sBuffer_pointer, $struct_MemMap, $Memory_pointer
$struct_String = DllStructCreate("byte[" & BinaryLen($binUTF16) & "];byte[2]")
$sBuffer_pointer = DllStructGetPtr($struct_String)
DllStructSetData($struct_String, 1, $binUTF16)
If _GUICtrlStatusBar_IsSimple($hWnd) Then $iPart = $SB_SIMPLEID
If _WinAPI_InProcess($hWnd, $__ghSBLastWnd) Then
$ret = _SendMessage($hWnd, $SB_SETTEXT+10, BitOR($iPart, $iUFlag), $sBuffer_pointer, 0, "wparam", "ptr")
Else
$Memory_pointer = _MemInit($hWnd, StringLen($sText) + 1, $struct_MemMap)
_MemWrite($struct_MemMap, $sBuffer_pointer)
$ret = _SendMessage($hWnd, $SB_SETTEXT+10, BitOR($iPart, $iUFlag), $Memory_pointer, 0, "wparam", "ptr")
_MemFree($struct_MemMap)
EndIf
Return $ret <> 0
EndFunc

[Creat0R]

amel27,
эта комбинация неотключаемая aka "in design"
Я как бы знал это, но мне не нужно их отключать, а просто убедиться что всё остальное действительно отключено... у тебя случайно на клаве нет лишних кнопочек? :) например Power/Sleep которая обычно делает то, что на ней написано :biggrin:

подправил штатную _GUICtrlStatusBar_SetText() для случая юникода...
Эх, не дано мне пока этим воспользоваться, я не ставил ещё последнюю версию, боюсь :cry: - у меня много скриптов, всё мгновенно поламется, желание сразу пропадёт что либо там менять :lazy: .

Но всё ровно конечно спасибо, когда обновлюсь (не скоро видимо) оно мне пригодится.

[amel27]

Creat0R
у тебя случайно на клаве нет лишних кнопочек? например Power/Sleep »угу, кнопки питания не блокируются... на MSDN по этому поводу написано, что эти события не доходят до API, т.е. их нужно перехватывать раньше - в драйвере клавиатурного фильтра: How to disable the keyboard Sleep button with a filter driver (http://support.microsoft.com/kb/302092)... хотя можно попытаться порулить политикой питания, на ентот счет есть свои API и, к примеру, менять эти настройки на время блокировки :)
я не ставил ещё последнюю версию »не вопрос - вот вариант для версии 3.2.8.1, там в общем все довольно просто... объединил заодно две функции в одну - теперь кодировку текста можно задавать прямо в параметрах (для текста в UTF8 - 65001)... Кстати, обнаружил что, в 10-ке алгоритм более продуманный в плане производительности.Func _GUICtrlStatusBarSetTextEx($h_StatusBar, $s_Data = "", $i_Part = 0, $iCode = 0)
If Not IsHWnd($h_StatusBar) Then $h_StatusBar = HWnd($h_StatusBar)
If Not _IsClassName ($h_StatusBar, "msctls_statusbar32") Then Return SetError(-1, -1, False)
Local $ret = DllCall("Kernel32.dll", "int", "MultiByteToWideChar", _
"int", $iCode, "int", 0, _
"str", $s_Data, "int", -1, _
"ptr", 0, "int", 0)
If $ret[0]=0 Then Return SetError(-1, -1, 0)
Local $struct_String = DllStructCreate("byte[" & $ret[0]*2+2 & "]")
Local $sBuffer_pointer = DllStructGetPtr($struct_String)
Local $struct_MemMap
Local $Memory_pointer = _MemInit ($h_StatusBar, DllStructGetSize($struct_String), $struct_MemMap)
If @error Then
_MemFree ($struct_MemMap)
Return SetError(-1, -1, 0)
EndIf
$ret = DllCall("Kernel32.dll", "int", "MultiByteToWideChar", _
"int", $iCode, "int", 0, _
"str", $s_Data, "int", -1, _
"ptr", DllStructGetPtr($struct_String), "int", $ret[0])
If $ret[0]=0 Then
_MemFree ($struct_MemMap)
Return SetError(-1, -1, 0)
EndIf
_MemWrite ($struct_MemMap, $sBuffer_pointer)
If @error Then
_MemFree ($struct_MemMap)
Return SetError(-1, -1, 0)
EndIf
$ret = _SendMessage($h_StatusBar, $SB_SETTEXT+10, $i_Part, $Memory_pointer)
If @error Then
_MemFree ($struct_MemMap)
Return SetError(-1, -1, 0)
EndIf
_MemFree ($struct_MemMap)
Return $ret
EndFunc ;==>_GUICtrlStatusBarSetTextEx

[SvetlanaK]

Здравствуйте!
вклиниваюсь в переписку по очень важному для меня вопросу....
не знает ли кто-то как решить такую проблему. Речь идет об открытии файла эксель.
$sFilePath="C:\фйлик.xls"
$oExcel_Pr_M = _ExcelBookOpen($sFilePath)
открываю файл Exel. Но он имеет сязи с другими книгами, и при открытии всплывает предупреждение Microsoft Excel - "Эта книга содержит связи с другими источниками данных..." и три кнопки - обновить, не обновлять и справка.
В этот момент скрипт останавливается!!!! пока я руками не сделаю выбор...это же неправильно( пробовала послать Send - бесполезно! причем как-то странно реагирует на посыл, раз сделает как надо, раз - нет( я не понимаю в чем дело. Мне надо ответить - "не обновлять" и дальше двигаться...но на этом все встало((

[Angelus]

Прошу прощения..но ктонить может обьяснить мне тупому почему данная каманда не работаает???

Run ( @SystemDir )

[SvetlanaK]

а вы какую программу там хотите запустить? вот например это запускается без проблем
Run(@SystemDir & "\cmd.exe")

[Drsmog]

Как выслать в EXEL 2003 клавиши Ctrl+a
я делаю так send('{Ctrl}+{a}')
и несрабатывает :-((, а должно было все выделится

[amel27]

SvetlanaK, Мне надо ответить - "не обновлять" »хм, а почему "не обновлять"?.. Вот нажатие "обновлять" можно "автоматизировать" в Excel: параметры\правка\запрашивать об обновлении... Проблема в том, что скрипт простаивает ожидая завершения открытия файа, поэтому чтобы нажать на кнопку нужен уже второй скрипт... :) Можно конечно замутить аналог AdLib на CallBack, но для этого нужно знать версию AutoIT... а может все-таки "обновить"? ;)

Drsmog
send("^a")

[Angelus]

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

[Drsmog]

это send("^a") несрабатывает он мне просто вставляет эти символы

[Drsmog]

а усе разобрался вобщем так

ControlFocus ( $EXEL, "", 'MsoCommandBar')

SEND("^ф") ; это нажимает как Ctrl+a