[Creat0R]

amel27

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

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

Т.е всё что нужно так это делить на два и отнимать 2?

Я правда их достал уже баг репортами ... лично JdeB'а точно достал ...

... and as far as updating ALL UDF's that possibly use this older method of concatenation of strings: No promises from my site .....

Он не считает это багом.

[amel27]

Creat0R

Он не считает это багом.

да мне все равно как назвать, лишь бы поправили...
когда скрипт от одной UDF уходит в даун я это воспринимаю как баг

Я правда их достал уже баг репортами

ладно, спасибо - пойду по твоему линку и сам накляузничаю - мне терять нечего

ADD: я там тебя поддержал vs JdeB
Как я понял про чтение бинарных данных - это не баг, а фича... вот уж завернули
теперь напрямую без дополнительных преобразований в текст работать с такими данными не получится

[_atta_]

Приветствую.

Вопрос по FileReadLine в autoit 3, необходимо сделать так, чтобы считывались все строки в файле по одной, но с таким условием, чтобы это было возможно после закрытия файла FileClose и повторного открытия. Грубо говоря брутфорс атака по словарю, но с закрытием исполняемого файла программы и повторным запуском, где в поле для ввода пароля заносится следующая строка из текстового файла.

Приму любую помощь и воздам по заслугам . Стучите асю 111296.

P.S. - нет, аналог брутуса я не пишу.

[Creat0R]

amel27

я там тебя поддержал vs JdeB

Спасибо

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

Я так понимаю нужно в бинарные данные преобразовывать чтобы получить размер, а потом чтобы получить нормальный текст преобразовывать обратно в String? (BinaryToString()).

Это скажется и при обычной работе с файлами? или в основном при работе с функциями Dll?

_atta_

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

А в чём проблема? считываем в массив весь файл, и перебираем строки...

Код:

$ReadFileArr = StringSplit(FileRead("C:\File.txt"), @LF)

For $i = 1 To $ReadFileArr[0]
     ;$ReadFileArr[$i] содержит текущую строку (от первой и к последней), с ней можно делать что угодно ;)
Next

[Creat0R]

amel27
Ещё одна беда в новом аутоите - Измученная функция _FileSelectFolderOldStyle() отказывается работать при использовании фичи для которой она и была изначально задуманна - если указать что либо в параметре InitDir (всё кроме нуля (0) ), то функция “убивает” весь скрипт.

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

Код:

$pidl = DllCall ("shell32.dll", "ptr", "SHBrowseForFolder", "ptr", DllStructGetPtr ($ubi))

Сколько я ни химичил с этой строкой, ничего не вышло

[Palych64]

To Sanja Alone and all

Прикол хотите?

Я откомпилировал скрипт набортным компилятором и погонял его на своих компах -- всё нормально. Мой KAV на .exe не ругался.
Ладно. Отослал этот экзешник своему коллеге, чтобы он посмотрел и заценил. И тут он мне по аське пишет, что его Dr.WEB детектит этот экзешник, как BackDoor.IRC.FFbot

Я сразу загнал этот файлик на virustotal.com. Там 29 антивирусных движков встроено в сайт. И присланный файл прогоняется через все 29. Потом юзеру показывается результат -- что каждый из антивирусов сказал про этот файл.

Посмотрел я на результат и -- точно Dr.WEB задетектил там бэкдор. Кроме доктора облажались ещё:
eSafe -- suspicious Trojan/Worm
VBA32 -- Trojan.Win32.Autoit.ao
Webwasher-Gateway -- Worm.Win32.ModifiedUPX.gen!90 (suspicious)

VBA32 вообще убил наповал. Мало того, что они этот безобидный екзешник в трояны записали, так они ещё и категорию такую придумали -- AutoIt.

А с кого перепуга они задетектили этот экзешник, как вредоносный -- вообще непонятно. Он же просто создаёт штатными виндовыми средствами учётную запись в ОЕ. Просто эмулирует нажатие кнопок и имеет при этом видимые окна. Чего тут криминального?

Я написал письмо в Dr.WEB. Описал кратко ситуацию, приложил скрипт и экзешник.
Ответили довольно быстро. Подтвердили, что, дескать, -- да, ложное срабатывание и что сигнатуры исправлены.

При последующей проверке на VirusTotal Dr.WEB уже ничего не детектил.

В VBA32 я тоже письмо написал. Ответа пока нет. Но насколько я знаю, они никогда быстро не реагировали.

А ещё у кого-нибудь были случаи, что бы антивири ругались на скрипты AutoIt или откомпилированные экзешники?

[amel27]

Creat0R

Это скажется и при обычной работе с файлами? или в основном при работе с функциями Dll?

Если бинарные данные содежат текст в известной кодировке, то никаких проблем (кроме дополнительных преобразований), а вот для других целей их использовать пока не получится - функций для непосредственной работы с бинарниками пока явно недостаточно - только BinaryMid() и BinaryLen().

Сколько я ни химичил с этой строкой, ничего не вышло

да, печально... у меня тоже некоторые давно скачанные с офсайта проги перестали запускаться. Проблема кстати в другом месте - там, где ищется адрес оконной процедуры, именно он и передается в SHBrowseForFolder() вместо CallBack-функции. Если закомментировать вторую строку ошибка исчезнет, но соответственно и председселект перестанет работать:

Код:

        $ret = DllCall ("user32.dll", "ptr", "GetWindowLong", "hwnd", $hwnd,  "int", -4)
        DllStructSetData ($ubi, 6, $ret[0])

попробую еще помучить Piccaso, хотя сам понимаш никаких гарантий... все-таки на сегодня единственный "легальный" способ - использовать вспомогательные DLL-ки, а наче опять - до очередной смены версий.

Palych64

А ещё у кого-нибудь были случаи, что бы антивири ругались на скрипты AutoIt или откомпилированные экзешники?

на офсайте по этому поводу есть ветка: Are my AutoIt EXE's really infected?, How and Why your EXE's have been deleted.

[Diamond]

Давно искал способ как определить наличие подключения к Интернет, наконец-то нашёл:

Код:

If IsConnected() Then
	MsgBox(0,"","Соединение установлено")
Else 
	MsgBox(0,"","Соединение отсутствует")
EndIf

Func IsConnected()
	Local $IsConnected = DllCall("wininet.dll","int","InternetGetConnectedState","int",0,"int",0)
	Return $IsConnected[0]
EndFunc

Просьба проверить, всё ли правильно в функции?
Проверял на DialUp - работает!

Второй вопрос, как определить скорость подключения к Интернет?

[Creat0R]

Diamond

наконец-то нашёл

Хорошая находка, спасибо...

Правда уже довольно давно и я искал подобное, и amel27 привёл пример (там также можно получить описание причины по которой не доступно соеденение, и ещё разную инфу).

Просьба проверить

У меня работает отлично, соеденение по локальной сети (Кабельное подключение через роутер).

как определить скорость подключения к Интернет?

Общую скорость я не знаю как получить (самому интересно), а вот (примерную) скорость закачки (Download) можно получить так (основа для примера взята с оф. форума - от самого Jon'а )....

Код:

#include <Inet.au3>

$TimerInit = TimerInit()
$Source = _INetGetSource("http://www.microsoft.com/default.asp")
$TimerDiff = TimerDiff($TimerInit)

$Size = StringLen($Source)
$speed = Int(($Size / 1024) / ($TimerDiff / 1000))

MsgBox(0, "Approximate Internet Download Speed", $Speed & " KB/s")

[Diamond]

Creat0R
Функции от amel27 и Jon'а пожалуй добавлю в свою коллекцию. Спасибо!

У меня работает отлично, соеденение по локальной сети (Кабельное подключение через роутер).

Отлично! Думаю, теперь этот способ можно смело использовать.