Category

Development Platform
Home > SourceCode/Document > Other systems > View Code
NetInfoDlg.pas
Package: oicqspysrc.zip　[view]
Upload User: hbtcygglw
Upload Date: 2007-01-07
Package Size: 281k
Code Size: 3k
Category:

Other systems

Development Platform:

Delphi

NetInfoDlg.pas：Code Content
  1. unit NetInfoDlg;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls,nb30, Menus;
  9. type
  10.   TNetBiosInfoDlg = class(TForm)
  11.     Label1: TLabel;
  12.     edHostAddr: TEdit;
  13.     GroupBox1: TGroupBox;
  14.     btnExecute: TButton;
  15.     InfoList: TListBox;
  16.     InfoMenu: TPopupMenu;
  17.     mSave: TMenuItem;
  18.     mClear: TMenuItem;
  19.     btnClose: TButton;
  20.     SaveDlg: TSaveDialog;
  21.     procedure btnExecuteClick(Sender: TObject);
  22.     procedure mClearClick(Sender: TObject);
  23.     procedure mSaveClick(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.     class procedure Execute(ip:string);
  29.   end;
  31. implementation
  33. {$R *.DFM}
  34. uses NetBEUI,info;
  35. { TNetBiosInfoDlg }
  37. class procedure TNetBiosInfoDlg.Execute(ip: string);
  38. begin
  39. with TNetBiosInfoDlg.Create(Application) do
  40.     begin
  41.     edHostAddr.Text:=ip;
  42.     ShowModal;
  43.     Free;
  44.     end;
  45. end;
  47. procedure TNetBiosInfoDlg.btnExecuteClick(Sender: TObject);
  48. var
  49. inf:TNetBEUI;
  50. list:TList;
  51. i:Integer;
  52. p:PNameBuffer;
  53. n,t,s:string;
  54. begin
  55. InfoList.Clear;
  56. inf:=TNetBEUI.Create(self);
  57. if(inf.GetNetBiosStatus(edHostAddr.Text))then
  58.     begin
  59.     InfoList.Items.Add('目标 主机 名:'+inf.GetRemoteHostName);
  60.     InfoList.Items.Add('目标网卡地址:'+inf.GetMACAddr);
  61.     case Inf.GetAdapterType of
  62.         DIALUP:InfoList.Items.Add('目标上网方式:拨号上网');
  63.         ETHERNET:InfoList.Items.Add('目标上网方式:局域网接入');
  64.         else InfoList.Items.Add('目标上网方式:未知');
  65.         end;
  66.     InfoList.Items.Add('NetBIOS 名字列表:');
  67.     InfoList.Items.Add('Name                Type   Status');
  68.     InfoList.Items.Add('-----------------------------------');
  69.     list:=Inf.GetNetBiosNameList;
  70.     for i:=0 to list.Count-1 do
  71.         begin
  72.         p:=PNameBuffer(list.Items[i]);
  73.         //name
  74.         n:=p.name;
  75.         SetLength(n,15);
  76.         n:=n+'<'+IntToHex(Ord(p.name[15]),2)+'>';
  77.         //type
  78.         if((Ord(p.name_flags) and GROUP_NAME)<>0)then t:=' GROUP '
  79.         else t:=' UNIQUE';
  80.         //status
  81.         if((Ord(p.name_flags) and REGISTERING)<>0)then s:=' REGISTERING'
  82.         else if((Ord(p.name_flags) and REGISTERED)<>0)then s:=' REGISTERED'
  83.         else if((Ord(p.name_flags) and DEREGISTERED)<>0)then s:=' DEREGISTERED'
  84.         else if((Ord(p.name_flags) and DUPLICATE)<>0)then s:=' DUPLICATE'
  85.         else if((Ord(p.name_flags) and DUPLICATE_DEREG)<>0)then s:=' DUPLICATE_DEREG';
  87.         InfoList.Items.Add(n+t+s);
  88.         end;
  89.     end
  90. else InfoList.Items.Add('无法连接，目标的NetBEUI没有绑定到拨号适配器的TCP/IP上。');
  91. inf.Destroy;
  92. end;
  94. procedure TNetBiosInfoDlg.mClearClick(Sender: TObject);
  95. begin
  96. InfoList.Clear;
  97. end;
  99. procedure TNetBiosInfoDlg.mSaveClick(Sender: TObject);
  100. begin
  101. if(SaveDlg.Execute)then
  102.     begin
  103.     if(Sender is TMenuItem)then
  104.         (
  105.             (
  106.                 (Sender as TMenuItem).GetParentMenu as TPopupMenu
  107.             ).PopupComponent as TListBox
  108.         ).Items.SaveToFile(SaveDlg.FileName);
  109.     end;
  110. end;
  112. end.