Серый форум — AHK: Разблокировка файла

Re: AHK: Разблокировка файла

null@example.com (Malcev) — Sun, 01 Jul 2018 01:22:24 +0000

serzh82saratov пишет:

Сложновато

В начале да.
Но стоит понять алгоритм и вызвать пару раз нужные функции - не сложнее, чем dllcall.

Re: AHK: Разблокировка файла

null@example.com (teadrinker) — Sat, 30 Jun 2018 22:28:47 +0000

Это в AHK сложновато, поскольку эти интерфейсы напрямую не поддерживаются, а c++, c# они по названиям и вызываются.

Re: AHK: Разблокировка файла

null@example.com (serzh82saratov) — Sat, 30 Jun 2018 21:56:52 +0000

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

Re: AHK: Разблокировка файла

null@example.com (teadrinker) — Sat, 30 Jun 2018 18:34:00 +0000

IZoneIdentifier interface
Смотрим внизу страницы, где он определяется:

Значит можно посмотреть в Urlmon.h или в UrlMon.Idl. Находим эти файлы на компьютере или в гугле, в UrlMon.Idl, например, видим:

Это порядок методов, учитывая, что первые три обычно зарезервированы. GetId в списке первый, соответственно, его номер 4 (от 0 будет 3):

DllCall(NumGet(NumGet(ZoneIdentifier+0) + 3*A_PtrSize) ...

URLZONE_INTERNET надо искать запросом URLZONE_INTERNET constant

Re: AHK: Разблокировка файла

null@example.com (serzh82saratov) — Sat, 30 Jun 2018 18:16:45 +0000

Как вы это делаете, как нонять по ссылке IZoneIdentifier::GetId method что это NumGet(NumGet(ZoneIdentifier+0) + 3*A_PtrSize), и что URLZONE_INTERNET надо искать в NativeMethodsOther.cs?

Re: AHK: Разблокировка файла

null@example.com (teadrinker) — Sat, 30 Jun 2018 18:09:34 +0000

file := "D:\Downloads\qweqwe.dll"
PersistentZoneIdentifier := "{0968E258-16C7-4DBA-AA86-462DD61E31A3}"
IZoneIdentifier := "{CD45F185-1B21-48E2-967B-EAD743A8914E}"
IPersistFile := "{0000010b-0000-0000-C000-000000000046}"
ZoneIdentifier := ComObjCreate(PersistentZoneIdentifier, IZoneIdentifier)
PersistFile := ComObjQuery(ZoneIdentifier, IPersistFile)
DllCall(NumGet(NumGet(PersistFile+0) + 5*A_PtrSize), "ptr", PersistFile, "ptr", &file, "UInt", 0)  ; load
DllCall(NumGet(NumGet(ZoneIdentifier+0) + 3*A_PtrSize), "ptr", ZoneIdentifier, UIntP, zone)  ; GetId
MsgBox, % zone
ObjRelease(PersistFile)
ObjRelease(ZoneIdentifier)

С твоим файлом у меня 3 выдаёт, что соответствует URLZONE_INTERNET.

Re: AHK: Разблокировка файла

null@example.com (serzh82saratov) — Sat, 30 Jun 2018 17:47:31 +0000

Спасибо, с FileExist работает. А можешь код привести, я эти DllCall(NumGet(NumGet( вообще не вкуриваю.

Re: AHK: Разблокировка файла

null@example.com (teadrinker) — Sat, 30 Jun 2018 17:41:22 +0000

serzh82saratov пишет:

Как проверить поток я само собой не знаю.

if FileExist(fileName . ":Zone.Identifier:$DATA")

serzh82saratov пишет:

Malcev вроде привёл пример как удалить блокировку.

Ну там же есть наверно способ не только как удалить, но и как получить: IZoneIdentifier::GetId method

Re: AHK: Разблокировка файла

null@example.com (serzh82saratov) — Sat, 30 Jun 2018 17:28:42 +0000

Кроме этой темы ничего не нашёл.

Re: AHK: Разблокировка файла

null@example.com (serzh82saratov) — Sat, 30 Jun 2018 17:27:57 +0000

Как проверить поток я само собой не знаю.
Malcev вроде привёл пример как удалить блокировку.

Re: AHK: Разблокировка файла

null@example.com (teadrinker) — Sat, 30 Jun 2018 17:22:41 +0000

Наверно проверить, существует ли NTFS-поток с названием %fileName%:Zone.Identifier:$DATA. Или способом, аналогичным тому, что выше привёл Malcev.

Re: AHK: Разблокировка файла

null@example.com (serzh82saratov) — Sat, 30 Jun 2018 17:16:22 +0000

А как можно узнать что файл заблокирован?

Re: AHK: Разблокировка файла

null@example.com (Molotok) — Wed, 20 Jun 2018 03:25:26 +0000

Malcev пишет:

Зачем использовать утилиту, если можно через апи?

Я этот способ привел для коллекции.

Re: AHK: Разблокировка файла

null@example.com (teadrinker) — Tue, 19 Jun 2018 15:54:47 +0000

Я так понял, это нужно serzh82saratov не для себя.

Re: AHK: Разблокировка файла

null@example.com (Malcev) — Tue, 19 Jun 2018 15:19:32 +0000

Да, рабочий способ.
Я, кстати, вообще эту дурацкую фичу вырубил через групповую политику.