ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
30.09.2008, 02:30
|
|
Новичок
Регистрация: 26.09.2008
Сообщений: 5
Провел на форуме:
28246
Репутация:
5
|
|
Сообщение от Twiddle
Попробывал сделать с хотки но все бы хорошо но с игрой не работает. Блокнот закрывает. Все закрывает, но как только запускаешь игру - не хочет работать. Вообще ни как не реагирует.
В чем может быть дело? подскажите или придется все же делать хук? Тогда помогите с хуком ибо уже неделю не могу сделать.
У меня твой код работал со всеми установленными игрушками, так что проверяй версию, что твоя прога (game) устанавливает свои хоткеи или сбрасывает существующие
Сообщение от slesh
Как вариант просто игра может отрубать все хоткеи.
А может хоткей срабатывает, а твоя прога просто приложение завершить не могет?
По созданию глобального хука отправил пример в личку.
|
|
|
29.09.2008, 09:12
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Как вариант просто игра может отрубать все хоткеи. Что часто и делается. По этому нужно копать в сторону снятие этой херни
|
|
|
|
29.09.2008, 23:00
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
Народ киньте плз исходники авто-регеров к примеру на любом дфиге без капчи
(делфи)
спасибо!
|
|
|
|
30.09.2008, 20:09
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Прошу помочь в постижении азов программирвания. Сделать надо на Паскале, чем проще , тем лучше.
Дано: ax^2 + bx +c =0
Найти корни.
Вот что получается:
Код:
Program discriminant;
Var G, f, d, i, k, l,n: integer;
M,O: real;
Begin readln (G, f, d, i)
G:=SQR(b);
f:=4*a;
d:=f*c;
i:=g-d;
if g>d;
then k:=-b;
l:=K+SQRT(i;
n:=K-SQRT(i;
m:=l/2;
o:=l/2;
writeln (M, O)
else writeln (No decision)
end.
Пробовал прогонять сие безобразие в Pascal ABC. Пишет " Ошибка: ожидался идентификатор, но "G" не обнаружено. Прошу подсказать в чем ошибка. |
|
|
|
30.09.2008, 20:19
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
мда....
|
|
|
|
инопланитяне отакуют!!!!!!!!!! |
30.09.2008, 20:26
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
инопланитяне отакуют!!!!!!!!!!
Писал закрытыми глазами?
Странно, что компилятор не лопнул....
Итак начнем  :
1)После readln забыл точку с запятой...
2) a,b,c: не описаны(var a,b,c:real или integer)
3)После if g>d точку с запятой не надо...
4)l:=K+SQRT(i; забыл скобку закрыть
5)Дальше тоже чепуха... |
|
|
|
30.09.2008, 20:57
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Сообщение от De-visible
Писал закрытыми глазами?
Только начал изучать и в первый раз 
Сообщение от De-visible
Итак начнем :
1)После readln забыл точку с запятой...
2) a,b,c: не описаны(var a,b,c:real или integer)
3)После if g>d точку с запятой не надо...
4)l:=K+SQRT(i; забыл скобку закрыть
5)Дальше тоже чепуха... 1, 2, 3, 4 разобрался. Никак не могу воткнуть как правильно записать оператор ветвления 
Теперь компилятор ругается на ";" перед else в операторе if.
Program discriminant;
Var G, f, d, i, k, l, n, a, b, c, M, o: real;
Begin readln (G, f, d, i);
G:=SQR(b);
f:=4*a;
d:=f*c;
i:=g-d;
if g>d
then
k:=-b;
l:=K+SQRT(i);
n:=K-SQRT(i);
m:=l/2;
o:=l/2;
writeln (M, O);
else writeln (No decision)
end.
Последний раз редактировалось Syntaxys; 30.09.2008 в 21:00..
|
|
|
|
30.09.2008, 22:50
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
Провел на форуме:
1777055
Репутация:
347
|
|
Сообщение от Syntaxys
Теперь компилятор ругается на ";" перед else в операторе if.
это потому что там не надо ";" как ни странно  )))
|
|
|
|
30.09.2008, 23:16
|
|
Новичок
Регистрация: 26.09.2008
Сообщений: 5
Провел на форуме:
28246
Репутация:
5
|
|
Сообщение от Syntaxys
if g>d
then
k:=-b;
l:=K+SQRT(i);
n:=K-SQRT(i);
m:=l/2;
o:=l/2;
writeln (M, O);
else writeln (No decision)
end.
Условие в общем случае описывается:
Код:
if (условие_истинно) then действие_1
else действие_2;
или в операторных скобках begin end, если необходимо выполнить несколько действий сразу:
Код:
if (условие_истинно) then
begin
действие_1;
действие_2;
действие_3;
end
else
begin
действие_1;
действие_3;
end;
Перед "else" " ; " не ставится, а если хочешь во "WriteLn(No decision)" вывести текст, то необходимо заключить его в кавычки
Код:
WriteLn('No decision');
Это по синтаксису... Кажется так , а также задумайся о книжке по Паскалю.
С математикой сам разберешься.
|
|
|
|
01.10.2008, 19:02
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Сообщение от eNGi
Код:
if (условие_истинно) then
begin
действие_1;
действие_2;
действие_3;
end
else
begin
действие_1;
действие_3;
end;
После первого end требует точки, которую, соответственно ставить нельзя.
mfcn, спасибо большое, но мне нужно не готовое халявное решение, а разобраться самому + код чем проще тем лучше, можно за счет "техничности", размера и тд. То есть больше переменных меньше операторов. Другой свой вопрос задам по ссылке приведенной Вами выше.
Последний раз редактировалось Syntaxys; 01.10.2008 в 19:08..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид