PWI Title Renamer

#NoTrayIcon
#include <NomadMemory.au3>
$vCharBase = 10436384 ;Probably needs to be updated after a larger PWI Update

$vList = WinList("[CLASS:ElementClient Window]")
For $i = 1 To $vList[0][0]
    $vOpen = _MemoryOpen(WinGetProcess($vList[$i][1]))
    WinSetTitle($vList[$i][1], "", "Perfect World [" & _MemoryRead(_MemoryRead($vCharBase, $vOpen), $vOpen, "wchar[16]") & "]")
    _MemoryClose($vOpen)
Next