ControlSend zeigt keine Wirkung

12/01/2013 17:31 erudite#1

Hey.

Wo liegt der Fehler?

Danke im Voraus! :handsdown:

PHP Code:


			
    ;Author





#include "KDMemory.au3"

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <ListViewConstants.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <Pointer.au3>

#Include <GuiListView.au3>

#include <crypt.au3>

#Include <Timers.au3>



#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 326, 133, 192, 164)

$Button = GUICtrlCreateButton("On", 128, 56, 97, 17)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###





Dim $handles = 0

Const $processName = "TClient.exe"







While 1

        $msg = GUIGetMsg()

        If $msg == -3 Then Exit ; $GUI_EVENT_CLOSE



        $processId = ProcessExists($processName)

        If $processId == 0 Then

        If IsArray($handles) Then

            _KDMemory_CloseHandles($handles)

            $handles = 0

        EndIf

        ContinueLoop

        EndIf



        If $handles == 0 Then

        $handles = _KDMemory_OpenProcess($processId)

        If @error Then

            If MsgBox(52, "Error", "Can't open " & $processName & "! @error: " & @error & @CRLF & "Continue?") == 6 Then

                $handles = 0

                ContinueLoop

            Else

                Exit

            EndIf

        EndIf

        EndIf





        If  $msg = $Button Then



                ControlSend ("4Story_GSP","","","i")



        EndIf







    WEnd

12/01/2013 18:40 KDeluxe#2

Lass mich raten: Einfach alles zusammen kopiert?
GUI Events solltest du zu Beginn der While-Schleife abarbeiten (siehe Bedingung f�r "Exit").

Spoiler

Wof�r ein Handle zum Lesen und Schreiben erstellen, wenn du es nicht machst? Mehr als ein ControlSend() machst du nicht, daf�r brauchst du meine KDMemory.au3 UDF nicht. Da die offiziellen Server einen (schlechten) "Hackshield" verwenden kannst du die Control Befehle nicht verwenden. Den Speicher lesen und schreiben kannst du auch nicht ohne weiteres.

Es ist eigentlich nichts wirklich falsch, dass der Befehl nicht funktioniert liegt schlichtweg am Spiel.

12/01/2013 19:27 erudite#3

Quote:

Originally Posted by KDeluxe

Lass mich raten: Einfach alles zusammen kopiert?

Wof�r ein Handle zum Lesen und Schreiben erstellen, wenn du es nicht machst? Mehr als ein ControlSend() machst du nicht, daf�r brauchst du meine KDMemory.au3 UDF nicht. Da die offiziellen Server einen (schlechten) "Hackshield" verwenden kannst du die Control Befehle nicht verwenden. Den Speicher lesen und schreiben kannst du auch nicht ohne weiteres.

Es ist eigentlich nichts wirklich falsch, dass der Befehl nicht funktioniert liegt schlichtweg am Spiel.

1. Ja ich habe den oberen Teil kopiert. Wieso auch nicht? (Er funktionierte bis jetzt immer, da er von dir geschrieben ist. :D )
2. Ich habe das Handle eingebaut, weil ich noch mehr einbauen will, wof�r ich es brauche.
3. Es kann nicht am HS liegen, da das Spiel, wof�r ich das Programm schreibe, kein HS hat.

Fazit: Grunds�tzlich erkennst du keine Fehler bis auf die Tatsache, dass man GUI Events zu Beginn der While-Schleife setzen sollte.
MHM :S woran k�nnte es dann liegen?

Danke :)

12/01/2013 19:39 alpines#4

Konntest du bisher �berhaupt ein Resultat erreichen?
Ansonsten kannst du es mit einem simplen Send (zuerst) versuchen und dann, sofern es nicht geht, _SendMessage.

12/01/2013 19:51 erudite#5

Quote:

Originally Posted by alpines

Konntest du bisher �berhaupt ein Resultat erreichen?
Ansonsten kannst du es mit einem simplen Send (zuerst) versuchen und dann, sofern es nicht geht, _SendMessage.

Also eigentlich soll das Programm ja das Inventar mit "i" �ffnen.
Man kann das auch via Memory Write machen, allerdings wollte ich es einmal so ausprobieren.

Jedoch �ffnet sich das Inventar nicht.

Aber ich werde deine Vorschl�ge mal ausprobieren. :) Danke

12/01/2013 19:56 alpines#6

Die MemoryWrite Variante w�re meiner Meinung nach sicherer, da du nachpr�fen kannst ob es sich wirklich ge�ffnet hat und du nicht per PixelSearch danach suchen musst.

12/01/2013 20:00 erudite#7

Quote:

Originally Posted by alpines

Die MemoryWrite Variante w�re meiner Meinung nach sicherer, da du nachpr�fen kannst ob es sich wirklich ge�ffnet hat und du nicht per PixelSearch danach suchen musst.

Ja, das Inventar ist in diesem Falle nur ein Beispiel.

Ich will eigentlich nur mein Wissen etwas erweitern und ein wenig herumprobieren und dabei ist mir eben die Frage gekommen, wie ich bestimmte Befehle "simulieren" kann.

12/01/2013 22:29 KDeluxe#8

Das sollte man meiner Meinung nach immer mit dem Speicher l�sen (kommt nat�rlich auf die Anwendung drauf an). Ich kann mich auch irren, aber ControlSend() d�rfte allgemein nicht funktionieren. PostMessage funktioniert allerdings, das wei� ich noch, da ich jemandem dabei geholfen habe.
Bei 4Story hast du es noch sehr einfach, s�mtliche Fenster im Spiel lassen sich �ber "0" ausblenden und "1" einblenden.

Mit meinem Beispiel m�chte ich dir ebenfalls den einfachen Aufbau der Pointer von 4Story verdeutlichen:

Spoiler

Code:

#include "KDMemory.au3"

GUICreate("Test", 250, 150)
$btn_Shop = GUICtrlCreateButton("Shop Informationen", 0, 0, 250, 75)
$btn_Inventory = GUICtrlCreateButton("Inventar Informationen", 0, 75, 250, 75)
GUISetState()

Dim $handles = 0
Const $processName = "TClient.exe"

Const $baseAddress = 0x00772DD8
Const $shopOffset = 0x04FC, $inventoryOffset = 0x035C
Const $isVisibleOffset = 0x0140, $positionXOffset = 0x0100, $positionYOffset = 0x0104

Const $offsets_ShopIsVisible[2] = [$shopOffset, $isVisibleOffset]
Const $offsets_ShopPositionX[2] = [$shopOffset, $positionXOffset]
Const $offsets_ShopPositionY[2] = [$shopOffset, $positionYOffset]

Const $offsets_InventoryIsVisible[2] = [$inventoryOffset, $isVisibleOffset]
Const $offsets_InventoryPositionX[2] = [$inventoryOffset, $positionXOffset]
Const $offsets_InventoryPositionY[2] = [$inventoryOffset, $positionYOffset]

While True
;~  Sleep()

    $msg = GUIGetMsg()
    Switch $msg
        Case -3 ; $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $processId = ProcessExists($processName)
    If $processId == 0 Then
        If IsArray($handles) Then
            _KDMemory_CloseHandles($handles)
            $handles = 0
        EndIf
        ContinueLoop
    EndIf

    If $handles == 0 Then
        $handles = _KDMemory_OpenProcess($processId)
        If @error Then
            If MsgBox(52, "Error", "Can not open " & $processName & @CRLF & "! @error: " & @error & @CRLF & @CRLF & "Continue?") == 6 Then
                $handles = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf

    Switch $msg
        Case $btn_Shop
            $memoryData_ShopIsVisible = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_ShopIsVisible)
            $memoryData_ShopPositionX = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_ShopPositionX)
            $memoryData_ShopPositionY = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_ShopPositionY)
            If Not IsArray($memoryData_ShopIsVisible) Or Not IsArray($memoryData_ShopPositionX) Or Not IsArray($memoryData_ShopPositionY) Then
                MsgBox(48, "Fehler", "Shop Informationen k�nnen nicht gelesen werden.")
            Else
                MsgBox(64, "Shop Informationen", "Sichtbar: " & $memoryData_ShopIsVisible[1] & @CRLF & "Position X: " & $memoryData_ShopPositionX[1] & @CRLF & "Position Y: " & $memoryData_ShopPositionY[1])
            EndIf

        Case $btn_Inventory
            $memoryData_InventoryIsVisible = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_InventoryIsVisible)
            $memoryData_InventoryPositionX = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_InventoryPositionX)
            $memoryData_InventoryPositionY = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_InventoryPositionY)
            If Not IsArray($memoryData_InventoryIsVisible) Or Not IsArray($memoryData_InventoryPositionX) Or Not IsArray($memoryData_InventoryPositionY) Then
                MsgBox(48, "Fehler", "Inventory Informationen k�nnen nicht gelesen werden.")
            Else
                MsgBox(64, "Inventory Informationen", "Sichtbar: " & $memoryData_InventoryIsVisible[1] & @CRLF & "Position X: " & $memoryData_InventoryPositionX[1] & @CRLF & "Position Y: " & $memoryData_InventoryPositionY[1])
            EndIf
    EndSwitch
WEnd

Falls du das ganze dennoch mit PostMessage probieren m�chtest kannst du daf�r [Only registered and activated users can see links. Click Here To Register...] verwenden.

12/01/2013 23:26 Logtetsch#9

Ich w�rde es ebenfalls �ber die RAM machen.
Sowie du ControlSend benutzt, kann es zu schwerwigenden Fehlern f�hren. Stell dir vor du hast mehrere Fenster offen, welche alle den gleichen Fensternamen ("4Story_GSP") besitzen. Da ich nicht wei�, wie ProcessExists mit Prozessen umgeht, die es mehrmals gibt, solltest du vorab pr�fen, ob 4Story nur einmal l�uft. Eventuell gibt es sogar schon Bibliotheken f�r AutoIt, die die Funktion createtoolhelp32snapshot implementiert haben und genaueres �ber aktive Prozesse sagen k�nnen.

12/02/2013 03:04 KDeluxe#10

[Only registered and activated users can see links. Click Here To Register...] verwende ich in meiner KDMemory UDF um die Module eines Prozesses durchzugehen. Das w�re auch einfacher gegangen, allerdings wollte ich ausschlie�lich Funktionen der Kernel32.dll verwenden. Meine Basis k�nnte man theoretisch ganz einfach �ndern.
Verwendet man ausschlie�lich den RAM kann es einem egal sein, wie viele Fenster den selben Namen verwenden. M�chte man eine Kombination aus RAM und "Fenster" muss man dem Fenster einen Prozess zuordnen k�nnen. Das kann man mittels WinList() und WinGetProcess() (unbedingt das Window Handle (HWND) �bergeben) l�sen.

Spoiler

Code:

#include "KDMemory.au3"

GUICreate("Test", 250, 150)
$btn_Shop = GUICtrlCreateButton("Shop Informationen", 0, 0, 250, 75)
$btn_Inventory = GUICtrlCreateButton("Inventar Informationen", 0, 75, 250, 75)
GUISetState()

Const $windowName = "4Story_GSP"

Const $baseAddress = 0x00772DD8
Const $shopOffset = 0x04FC, $inventoryOffset = 0x035C
Const $isVisibleOffset = 0x0140, $positionXOffset = 0x0100, $positionYOffset = 0x0104

Const $offsets_ShopIsVisible[2] = [$shopOffset, $isVisibleOffset]
Const $offsets_ShopPositionX[2] = [$shopOffset, $positionXOffset]
Const $offsets_ShopPositionY[2] = [$shopOffset, $positionYOffset]

Const $offsets_InventoryIsVisible[2] = [$inventoryOffset, $isVisibleOffset]
Const $offsets_InventoryPositionX[2] = [$inventoryOffset, $positionXOffset]
Const $offsets_InventoryPositionY[2] = [$inventoryOffset, $positionYOffset]

While True
;~  Sleep()

    $msg = GUIGetMsg()
    Switch $msg
        Case -3 ; $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $winList = WinList($windowName)
    For $i = 1 To $winList[0][0]
        $processId = WinGetProcess($winList[$i][1])
        If $processId == -1 Then
            ConsoleWrite("unable to retrieve the PID; HWND: " & $winList[$i][1] & @CRLF)
            ContinueLoop
        EndIf

        $handles = _KDMemory_OpenProcess($processId)
        If @error Then
            ConsoleWrite("unable to open the process; PID: " & $processId & "; HWND: " & $winList[$i][1] & "; @error: " & @error & @CRLF)
            ContinueLoop
        EndIf

        Switch $msg
            Case $btn_Shop
                $memoryData_ShopIsVisible = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_ShopIsVisible)
                $memoryData_ShopPositionX = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_ShopPositionX)
                $memoryData_ShopPositionY = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_ShopPositionY)
                If Not IsArray($memoryData_ShopIsVisible) Or Not IsArray($memoryData_ShopPositionX) Or Not IsArray($memoryData_ShopPositionY) Then
                    ConsoleWrite("Shop Informationen k�nnen nicht gelesen werden." & @CRLF)
                Else
                    ConsoleWrite( _
                        "PID: " & $processId & "; $HWND: " & $winList[$i][1] & @CRLF & _
                        "Shop Informationen" & @CRLF & _
                        "Sichtbar: " & $memoryData_ShopIsVisible[1] & @CRLF & _
                        "Position X: " & $memoryData_ShopPositionX[1] & @CRLF & _
                        "Position Y: " & $memoryData_ShopPositionY[1] & @CRLF _
                    )
                EndIf

            Case $btn_Inventory
;~              ControlSend($winList[$i][1], "", "", "i")
                $memoryData_InventoryIsVisible = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_InventoryIsVisible)
                $memoryData_InventoryPositionX = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_InventoryPositionX)
                $memoryData_InventoryPositionY = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD", $offsets_InventoryPositionY)
                If Not IsArray($memoryData_InventoryIsVisible) Or Not IsArray($memoryData_InventoryPositionX) Or Not IsArray($memoryData_InventoryPositionY) Then
                    ConsoleWrite("Inventar Informationen k�nnen nicht gelesen werden." & @CRLF)
                Else
                    ConsoleWrite( _
                        "PID: " & $processId & "; $HWND: " & $winList[$i][1] & @CRLF & _
                        "Inventar Informationen" & @CRLF & _
                        "Sichtbar: " & $memoryData_InventoryIsVisible[1] & @CRLF & _
                        "Position X: " & $memoryData_InventoryPositionX[1] & @CRLF & _
                        "Position Y: " & $memoryData_InventoryPositionY[1] & @CRLF _
                    )
                EndIf
        EndSwitch

        _KDMemory_CloseHandles($handles)
    Next
WEnd