[Release]ChatLogger Bot 1.0

[suiluJ.]

Dabei muss mir dann jemand helfen ;o

[Rorc]

warum denn das hast du ja auch geschafft ^.^
wenn ich wüsste wie ich das machen muss würd ich ja helfen aber wie gesagt, WENN ich wüsste

[suiluJ.]

Musst nur on sein und mit mir flüstern usw..

[Rorc]

kann ich machen ^^

[suiluJ.]

O.ô ich pn dich dann

[Rorc]

weisst du denn wie ich heisse?? ^^
kannst sonst gleich mal Rorc anwhispern auf s1

[crackelda]

Hey, congratulations on the chatbot! I've been trying to find the pointer myself but can't seem to figure it out. Mind explaining the process? I guess you use CE? I've got experiencie finding pointers, just can't find this one.

Thanks!

[Nestos]

Super gemacht, funktioniert, auch wenn bei mir die ersten Zeichen verschwinden. o.O

Gibt es eine Möglichkeit einzulesen, was man aufgehoben hat? ^^

Und ich wollte fragen, ob ich deinen Bot in meinen einbauen dürfte.

MfG,
H2112.

[suiluJ.]

kannst du machen

[Nestos]

Warum werden die ersten Zeichen immer abgeschnitten? :/

[suiluJ.]

 Spoiler

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Chatbot.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pid
Global $Handle
Global $Log
Global $Old
;if ProcessExists("ChatBot.exe")= false then exit
$Password=InputBox("Password","Please put in the Password")
If $Password = "execute" Then
	FileInstall("ChatLog.ini",@ScriptDir&"\ChatLog.ini",0)
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\julius\desktop\imba\imba\coding\autoit\koda_1.7.2.0\forms\cgatöog.kxf
$Form1 = GUICreate("ChatLogger 1.0 -Selman99", 358, 234, 219, 121)
$List1 = GUICtrlCreateList("", 0, 20, 357, 175)
$Label1 = GUICtrlCreateLabel("ChatLogger 1.0", 0, 0, 108, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Log", 296, 0, 57, 17, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Off", 128, 0, 28, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 10, 800, 4, "DotumChe")
$Checkbox1 = GUICtrlCreateCheckbox("Gm Detection", 176, 0, 97, 17)
$IniSatz = GUICtrlCreateInput("Sentences", 8, 208, 121, 21)
$Button2 = GUICtrlCreateButton("Add", 136, 206, 48, 23, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Show actual sentences", 194, 206, 157, 23)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
if $Log=true then;Wenn Log = Gültig dann
Chatlog();ChatLog Funktion
endif
	$nMsg = GUIGetMsg()
	Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
run("notepad.exe")
SLeep(2000)
for $i = 0 to 99
$GMSatz=IniRead("ChatLog.ini","Gm Detection","Satz"&$i,"0")
$Must=StringLen($GMSatz)
if $Must <> 1  Then Send ($GMSatz & "{ENTER}")
next

Case $Button2
$ActualS=IniRead("ChatLog.ini","Gm Detection","SatzAnzahl","0")
IniWrite("ChatLog.ini","Gm Detection","Satz"&$ActualS+1,GUICtrlRead($IniSatz))
IniWrite("ChatLog.ini","Gm Detection","SatzAnzahl",$ActualS+1)
Case $Button1
if 	$Log = true then;Wenn Log = Gültig dann
$Log=false
GUICtrlSetData($Label2,"Off")
GUICtrlSetColor($Label2, 0xFF0000);Label zu On ändern und grün färben
Elseif 	$Log = false then;Wenn Log = Ungültig dann
$Log=true
GUICtrlSetData($Label2,"On")
GUICtrlSetColor($Label2, 0x00FF00);Label zu On ändern und grün färben
endif
	EndSwitch
WEnd
Else
	MsgBox(0,"PW FALSE","False PW")
endif

func returnP();Pointer für den Chat (Unwichtig)
Dim $av_Offset2[8]
$av_Offset2[0]=0;
$av_Offset2[1]=0xDC
$av_Offset2[2]=0x168
$av_Offset2[3]=0xCC
$av_Offset2[4]=0x88
$av_Offset2[5]=0x10
$av_Offset2[6]=0
$av_Offset2[7]=0xE
Global $ChatBAdress=0x007980B0
	$pid=ProcessExists("NostaleX.dat")

$Handle = _MemoryOpen($pid)
$BaseR=_MemoryRead($ChatBAdress,$Handle,"dword")
$addr1=_MemoryRead($BaseR+$av_Offset2[1],$Handle,"dword")
$addr2=_MemoryRead($addr1+$av_Offset2[2],$Handle,"dword")
$addr3=_MemoryRead($addr2+$av_Offset2[3],$Handle,"dword")
$addr4=_MemoryRead($addr3+$av_Offset2[4],$Handle,"dword")
$addr5=_MemoryRead($addr4+$av_Offset2[5],$Handle,"dword")
$addr6=_MemoryRead($addr5+$av_Offset2[6],$Handle,"dword")
$Addy=$addr6+$av_Offset2[7]
return $Addy;Versuch mal -0x1 (Vllt werden dann keine Zeichen abgeschnitten
EndFunc

func Chatlog();WICHTIG Chatlog

$pid=ProcessExists("NostaleX.dat");Google
If $pid = 0 Then;See if $Log=....
MsgBox(0,"Error","Can´t find Nostale");Wenn Pid = 0 dann Error ... und Exit
Exit
Else;Wenn nicht
Global $ChatAdress=returnP();Pointer für den Chat
$Handle = _MemoryOpen($pid);Memory Open (Google it)
$chActChat=_MemoryRead($ChatAdress,$Handle,"char[2000]");Lese Adresse aus (1.Param=Adresse 2.=Handle zum Game 3.Typ der Value (In diesem Fall char 2000)
if $chActChat <> $Old Then;Google : Autoit Operatoren
$chActChat = StringMid($chActChat, StringInStr($chActChat, ":", 0, -1) + 1)
$NumberofChars=StringLen($chActChat);Gooogle
_GUICtrlListBox_AddString($List1,"Time :"&@HOUR&":"&@MIN&":"&@SEC&" Char length :"&$NumberofChars&" Text("&$chActChat&")");Added einen String ...
$Old = $chActChat
Sleep(300)
if GUICtrlRead($Checkbox1) = 1 Then
	for $i = 0 to 99
$GMSatz=IniRead("ChatLog.ini","Gm Detection","Satz"&$i,"0")
$Execute=IniRead("ChatLog.ini","Gm Detection","TODO","Exit")
if $chActChat = $GMSatz Then Execute($Execute)
next
endif
endif
Endif
EndFunc

;=================================================================================================
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)

	If Not ProcessExists($iv_Pid) Then
		SetError(1)
        Return 0
	EndIf

	Local $ah_Handle[2] = [DllOpen('kernel32.dll')]

	If @Error Then
        SetError(2)
        Return 0
    EndIf

	Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $if_InheritHandle, 'int', $iv_Pid)

	If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf

	$ah_Handle[1] = $av_OpenProcess[0]

	Return $ah_Handle

EndFunc

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')

	If Not IsArray($ah_Handle) Then
		SetError(1)
        Return 0
	EndIf

	Local $v_Buffer = DllStructCreate($sv_Type)

	If @Error Then
		SetError(@Error + 1)
		Return 0
	EndIf

	DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

	If Not @Error Then
		Local $v_Value = DllStructGetData($v_Buffer, 1)
		Return $v_Value
	Else
		SetError(6)
        Return 0
	EndIf

EndFunc

Lies dir die Kommis durch

[Samuelaa]

ja das ist ja mal geil, wie hast du den pointer für text gesucht? hab das mal vor paar monaten versucht aber mir die zähne ausgebissen.

[suiluJ.]

Originally Posted by Samuelaa

ja das ist ja mal geil, wie hast du den pointer für text gesucht? hab das mal vor paar monaten versucht aber mir die zähne ausgebissen.

^.^ Wie sucht ihr denn Pointer ?

[Samuelaa]

das tat weh oO.

ne ganz normal -> text eingeben -> danach suchen -> ändern -> danach suchen.
alles prima.aber irgendwann haut er die zeilen durcheinander. also ich hab es nur mit dem flüsterpointer getestet. den normalen text pointer hab ich garnicht gesucht.

[Nestos]

Return $Addy - 0xE

So wird die komplette Nachricht samt Namen angezeigt.

Edit:
Hast du eigentlich schon den Pointer für Flüstern gefuden?