|
#1
|
|||
|
|||
Метка
Собственно есть код:
Код:
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; Цитата:
И вопросы - Почему ругается? Как исправить? Спасибо за помощь. |
#2
|
||||
|
||||
PHP код:
Возможно ты хочешь написать "Соde is fake"? А это?: PHP код:
Что именно ты хочешь от проги? Проверить правильный ли код? И в итоге получается что ты хочешь 99999 раз присвоить Edit1.Text:= "Code is fake"? Зачем? П.с.: по теме: метка описана и вызвана правильно. Но весь код ужесть. Последний раз редактировалось Konrad, 08.07.2011 в 21:09. |
#3
|
||||
|
||||
Цитата:
Это не код, а вирус, используется 25-й кадр. Глядя на этот "текст" мозг тупо входит в ступр а потом отключается |
#4
|
|||
|
|||
Автор сам похоже не понимает, что хочет от кода )
|
#5
|
|||
|
|||
Какбэ строчка code is fake должна намекать на то что код фейковый.
Вобще все кроме внутренностей операторов и цикла здесь такие же как и должены быть в реале только там всякие запросы отправляются. Может из за того что из под if вызываю не работает? |
#6
|
||||
|
||||
Наверное спросонья был когда писал.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
||||
|
||||
Цитата:
|
#8
|
|||
|
|||
В общем программа для авторизации на сайте и выполнения на нем всяких нужных действий, она состоит из четырех частей которые я выполняю в цикле потому что акаунтов 130:
1. Авторизация. 2. Игра на сайте 1. 3. Игра на сайте 2. 4. Игра на фейсбуке. Во вторую игру можно играть каждые пол часа и по этому я сделал в меню специальную функцию при активации которой цикл будет повторяться только с этой игрой со всех аккаунтов раз в пол часа, для этого проверяю если выбран данный пункт меню повторять и именно по этому используется метка. Можно было конечно писать еще один цикл, авторизацию и только эту игру, но я думаю что меткой будет компактней. |
#9
|
||||
|
||||
Цитата:
|
#10
|
|||
|
|||
Чего так долго доходит то? Написал же что код не настоящий, если будет легче вот вам настоящий:
Последний раз редактировалось m1sclick, 18.07.2011 в 18:41. |
#11
|
||||
|
||||
Понятно.
Косяк у тебя в том что ты пытаешся работать с acc после acc.Free а попадаешь в эту часть кода с помощью goto. Тоесть PHP код:
И далее прога виснет) Последний раз редактировалось Konrad, 09.07.2011 в 00:25. |
#12
|
|||
|
|||
Спасибо, с этим разобрались.
Еще есть вопрос - когда запускается цикл программа не отвечает, то есть внутри все работает но свернуть, передвинуть её или что то подобное я не могу. Почему? И может как то решить можно эту проблему? |
#13
|
|||
|
|||
application.processmessages? или поток
|
#14
|
||||
|
||||
Цитата:
И работа с таймером у тебя реализована неверно. |
#15
|
|||
|
|||
Вобщето она зависала еще тогда когда не было ни таймера ни goto я для этого и сделал в начале процедуры Application.Minimize что бы не мешала на экране.
Сам цикл виснет, когда нажимаю Button1 кнопка нажимается и остается нажатой пока цикл не закончиться и все это время ничего с программой ручками делать не могу. Вот это не понял... Цитата:
Последний раз редактировалось m1sclick, 09.07.2011 в 10:06. |