Acma Kapamalı Hile Kodlama VB

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
11 Ocak 2017
Mesajlar
52
Tepki puanı
0
9 HİZMET YILI
Öncelikle Selamın Aleyküm Beyler Bugün Açma kapamalı hile kodlamayı göstericem öncelikle konu bana aittir daha önce böyle konu açanı görmedim oyüzden rep verirseniz makbule geçer data:image/webp;base64,UklGRrACAABXRUJQVlA4TKMCAAAvFUAFELfjtNq2ZXmeD3dJHh0m8B3oGqlsoBsQSdBcM4nDAg6VJs2dNdzEtu0qe9+fsyOCDuoctFBRfRM4oEcIg4DYfSi2rS3L7vN+uLsMwBsJEtUZB4vu7g7NdQyQJJFpjID6W3d52TaSpDhcu3ePFtv85geA/4QoLK8lDpjv+257nETgWqfhe//Ay+XhSxRwuoXq/WnuXZdyyuofy/Ww+sd0EjYBfsw3g48TIjjmf4Lyh1/ft7JATjTv1udm9/tLRwTStjowz24Wm15XeflT0xDIAUI4SUoIKEpIciFDRSCoGUCAMGqMrr6JUjCOKQp5TuoRBEi2OGvmCUI45Gp5j3pZGAMSw8TEIgiUCGEXCl4/bFXw8kGWMmFzZg6EyJDqNa2SlAEU5BlDiT7svvUbQNzEPfInEA7eQaBgMeUYK9KMkacijH/yQmDG4Zw/EIDgpIXA3qpGWKR5o0ilRJB/8kOWMhIkqhrkeEYJASL4+4cSQiAHiLZtm25i20Yd3NhO3ca2bbX3/8dT0z+I6L8Ct22UG/PRK0hYYLAEIpGAxSARAk0iVxohNCrlEhpeIzMVkAAUTDKWxBpICBoxGV1MhP5AJlqhgH+CAimQwCtAQmLIkU7jj1TrB8KfRvJrjvSTM1hKCI9JAPxdCDt+AJ5PECpZAuR+RrFiOf1+2KZfK4X4ErkvgQgpX9Wru+P8cplcdtXaGskViX6H3z6btdfHQM9q830Of0V8Q9Bms0XbOIgimwga+FytDYHMbDabTpG8DLoLLVdoQjpZnAA83N8+AuC0IP1MQp4O6eR2AGC+uTM/AYcb6afj0WV6X6IUAC5vJOKxg0Ap4dNL6SQqW3X+GYTeFvv94iU8+DmrORT8C26a+Ww219xgXvDK1/7Hz7j2FwEA

Öncelikle checkboxlara kodunu giriyoruz sonra timera geliyoruz mesela timer 5 e kodluycaksınız şu kodu yazıyoruz Timer kaçsa üstteki ve alttaki checkbox.checked sayısını düzenleyin ona göre  sonra ise pointer ve value yazan yere girin
Kod:
If CheckBox5.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &HPointer, "Value")
        End If
        If CheckBox5.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &HPointer, "Value")
        End If
    End Sub

Örnek Çalışan Kod Name Esp : (12.05.2016 çalışıyor)
If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829620")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829621")
        End If
    End Sub

Bilgileri toplayıp konu olarak paylasyrm :)
 
Uzman Üye
Katılım
11 Ara 2016
Mesajlar
176
Tepki puanı
6
Yaş
29
9 HİZMET YILI
If CheckBox1.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829620")
Else
WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829621")
End If
Böyle daha kısa aynı görevi görüyor
 
Seçkin Üye
Katılım
12 Ara 2016
Mesajlar
509
Tepki puanı
13
9 HİZMET YILI
aynı konudan bir sürü var :Dd mc nin konusunda zaten bunu paylaştım ama bilmeyenlere yararlı
 
Onaylı Üye
Katılım
11 Ocak 2017
Mesajlar
52
Tepki puanı
0
9 HİZMET YILI
Megahack19' Alıntı:
If CheckBox1.Checked = True Then
           WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829620")
Else
           WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829621")
       End If
Böyle daha kısa aynı görevi görüyor
Ayn Senin Dediginde Dogru :)
Senn Dedigini Kullanmak Dahada Mantıklı
Timeri Enabled = True Yap :)
Bir Tane Timer Olustur
Bütün Pointleri O timer eGir :)
 
Uzman Üye
Katılım
11 Ara 2016
Mesajlar
176
Tepki puanı
6
Yaş
29
9 HİZMET YILI
Netluis™' Alıntı:
Megahack19' Alıntı:
If CheckBox1.Checked = True Then
           WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829620")
Else
           WriteLong("wolftü.bin", Label1.Text + &H358130, "2251829621")
       End If
Böyle daha kısa aynı görevi görüyor
Ayn Senin Dediginde Dogru :)
Senn Dedigini Kullanmak Dahada Mantıklı
Timeri Enabled = True Yap :)
Bir Tane Timer Olustur
Bütün Pointleri O timer eGir :)
Aynen ama obj lilere farklı bir timer gerekiyor invetal in yüksek olması gerekiyor aksi takdirde oyundan atar
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst