ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.12.2009, 20:56
|
|
Iron Man#2
Регистрация: 08.07.2009
Сообщений: 2,084
Провел на форуме:
3896191
Репутация:
2562
|
|
Сообщение от -PsychonauT-
ребят подскажите как в радиогруппе сделать шейп чередумый видимо/невидимый
т.е к примеру у меня в радиогруппе 2 выбора:
квадрат и треугольник
когда я нажимаю на квадрат - появляется квадрат, а когда я нажимаю натреугольник квадрат скрывается и сообственно я вижу треугольник
PS. НЕ СТИБИТЕ СТРОГО ЗА ГЛУППЫЕ ВОПРОСЫ, Я ТОЛЬКО НАЧИЮ ОСВАИВАТЬ!
Делаешь одному Show, другому Hide. Потом наоборот.
|
|
|
29.12.2009, 23:00
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
Провел на форуме:
152084
Репутация:
8
|
|
Сообщение от Keltos
Вот тут нужна помощь)
Вот обработка в TICQ:
Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
LogFile: TextFile;
ICQ: Cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg= 'ник' then
ICQClient1.SendMessage(icq, 'вы успешно зареганы')
else
ICQClient1.SendMessage(icq, 'Команда не найдена!');
end;
как сделать чтобы команда "ник" писалась так: "ник желаемый ник" (пример: ник павел) как я понял надо что-то добавить в строке:
Код:
if Msg= 'ник' then
ICQClient1.SendMessage(icq, 'вы успешно зареганы')
подскажите что добавить чтобы была команда не просто слово ник а через пробел ещё слово можно написать было эм ну msg:string в чём собственно проблемма?
и зачем ещё одно слово??
if msg='f*ck my brain'
then .... тра ля ля .
при том почему бы в процедуре ввод ника не сделать.
ты бота пишешь или что?
Последний раз редактировалось n1ghtstalker; 29.12.2009 в 23:04..
|
|
|
|
30.12.2009, 03:05
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
Подскажите пожалуйста как правильней поступить.
Мне нужно выделить память под буффер.
Я хочу вот так:
[code]var
Buff: PChar;
Begin
Buff:=GetMemory(1024);
//Какие-то действия
FreeMemory(MainBuff);
End;
|
|
|
|
30.12.2009, 11:30
|
Регистрация: 29.05.2002
Сообщений: 1,793
Провел на форуме:
2050916
Репутация:
0
|
|
Сообщение от Flenov
Подскажите пожалуйста как правильней поступить.
Мне нужно выделить память под буффер.
Я хочу вот так:
[code]var
Buff: PChar;
Begin
Buff:=GetMemory(1024);
//Какие-то действия
FreeMemory(MainBuff);
End;
Как то странно, выделяешь память в одну переменную, освобождаешь уже другую...
И кстати, освобожддение памяти лучше делать в секции finally
|
|
|
|
30.12.2009, 12:58
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 7
Провел на форуме:
10287
Репутация:
0
|
|
Приветствую всех.
Прошу подсказать норм компилятр С++ НА windows xp sp3 и windows 7, Чтобы была совеместимость, если же не получиться, под windows 7 =)
Жилательно на русском, чтобы Был прост в управлении, Заранее спс.
Работал до этого с компилятор от майкрософт, Очень геморно все =)
|
|
|
|
30.12.2009, 13:25
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
1) Нахера ты это в раделе по Делфи разместил?
2) бери VS 2008 Pro Rus, Лучше не придумаешь под винду.
3) То что ты пишеш и оно не пашет под w7 то это не зависит от компилятора.
VC++ 2008 имеет поддержку работы с манифестами под w7 и vista
4) если нужно чтото в плане системного программирования, то качай последюнюю WDK
(новая вресия DDK) и там есть хидер и прочие хрени вплоть до w7
|
|
|
|
30.12.2009, 15:53
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
А, да я код руками набирал.
Переменная одна и та же.
А смысл, если использовать finally???
|
|
|
|
30.12.2009, 19:19
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
делаю так
keybd_event(Ord('e'), 0, 0, 0);
а он мне печатает "5" а я хочу чоб печатал "е"
чё делать? =\
|
|
|
|
30.12.2009, 19:34
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Ponchik функция принимает не аски код символа, а код виртуальной кнопки.
В MSDN посмотри Virtual-Key Codes и там есть соответствие кнопок.
e - $45
Чтобы делать большими буквами то нужно shift чтобы был виртуально нажат.
keybd_event(VK_SHIFT, 0, 0, 0); // нажмем шифт
keybd_event($45, 0, 0, 0);// выведем
keybd_event($45, 0, 0, 0);// 2 больших буквы E
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); // уберем шифт
keybd_event($45, 0, 0, 0); // выведем маленькую e
Последний раз редактировалось slesh; 30.12.2009 в 19:40..
|
|
|
|
30.12.2009, 19:39
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
Сообщение от slesh
2 Ponchik функция принимает не аски код символа, а код виртуальной кнопки.
В MSDN посмотри Virtual-Key Codes и там есть соответствие кнопок.
E - 45
не не, я вот так делаю
Код:
for i:=1 to Length(edt1.Text) do
begin
keybd_event(Ord(edt1.Text[i]), 0, 0, 0);
end;
и если в edt1.Text 1 буква, он её печатает нормально, а вот если несколько, нихрена не печатает или какой-то бред печатает, щас он ваще мне Ctrl+Tab как-то зажал О_о
Он зажимает клавиши, пробовал KEYEVENTF_KEYUP куда-то впихнуть, неполучается, незнаю куда 
Хотя может и действительно другие коды надо, щас попробую
=======
Млять, чёто оно мне зажало, я жму на клаве 4 - открывается медиа плеер >_<
Ну лан, на нумпад клаве пишу
И вот тута коды
http://delphi.about.com/od/objectpascalide/l/blvkc.htm
4C это L я пишу
keybd_event(4C, 0, 0, 0);
оно говорит
Как мне ему 4C сказать?
========
БЛЕАТЬ!
Жму на клаве "X" он мне "Центр мобильности Windows открывает"
FFFFFFFFFFFFFFFFFFUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
Всё, нащёл, он мне кнопку Win зажал, гадина
/me горе кодер >_<
Последний раз редактировалось Ponchik; 30.12.2009 в 19:49..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
