[Creat0R]

Как получить пути к системным папкам, не используя COM-обьекты? (Shell.Application к примеру, не на всех системах будет корректно работать).

Реестр тоже отпадает, там нет того что нужно (например “Мои видеозаписи” там и близко нет).

На данный момент нужно именно для “Мои видеозаписи”, но в частности хотелось бы и к другим папкам.

[amel27]

“Мои видеозаписи” там и близко нет »

неправда: HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, параметр: "My Video"

[Creat0R]

amel27,

неправда: HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

Хм, поиск по “Мои видео” не дал результатов... спасибо.
Насколько “надёжна” эта ветка? она там присутствует на всех Win-системах?

[amel27]

Насколько “надёжна” эта ветка? »

ИМХО вполне надежна для тех ОСей, в которых такая папка определена в профиле - в Win2K к примеру ее не было... в XP она тоже не всегда присутствует, но в этом случае значение параметра "пусто"

[Creat0R]

amel27,
Ок, Спасибо.

[V0van3]

в хелпе к AUTOIT есть:

Таким образом, если сценарий запущен с помощью строки: AutoIt3.exe myscript.au3 param1 "а это другой параметр" то после загрузки в нем можно использовать следующий специальный массив: $CmdLine[0] равно... 2 $CmdLine[1] равно... param1 $CmdLine[2] равно... а это другой параметр @ScriptName равно... myscript.au3

так вот проблема в том что "а это другой параметр" в $CmdLine[2] обрезается до первого пробела!
вызывал из батнега:
%path_cmdutils%\Autoit3.exe %~dp0\FlashPlayerUpdate.au3 /p %AppPath%
как надо правильно если в значении %AppPath% есть пробелы?


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

Код:

;Поочерёдный кликер в разные области экрана
;Copywrite by Vovan [CAD/EDP]

;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)

;запускать после открытия окна браузера
Run('C:\Program Files\Internet Explorer\iexplore.exe http://newyorkdesign.hp.infoseek.co.jp/findit.html')
;дожидаемся активности окна 
WinWaitActive('findit - Microsoft Internet Explorer','')
;настройка мыши на коортдинатны окна
Opt("MouseCoordMode",2)

;координаты угла флешки
$absx=332
$absy=279

;ожидание загрузки страницы
Sleep(4000)
;кликнуть по "Start"
Sleep(500)
mouseclick("left",$absx+284,$absy+327,1)
;прокликать поочерёдно по пикселям
for $y=0 to 400 step 10
 for $x=0 to 600 step 10
  WinWaitActive('findit - Microsoft Internet Explorer','')
  mouseclick("left",$absx+$x,$absy+$y,1)
  Sleep(300)
  ;нажимаем кнопку "try again"
  Send('{TAB}')
  Send('{SPACE}')
 next
next

Вообще что лучше использовать для управления веб интерфейсами autoit или autohotkey?

[Creat0R]

V0van3,

как надо правильно если в значении %AppPath% есть пробелы?

Заключить переменную в кавычки:

Код:

%path_cmdutils%\Autoit3.exe "%~dp0\FlashPlayerUpdate.au3" /p "%AppPath%"

какое условие в таком скрипте должно отследить успешное срабатывание чтобы сделать exitloop?

Срабатывание чего? из скрита непонятно какова цель..

А вообще, для таких задач (автоматизации Internet Explorer), есть встроенная библиотека IE.au3, там можно запустить адрес в IE, и функция будет ждать окончания загрузки страницы, также можно нажать на ссылку/кнопку зная заранее только её текст, и т.д и т.п.

то лучше использовать для управления веб интерфейсами autoit или autohotkey?

Думаю что они оба не подходят для этой задачи, хотя если только IE, тогда AutoIt для этого вооружён

[Creat0R]

Ещё один сюрприз от разработчиков!

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

3.2.9.12 (17th November, 2007) (Beta) - Added: DllCallbackRegister(), DllCallbackGetPtr() and DllCallbackFree()

Библиотека DllCallBack.au3 полагаю уже будет не нужна

[Creat0R]

Имитация телефонного звонка:

Код:

HotKeySet("{Esc}", "Quit")

_PhoneRing(8)

;===============================================================================
;
; Function Name:    _PhoneRing()
; Description:      Beep Sound Imitation of Phone Rings.
; Parameter(s):     $iRings [Optional] - Rings to beep (5 is the default),
;                       If $iRings > 0 Then this time of rings will be sounded.
;                       If $iRings < 0 Then number after - sign will be used to indicate how long (seconds) the function will ring.
;                       If $iRings = 0 Then the function will ring (loop) forever :)
;                   $iDuration [Optional] - Duration of the Ring to beep (15 is the default).
;                   $iWait - [Optional] How long to wait between each rings in milleseconds (1500 is the default).
;
; Return Value(s):  Always returns 1 regardless of success.
; Requirement(s):   None.
; Author(s):        G.Sandler (a.k.a CreatoR).
;
;===============================================================================
Func _PhoneRing($iRings=5, $iDuration=15, $iWait=1500)
    Local $iCount = 0, $iTimerInit = TimerInit()
    While 1
        $iCount += 1

        For $i = 1 To $iDuration
            Beep(1000, 35)
            Beep(2000, 30)
            Beep(1500, 25)
        Next

        If $iRings > 0 And $iCount = $iRings Then Return 1
        If $iRings < 0 And TimerDiff($iTimerInit) / 1000 >= -$iRings Then Return 1

        Sleep($iWait)
    WEnd
EndFunc

Func Quit()
    Exit
EndFunc

[Creat0R]

GuiCtrlSetOnHover() UDF!

Эта функция предназначена для управления элементами при наведении курсора мышки над ними (Hovering Process), используется точно также как и подобные функции GuiCtrlSetOnEvent().

Вот пример, создаёт алфавит из кнопок, когда проводим мышкой по кнопкам, они красятся в красный цвет, также обратите внимание - это будет работать даже если GUI окно не активно, и даже если запущен обычный MsgBox !!! (нажмите на кнопку буквы).

Код:

#include <GuiCtrlSetOnHover_UDF.au3>
Opt("GuiOnEventMode", 1)

$Btn_Color = 0x7A9DD8
$Hover_Color = 0xFF0000

$GUIMain = GuiCreate("GuiCtrlSetOnHover - Letters Demo", 570, 200)
GUISetOnEvent(-3, "Quit")

GUICtrlCreateLetters(10, 60, 18, 20)

$Close = GuiCtrlCreateButton("Close", 30, 120, 100, 30)
GUICtrlSetOnEvent($Close, "Quit")

GuiSetState()

While 1
    Sleep(100)
WEnd

Func GUICtrlCreateLetters($iLeft, $Top, $Width=15, $Height=15)
    Local $iLeft_Begin = $iLeft
    Local $iAsc_Char = 64
    For $i = 0 To 25
        $iLeft_Begin += 20
        $iAsc_Char += 1
        GUICtrlCreateButton(Chr($iAsc_Char), $iLeft_Begin, $Top, $Width, $Height)
        GUICtrlSetOnEvent(-1, "LetterEvents")
        GUICtrlSetOnHover(-1, "Hover_Func", "Leave_Hover_Func")
        GUICtrlSetBkColor(-1, $Btn_Color)
        GUICtrlSetFont(-1, 6)
    Next
EndFunc

Func LetterEvents()
    MsgBox(64, "Pressed", "Letter = " & GUICtrlRead(@GUI_CtrlId))
EndFunc

Func Hover_Func($CtrlID)
    GUICtrlSetBkColor($CtrlID, $Hover_Color)
EndFunc

Func Leave_Hover_Func($CtrlID)
    GUICtrlSetBkColor($CtrlID, $Btn_Color)
EndFunc

Func Quit()
    Exit
EndFunc

Сам UDF скачать можно тут.
История зарождения функции на оф. форуме .