Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Приветствую всех, давно не посещал данный форум. 
И так - сабж.
dd = "test"
vv := &dd
msgbox , %vv% " " %dd%
exitАдрес получил, а что с ним делать?
Есть метод получения имени переменной?
Адрес получил, а что с ним делать?
То, для чего вы его получали.
Есть метод получения имени переменной?
Зачем?
Есть метод получения имени переменной?
Зачем?
нужно, для диагностики. Просто есть функция проверки... ну скажем проще - очень нужно 
Предварительно внести все имена используемых переменных в список, по-другому никак, разве что прочитать из главного окна скрипта.
list := ["var1", "var2"]
var1 := 1, var2 := 2
addr1 := &var1
for k,v in list
if (&%v% = addr1)
MsgBox, % v
Предварительно внести все имена используемых переменных в список, по-другому никак...
спасибо, этот метод мне подойдёт... странно, что я сам не сообразил
Возможно ли в таком варианте получить имена переменных?
Конечно оставив возможность получения значений.
c()
c() {
value1 := 111, value2 := 222
f(value1, value2) ; допускается передавать адреса
}
f(p*) {
for k, v in p
{
MsgBox Надо получить строки "value1" и "value2"
}
}
Вот так подходит?
h:=new h
c()
c() {
h.value1 := 111, h.value2 := 222
f(h.value1, h.value2)
}
f(p*) {
for k, v in p
{
MsgBox % "Переменная:`t" h.list_var_name[k]
. "`nЗначение:`t" v
}
h.Clear()
}
Class h
{
static list_var_name:=[]
__Set(namevar)
{
this.list_var_name.Insert(namevar)
}
Clear()
{
this.list_var_name := []
}
}
Не, так не подходит.
Серж, а какую цель должна достигать такая хитрая задача? Возможно, с помощью другого алгоритма можно решить более традиционнымми методами.
Цель добится простого синтаксиса при передаче параметров, иначе методы очевидны.
А есть языки с таким синтаксисом, чтобы помимо передачи переменной по ссылке или значению, в функцию передавалось название переменной? Ведь само по себе это название ничем ценным не яляется, т.к. после компиляции будет просто индексом в таблице переменных.
А конкретный пример, когда это может быть полезно, есть?
Ну если честно, я понимаю маловероятность решения.
Если передать адрес локальной переменной, то можно узнать её значение, вдруг в AutoHotkey каким то образом, где то в памяти сохраняется и имя этой переменной.
А конкретный пример, когда это может быть полезно, есть?
Здесь при вызове Hotkey_Register.
Скажем так, не то чтобы полезно, но удобно.
А почему там просто значения не передавать?
Впоследствии нужна привязка к именам, для сохранения или извлечения.
А не проще хранение организовать в массиве? В таком случае MyHotkey1, MyHotkey2 будут просто ключами, и не нужно будет искать хитрые методы для извлечения значений локальных переменных другой функции. По-моему это и было предложено в посте #7.
Глобальный массив\объект исключён. В посте #7 не удобно, твоё предложение не до конца понял, можешь на примере.
А есть языки с таким синтаксисом, чтобы помимо передачи переменной по ссылке или значению, в функцию передавалось название переменной?
Коллекции в WSH. На примере VBS:
NameVar1 = "123"
NameVar2 = "456"
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add NameVar1, "NameVar1"
Dict.Add NameVar2, "NameVar2"
MsgBox Dict("123")Также можно с пом. ADO.
Нет, конечно. Где связь? Тут возвращается значение дубликата одной из переменных, а в моём примере - имя переменной по его значению.
Flasher, а чем это отличается от
NameVar1 := 123
NameVar2 := 456
Dict := {}
Dict[NameVar1] := "NameVar1"
Dict[NameVar2] := "NameVar2"
MsgBox, % Dict[123]?
Вот, похоже. А аналог Dict.Exists тут имеется?
Вот имя переменной по адресу.
MyTestVar := 123
MsgBox, % "|" GetVarName(&MyTestVar) "|"
GetVarName(pPtr)
{
static MEM_COMMIT := 0x1000, PAGE_GUARD := 0x100, PAGE_NOACCESS := 0x1
, PROCESS_VM_READ := 0x10, PROCESS_QUERY_INFORMATION := 0x400, PROCESS_VM_OPERATION := 0x8
SetBatchLines, -1
hProcess := DllCall("OpenProcess", UInt, PROCESS_VM_OPERATION|PROCESS_VM_READ|PROCESS_QUERY_INFORMATION
, Int, 0, UInt, DllCall("GetCurrentProcessId"), Ptr)
VarSetCapacity(MBI, size := A_PtrSize*5 + 4*2, 0)
addr := 0
while DllCall("VirtualQuery", Ptr, addr, Ptr, &MBI, Ptr, size)
{
BaseAddress := NumGet(MBI)
RegionSize := NumGet(MBI, A_PtrSize*3)
State := NumGet(MBI, A_PtrSize*4, "UInt")
Protect := NumGet(MBI, A_PtrSize*4 + 4, "UInt")
addr += RegionSize
if (BaseAddress < 0xFFFFF && A_PtrSize = 8) || (BaseAddress < 0x7FFFFF && A_PtrSize = 4)
continue
if (State != MEM_COMMIT || (Protect & PAGE_NOACCESS) || (Protect & PAGE_GUARD))
continue
VarSetCapacity(buff, RegionSize, 0)
if !DllCall("ReadProcessMemory", Ptr, hProcess, Ptr, BaseAddress, Ptr, &buff, Ptr, RegionSize, PtrP, BytesRead) {
MsgBox, Ошибка чтения памяти %A_LastError%
break
}
Loop % BytesRead - A_PtrSize
{
p := &buff + (A_Index - 1)
if NumGet(p+0) != pPtr
continue
err := i := 0
Loop
num := NumGet(p - 16 - A_Index*4, "Int"), i += 4
until num = 0 || (A_Index = 20 && err := 1)
if err
continue
if RegExMatch(str := StrGet(p - 16 - i + 4 + (A_PtrSize = 4 ? 4 : 0)), "^[\w#_@\$]+$")
break 2
}
VarSetCapacity(buff, 0)
}
DllCall("CloseHandle", Ptr, hProcess)
Return str
}Но это шутка, конечно.
Почему? Работает (только под x64) и с локальными, правда на переменную полсекунды уходит, но сама возможность уже большой прорыв.
f()
f() {
MsgBox, % "|" GetVarName(&MyTestVar) "|"
}
Но это шутка, конечно.
Теперь понял, ищется же просто по значению. 
Var := 123
MsgBox, % "|" GetVarName(&MyTestVar) "|"
Нет, шутка не в этом. А что тебя смущает в последнем примере? Передаём указатель, получаем имя. Просто скрипт считает переменную, записанную таким образом, уже существующей.
В последнем примере #28 получаем не то имя.
А, ну это просто проблемы с х32, там переменные в памяти записываются по пока непонятному мне принципу, на х64 работает.
Вообще это не логично, т.к. если будут две разные переменные с одинаковым содержимым, то любой код найдет только первую попавшуюся, а если и найдет обе, то какая будет "нужной", все равно не определит.
Или я не прав?
...
В любом случае нужно будет создавать список переменных.
Не понял последнее. Переменная ищется в памяти по адресу, а не по содержимому.
А, ну это просто проблемы с х32
На х32 вообще не работает. На х64 возвращает "Var", а требуется "MyTestVar".
Var := 123
MsgBox, % "|" GetVarName(&MyTestVar) "|"
А тут что ищет?
Var2 := 123
Var1 := 123
MsgBox, % "|" GetVarName(&Var3) "|"
С таким видом записи ещё не разбирался, получается "Var2". Просто так не нужно записывать, лучше так:
Var2 := 123
Var1 := 123
MsgBox, % "|" GetVarName(&Var1) "|"
А с чем связана длительность ожидания? Насколько помню прочитать указанный адрес не долго, что то ищется по всему адресному пространству?
По адресу переменной её имени нет, там только значение. В определённом месте скрипта записано имя переменной и через какое-то смещение её адрес в виде последовательности байтов, соответствующей его числовому значению. Это число и ищем в адресном пространстве. Ради оптимизации отсечено
if (BaseAddress < 0xFFFFF && A_PtrSize = 8) || (BaseAddress < 0x7FFFFF && A_PtrSize = 4)
continueно более точно указать область поиска я не знаю как.
Не понял последнее. Переменная ищется в памяти по адресу, а не по содержимому.
Вопрос вроде был - найти имя переменной по содержимому, нет?
А как тогда отличать переменные с одинаковым содержимым?
Вопрос вроде был - найти имя переменной по содержимому, нет?
Нет.
В любом случае, алгоритм пока сырой, надо разобраться получше.
Наверняка есть какая то логика.
Во всяком случае, я заметил, что она разная для х32 и х64.
Раз уже такую тему подняли, для чего нужен оператор разадрессации "*"? Как это используется на практике?
Var1 := 123
Var2 := "abc"
Dereference1 := *&Var1
Dereference2 := *&Var2
msgbox % &Var1 " | " Dereference1 "`n" &Var2 " | " Dereference2
Dereference1 := *&Var1
Может так:
Dereference1 := *Var1
?
VarSetCapacity(var, 2)
NumPut(0x1234, var)
SetFormat, IntegerFast, H
MsgBox, % NumGet(var, "UShort") "`n" *&var
Может так:
Операндом Dereference может служить только адрес.
teadrinker а о чём говорит последний пример?
setformat,integer,h
var=0x1
Var1 := &var
msgbox % "адрес`t`t" &Var1 "`nкакой-то там первый байт (судя по справке)`t`t" *Var1 "`nсодержимое`t`t" Var1 "`n`nадрес`t`t" &Var "`nкакой-то там первый байт (судя по справке)`t`t" *var "`nсодержимое`t`t" Var
Если пока не понятно, то вот ещё:
VarSetCapacity(var, 2)
NumPut(0x1234, var)
SetFormat, IntegerFast, H
MsgBox, % NumGet(var, "UShort") "`n" *&var "`n" NumGet(var, "UChar")
Короче это просто первый байт памяти по указанному адресу.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
