Im make this , but its not better way for this
Code: Select all
vChar := "@"
vPath = %A_Appdata%\discord\Local Storage\leveldb\000005.ldb
oFile := FileOpen(vPath, "r")
oFile.Pos := 0
oFile.RawRead(vData, vSize := oFile.Length)
oFile.Close()
vOrd := Ord(vChar)
Loop, % vSize
if !NumGet(&vData, A_Index-1, "UChar")
NumPut(vOrd, &vData, A_Index-1, "UChar")
DiscordID := RegExReplace(SubStr(StrGet(&vData, vSize, "CP0"), InStr(StrGet(&vData, vSize, "CP0"), "user_id", CaseSensitive := false, StartingPos := 25, Occurrence := 1) + 14, 25), "[^0-9]")
Msgbox % DiscordID