ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
16.12.2008, 18:31
|
|
Познающий
Регистрация: 07.06.2008
Сообщений: 48
Провел на форуме:
247923
Репутация:
52
|
|
Сообщение от NeXArmAor
и где же тут авторизация? и тем более юзается Mapi. Я же написал без сторонних компонентов.
На чистом API через Winsock
После команды PASS вводишь пароль, вместо rax_08@mail.ru своё мыло, вместо ide4@rambler.ru мыло получателя. Сообщение в файле message.txt. Если есть какие-либо вопросы, стучи в аську 
Последний раз редактировалось RaX; 16.12.2008 в 19:00..
|
|
|
16.12.2008, 22:04
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Значит у меня новое извращение, не спрашивайте зачем но...
В общем надо такую вещь реализовать, я передаю POST запрос сайту, а этот самый POST у меня прописан в edit1
Вот содержимое edit1: "http://site.ru/lol.php?info1=$edit2&info2=32423"
А теперь самое интересное "$edit2" - это типа команда, с помощью которой тут должен быть текст из edit2, соответственно где бы её не вставить в edit1, то там появится текст из edit2
Думаю вроде понятно объяснил.
Нормальные варианты типа 'текст'+edit2.text+'текст' в моём случае не катят, нужен именно такой вариант...
|
|
|
|
16.12.2008, 22:12
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Nightmarе
Значит у меня новое извращение, не спрашивайте зачем но...
В общем надо такую вещь реализовать, я передаю POST запрос сайту, а этот самый POST у меня прописан в edit1
Вот содержимое edit1: "http://site.ru/lol.php?info1=$edit2&info2=32423"
А теперь самое интересное "$edit2" - это типа команда, с помощью которой тут должен быть текст из edit2, соответственно где бы её не вставить в edit1, то там появится текст из edit2
Думаю вроде понятно объяснил.
Нормальные варианты типа 'текст'+edit2.text+'текст' в моём случае не катят, нужен именно такой вариант...
мэн я не понял((((
|
|
|
|
16.12.2008, 22:20
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
Провел на форуме:
1777055
Репутация:
347
|
|
Сообщение от Nightmarе
Значит у меня новое извращение, не спрашивайте зачем но...
В общем надо такую вещь реализовать, я передаю POST запрос сайту, а этот самый POST у меня прописан в edit1
Вот содержимое edit1: "http://site.ru/lol.php?info1=$edit2&info2=32423"
А теперь самое интересное "$edit2" - это типа команда, с помощью которой тут должен быть текст из edit2, соответственно где бы её не вставить в edit1, то там появится текст из edit2
Думаю вроде понятно объяснил.
Нормальные варианты типа 'текст'+edit2.text+'текст' в моём случае не катят, нужен именно такой вариант...
Код:
var keyword,s1,s2:string;
i:integer;
begin
keyword:='$edit2';
s2:='999';
s1:='http://site.ru/lol.php?info1=$edit2&info2=32423';
i:=pos(keyword,s1);
if i<>0 then begin
delete(s1,i,length(keyword));
insert(s2,s1,i);
end;
showmessage(s1);
выведет:
http://site.ru/lol.php?info1=999&info2=32423
|
|
|
|
17.12.2008, 18:59
|
|
Участник форума
Регистрация: 01.08.2008
Сообщений: 239
Провел на форуме:
448388
Репутация:
31
|
|
Все доброго времени суток!
Есть парочка вопросов по Delphi 
Начну с - Как заполнить текстом поле input в TWebBrowser?
И как правильно получить имя этого объекта на странице, скажем, при фокусировании на нём? |
|
|
|
18.12.2008, 10:19
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
смотри Delphi World она же 5005 статей по делфи. И там пример - как добраться до элементов страницы
|
|
|
|
18.12.2008, 20:36
|
|
Постоянный
Регистрация: 29.09.2008
Сообщений: 553
Провел на форуме:
2584134
Репутация:
519
|
|
Доброе время суток!
Подскажите пожалуйста как в дельфи выставлять промежутки?
например:
если в эдит1 введены числа от 1 до 100, то выводица число 1, если от 101 до 200, то 2
Зарание спасибо!
|
|
|
|
18.12.2008, 22:19
|
|
Новичок
Регистрация: 19.11.2008
Сообщений: 6
Провел на форуме:
15512
Репутация:
0
|
|
есть delphi ^)
надо Анлог или набор функций для Twebbrowser
1. для быстрой смены прокси
2. подстановке строки браузера
3. заменой refferer
больше чем уверен что это уже есть а изобретать велосипед совсем нехочеться ибо неблагодарное это дело, заранее благодарен за посылы с правильной строкой в гугл и примеры замены указанного
|
|
|
|
19.12.2008, 00:22
|
|
Новичок
Регистрация: 19.11.2008
Сообщений: 6
Провел на форуме:
15512
Репутация:
0
|
|
продолжая набор вопросов, имею аналогичную указанной проблеме http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=37923.
Заранее благодарен за посыл в нужном направлении...
|
|
|
|
19.12.2008, 11:05
|
|
Banned
Регистрация: 02.01.2008
Сообщений: 195
Провел на форуме:
523549
Репутация:
301
|
|
2-m0rgan-:
Код:
case Edit1.Text of
1..100: Label1.Caption := '1';
101..200: Label1.Caption := '2';
else
Label1.Caption := '=\\';
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
