Проблема с Ping + Net send flood

← →
and_1 (2002-12-14 06:03) [0]

Добрый день уважаемые мастера!
У меня два вопроса к вам:

№1
Вот программа флудер с расширением .bat
код:

:ONEMORE
net send 192.168.0.1 "OK"
GOTO ONEMORE

================================================
А теперь вопрос: (как в что, где, когда :)
Как можно связать эту прогу с расширением .bat с прогой на дельфи ???

№2
Вот код пинга:

***
pHostEn := gethostbyname( "delphi.mastak.com");
error := GetLastError();
if (error <> 0) then
begin
Memo1.SetTextBuf("Error in call to"+
"gethostbyname().");
Memo1.Lines.Add("Error code: "+IntToStr(error));
Exit;
end;
***

А я хотел бы, чтоб можно было вводить имя в эдите! пробовал вот так:

***
pHostEn := gethostbyname( "edit1.text");
error := GetLastError();
if (error <> 0) then
begin
Memo1.SetTextBuf("Error in call to"+
"gethostbyname().");
Memo1.Lines.Add("Error code: "+IntToStr(error));
Exit;
end;
***

Но не выходит! То есть все что в "" это считается уже хостом или IP адресом!
В чем проблема ? подскажите как сделать так чтобы имя бралось из текста эдита!!!

заранее благодарен cfG!

← →
Rouse_ (2002-12-14 06:14) [1]

Удалено модератором

← →
Rouse_ (2002-12-14 06:21) [2]

Удалено модератором

← →
and_1 (2002-12-14 13:32) [3]

Удалено модератором

← →
Rouse_ (2002-12-14 13:48) [4]

Удалено модератором

← →
Shadow (2002-12-14 16:26) [5]

Удалено модератором

← →
and_1 (2002-12-14 22:04) [6]

Удалено модератором

← →
Cobalt (2002-12-15 00:42) [7]

:-)

← →
.nuke (2002-12-15 00:50) [8]

Удалено модератором

← →
Cobalt (2002-12-15 01:50) [9]

Удалено модератором

← →
bak (2002-12-15 09:42) [10]

Удалено модератором

← →
Opuhshii (2002-12-15 10:00) [11]

Удалено модератором

← →
Netwanderer (2002-12-15 16:49) [12]

... (читай "Удалено модератором")

Проблема с Ping + Net send flood Найти похожие ветки