Özal Anti Cheat Hakkında Sorunum.

[Golden Child]

Merhaba arkadaşlar Özalın anti cheatı şuanlık güzel sorun yok tamamen istediğim gibi exe giriş engellendi.

Bir tek Tbl kontrol kaldı.

Public Sub tblci()
If Not FileLen(App.Path & "\Data\Item_Org.tbl") = (item.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lütfen TBL dosyalarınızı güncelleyiniz!..", vbInformation, "Patch Hatası"
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
End
End If

If Not FileLen(App.Path & "\Data\Skill_Magic_Main.tbl") = (skill.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lütfen TBL dosyalarınızı güncelleyiniz!..", vbInformation, "Patch Hatası"
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
End
End If

If Not FileLen(App.Path & "\Data\Texts_us.tbl") = (text.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lütfen TBL dosyalarınızı güncelleyiniz!..", vbInformation, "Patch Hatası"
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
End
End If

End Sub

Yukarıdaki gibi bir tbl kontrol var sırasıyla res'i de düzenledim.
Exe olarak kaydettim fakat tbl hiç antinin umrunda değil normalde belirlediğim tbllarda girmeliyken yani başka tbl ile girilince tbl eksik felan olunca hata vermesi lazım siliyorum anti gene sorunsuz açılıyor. Sorun nedir tbl kontrölü nasıl saglarım

 

[AKUMA]

Cevap: Özal Anti Cheat Hakkında Sorunum.

Özala Sorsan ?

Çünkü Programın Ana Sourcesi Onda Olduğu İçin Özala ÖM At Bence, Bu Konuyu Burada Yazarak Çözüm Bulamazsın.

 

[Golden Child]

Cevap: Özal Anti Cheat Hakkında Sorunum.

Özala Sorsan ?

Çünkü Programın Ana Sourcesi Onda Olduğu İçin Özala ÖM At Bence, Bu Konuyu Burada Yazarak Çözüm Bulamazsın.

Msnden konuşuyorduk yardım et dedim bi baktım çevrim dışı artık benimi engelledi yoksa çıkışmı yaptı bilemicem....

 

[Fresky]

Cevap: Özal Anti Cheat Hakkında Sorunum.

Private Sub Label4_Click()
Dim Mx() As Byte
Command1.Enabled = False
Label4.Caption = "Güncelleştiriliyor!...   1/3"
Mx() = Inet1.OpenURL("http://127.0.0.1/tbl/Item_Org.tbl", 1)
    Open App.Path & "\Data\Item_Org.tbl" For Binary Access Write As #1
    Put #1, , Mx()
    Close #1
Label4.Caption = "Güncelleştiriliyor!...   2/3"
    Mx() = Inet1.OpenURL("http://127.0.0.1/tbl/Skill_Magic_Main.tbl", 1)
    Open App.Path & "\Data\Skill_Magic_Main.tbl" For Binary Access Write As #1
    Put #1, , Mx()
    Close #1
    Label4.Caption = "Güncelleştiriliyor!...   3/3"
    Mx() = Inet1.OpenURL("http://127.0.0.1/tbl/Texts_us.tbl", 1)
    Open App.Path & "\Data\Texts_us.tbl" For Binary Access Write As #1
    Put #1, , Mx()
    Close #1
    
   
    Label4.Caption = "TBL dosyalarınız güncelleştirilmiştir...."
Command1.Enabled = True
End Sub

bu bölümü düzenlemen lazım we paylaştığı konuda derince anlatımı war

 

[ozoCozo]

Cevap: Özal Anti Cheat Hakkında Sorunum.

MSNde çok sıktığın için sildim,kodlara gelince çalışıyor..

şimdi
item.caption -> tbl nin boyutu(sqldan çekilen)(tablo:a_tbl,sütun:item)
FileLen(App.Path & "\Data\Item_Org_us.tbl") -> burada Data\Item_Org_us.tbl nin boyutunu çekiyor.

if not -> eşit değilse demek..

Giriş butonuna bastığında aşağıdaki kodu ekle
tblci 'tbl kontrol eder

Yani;
eğer datanın içindeki Item_Org_us.tbl'nin boyutu,dbden çekilen boyutla eşit değilse
önce idays 0lar
sonra msgbox verir.
sonra idays0lar
sonra programı kapatır!..

Public Sub tblci()
If Not FileLen(App.Path & "\Data\Item_Org.tbl") = (item.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lütfen TBL dosyalarınızı güncelleyiniz!..", vbInformation, "Patch Hatası"
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
End
End If
' gidiyor..
end sub

Yine anlamadıysan bırak vbyi git oyun oyna derim..

 

[tarja]

Cevap: Özal Anti Cheat Hakkında Sorunum.

ben bu anti yi geliştirdim sql baglantısı gerekmiyo version editliyerek giriyo

mesela antisiz girince version hatası vericektir oyun

ve zorumlu tbl ler kullanılıyo