ARkadaşlar hepinize mrb benim ufak tefek sorularım olucak size knight online oyununa anti cheat yazmayı duşundum ve tam sql db sine bağlanırken hata alıyorum ne gibi yollar izmlemem lazım bi bakarmısın kodlara Kod:
unit Unit1; interface uses Windows, Messages, WinProcs, WinInet, UrlMon, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, DB, ADODB, sSkinProvider, sSkinManager, sButton, ExtCtrls, sLabel; type TForm1 = class(TForm) sSkinManager1: TsSkinManager; sSkinProvider1: TsSkinProvider; q: TADOQuery; DataSource1: TDataSource; adocon: TADOConnection; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; ProgressBar1: TProgressBar; web: TWebBrowser; Button1: TsButton; Button2: TsButton; Button3: TsButton; Button4: TsButton; Button5: TsButton; sButton1: TsButton; Edit1: TEdit; Edit2: TEdit; sButton2: TsButton; Label3: TLabel; Timer1: TTimer; sButton3: TsButton; Timer2: TTimer; sLabel1: TsLabel; sLabel2: TsLabel; Timer3: TTimer; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure sButton1Click(Sender: TObject); procedure sButton2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure sButton3Click(Sender: TObject); procedure Timer2Timer(Sender: TObject); private public end; var Form1: TForm1; implementation function boyut(dosya: String): String; var srFileSR: TSearchRec; begin findfirst(dosya, FaAnyFile, srFileSR); boyut := inttostr(srFileSR.Size); end; Function CheckUrl(url:string):boolean; var hSession, hfile, hRequest: hInternet; dwindex,dwcodelen :dword; dwcode:array[1..20] of char; res : pchar; begin if pos('http://',lowercase(url))=0 then url := 'http://'+url; Result := false; hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); if assigned(hsession) then begin hfile := InternetOpenUrl( hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0); dwIndex := 0; dwCodeLen := 10; HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex); res := pchar(@dwcode); result:= (res ='200') or (res ='302'); if assigned(hfile) then InternetCloseHandle(hfile); InternetCloseHandle(hsession); end; end; procedure ExtractRes(ResType, ResName, ResNewName: String); var Res: TResourceStream; begin Res := TResourceStream.Create(Hinstance, ResName, PChar(ResType)); try Res.SaveToFile(ResNewName) Finally Res.Free end; end; function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button2Click(Sender: TObject); begin web.Navigate('http://pressko.zapto.org/kayitol.php'); end; procedure TForm1.Button3Click(Sender: TObject); begin web.Navigate('http://pressko.zapto.org/index.php?act=whosonline'); end; procedure TForm1.Button4Click(Sender: TObject); begin web.Navigate('http://pressko.zapto.org/index.php?act=userrankings'); end; procedure TForm1.sButton1Click(Sender: TObject); Var satir,satir2:string; TexT:TextFile; TexT2:TextFile; TexT3:TextFile; Durum:Boolean; begin Durum:=CheckUrl('http://pressko.zapto.org/anti/down/url.txt'); progressbar1.StepIt; ExtractRes('tbl', 'Skill_Magic_Main', '.\data\Skill_Magic_Main.tbl'); sleep(500); progressbar1.StepIt; sleep(500); progressbar1.Position:=0; progressbar1.stepit; ExtractRes('tbl', 'item_org', '.\data\item_org.tbl'); sleep(100); progressbar1.stepit; progressbar1.Position:=0; if Durum = True then begin ShowMessage('Yeni Patch Gelmiş Tamam Dedikten sonra patch indirilicektir.!!!'); DownloadFile('http://pressko.zapto.org/anti/down/url.txt', '.\data\url.txt'); AssignFile(TexT, '.\data\url.txt'); progressbar1.StepIt; Reset(Text); Readln(Text, satir); CloseFile(TexT); AssignFile(TexT2, '.\data\tbl.mc'); Reset(Text2); Readln(Text2, satir2); CloseFile(TexT2); if satir2 = 'ok' then begin showmessage('Patch Daha once Uygulandığından indirilmedi.!!!'); progressbar1.Position:=0; button1.Enabled:=(true); end else begin progressbar1.StepIt; DownloadFile(satir, '.\yama.rar'); progressbar1.Position:=0; ExtractRes('exe', 'Yama', '.\Yama.exe'); sleep(500); Winexec('Yama.exe x -y yama.rar', SW_HIDE); progressbar1.StepIt; sleep(1000); deletefile('Yama.rar'); sleep(100); deletefile('Yama.exe'); progressbar1.StepIt; progressbar1.Position:=0; AssignFile(TexT2, '.\data\tbl.mc'); FileMode := 2; // Read & Write ReWrite(TexT2); progressbar1.StepIt; WriteLn(TexT2, 'ok'); CloseFile(TexT2); progressbar1.StepIt; button1.Enabled:=(true); DownloadFile('http://pressko.zapto.org/anti/down/pressko.mc', '.\data\pressko.mc'); showmessage('Patch indirildi ve uygulandı.!!!'); end; end; end; procedure TForm1.sButton2Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); begin progressbar1.Position:=0; progressbar1.StepIt; ExtractRes('tbl', 'Skill_Magic_Main', '.\data\Skill_Magic_Main.tbl'); sleep(500); progressbar1.StepIt; sleep(500); progressbar1.Position:=0; progressbar1.stepit; ExtractRes('tbl', 'item_org', '.\data\item_org.tbl'); sleep(100); progressbar1.stepit; if boyut('.\Data\Item_Org.tbl') '106424' then begin MessageDlg('Item_org.tbl Hatalı',mtWarning, [mbOK], 0); close; end else if boyut('.\Data\Skill_magic_main.tbl') '267469' then begin MessageDlg('Skill_Magic_Main.tbl Hatalı',mtWarning, [mbOK], 0); close; end else if boyut('.\Knightonline.exe') '3044864' then begin MessageDlg('PReSSKO.exe Hatalı',mtWarning, [mbOK], 0); close; end else begin q.Sql.Clear; q.SQL.Add('UPDATE TB_USER SET idays = 6 where strAccountID ='''+ edit1.Text + ''' and strPasswd =''' + edit2.Text + ''''); sleep(1500); q.ExecSQL; sleep(500); winexec('.\data\is.bat', SW_HIDE); sleep(500); sleep(100); ExtractRes('tbl', 'Skill_Magic_Main', '.\data\Skill_Magic_Main.tbl'); ExtractRes('tbl', 'item_org', '.\data\item_org.tbl'); sleep(200); WinExec('Knightonline.exe',sw_show); Sleep(10000); q.sql.Clear; q.sql.Add('UPDATE TB_USER SET idays = 0 where strAccountID ='''+ edit1.Text + ''''); q.ExecSQL; sleep(500); DeleteFile('.\Data\is.bat'); sleep(500); DeleteFile('.\Data\tbl.bat'); sleep(500); Close; end; end; procedure TForm1.FormCreate(Sender: TObject); begin web.Navigate('http://pressko.zapto.org/anti/nav.html'); adocon.Connected:=(True); end; procedure TForm1.FormShow(Sender: TObject); Var TexT2: TextFile; begin AssignFile(TexT2, '.\data\is.bat'); FileMode := 2; // Read & Write ReWrite(TexT2); WriteLn(TexT2, 'attrib -r *.*'); WriteLn(TexT2, 'cd..'); WriteLn(TexT2, 'del *.txt'); CloseFile(TexT2); end; procedure TForm1.Timer1Timer(Sender: TObject); var txt:TextFile; begin if FileExists('.\data\tbl.mc') then exit else ExtractRes('mc', 'tbl', '.\data\tbl.mc'); end; procedure TForm1.sButton3Click(Sender: TObject); var txt,txt2:TextFile; begin AssignFile(txt, '.\data\tbl.mc'); FileMode := 2; ReWrite(txt); progressbar1.StepIt; WriteLn(txt, 'h'); closefile(txt); AssignFile(txt2, '.\data\pressko.mc'); FileMode := 2; ReWrite(txt2); progressbar1.StepIt; WriteLn(txt2, 'Uygulanmadı'); closefile(txt2); progressbar1.Position:=0; end; procedure TForm1.Timer2Timer(Sender: TObject); var txt:TextFile; satirr:String; begin if FileExists('.\data\pressko.mc') then begin AssignFile(txt, '.\data\pressko.mc'); Reset(txt); Readln(txt, satirr); CloseFile(txt); slabel2.Caption:=satirr; end; end; end.
__________________