HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 557 из 677 « Первая < 57457507547 553 554 555 556 557 558 559 560 561 567607657 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #5561  
Старый 09.02.2010, 02:44
Андрей021
Новичок
Регистрация: 03.08.2009
Сообщений: 21
Провел на форуме:
680114

Репутация: 2
Отправить сообщение для Андрей021 с помощью ICQ
По умолчанию
Код:
ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);
Как вместо ipconfig/all вставить переменную?
 
Ответить с цитированием

  #5562  
Старый 09.02.2010, 07:23
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию
Цитата:
Сообщение от Андрей021  
Код:
ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);
Как вместо ipconfig/all вставить переменную?
Код:
'/c '+s+' ipconfig_all.txt'
 
Ответить с цитированием

idhttpproxyserver
  #5563  
Старый 09.02.2010, 13:12
Microdel
Новичок
Регистрация: 19.06.2008
Сообщений: 2
Провел на форуме:
39782

Репутация: 0
По умолчанию idhttpproxyserver
Доброго времени суток.
есть компонент idhttpproxyserver.
Как сделать так, чтобы в memo отображались все запросые, которые проходили через это прокси?
 
Ответить с цитированием

  #5564  
Старый 09.02.2010, 13:48
W!z@rD
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597

Репутация: 836


Отправить сообщение для W!z@rD с помощью ICQ
По умолчанию
AlexTheC0d3r

hide это и есть visible:=false;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
 
Ответить с цитированием

  #5565  
Старый 09.02.2010, 14:40
090808
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829

Репутация: 34
Отправить сообщение для 090808 с помощью ICQ
По умолчанию
PHP код:
procedure TForm4.Button2Click(Sender: TObject);
var StrPage, ssylka:string;
    Data:TstringList;
begin
 idhttp1.HandleRedirects:=true;
 StrPage:=idhttp1.Get('http://ya.ru);
 StrPage:=idhttp1.Post(ssylka, Data);
Memo2.Lines.Text := StrPage;
 Data.Free; 
Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>
Последний раз редактировалось 090808; 09.02.2010 в 14:42..
 
Ответить с цитированием

  #5566  
Старый 09.02.2010, 16:12
GlooK
Участник форума
Регистрация: 20.04.2007
Сообщений: 174
Провел на форуме:
2310282

Репутация: 149
По умолчанию
Цитата:
Сообщение от 090808  
PHP код:
procedure TForm4.Button2Click(Sender: TObject);
var StrPage, ssylka:string;
    Data:TstringList;
begin
 idhttp1.HandleRedirects:=true;
 StrPage:=idhttp1.Get('http://ya.ru);
 StrPage:=idhttp1.Post(ssylka, Data);
Memo2.Lines.Text := StrPage;
 Data.Free; 
Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>
PHP код:
function fWSCut(wData, wStart, wEnd: string):string;
var
wOutData, wDelete: string;
begin
 wOutData := StrPos(PChar(wData), PChar(wStart));
 Delete(wOutData, 1, Length(wStart));
 wDelete := StrPos(PChar(wOutData), PChar(wEnd));
 Delete(wData, 1, Length(wData)-Length(wDelete));
 Delete(wOutData, Length(wOutData) - Length(wDelete) + 1, Length(wDelete));
 result := wOutData;
end; 
Пример:
Цитата:
Memo2.Lines.Text := fWSCut(StrPage, '<title>', '</title>');
 
Ответить с цитированием

  #5567  
Старый 09.02.2010, 19:18
090808
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829

Репутация: 34
Отправить сообщение для 090808 с помощью ICQ
По умолчанию
PHP код:
ICQClient1.UIN:=111111; // (Номер ICQ)
ICQClient1.Password:='12345'; // Пароль от этого номера 
а как например Номер ICQ брать из edit1 и пароль из edit2?
 
Ответить с цитированием

  #5568  
Старый 09.02.2010, 19:23
[Dezzter]
Участник форума
Регистрация: 26.11.2007
Сообщений: 266
Провел на форуме:
3412198

Репутация: 341
По умолчанию
Код:
icq_num := StrToInt(Edit1.Text);
icq_pass := StrToInt(Edit2.Text);
 
Ответить с цитированием

  #5569  
Старый 09.02.2010, 19:26
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию
[Dezzter], зачем пасс в int переводить?

Код:
ICQClient1.UIN:=StrToInt(form1.edit1.text);
ICQClient1.Password:=form1.edit1.text;
 
Ответить с цитированием

  #5570  
Старый 09.02.2010, 22:19
090808
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829

Репутация: 34
Отправить сообщение для 090808 с помощью ICQ
По умолчанию
Цитата:
Сообщение от [Dezzter]  
Код:
icq_num := StrToInt(Edit1.Text);
icq_pass := StrToInt(Edit2.Text);
Да, пасс действительно в инт переводить не нужно было
 
Ответить с цитированием
Ответ
Страница 557 из 677 « Первая < 57457507547 553 554 555 556 557 558 559 560 561 567607657 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2568 25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ