Uo Loop

sanada her şeyin kaynak kodu lazım he

kimse kullanmaz diyor allahım yarabbim ya sanki bütün millet kaynak kodlarından anlıyor programın nasıl çalıştığını

Xearth kes! Yazdıklarınla bizim demek istediğimizin hiçbir alakası yok, neyin peşindesin? 3 kullanıcı da farklı ayrıca post kasmak neden isteyelim çok önemli bir konu mu bu?

evt adam haklı ayrı ayrı 3 accountdan post kasıyorsunuz kullanıcı adı sifre calmıyacagınızı nerden bilelim yada her hangi bişi biliyosunuzki su devirde lise 2 ögrencisi bile amerikadaki bütün bankalardan 800 milyon dolat kendi hesabına gecire biliyosa siz bu progdan neler yaparsınız

evet hepimiz aynı kişiyiz, beyin bedava

Arkadaşlar buyrun kaynak kodları vereyim.. (Bazı arkadaşlar muradına ersin).
İyice incelesinler varmıymış bir art niyetimiz görsünler.
İnsanlara basitde olsa bir paylaşım yapıyoruz. Bazı arkadaşlar demediğini bırakmıyor.
Kaynak Kodlar;
İndir

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, tlhelp32, shellapi, XPMan, CoolTrayIcon,
  Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox4: TGroupBox;
    ListBox1: TListBox;
    Button3: TButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    Label2: TLabel;
    Label3: TLabel;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Baslat: TMenuItem;
    Durdur: TMenuItem;
    N1: TMenuItem;
    Kapat: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure CoolTrayIcon1BalloonHintClick(Sender: TObject);
    procedure BaslatClick(Sender: TObject);
    procedure DurdurClick(Sender: TObject);
    procedure KapatClick(Sender: TObject);
    procedure CoolTrayIcon1Click(Sender: TObject);
    private

  public
    a:string;
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
var
  Title: array[0..255] of char;
begin
  Result := True;
  GetWindowText(wHandle, Title, 255);
  if IsWindowVisible(wHandle) then
     lb.Items.Add(string(Title));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
wnd: HWND;
b:PAnsiChar;
begin
b:=pchar(label1.Caption);
wnd:=FindWindow('Ultima Online',b);
case strtoint(a) of
1: PostMessage(wnd, WM_KEYDOWN, VK_F1, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
2: PostMessage(wnd, WM_KEYDOWN, VK_F2, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
3: PostMessage(wnd, WM_KEYDOWN, VK_F3, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
4: PostMessage(wnd, WM_KEYDOWN, VK_F4, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
5: PostMessage(wnd, WM_KEYDOWN, VK_F5, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
6: PostMessage(wnd, WM_KEYDOWN, VK_F6, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
7: PostMessage(wnd, WM_KEYDOWN, VK_F7, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
8: PostMessage(wnd, WM_KEYDOWN, VK_F8, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
9: PostMessage(wnd, WM_KEYDOWN, VK_F9, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
10: PostMessage(wnd, WM_KEYDOWN, VK_F10, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
11: PostMessage(wnd, WM_KEYDOWN, VK_F11, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
12: PostMessage(wnd, WM_KEYDOWN, VK_F12, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
13: PostMessage(wnd, WM_KEYDOWN, VK_DELETE, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
14: PostMessage(wnd, WM_KEYDOWN, VK_UP, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
15: PostMessage(wnd, WM_KEYDOWN, VK_DOWN, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
16: PostMessage(wnd, WM_KEYDOWN, VK_RIGHT, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
17: PostMessage(wnd, WM_KEYDOWN, VK_LEFT, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
18: PostMessage(wnd, WM_KEYDOWN, VK_SPACE, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
19: PostMessage(wnd, WM_KEYDOWN, VK_ESCAPE, MakeLong(0, MapVirtualKey(VK_F1, 0))) ;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if label1.Caption = 'Bekleniyor' then begin
beep;
Showmessage('Lütfen Ultima Online penceresini seçiniz!');
end
else
begin
timer1.Interval:=strtoint(edit1.Text);
Button1.Enabled:=False;
durdur.Enabled:=True;
baslat.Enabled:=False;
button2.Enabled:=True;
button3.Enabled:=False;
Combobox1.Enabled:=False;
listbox1.Enabled:=False;
edit1.Enabled:=False;
timer1.Enabled:=True;
application.Minimize;
cooltrayicon1.ShowBalloonHint('UO Loop Başlatıldı','Süre: '+edit1.Text+'ms.'#13#10+'Tuş: '+combobox1.Text+#13#10'Pencere: '+label1.Caption,bitInfo,10)
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Durdur.Enabled:=False;
Button1.Enabled:=True;
Baslat.Enabled:=True;
Button3.Enabled:=True;
Button2.Enabled:=False;
combobox1.Enabled:=True;
listbox1.Enabled:=True;
edit1.Enabled:=True;
timer1.Enabled:=False;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
button1.Enabled:=True;
baslat.Enabled:=True;
case combobox1.Itemindex of
0: a:='1';
1: a:='2';
2: a:='3';
3: a:='4';
4: a:='5';
5: a:='6';
6: a:='7';
7: a:='8';
8: a:='9';
9: a:='10';
10: a:='11';
11: a:='12';
12: a:='13';
13: a:='14';
14: a:='15';
15: a:='16';
16: a:='17';
17: a:='18';
18: a:='19';
end;
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  begin
    Key:=#0;
    Beep;
  end;
end;


procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Button = mbRight) then begin
 beep;
showmessage('Klavye Kullanınız');
end;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=#0;
beep;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
listbox1.Clear;
EnumWindows(@EnumWindowsProc, Integer(Listbox1));
end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
label1.Caption:=ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button3.Click;
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
ShellExecute(0,'open','https://www.uo-edoras.net',nil,nil,SW_SHOW);
end;

procedure TForm1.CoolTrayIcon1BalloonHintClick(Sender: TObject);
begin
application.Restore;
end;

procedure TForm1.BaslatClick(Sender: TObject);
begin
button1.Click;
end;

procedure TForm1.DurdurClick(Sender: TObject);
begin
button2.Click;
end;

procedure TForm1.KapatClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
application.Restore;
end;

end.

Xearth : 2 kod için post kastin relu uo loop varken seninkini zaten kullanmam + playerlik donemimi bitireli 2 sene oldu =)

işte buna çok çok güldüm.