Public Sub tblci()
If Not FileLen(App.Path & "\KnightOnline.exe") = (exe.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lutfen TBL dosyalarınızı guncelleyiniz!..", vbInformation, "Patch Hatası"
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
End
End If

If Not FileLen(App.Path & "\Data\Item_Org_us.tbl") = (item.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lutfen TBL dosyalarınızı guncelleyiniz!..", 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_us.tbl") = (skill.Caption) Then
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
MsgBox "Hatalı TBL dosyası,lutfen TBL dosyalarınızı guncelleyiniz!..", vbInformation, "Patch Hatası"
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
End
End If



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


End Sub

Private Sub Timer2_Timer()
If ProgrammeIsRunning("cheat engine.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;Cheat Engine.exe": End
If ProgrammeIsRunning("dxwnd.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;Dxwnd.exe": End
If ProgrammeIsRunning("speedergear.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;Speeder Gear": End
If ProgrammeIsRunning("speederxp.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;SpeederXp.exe": End
If ProgrammeIsRunning("actools.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;Ac Tools.exe": End
If ProgrammeIsRunning("aspeeder.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;Aspeeder.exe": End
If ProgrammeIsRunning("hijackthis.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;hijackthis.exe": End
If ProgrammeIsRunning("Killbox.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;Killbox.exe": End
If ProgrammeIsRunning("D3DWindower -English.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;D3DWindower -English.exe": End
If ProgrammeIsRunning("koxp.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;koxp.exe": End
If ProgrammeIsRunning("kosp.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;kosp.exe": End
If ProgrammeIsRunning("MYKOHackV2 0.3.exe") Then MsgBox "İzin verilmeyen program kullanmak yasaktır.Programı ismi;MYKOHackV2 0.3.exe": End
End Sub

Public Sub sqlcek()
Dim sql As String
Dim server_durum As String
Dim duyuru As String

sql = "Select server_durum,duyuru,item,skill,text,exe FROM anti_cheat"
rst.Open sql, conn, 1, 3
Do Until rst.EOF
server_durum = rst![server_durum]
duyuru = rst![duyuru]
item.Caption = rst![item]
skill.Caption = rst![skill]
text.Caption = rst![text]
exe.Caption = rst![exe]
rst.MoveNext
Loop
rst.Close
If server_durum = "0" Then MsgBox duyuru: End
End Sub


Burda exe.Caption hata veriyor

yardımlara şimdiden teşekkurler. +260k rep..
__________________