[Creat0R]

MaxxQ,

полезные проги

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

[Angelus]

Никто не в курсе как можно даную функцию (_IsPressed) заставить вести лог??, тоесть сохранять все нажатия клавиш в текстовом файле....

[Maza Faka]

Angelus
Примерно так:

Код:

#include <Misc.au3>

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

Global $KeyArray[6]

$KeyArray[0] = 5
$KeyArray[1] = 01
$KeyArray[2] = 02
$KeyArray[3] = 04
$KeyArray[4] = 08
$KeyArray[5] = 09

$log = FileOpen("c:\log.txt", 2)
$dll = DllOpen("user32.dll")

AdlibEnable("KeyPress", 100)

While 1
    Sleep(100)
WEnd

FileClose($open)
DllClose($dll)

    Func Quit()
    Exit
EndFunc

Func KeyPress()
    For $i = 1 To $KeyArray[0]
        If _IsPressed($KeyArray[$i], $dll) Then FileWriteLine($log, $KeyArray[$i])
        Next
    EndFunc

Вышеуказанный скрипт отслеживает нажатия: левой и правой кнопок мыши, клавиши Tab и BackSpace
Но написать полноценный кейлогер при помощи AutoIT-а не получится, всё таки это скриптовый язык.

[Creat0R]

Maza Faka, Angelus,

написать полноценный кейлогер при помощи AutoIT-а не получится »

Получится, Larry (на моё удивление) написал подобную штучку (вот более понятный пример).

[MaxxQ]

Maza Faka, у меня еще один вопрос возник в процессе использования скрипта , как добавить в него суммы исключения, к примеру что бы по появлении суммы равной 6666666666, 777777777, 8888888888 нечего не происходило бы??????
Спасибо

[Creat0R]

MaxxQ,

что бы по появлении суммы равной 6666666666, 777777777, 8888888888 нечего не происходило

Простая логичная проверка:

Код:

If $checksum = 6666666666 Or $checksum = 777777777 Or $checksum = 8888888888 Then
    ;Тут ничего не происходит ;)
Else
    ;Тут происходит то что нам нужно
EndIf

P.S
При необходимости можно все исключения поместить в массив (также как и с массивом пикселей), и проверять поиском по массиву (текущего $checksum).

[MaxxQ]

все, вроде закончил скрипт, спасибо всем за помощь

[Kenwood3D]

Доброго времени суток.
Подскажите пожалуйста.
Необходимо программно отркрыть окно свойства одного из сетевого подключения (через AutoIt). К примеру, чтобы открыть "Сетевые подключения" необходимо выполнить ::{7007acc7-3202-11d1-aad2-00805fc1270e}, а что надо выполнить чтобы открыть свойства или состояние конкретного подключения?
Есть способ через rasphone.exe -f "C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" -e "Inet", но так открывает только VPN-соединение "Inet", а подключение по локальной сети не хочет.

[Dementei]

Здравствуйте.
Только вчера открыл для себя AutoIT.
Написал следующее:

Код:

;Открывает окно из которого копируем через ctrl-c и закрывает окно ctrl-a
Send("901")
Send("^c")
Send("^a")
$old_name = ClipGet()
$new_name = InputBox("Переименовать", "Введите новое название файла", $old_name)
;Открывает окно куда вводится новое имя файла
Send("901")
Send($new_name)

Все работает только тогда, когда раскладка клавиатуры по умолчанию английская и язык для печати английский. В других случаях таких как en-ru, ru-en, ru-ru работает не так как надо либо вообще не работает. Подскажите, что надо сделать, чтоб этот скрипт работал при любых раскладках. Так же при русской раскладке по умолчанию не срабатывают ctrl-c ... Спасибо.

[amel27]

Kenwood3D

Необходимо программно отркрыть окно свойства одного из сетевого подключения »

Код:

HotKeySet("{Esc}", "OnExit")
_OpenConnProperties('Подключение по локальной сети')

While 1
    Sleep(1000)
Wend

Func _OpenConnProperties($sConnName)
    Local $oShellApp = ObjCreate('shell.application')
    Local $oCP = $oShellApp.Namespace (3), $item
    For $item In $oCP.items
        If $item.name = 'Сетевые подключения' Then
            For $item In $item.getfolder.items
                If $item.name = $sConnName Then $item.InvokeVerb('Сво&йства')
            Next
        EndIf
    Next
EndFunc

Func OnExit()
    Exit
EndFunc