[Creat0R]

Diamond

Кто ни будь знает, как использовать команду PluginOpen() и где взять сами плагины?

Как я понял, это может быть использованно вместо DllOpen(), но предназначено для открытия плагинов SDK...

Вот ссылка на топик в оф. форуме - Coming Soon: Plugins
А вот как я понял сами плагины - http://www.autoitscript.com/autoit3/...plugin_sdk.zip

И ссылка на помощь по коммандам (во встроенной справке описании почему то нет ) - http://www.autoitscript.com/autoit3/...PluginOpen.htm

[Creat0R]

Такой вопрос касательно RegExp...

К примеру имеем такую переменную:

Код:

$String = "This   is   the   text"

И нужно используя StringRegExpReplace() заменить все двоичные пробелы на одиночные, т.е чтобы в результате получилось это:

Код:

$String = "This is the text"

Это можно сделать циклом:

Код:

While StringInStr($String, '  ')
	$String = StringReplace($String, '  ', ' ')
WEnd

Но полагаю RegExp быстрее справится с этой задачей....

P.S
Желательно организовать для этого функцию, т.к вызывать придётся не раз, и использовать разные удвоенные символы...

Вот пример этой же функции используя цикл (до сих пор ею и пользуюсь) :

Код:

Func ReplaceUnsupported($String, $Patern='[*?\\/|:<>"]', $Replace="_")
    If StringLen($String) = 0 Then Return $String
    $String = StringRegExpReplace($String, $Patern, $Replace)
    While StringInStr($String, $Replace & $Replace) <> 0
        $String = StringReplace($String, $Replace & $Replace, $Replace)
    WEnd
    Return $String
EndFunc

В общем в целом, эта функция предназначена для замены не поддерживаемых символов в имени файла, но чтобы заменяемы символы не повторялись подряд.

[Creat0R]

Нашёл!!! Эврика!!!

Вот оно - StringRegExpReplace($String, '( +)', ' ')

И вот функция соответственно (для других символов) :

Код:

Func ReplaceUnsupported($String, $Patern='[*?\\/|:<>"]', $Replace="_")
    If StringLen($String) = 0 Then Return $String
    $String = StringRegExpReplace($String, $Patern, $Replace)
    $String = StringRegExpReplace($String, '(' & $Replace & '+)', $Replace)
    Return $String
EndFunc

Вот пример для использования с именами файлов (чтобы в имени файла не попались неподдерживаемые символы, и чтобы при их замене не было повторных замененных символов) :

Код:

$String = 'This//\\is<|"|>my??"??:??\*\"::|/::"File.txt'

$String = ReplaceUnsupported($String, '[*?\\/|:<>"]', '_')

ConsoleWrite($String) ;На выходе имеем это - This_is_my_File.txt

[schel4ok]

amel27

попробуй вместо Run() использовать ShellExecute() не для EXE, а для ярлыка (*.LNK), поищи его в папке Рабочего стола....

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

[schel4ok]

Недавно пробовал запустить msi файл из под АвтоИТ (TweakUI.msi) и вот что вышло:
- если запускать ShellExecute("файл.msi /параметр") то ничего не получается
- если запускать ShellExecute("файл.msi") все нормально запускается,но...

при появлении первого же диалогового окна установщика, я скопировал его титул и текст через Ау3инфо и попытался запустить скрипт.
оказалось что АвтоИТ почему то не понимает этих данных и соответственно скрипт останавливается на WinWaitActive

why?

[Creat0R]

schel4ok

оказалось что АвтоИТ почему то не понимает этих данных и соответственно скрипт останавливается на WinWaitActive

Возможно окно не становится активным?
Попробуй вместо WinWaitActive() использовать WinWait().

[schel4ok]

Creat0R

Возможно окно не становится активным? Попробуй вместо WinWaitActive() использовать WinWait().

Возможно, попробую на днях.
Но когда я испытывал скрипт - я вручную запускал инсталлер.
Потом запускал строчки скрипта, отвечающие за обработку данного окна WinWaitActive.
И после этого тыкал мышкой по окну - соответственно оно по любому было активным, но скрипт не работал.

Вообще я часто встречал что когда наводишь на один и тот же элемент управления, то в окне Ау3инфо в строке classnameNN мигают разные значения.
Я так один раз, например, устанавливал прогу и не мог понять почему она не ставиться. А дело было в том, что в четвертое по счету окно я вводил в текстовое поле путь к папке ярлыков в меню пуск inet\swissknife, а этот путь вместо этого попадал в текстовое поле во втором окне выбора пути к установочной папке C:\swissknife.

Так что shit happens! И видимо дело в наложении одних и тех же элементов управления и в их видимости и невидимости в определенные моменты.

[schel4ok]

Кстати, а существуют ли подобные АвтоИт программы для КПК?

[GTeam]

тоже интересует версия для КПК.

ну и вопрос естественно!
на сервере лежит файл txt формата который каждый день обновляется, меняются url к exe файлу который нужно скачать и запустить нашим скриптом,
можно ли создать скрипт который будет выполнять работу парсера, а точней выдерать с файла http://www.site.com/update.txt строку(http://url_to_file_from_txt_file.com/filename.exe) одна единственая строка в файле! затем качать этот самый exe и запустить его в тихом режиме..

Global $file = 'file.exe'
$Ret = InetGet("http://url_to_file_from_txt_file.com/filename.exe", $file, 1, 0)
If $Ret = 1 Then RunWait ( $file & ' /S' )

[amel27]

ярлык в принципе запускается и начинается процесс настройки Маткада. Но в самом конце, он пишет что задан неправильный параметр ярлыка

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

Код:

#include <ListViewConstants.au3>

$a = _GetDesktopItemList('Мой компьютер')
 ;~ свернуть все окна
Send("#d")
 ;~ запустить ярлык
MouseClick ("left", $a[0], $a[1], 2, 1)

;~ По имени элемента рабочего стола (ярлыка) возвращает его местоположение:
;~	x-координата, y-координата.
;~ Если не задан конкретный элемент, то возвращает двумерный массив всех элементов рабочего стола:
;~	имя элемента, x-координата, y-координата;
;~	первый элемент массива содержит количество записей.
Func _GetDesktopItemList($sItemName='')
	Local $i, $ret, $hWnd, $hProc, $pMem, $IconList, $IconInfo[2], $IconList[1][3] = [[0]]
	Local Const $iMaxSize = 254
	;~ Создаем структуры данных API
	Local $uPID = DllStructCreate("long")
	Local $uBuffer = DllStructCreate("long;long;int;int;int;int;int;ptr;int;int;int;int;int;int;int;int;int;char["& $iMaxSize &"]")
	Local $uPOINTAPI = DllStructCreate("long;long", DllStructGetPtr($uBuffer,1))
	Local $uLVITEM = DllStructCreate("int;int;int;int;int;ptr;int;int;int;int;int;int;int;int;int", DllStructGetPtr($uBuffer,3))
	Local $uTEXT = DllStructCreate("char["& $iMaxSize &"]",DllStructGetPtr($uBuffer,18))
	;~ Ищем GUI - список элементов рабочего стола
	$hWnd = DLLCall ("user32.dll", "hwnd", "FindWindow", "str", "Progman", "str", "Program Manager" )
	$hWnd = DLLCall ("user32.dll", "hwnd", "FindWindowEx", "hwnd", $hWnd[0], "int", 0 , "str", "SHELLDLL_DefView", "int", 0 )
	$hWnd = DLLCall ("user32.dll", "hwnd", "FindWindowEx", "hwnd", $hWnd[0], "int", 0 , "str", "SysListView32", "int", 0 )
	;~ Находим количество элементов списка и готовим массив
	$ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd[0], "int", $LVM_GETITEMCOUNT, "int", 0, "ptr", 0 )
	If $ret[0]=0 Then Return SetError(1, 0, -1)
	ReDim $IconList[$ret[0]+1][3]
	$IconList[0][0]=$ret[0]
	;~ Находим процесс, которому принадлежит список
	$ret = DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $hWnd[0], "ptr", DllStructGetPtr($uPID))
	$hProc = DllCall('kernel32.dll', 'int', 'OpenProcess', "int", 0x38, "int", 0, "int", DllStructGetData($uPID,1))
	;~ Резервируем и заполняем память в чужом процессе
	$pMem = DllCall('kernel32.dll', 'int', 'VirtualAllocEx', _
		"int", $hProc[0], "ptr", 0, "int", DllStructGetSize($uBuffer),	"int", 0x3000, "int", 0x4)
	DllStructSetData($uLVITEM, 1, $LVIF_TEXT)
	DllStructSetData($uLVITEM, 6, $pMem[0]+DllStructGetSize($uPOINTAPI)+DllStructGetSize($uLVITEM))
	DllStructSetData($uLVITEM, 7, $iMaxSize)
	$ret = DllCall("kernel32", "int", "WriteProcessMemory", _
		"int", $hProc[0], "ptr", $pMem[0], "ptr", DllStructGetPtr($uBuffer), "int", DllStructGetSize($uBuffer), "ptr", 0)
	;~ Считываем параметры каждого элемента списка
	For $i=0 To $IconList[0][0]-1
		$ret = DllCall("user32.dll", "int", "SendMessage", _
			"hwnd", $hWnd[0], "int", $LVM_FIRST+16, "int", $i, "ptr", $pMem[0])
		$ret = DllCall("user32.dll", "int", "SendMessage", _
			"hwnd", $hWnd[0], "int", $LVM_GETITEMTEXTA, "int", $i, "ptr", $pMem[0]+DllStructGetSize($uPOINTAPI))
		$ret = DllCall("kernel32", "int", "ReadProcessMemory", _
			"int", $hProc[0], "ptr", $pMem[0], "ptr", DllStructGetPtr($uBuffer), "int", DllStructGetSize($uBuffer), "ptr", 0)
		$IconList[$i+1][0]=DllStructGetData($uTEXT,1)
		$IconList[$i+1][1]=DllStructGetData($uPOINTAPI,1)
		$IconList[$i+1][2]=DllStructGetData($uPOINTAPI,2)
	Next
	;~ Освобождаем память
	$ret = DllCall('kernel32.dll', 'int', 'VirtualFreeEx', "int", $hProc[0], "ptr", $pMem[0], "int", 0, "int", 0x8000)
	$ret = DllCall("kernel32.dll", "int", "CloseHandle", "int", $hProc[0])
	;~ Возвращаем данные
	If $sItemName = '' Then Return $IconList
	For $i=1 To $IconList[0][0]
		If $IconList[$i][0]=$sItemName Then ExitLoop
	Next
	If $i=$IconList[0][0]+1 Then Return SetError(2, 0, -1)
	$IconInfo[0]=$IconList[$i][1]
	$IconInfo[1]=$IconList[$i][2]
	Return $IconInfo
EndFunc