Hallo epvp,
ich hab seit 2 Tagen ein Problem...
mit dem CharImage meine ich das:
Viele von euch kennen das bestimmt schon bei vielen bots usw.
und bei mir ist das problem es funktioniert nicht xD und ich weis nicht was ich falsch mache... :S
Hier mein Code:
In Form1:
Ins Modul:
und dazu noch ReadProcessmemory usw... die brauch ich ja nicht hierhin schreiben.
Mein Problem ist jetzt was da falsch sein kann ich weis nicht mehr weiter
in CE funktioniert es also die ID nummern werden Richtig angezeigt aber in vb wenn ich es starte bleibt die PictureBox grau :S
ich hab seit 2 Tagen ein Problem...
mit dem CharImage meine ich das:
Viele von euch kennen das bestimmt schon bei vielen bots usw.
und bei mir ist das problem es funktioniert nicht xD und ich weis nicht was ich falsch mache... :S
Hier mein Code:
In Form1:
Code:
Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
Dim ID2 = ReturnAddy("BASEADDRESSE", 4, 364)
If ID2 = 0 Then
ID.Image = My.Resources.warrior_m
ElseIf ID2 = 7 Then
ID.Image = My.Resources.shaman_m
ElseIf ID2 = 3 Then
ID.Image = My.Resources.shaman_w
ElseIf ID2 = 4 Then
ID.Image = My.Resources.warrior_w
ElseIf ID2 = 6 Then
ID.Image = My.Resources.sura_w
ElseIf ID2 = 1 Then
ID.Image = My.Resources.assassin_w
ElseIf ID2 = 2 Then
ID.Image = My.Resources.sura_m
ElseIf ID2 = 5 Then
ID.Image = My.Resources.assassin_m
End If
End Sub
Code:
Public Function ReturnAddy(ByVal Addybase As String, ByVal Off1 As Integer, ByVal Off2 As Integer) As String
Dim addy As String
ReadProcessMemory(processHandle, "&H" & Addybase, value, 4, Nothing)
addy = "&H" & Conversion.Hex(value + Off1)
ReadProcessMemory(processHandle, addy, value, 4, Nothing)
addy = "&H" & Conversion.Hex(value + Off2)
Return addy
End Function
Mein Problem ist jetzt was da falsch sein kann ich weis nicht mehr weiter
Und danke nochmals an:







