Стоп

[ex.cluz]

Да там должно меняться свойство:

 if Button1.Tag <> 0 then Break;

на отличное от нуля.
Тогда она останавливается.

[Obey177]

Не ребят по форуму нету не скрипта не инфы о скрипте есть только описание процедур прерывания...
помогите пож с моей проблемой кто будет задействован в помощи добавлю репы...

[Пепел Феникса]

1)все есть здесь.
2)репу ты не поднимешь.

[Obey177]

Сообщение от Пепел Феникса

1)все есть здесь.
2)репу ты не поднимешь.

как есть значит я слепой...тыкнете пальцем на ссылку данного обсуждения...
и молчание..значит данного обсуждения нету значит тема помощи еще актуальна жду с нетерпением помощи...

[Пепел Феникса]

это ты уровень интеллекта показал?
на время не посмотреть? я в отличие от тебя ночью предпочитаю спать.
http://programmersforum.ru/showpost....9&postcount=13 - раз(то что нужно на другом примере, переделать нужно лишь)
http://programmersforum.ru/showthrea...rocessMessages - два(принцип показан)

при желании можно еще понаходить.

[DeKot]

Посмотри вторую ссылку от Пепел Феникса. Там я пример прерывания от клавиши привел.

[DeKot]

Ерунда все. Не нужны для этого ни хуки ни хоткеи. Достаточно одного управляемого флага.
Запуск и останов цикла по одной клавише (END). Весь проект во вложении.

var
Form1: TForm1;
flag: boolean;
cnt: integer;
_color: boolean;

implementation

{$R *.dfm}

procedure _Cicle;
begin
while flag = true do
begin
// в тело цикла можете вставить любой свой код
// здесь просто мигает квадрат
Inc(cnt);
if (cnt mod 100) = 0 then begin _color:= not _color; cnt:= 1; end;
if _color = true then Form1.Canvas.Brush.Color:= clRed
else Form1.Canvas.Brush.Color:= clBtnFace;
Form1.Canvas.Rectangle(20,20,230,10 0);

Application.ProcessMessages; // это обязательно !
end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 35 then // Клавиша END
begin
flag:= not flag;
// след. две строчки кода для визуализации и необязательны
if flag = true then Form1.Caption:= ' Цикл включен'
else Form1.Caption:= ' Цикл выключен';
_Cicle;
end;
end;

end.

Не ругайтесь, что в теге "цитата" - почему то у меня нет сейчас тега "Код".

[Obey177]

при объед не работает скрипт...

[DeKot]

при объед не работает скрипт...

Это что? Или про что?

[Obey177]

вот мой код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pt : TPoint;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
  X: integer;
begin
Button1.Tag := 0;
for X := 0 to StrToInt(Edit8.Text) do

begin
  Form1.Left := 800;
  Form1.Top  := 40;
  SetWindowPos(FindWindow(nil, 'Lineage II'), HWND_TOP, 0, 0, 800, 800, SWP_SHOWWINDOW);
  Sleep(2000); // Æä¸ì, êîãäà òàì âñ¸ âûñòðîèòñÿ êàê íàäî
  GetCursorPos(pt);
    SetCursorPos(StrToInt(Form1.Edit1.Text), StrToInt(Form1.Edit2.Text)); // Ñòàâèì êóðñîð íà ïîëå ââîäà ïàðîëÿ
    GetCursorPos(pt);

    // Äâîéíîé êëèê íà ýí÷àíò
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Application.ProcessMessages;

    Sleep(900);

      GetCursorPos(pt);
    SetCursorPos(StrToInt(Form1.Edit3.Text), StrToInt(Form1.Edit4.Text)); // Ñòàâèì êóðñîð íà ïîëå ââîäà ïàðîëÿ
    GetCursorPos(pt);

    // êëèê íà ïóõó
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));

    Sleep(900);

     GetCursorPos(pt);
    SetCursorPos(StrToInt(Form1.Edit5.Text), StrToInt(Form1.Edit6.Text)); // Ñòàâèì êóðñîð íà ïîëå ââîäà ïàðîëÿ
    GetCursorPos(pt);

    // êëèê íà ÎÊ
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));

    Sleep(900);

 Application.ProcessMessages;
  if Button1.Tag <> 0 then Break;
  end;
  end;

end.

ставлю поверх ваш выдает море ошибок...