[m1sclick]

Собственно есть код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: string;
i: integer;
label
shitman;
begin
Application.Minimize;
Edit1.Text:='';
a:= code;
if a = code then
 b:= is;
shitman:
for i:=0 to 99999 do
if i>0 then
begin
  c:= fake;
  Edit1.Text:= a+' '+b+' '+c+'.';
end;
if i<0 then
begin
  c:=true;
  Edit1.Text:= a+' '+b+' '+c+'.';
end;
end;
if CheckBox1.Checked then
begin
  Application.Restore;
  Timer1.Enabled:=true;
  Timer1.Interval:=30000;
  Edit1.Text:='wtf';
  Goto shitman;
end;
Application.Restore;
end;

Собственно ругается на метку. Пишет:

Invalid Pointer Operation

Без метки никак не обойтись разве что копировать весь цикл еще и под оператор проверки CheckBox1. Думаю рациональнее будет использовать метку чем увеличивать код еще на 50 строк.

И вопросы - Почему ругается? Как исправить?
Спасибо за помощь.

[Konrad]

PHP код:

a:= code;
if a = code then
 b:= is;
.................
begin
  c:= fake;
.................
begin
  c:=true;
................. 


Это что за ересь?
Возможно ты хочешь написать "Соde is fake"?

А это?:

PHP код:

for i:=0 to 99999 do
.......
if i<0 then
begin 


У тебя и так i>=0;

Что именно ты хочешь от проги?

Проверить правильный ли код?

И в итоге получается что ты хочешь 99999 раз присвоить Edit1.Text:= "Code is fake"?

Зачем?


П.с.: по теме: метка описана и вызвана правильно.
Но весь код ужесть.

[Pilot_Red]

Сообщение от Konrad

PHP код:

a:= code;
if a = code then
 b:= is;
.................
begin
  c:= fake;
.................
begin
  c:=true;
................. 


Это что за ересь?
Возможно ты хочешь написать "Соde is fake"?

А это?:

PHP код:

for i:=0 to 99999 do
.......
if i<0 then
begin 


У тебя и так i>=0;

Что именно ты хочешь от проги?

Проверить правильный ли код?

Это не код, а вирус, используется 25-й кадр. Глядя на этот "текст" мозг тупо входит в ступр а потом отключается

[ART]

Автор сам похоже не понимает, что хочет от кода )

[m1sclick]

Какбэ строчка code is fake должна намекать на то что код фейковый.
Вобще все кроме внутренностей операторов и цикла здесь такие же как и должены быть в реале только там всякие запросы отправляются.
Может из за того что из под if вызываю не работает?

[angvelem]

Наверное спросонья был когда писал.

[Konrad]

Сообщение от m1sclick

Какбэ строчка code is fake должна намекать на то что код фейковый.

Напиши словами: что должна делать твоя программа?

[m1sclick]

В общем программа для авторизации на сайте и выполнения на нем всяких нужных действий, она состоит из четырех частей которые я выполняю в цикле потому что акаунтов 130:
1. Авторизация.
2. Игра на сайте 1.
3. Игра на сайте 2.
4. Игра на фейсбуке.

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

[Konrad]

Сообщение от m1sclick

В общем программа для авторизации на сайте и выполнения на нем всяких нужных действий, она состоит из четырех частей которые я выполняю в цикле потому что акаунтов 130:

И все что пока что ты успел сделать: это тот код, который ты показал в начале темы?

[m1sclick]

Чего так долго доходит то? Написал же что код не настоящий, если будет легче вот вам настоящий:

[Konrad]

Понятно.
Косяк у тебя в том что ты пытаешся работать с acc после acc.Free а попадаешь в эту часть кода с помощью goto.

Тоесть

PHP код:

acc.LoadFromFile(.....

Guess:

acc.Count

acc.Free;

Goto Guess; 


И далее прога виснет)

[m1sclick]

Спасибо, с этим разобрались.

Еще есть вопрос - когда запускается цикл программа не отвечает, то есть внутри все работает но свернуть, передвинуть её или что то подобное я не могу. Почему? И может как то решить можно эту проблему?

[ART]

application.processmessages? или поток

[Konrad]

Сообщение от m1sclick

Еще есть вопрос - когда запускается цикл программа не отвечает, то есть внутри все работает но свернуть, передвинуть её или что то подобное я не могу. Почему? И может как то решить можно эту проблему?

Она у тебя зависает, так как нету выхода из цикла гоуту.

И работа с таймером у тебя реализована неверно.

[m1sclick]

Вобщето она зависала еще тогда когда не было ни таймера ни goto я для этого и сделал в начале процедуры Application.Minimize что бы не мешала на экране.

Сам цикл виснет, когда нажимаю Button1 кнопка нажимается и остается нажатой пока цикл не закончиться и все это время ничего с программой ручками делать не могу.
Вот это не понял...

Сообщение от ART

application.processmessages? или поток