AutoHotkey Community

ReadProcessMemory, Address, Byte, WinTitle
WriteProcessMemory, Address, Var, WinTitle

; Get the index of the currently played track from winamp.
; 0x0400 = WM_USER     0x7D = IPC_GETLISTPOS
; Answer is stored in ErrorLevel.
SendMessage, 0x0400, 0, 0x7D, , ahk_class Winamp v1.x

; Error checking - i.e. Winamp is not running
if ErrorLevel = FAIL
{
   Exit
}

; Now tell Winamp to give us a pointer to the string of the track
; whose index we have to provide. The pointer is valid inside winamp's
; memory space.
; 0xD4 = IPC_GETPLAYLISTTITLE
; Answer is again stored in ErrorLevel.
SendMessage, 0x0400, %ErrorLevel%, 0xD4, , ahk_class Winamp v1.x

; Error checking - i.e. Winamp is not running
if ErrorLevel = FAIL
{
   Exit
}

; Store the address in a new var.
lpszTitle = %ErrorLevel%

; Now we have the pointer stored in lpszTitle. To proceed we have to
; use ReadProcessMemory and read starting at the returned address.
; We have to read byte after byte until we encounter a "00" byte (string ends).

; clear the variable that will hold the track's name
teststr =

Loop
{
   ReadProcessMemory, %lpszTitle%, char, ahk_class Winamp v1.x
   
   ; Error checking - i.e. no permission for reading from the process's memory
   if ErrorLevel = FAIL
   {
     Exit
   }
   
   ; now char holds the numeric value of the byte read from the given address
      
   ; If the value of the byte read is zero we are at the end of the string.
   ; So quit the loop!   
   if char = 0
   {
      break
   }
   
   ; Transform the obtained byte's value to a character
   Transform, char, Chr, %char%
   
   ; Append the character to our teststr variable that will hold the whole title string
   teststr = %teststr%%char%
   
   ; Increment address by one to obtain next byte
   lpszTitle++
}

; Display our track's title
MsgBox, %teststr%

ReadProcessMemory, OutputVar, Address [,  WinTitle, WinText, ExcludeTitle, ExcludeText]
WriteProcessMemory, Byte, Address [,  WinTitle, WinText, ExcludeTitle, ExcludeText]

ReadProcessMemory, OutputVar, Address [,  WinTitle, WinText, ExcludeTitle, ExcludeText]
WriteProcessMemory, Byte, Address [,  WinTitle, WinText, ExcludeTitle, ExcludeText]