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] Задай вопрос, получи ответ
   
Ответ
Страница 251 из 671 « Первая < 151201241 247 248 249 250 251 252 253 254 255 261301351 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 08.01.2009, 03:05
SmaTR
Новичок
Регистрация: 07.01.2009
Сообщений: 6
Провел на форуме:
30714

Репутация: 0
По умолчанию
Люди помогите!нужна программа на delphi,сниффер,который через каждые 15 минут переходил бы на определённый сайт.в delphi совсем ничего непонимаю,вся надежда на вас=(((
p/s забыл,кто может помоч постучите в аську 47877239
 
Ответить с цитированием

  #2  
Старый 08.01.2009, 03:12
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Цитата:
Сообщение от SmaTR  
Люди помогите!нужна программа на delphi,сниффер,который через каждые 15 минут переходил бы на определённый сайт.в delphi совсем ничего непонимаю,вся надежда на вас=(((
p/s забыл,кто может помоч постучите в аську 47877239
кидаешь таймер на форму, устанавливаешь в секундах... 900000 - 15 минут.
далее кидаешь стандартный компонент IdHTTP1 из закладки Indy Clients.
В таймере пишешь следующее:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdHTTP1.Get('http://lol.com');
end;

всё... каждые 15 минут стучит на сайт.
 
Ответить с цитированием

  #3  
Старый 08.01.2009, 15:32
iffan
Новичок
Регистрация: 07.01.2009
Сообщений: 10
Провел на форуме:
22534

Репутация: 7
По умолчанию
начал изучать с++, компилирую в Code:Bloks 8.02
в книге пример:

#include <iostream.h>
int main()
{
for (int i = 32; i<128; i++);
cout << (char) i;
return 0;
}

при компиляции выдает:


C:\Program Files\CodeBlocks\MinGW\bin\..\lib\gcc\mingw32\3.4. 5\..\..\..\..\include\c++\3.4.5\backward\backward_ warning.h|32|warning: #warning This file includes at least one deprecated or antiquated header. Please consider using one of the 32 headers found in section 17.4.1.2 of the C++ standard. Examples include substituting the <X> header for the <X.h> header for C++ includes, or <iostream> instead of the deprecated header <iostream.h>. To disable this warning use -Wno-deprecated.|

.cpp||In function `int main()':|

.cpp|6|error: name lookup of `i' changed for new ISO `for' scoping|

.cpp|5|error: using obsolete binding at `i'|

||=== Build finished: 2 errors, 1 warnings ===|

я так понял что это связано с какимито новвоведениями в компиляторе, в вижуал с++ экспресс 2008 тож самое, по книге обучение на вижуал с++ 6.0
 
Ответить с цитированием

  #4  
Старый 08.01.2009, 15:56
criz
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
Провел на форуме:
811764

Репутация: 119
По умолчанию
iffan, разделом ошибся.
Убери в подключении хедера ".h", должен пропасть первый варнинг.
Код:
 for (int i = 32; i<128; i++)
cout << (char) i;
пробуй так.
и добавь
Код:
#include <cstdlib>
на всякий случай
 
Ответить с цитированием

  #5  
Старый 08.01.2009, 16:22
ZET36
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748

Репутация: 137
По умолчанию
немогу понять почему вылетает ошибка нажатии на элемент ListBox'a

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: integer;
  putmas: array[1..5] of string;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Add('ererwe');
ListBox1.Items.Add('укукуцк');
a:=0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
putmas[a]:= Listbox1.Items[ListBox1.ItemIndex];
showmessage(putmas[a]);
end;

end.
Последний раз редактировалось ZET36; 08.01.2009 в 16:26..
 
Ответить с цитированием

  #6  
Старый 08.01.2009, 17:58
dinar_007
Флудер
Регистрация: 18.01.2005
Сообщений: 2,298
Провел на форуме:
13936387

Репутация: 1844


Отправить сообщение для dinar_007 с помощью ICQ
По умолчанию
Цитата:
Сообщение от ZET36  
немогу понять почему вылетает ошибка нажатии на элемент ListBox'a

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: integer;
  putmas: array[1..5] of string;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Add('ererwe');
ListBox1.Items.Add('укукуцк');
a:=0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
putmas[a]:= Listbox1.Items[ListBox1.ItemIndex];
showmessage(putmas[a]);
end;

end.
Что за ошибка? Компилить исходник сейчас возможности нет..
 
Ответить с цитированием

  #7  
Старый 08.01.2009, 18:05
ZET36
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748

Репутация: 137
По умолчанию
Цитата:
Сообщение от dinar_007  
Что за ошибка? Компилить исходник сейчас возможности нет..
Access violation at address 00455448 in module'Project1.exe'. Read of address 02A21D90
 
Ответить с цитированием

  #8  
Старый 08.01.2009, 18:16
dinar_007
Флудер
Регистрация: 18.01.2005
Сообщений: 2,298
Провел на форуме:
13936387

Репутация: 1844


Отправить сообщение для dinar_007 с помощью ICQ
По умолчанию
Цитата:
Сообщение от ZET36  
Access violation at address 00455448 in module'Project1.exe'. Read of address 02A21D90
Насколько я понял, ты пытаешься писать в нулевую ячейку массива, а массив ты описал с первой...
 
Ответить с цитированием

Мешалка текстовиков
  #9  
Старый 08.01.2009, 23:50
noveek
Познающий
Регистрация: 29.12.2008
Сообщений: 45
Провел на форуме:
83889

Репутация: 1
По умолчанию Мешалка текстовиков
Помогите сделать мешалку текста чтобы открыть блокнот с готовым текстом перемешать и сохранить ещё надо чтобы мешалось в случайном порядке например что то типо такого

имеем так

123456
123457
123458
123459

получаем так

123459
123457
123458
123456

желательно не исходник а саму программу (если исходник то плз на дельфи)
 
Ответить с цитированием

  #10  
Старый 09.01.2009, 17:19
noveek
Познающий
Регистрация: 29.12.2008
Сообщений: 45
Провел на форуме:
83889

Репутация: 1
По умолчанию
Цитата:
Сообщение от noveek  
Помогите сделать мешалку текста чтобы открыть блокнот с готовым текстом перемешать и сохранить ещё надо чтобы мешалось в случайном порядке например что то типо такого

имеем так

123456
123457
123458
123459

получаем так

123459
123457
123458
123456

желательно не исходник а саму программу (если исходник то плз на дельфи)
А я ?
 
Ответить с цитированием
Ответ
Страница 251 из 671 « Первая < 151201241 247 248 249 250 251 252 253 254 255 261301351 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[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