ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
26.07.2007, 07:39
|
|
Постоянный
Регистрация: 07.02.2006
Сообщений: 630
Провел на форуме:
12985021
Репутация:
676
|
|
Сообщение от b2mbey
Подскажите, пожалуйста, как в Дельфях определить есть ли подключение к инету, если такое возможно???
Положить компонент TCP на форму и
How can I tell at runtime if I am connected to the internet?
Answer:
You can use the TCP component to retrieve the Local IP address. If it is "0.0.0.0" then there is no connection.
exp:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = '0.0.0.0' then
ShowMessage('Your not connected!');
end;
(c)vuithelp.ru
|
|
|
26.07.2007, 07:41
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Это если нет локалки проканает
|
|
|
|
26.07.2007, 07:51
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Спс, впринципе мне это подходит... А может у нее есть что то типа GlobalIp, ну да ладно тут уже сам разберусь...спс...
|
|
|
|
26.07.2007, 08:28
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
и еще почему не работате вот это
procedure TForm1.FormCreate(Sender: TObject);
begin
If Messagebox(0,'Закроем???','Вопрос',MB _YesNo) <> IDYES Then
Form1.Close;
end;
Даже если вместо Form1.Close; ставлю Exit; не работает...
|
|
|
|
26.07.2007, 08:33
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Я чего то не найду компоненту Tcp1, на какой вкладочке искать... Извинтиляюсь за глупые вопросы...
|
|
|
|
26.07.2007, 09:24
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
b2mbey, имхо тоже самое:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if TcpClient1.LocalHostAddr = '0.0.0.0' then
ShowMessage('Your not connected!');
end;
TCPClient на вкладке Internet.
Последний раз редактировалось WAR!9G; 26.07.2007 в 09:28..
|
|
|
|
26.07.2007, 09:37
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Аха извняюсь что не успел написать, но я это уже проделал, к сожаленью эта фунция возвращает не 0.0.0.0, а ххх.0.0.х где х-это цифры причем на разнных машинах, разные... Да и все бывает же такое что ты не в локалке, но в инете, например подключение ДиалАп
|
|
|
|
26.07.2007, 09:37
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Аха извняюсь что не успел написать, но я это уже проделал, к сожаленью эта фунция возвращает не 0.0.0.0, а ххх.0.0.х где х-это цифры причем на разнных машинах, разные... Да и все бывает же такое что ты не в локалке, но в инете, например подключение ДиалАп, поэтому хотелось бы все таки знать конкретно, подключен или нет, может все таки вернуться к пинговке сайта???
|
|
|
|
26.07.2007, 10:09
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Условие выполняется, когда нажимаешь "Нет". Смени <> на =
|
|
|
|
26.07.2007, 10:10
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152
Репутация:
94
|
|
Сообщение от z01b
Ручьками могу и я, а вот в делфи, тока читать (
вообщем не знаю какая у тебя ось, для винды хр можно сделать так:
Открываем раздел "HKLM\SYSTEM\CurrentControlSet\Control\
Class\{4D36E972-E325-11CE-BFC1-08002BE10318}"
тут описаны интерфейсы всех имеющихся сетевых адаптеров. Находим нужный нам интерфейс он будет содержать имя сетевой карты.Там где будут тольлко ветки Linkage и Ndi туда не нельзь эт не то что нужно.
Изменяем (добавляем, его может и не быть, тип данных - REG_SZ) ключ "NetworkAddress". Вводим новый адрес.
Отключаем, затем включаем сетку.
ЗЫ чисто теоритически, если не можнешь найти ключ NetworkAddress и куда его пихать тож не особо понятно, попробуй изменить МАС в ручную, по идее этот ключ должен создатся.
Если же нет то просто заюзай поиск по вбитому тобой новому адресу в реестре, далее я думаю не так уж и сложно считать значение ключа и изменить его.
думаю и сам знаешь как это делать но... на всякий случай 
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
REG : TRegistry;
begin
REG := TRegistry.Create;
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\000X\.....',true);
REG.WriteString('Test1','C:\\\'); //собственно добавляем ключ
Memo1.lines.text:=REG.ReadString('Test1'); // читаем значение ключа
REG.CloseKey;
REG.Destroy;
end;
пробелы в коде вставляет форум, соответственно убрать
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
