[HILFE] Strings in VB einbinden

[EqoTime]

Hay Epvp bin grad dabei nen Kleinen Hack in vb zu schreiben.

So mein Problem wäre das hier:

 Spoiler

also ich glaube ich habe ein Integer wert eingegeben aber wenn ich das zu String ändert bleibt es immernoch gleich könnte mir einer privat helfen? :S

wäre sehr nett

Danke nochmals im Vorraus

MfG

['Heaven.]

Wo genau ist nun dein problem?

[EqoTime]

bild ?

['Heaven.]

Man kann daraus nix schließen... du solltest mal lieber dein Problem erklären?
Möchtest du einen string zum integer konvertieren oder was?

[coladose]

PHP Code:

Option Strict On 


Das hilft bei falschen Konvertierungen immer.

[EqoTime]

Ich will von cheat engine ein Text (String) Value in VB auslesen.
Habs auch bisschen geschafft nur mache ein kleinen fehler wo dann sowas rauskommt und nicht der echte name also value

[snow]

Poste doch bitte mal deinen konkreten Code, so kann man dir nicht sagen, woran es liegt.

[EqoTime]

Bitteschön

Timer ist auf True direkt wenn man den Form startet Interval = 10

Also Modul:

Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function ReadByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Public value As String
Public Nick_Pointer = &H7D0864
Public Nick_Off = &H14

Public Function Read_Text(ByVal address1, ByVal str_len)
        Dim name As String = ""
        For I = 0 To str_len + 1
            ReadByte(processHandle, address1 + I, value, 1, Nothing)
            name = name & Chr(value.Replace("0x", "&H"))
        Next
        Return name
    End Function

Timer (Also Form seite):

Try
Dim buffer(2) As String
            Dim addr(2) As Double
            ReadProcessMemory(processHandle, Nick_Pointer, buffer(0), 4, Nothing)
            addr(0) = buffer(0) + Nick_Off
            Label2.Text = Convert.ToString(Read_Text(addr(0), 11))
Catch ex As Exception
End Try

['Heaven.]

Hast du schonmal versucht jedes byte zu einem bytearray zu adden und den array am ende zu einem string zu konvertieren? Dan kannst du mit system.encoding.Unicode.getstring (arr) machen

[EqoTime]

meinst du readbyte ?

['Heaven.]

Ja, die ganzen bytes zu einem array adden

[EqoTime]

Also die ganzen integer in readbyte zu bytearray editieren?

['Heaven.]

Gibt readbyte kein byte zurück? O.o

[qkuh]

Doch.

[EqoTime]

Soll ich sie jetzt editieren oder nicht?

€dit: Habs geschafft kann geclosed werden.