[OS: 10.0.19045] getNameFromDesktopNum returns empty for desktops with unset/default names about vd.ahk HOT 6 CLOSED

#SingleInstance force
ListLines 0
KeyHistory 0
SendMode "Input" ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir A_ScriptDir ; Ensures a consistent starting directory.

FindStringResourceEx(hModule, uId, langId) { ;https://stackoverflow.com/questions/2502375/find-localized-windows-strings#2588937

    debugThis := uId // 16 + 1
    hrsrc := DllCall("FindResourceExW", "Ptr",hModule, "Ptr",6, "Ptr",debugThis, "UShort",langId, "UPtr") ;RT_STRING=6
    pwsz:=0
    if (hrsrc) {
        hglob := DllCall("LoadResource", "Ptr",hModule, "Ptr",hrsrc, "Ptr")
        if (hglob) {
            pwsz := DllCall("LockResource", "Ptr",hglob, "Ptr")
            if (pwsz) {
                lolWhat := uId & 15
                j:=0
                while (j < lolWhat) {
                    pwsz += 2 + 2*NumGet(pwsz, 0, "UShort")
                    ++j
                }
                length:=NumGet(pwsz, 0, "UShort")
                pwsz+=2
            }
        }
    }
    return pwsz && StrGet(pwsz, length, "UTF-16")
}

hModule := DllCall("GetModuleHandle", "Str", "twinui.pcshell.dll", "Ptr") || DllCall("LoadLibrary", "Str", "twinui.pcshell.dll", "Ptr")
localizedString := FindStringResourceEx(hModule, 13502, DllCall("GetUserDefaultUILanguage", "UShort")) ;"Desktop"=13502
MsgBox A_Clipboard:=localizedString

ExitApp

f3::ExitApp

DLL_File := A_WinDir "\System32\shell32.dll"
LocaleString_Desktop := DLL_ReadStringNum(DLL_File,21769)
MsgBox, % LocaleString_Desktop


DLL_ReadStringNum(DllFile, StringNum) {
	hModule := DllCall("LoadLibrary", "str", DllFile, "Ptr")
	VarSetCapacity(string, 1024)
	DllCall("LoadString", "uint", hModule, "uint", StringNum, "uint", &string, "int", 1024)
	DllCall("FreeLibrary", "Ptr", hModule)
	Return string
}

DLL_File := A_WinDir "\System32\twinui.pcshell.dll"
LocaleString_Desktop := DLL_ReadStringNum(DLL_File,13502)

#SingleInstance force
ListLines 0
KeyHistory 0
SendMode "Input" ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir A_ScriptDir ; Ensures a consistent starting directory.

getLocalizedWord_Desktop() {
    hModule := DllCall("GetModuleHandle", "Str", "shell32.dll", "Ptr") || DllCall("LoadLibrary", "Str", "shell32.dll", "Ptr")
    length:=DllCall("LoadString", "Uint", hModule, "Uint", 21769, "Ptr*", &lpBuffer:=0, "Int", 0)
    localizedStr := StrGet(lpBuffer, length, "UTF-16")
    Return localizedStr
}

MsgBox getLocalizedWord_Desktop()

Exitapp

f3::Exitapp

#SingleInstance force
ListLines 0
KeyHistory 0
SendMode "Input" ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir A_ScriptDir ; Ensures a consistent starting directory.

getNumbers(hModule, stringToSearch) {
    arr:=[]
    i:=0
    while (i < 65536) {
        localizedStr:=""
        length:=DllCall("LoadString", "Uint", hModule, "Uint", i, "Ptr*", &lpBuffer:=0, "Int", 0)
        localizedStr := StrGet(lpBuffer, length, "UTF-16")
        if (localizedStr == stringToSearch) {
            arr.Push(i)
        }
        ++i
    }
    return arr
}

hModule := DllCall("LoadLibrary", "Str", "shell32.dll", "Ptr")
arr:=getNumbers(hModule, "Desktop")
finalStr:=""
for v in arr {
    finalStr.=v "`n"
}

MsgBox A_Clipboard:=finalStr

Exitapp

f3::Exitapp