Xeleron
Grandmaster Cheater
 Reputation: 0
Joined: 05 Jan 2008
Posts: 652
|
 Posted: Thu Feb 05, 2009 8:48 am Post subject: [Delphi]Help at making Filter function correctly. |
 |
|
Hello , a friend of mine has Made a famous trainer in the AQW section , but had a little trouble by making the filter code correctly.
this is what he pmd me ,
| omg there's no name in here =O and the unknow dude did wrote: |
well since i CANT make it filter like wpe , so spam_mer did it.. but its not perfect .
packet sent : zzazz
original : a
changed : b
it will become zzbzz .
but if i TALK at game zzazz ,
it will become zzbzz , but a mili sec later it shows another zzazz
so , any ideas on how to make it work .. ?
|
| Code: | unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, registry, ComCtrls;
type
TForm5 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
ListView1: TListView;
Memo2: TMemo;
Label1: TLabel;
Label2: TLabel;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
function checkfilter(pd1:string):boolean;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure loadfilterstatus;
procedure loadfilter(strfil:string);
procedure savefilterstatus(strfil:string);
procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
Uses Unit1;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
main.backuplv(listview1,button7);
listview1.Items.Add.Caption:=memo2.Text;
listview1.Items[listview1.Items.Count-1].SubItems.Add(memo1.Text);
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
main.backuplv(listview1,button7);
listview1.DeleteSelected;
end;
function TForm5.checkfilter(pd1: string): boolean;
var i4:integer;
packetdata1:string;
begin
result:=true;
if length(pd1)<2 then result:=false else
for i4:=0 to form5.listview1.Items.count-1 do
if pos(listview1.Items[i4].Caption,pd1)<>0 then begin
result:=false;
packetdata1:= StringReplace(pd1, listview1.Items[i4].Caption, listview1.Items[i4].SubItems.Strings[0], [rfReplaceAll, rfIgnoreCase]);
main.send1packet(packetdata1);
end;
end;
procedure TForm5.Button2Click(Sender: TObject);
var
spt1:textfile;
i6:integer;
begin
if (savedialog1.Execute) and (listview1.items.count>0) then begin
AssignFile(spt1,savedialog1.FileName);
Rewrite(spt1);
for i6:=0 to listview1.items.count-1 do begin
writeln(spt1,listview1.items[i6].caption);
writeln(spt1,listview1.items[i6].SubItems.Strings[0]);
end;
closefile(spt1);
savefilterstatus(savedialog1.FileName);
end;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
if opendialog1.Execute then begin
main.backuplv(listview1,button7);
loadfilter(opendialog1.FileName);
savefilterstatus(opendialog1.FileName);
end;
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
loadfilterstatus;
AlphaBlendValue:=210;
AlphaBlend:=True;
end;
procedure TForm5.loadfilterstatus;
var
reg1: tregistry;
str2:string;
begin
reg1 := tregistry.create;
try
reg1.RootKey := HKEY_LOCAL_MACHINE;
reg1.OpenKey('software\Artix_Entertainment\aqworld',true);
str2:=reg1.readString('filterpath');
if str2<>'' then loadfilter(str2);
finally
reg1.free;
end;
end;
procedure TForm5.loadfilter(strfil: string);
var
spt1:textfile;
str1:String;
begin
AssignFile(spt1, strfil);
{$I-}
Reset(spt1);
{$I+}
if IOResult<>0 then Exit;
while not(eof(spt1)) do begin
readln(spt1,str1);
listview1.Items.Add.Caption:=str1;
readln(spt1,str1);
listview1.Items[listview1.Items.Count-1].SubItems.Add(str1);
end;
closefile(spt1);
end;
procedure TForm5.savefilterstatus(strfil: string);
var
reg1 : tregistry;
begin
reg1 := tregistry.create;
try
reg1.RootKey := HKEY_LOCAL_MACHINE;
reg1.OpenKey('software\Artix_Entertainment\aqworld',true);
reg1.WriteString('filterpath', strfil);
finally
reg1.free;
end;
end;
procedure TForm5.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
memo2.Text:=Item.Caption;
memo1.Text:=Item.SubItems.Strings[0];
end;
procedure TForm5.Button6Click(Sender: TObject);
begin
main.backuplv(listview1,button7);
main.clearlv(listview1);
end;
procedure TForm5.Button8Click(Sender: TObject);
begin
listview1.items:=main.ListView1.items;
end;
procedure TForm5.Button7Click(Sender: TObject);
begin
main.undolv(listview1);
end;
procedure TForm5.Button5Click(Sender: TObject);
begin
main.backuplv(listview1,button7);
listview1.Items[listview1.Itemindex].Caption:=memo2.Text;
listview1.Items[listview1.Itemindex].SubItems.strings[0]:=memo1.Text;
end;
procedure TForm5.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Sender = ListView1;
end;
procedure TForm5.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
if Sender = Source then
with TListView(Sender) do
begin
DropItem := GetItemAt(X, Y);
CurrentItem := Selected;
while CurrentItem <> nil do
begin
NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
if DropItem = nil then DragItem := Items.Add
else
DragItem := Items.Insert(DropItem.Index);
DragItem.Assign(CurrentItem);
CurrentItem.Free;
CurrentItem := NextItem;
end;
end;
end;
end. |
_________________
why Hitler? why did you had to pm me that child porn?
btw Hitler, Shave your pubic hair
PM Me for Hitler's Nude pics |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
