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    125 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 04.07.2016, 12:56:21 #1
xonivion Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:217 Konu Sayısı:74 Üyelik Tarihi:03.07.2016

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

PHP Kod:
 While 1               
                Dim oaddy 
As Integer ReadWritingMemory.ReadInteger("S4Client", &H126C3A04)
                Dim taddy As Integer ReadWritingMemory.ReadInteger("S4Client", &H126C4704)
                Dim faddy As Integer ReadWritingMemory.ReadInteger("S4Client", &H126C3A04)
                If one 0 Then
                    
If ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 0 Then
                            cx7
.conxline("Waiting for S4Client window.."0)
                        ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 4249654665 Then
                            cx7
.conxline("S4Client window found!"0)
                            one 1
                        End 
If
                    End If

                If asdfck 0 Then
                    
If ReadWritingMemory.ReadInteger("S4Client", &H126C4704) = 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", &H126C3A04) = 2 Then
                        cx7
.conxline("[Died]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 5 Then
                        cx7
.conxline("[Stopped Moving]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 6 Then
                        cx7
.conxline("[Walking]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 15 Then
                        cx7
.conxline("[Running]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 8 Then
                        cx7
.conxline("[Jump]"0)
                   ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 9 Then
                        cx7
.conxline("[Wall Jump]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 26 Then
                        cx7
.conxline("[Used Social Key]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 27 Then
                        cx7
.conxline("[Result Screen]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 39 Then
                        cx7
.conxline("[Left Click - Attack]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 40 Then
                        cx7
.conxline("[Right Click - Attack]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 45 Then
                        cx7
.conxline("[Jump Attack]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 34 Then
                        cx7
.conxline("[Skill]"0)
                    ElseIf ReadWritingMemory.ReadInteger("S4Client", &H126C3A04) = 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 görüntüleyenler:
1 Misafir