1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// Set the mouse cursor to position x,y:
// Maus an Position x,y setzen:
SetCursorPos(x, y);

// Simulate the left mouse button down
// Linke Maustaste simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate the right mouse button down
// Rechte Maustaste simulieren
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:

Procedure PostKeyEx32(key: Word; Const shift: TShiftState; specialkey: Boolean);
{************************************************************
* Procedure PostKeyEx32
*
* Parameters:
*  key    : virtual keycode of the key to send. For printable
*           keys this is simply the ANSI code (Ord(character)).
*  shift  : state of the modifier keys. This is a set, so you
*           can set several of these keys (shift, control, alt,
*           mouse buttons) in tandem. The TShiftState type is
*           declared in the Classes Unit.
*  specialkey: normally this should be False. Set it to True to
*           specify a key on the numeric keypad, for example.
* Description:
*  Uses keybd_event to manufacture a series of key events matching
*  the passed parameters. The events go to the control with focus.
*  Note that for characters key is always the upper-case version of
*  the character. Sending without any modifier keys will result in
*  a lower-case character, sending it with [ssShift] will result
*  in an upper-case character!
************************************************************}

Type
   TShiftKeyInfo = Record
   shift: Byte;
   vkey : Byte;
   End;
   byteset = Set of 0..7;
Const
   shiftkeys: Array [1..3] of TShiftKeyInfo =
       ((shift: Ord(ssCtrl); vkey: VK_CONTROL),
       (shift: Ord(ssShift); vkey: VK_SHIFT) ,
       (shift: Ord(ssAlt); vkey: VK_MENU));
Var
   flag: DWORD;
   bShift: ByteSet absolute shift;
   i: Integer;
Begin
  For i := 1 To 3 Do
  Begin
    If shiftkeys[i].shift In bShift Then
      keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
  End; { For }
  if specialkey Then
    flag := KEYEVENTF_EXTENDEDKEY
  Else
    flag := 0;

  keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );

  flag := flag or KEYEVENTF_KEYUP;
  keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );

  For i := 3 DownTo 1 Do
  Begin
    If shiftkeys[i].shift In bShift Then
      keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0),
      KEYEVENTF_KEYUP, 0);
  End; { For }
End; { PostKeyEx32 }


function ClickButton(ParentWindow : Hwnd; ButtonCaption : string) : boolean;
var
   SL:TStringList;
   H:hWnd;
begin
   SL:=TStringList.Create;
   try
      SL.AddObject(ButtonCaption, nil); // First item in list is text to find
      EnumChildWindows(ParentWindow, @EnumChildProc, LongInt(SL));
      H:=0;
      case SL.Count of
         1: ShowMessage('Window text not found.');
         2: H := hWnd(SL.Objects[1]);
      else ShowMessage('Ambiguous text detected.');
      end;
   finally
      SL.Free;
   end;
    Result := H <> 0;
    if Result then PostMessage(H, BM_CLICK, 0, 0);
end;

    PostMessage(GetDlgItem(wnd,ID_OK),BM_CLICK,0,0);
    ClickButton(wnd, '&OK');
    PostKeyEx32(VK_SPACE,[],FALSE)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

function EnumChildProc(Wnd : hWnd; SL : TStrings) : Boolean; StdCall;
var
  szFull : Array[0..MAX_PATH] of char; //Buffer for window caption
begin
  Result:=Wnd<>0;
  if Result then begin
    GetWindowText(Wnd, szFull, SizeOf(szFull)); // put window text in buffer
    if (pos(SL[0],StrPas(szFull))>0) // Test for text
    and (SL.IndexOfObject(TOBject(Wnd))< 0) // Test for duplicate handles
    then SL.AddObject(StrPas(szFull),TObject(Wnd)); // Add item to list
    EnumChildWindows(Wnd,@EnumChildProc, LongInt(SL)); //Recurse into child windows
  end;
end;


function ClickButton(ParentWindow : Hwnd; ButtonCaption : string) : boolean;
var
   SL:TStringList;
   H:hWnd;
begin
   SL:=TStringList.Create;
   try
      SL.AddObject(ButtonCaption, nil); // First item in list is text to find
      EnumChildWindows(ParentWindow, @EnumChildProc, LongInt(SL));
      H:=0;
      case SL.Count of
         1: ShowMessage('Window text not found.');
         2: H := hWnd(SL.Objects[1]);
      else ShowMessage('Ambiguous text detected.');
      end;
   finally
      SL.Free;
   end;
    Result := H <> 0;
    if Result then PostMessage(H, BM_CLICK, 0, 0);
end;


procedure TForm1.Button2Click(Sender: TObject);
var hnd: hwnd;
begin
    hnd := findwindow(nil,'Mozilla Firefox');
    clickbutton(hnd,'Online');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:

var
  Form1: TForm1;
  timer:integer;

implementation

uses SendKeys;

{$R *.DFM}

function EnumChildProc(Wnd : hWnd; SL : TStrings) : Boolean; StdCall;  
var  
  szFull : Array[0..MAX_PATH] of char; //Buffer for window caption  
begin  
  Result:=Wnd<>0;  
  if Result then begin  
    GetWindowText(Wnd, szFull, SizeOf(szFull)); // put window text in buffer  
    if (pos(SL[0],StrPas(szFull))>0) // Test for text  
    and (SL.IndexOfObject(TOBject(Wnd))< 0) // Test for duplicate handles  
    then SL.AddObject(StrPas(szFull),TObject(Wnd)); // Add item to list  
    EnumChildWindows(Wnd,@EnumChildProc, LongInt(SL)); //Recurse into child windows  
  end;  
end;  

 

 
function ClickButton(ParentWindow : Hwnd; ButtonCaption : string) : boolean;  
var  
   SL:TStringList;  
   H:hWnd;  
begin  
   SL:=TStringList.Create;  
   try  
      SL.AddObject(ButtonCaption, nil); // First item in list is text to find  
      EnumChildWindows(ParentWindow, @EnumChildProc, LongInt(SL));  
      H:=0;  
      case SL.Count of  
         1: ShowMessage('Window text not found.');  
         2: H := hWnd(SL.Objects[1]);  
      else ShowMessage('Ambiguous text detected.');  
      end;  
   finally  
      SL.Free;  
   end;  
    Result := H <> 0;  
    if Result then PostMessage(H, BM_CLICK, 0, 0);  
end;  


procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  timer:=60;
  Form1.Brush.Style:=bsClear;
Form1.BorderStyle:=bsNone;
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  CursorPos: TPoint;
begin
  GetCursorPos(CursorPos);
  edit3.text := Format('The cursor is at (%d, %d)', [CursorPos.X, CursorPos.Y]);
  end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
hnd: hwnd;
begin
label2.caption:=Inttostr(timer);
dec(timer);
if timer = 58 then
begin
sendkeystotitle('Yu-Gi-Oh! ONLINE    Ver.050128.01-19-p05022401','j');
sendkeystotitle('Yu-Gi-Oh! ONLINE    Ver.050128.01-19-p05022401','s');
end;
if timer = 56 then
begin
SetCursorPos(481, 555);
end;
if timer = 54 then
begin
hnd := findwindow(nil,'Yu-Gi-Oh! ONLINE    Ver.050128.01-19-p05022401');
clickbutton(hnd,'&ONLINE');

end;
end;


end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  Form1: TForm1;
  timer:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer:=60;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=inttostr(timer);
dec(timer);
if timer = 58 then
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
timer:=60;
end;
end;

end.