ru.nethack

 
 - RU.NETHACK -------------------------------------------------------------------
 From : Vitaly Chekryzhev                    2:5011/214.33  21 Apr 2002  22:47:53
 To : Sergey Ternovykh
 Subject : IP from ICQ
 -------------------------------------------------------------------------------- 
 

 
  ST> Покажи пакет, котоpый ты посылал.
 
 Данные как в хексе посылал это: 2B2B2B415448300D
 В конце строки варьировал 0d и 0c0d.
 Все пингуется нормально. Модемы как висели на линии, так и оставались висеть
 
 Проект писан на Дельфях, вот собственно код
 
 === Cut ===
 procedure TForm1.Button1Click(Sender: TObject);
 var
   hIP         : THandle;
   pingBuffer  : array [0..31] of Char;
   pIpe        : ^icmp_echo_reply;
   lwsaData    : WSAData;
   destAddress : In_Addr;
   error       : DWORD;
   Label Ping_Err;
 begin
   hIP := IcmpCreateFile;
   if LineFeed.Checked then
    StrPCopy(pingBuffer, ExtractHex(SendData.Text) + #13#10)
     else
    StrPCopy(pingBuffer, ExtractHex(SendData.Text));
   GetMem(pIpe, sizeof(icmp_echo_reply) + sizeof(pingBuffer));
   pIpe.Data := @pingBuffer;
   pIpe.DataSize := sizeof(pingBuffer);
   error := WSAStartup(MakeWord(1,1), lwsaData);
   if (error <> 0) then goto ping_err;
   destAddress.S_addr := inet_addr(PChar(IP.Text));
   IcmpSendEcho(hIP, destAddress.S_addr, @pingBuffer, sizeof(pingBuffer), Nil,
 pIpe,
                sizeof(icmp_echo_reply) + sizeof(pingBuffer), 5000);
   error := GetLastError();
   if (error <> 0) then goto ping_err;
   Memo1.Lines.Add(Format('%s Response time: %d ms', [IP.Text, pIpe.RTTime]));
   IcmpCloseHandle(hIP);
   WSACleanup;
   FreeMem(pIpe);
   exit;
  Ping_Err:   Memo1.Lines.Add('Error...' + IP.Text);
 end;
 === Cut ===
 
                                          -= Vitaly =-
 
 --- GoldED/W32 3.0.1
  * Origin: VIRtUal Soft, WWW: http://virtualsoft.narod.ru (2:5011/214.33)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: IP from ICQ   3APA3A   08 Apr 2002 14:11:23   IP from ICQ   Sergey Ternovykh   09 Apr 2002 23:34:12   IP from ICQ   Vitaly Chekryzhev   20 Apr 2002 07:57:54   IP from ICQ   Sergey Ternovykh   20 Apr 2002 23:56:55   IP from ICQ   Vitaly Chekryzhev   21 Apr 2002 22:43:24   IP from ICQ   Vitaly Chekryzhev   21 Apr 2002 22:47:53   Re: IP from ICQ   Artem \'Zazoobr\' Ignatjev   23 Apr 2002 03:15:57   IP from ICQ   Sergey Ternovykh   23 Apr 2002 08:11:23   IP from ICQ   Dmitry Radishev   20 Apr 2002 23:24:50   IP from ICQ   Vitaly Chekryzhev   21 Apr 2002 22:52:14   IP from ICQ   Konstantin Zhukov   20 Apr 2002 19:50:33