Oyunlarda yapılan işlemlerde log tutmak / mem.Read içerir


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: xonivion    0 Yorum    151 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 04.07.2016, 12:56:21 #1
xonivion Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:217 Konuları:74 Kayıt Tarihi:03.07.2016

Anlatım yapmaya üşendim daha sonradan anlatım eklenecek ancak fikir edinemniz için buraya bir source koyuyorum;

PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 While 1               
                Dim oaddy As Integer = ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4)
                Dim taddy As Integer = ReadWritingMemory.ReadInteger("S4Client", &H126C470, 4)
                Dim faddy As Integer = ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4)
                If one = 0 Then
                    If ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 0 Then
                            cx7.conxline("Waiting for S4Client window..", 0)
                        ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 4249654665 Then
                            cx7.conxline("S4Client window found!", 0)
                            one = 1
                        End If
                    End If

                If asdfck = 0 Then
                    If ReadWritingMemory.ReadInteger("S4Client", &H126C470, 4) = 0 Then
                        cx7.conxline("Waiting for join a server", 0)
                        cx7.Slp(1500)
                        four = 1
                    Else
                        cx7.conxline("Server Selected!", 0)
                        cx7.Slp(1500)
                        asdfck = 1
                        four = 1
                    End If
                End If
                If asdfck = 1 Then
                    If ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 2 Then
                        cx7.conxline("[Died]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 5 Then
                        cx7.conxline("[Stopped Moving]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 6 Then
                        cx7.conxline("[Walking]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 15 Then
                        cx7.conxline("[Running]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 8 Then
                        cx7.conxline("[Jump]", 0)
                   ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 9 Then
                        cx7.conxline("[Wall Jump]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 26 Then
                        cx7.conxline("[Used Social Key]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 27 Then
                        cx7.conxline("[Result Screen]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 39 Then
                        cx7.conxline("[Left Click - Attack]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 40 Then
                        cx7.conxline("[Right Click - Attack]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 45 Then
                        cx7.conxline("[Jump Attack]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 34 Then
                        cx7.conxline("[Skill]", 0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A0, 4) = 49 Then
                        cx7.conxline("[Sword Right Click - Attack]", 0)
                    ElseIf pa.Count < 0 Then
                        cx7.conxline("[END]", 0)
                    End If
                End If

            End While

Paylaştığım source'da mem.read attığım oyun S4League'dir.
source geçen yıldan kalma addyler fix, s4 için "Log Saver" yapmak isteyen source'da olan valuelardan yardım alarak memory-update atabilir credits eklemesi şartıyla ancak eğer mem update atamıyorsanız özel mesaj atarak benden yardım alabilirsiniz.

Son Düzenleme: 04.07.2016, 12:57:30, Düzenleyen: xonivion.










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi