Read channel For Wow 3.1.3 & 2.4.3

[bolototo]

Hello

First , I'm not English. It is difficult to write but Google is my friend ^^

It's a little AutoIt prog for read the chan

Change Offset for your version

3.1.3 : 0x117938C
2.4.3 : 0xC13C6C

OK .it's just a base but it is functional

achieved with the help of this message

http://www.mmowned.com/forums/wow-me...t-process.html

#include <string.au3>

#include <NomadMemory.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 274, 278)
$Edit1 = GUICtrlCreateEdit("", 32, 24, 577, 273)
$affiche = GUICtrlCreateButton("lire",32,400,50,25)
*****tState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

SetPrivilege("SeDebugPrivilege", 1) ;p
testwow()
Global $process = _MEMORYOPEN($wowpid)
Global $offchat=0x117938c ; 3.1.3 , Change width 0xc13c6c for 2.4.3
Global $nxtchat=0x17C0 ; next chat


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $affiche
			GUICtrlSetData($Edit1,"")
			testwow()
			lischat()

	EndSwitch
WEnd

Func lischat()
	Local $debmess=$offchat
	Local $Canal
		for $x=0 to 59
			$next=$nxtchat*$x
			$mess = _MemoryRead($debmess + $next, $process, "char[1000]")
                                                if Not stringMid($mess, 1, 4) ="Type" then ExitLoop
			$Canal = _StringBetween($mess, "Type: [", "],")
			$Pseudo = _StringBetween($mess, "Name: [", "],")
			$Messag = _StringBetween($mess, "Text: [", "]")
			
			$chan=""
			Switch $Canal[0] ;if $Canal=17 then MsgBox(0,"","canal17")
								                                       Case 1
					$chan="Dit : "
				Case 2
					$chan="Groupe : "
				Case 3
					$chan="Raid : "
				Case 4
					$chan="Guilde : "
				Case 5
					$chan="Guilde-Off : "
				Case 6
					$chan="Crier : "
				Case 7
					$chan="Chuchote : "
				Case 9
					$chan="A "
				Case 17
					$chan="General : "
			EndSwitch
				If $chan="" then $chan="Non trouver : "
				$lig=$x
				GUICtrlSetData($Edit1,$x & " :" & $chan & "[" & $Pseudo[0] & "] : " & $Messag[0] & @CRLF ,$lig+1)

		Next

EndFunc


Func testwow()
	Global $wowpid=ProcessExists("wow.exe")
	If $wowpid=0 Then
		MsgBox(0, "Infos", "World of warcraft n est pas lancer")
		exit
	EndIf
EndFunc

For list channel read this

Posted by BoogieManTM

    public enum ChatType : byte
    {
        ADDON = 0,
        SAY = 1,
        PARTY = 2,
        RAID = 3,
        GUILD = 4,
        OFFICER = 5,
        YELL = 6,
        WHISPER = 7,
        WHISPER_MOB = 8,
        WHISPER_INFORM = 9,
        EMOTE = 10,
        TEXT_EMOTE = 11,
        MONSTER_SAY = 12,
        MONSTER_PARTY = 13,
        MONSTER_YELL = 14,
        MONSTER_WHISPER = 15,
        MONSTER_EMOTE = 16,
        CHANNEL = 17,
        CHANNEL_JOIN = 18,
        CHANNEL_LEAVE = 19,
        CHANNEL_LIST = 20,
        CHANNEL_NOTICE = 21,
        CHANNEL_NOTICE_USER = 22,
        AFK = 23,
        DND = 24,
        IGNORED = 25,
        SKILL = 26,
        LOOT = 27,
        SYSTEM = 28,
        //29
        //30
        //31
        //32
        //33
        //34
        //35
        //36
        //37
        //38
        BG_EVENT_NEUTRAL = 35,
        BG_EVENT_ALLIANCE = 36,
        BG_EVENT_HORDE = 37,
        COMBAT_FACTION_CHANGE = 38,
        RAID_LEADER = 39,
        RAID_WARNING = 40,
        RAID_WARNING_WIDESCREEN = 41,
        //42
        FILTERED = 43,
        BATTLEGROUND = 44,
        BATTLEGROUND_LEADER = 45,
        RESTRICTED = 46,
    };

[Nesox]

Google translate ftw!? Thx for the share

[bolototo]

yes Google

[bouh2]

Thx for this code

+rep

[deCutter]

That`s a +rep. Thank you.