?? tools.pas
字號:
Nbt.Stop;
//if NbtHasItem then AddIpAddrRange(edtNbtIP1.Text, edtNbtIP2.Text);
end
end;
procedure TToolsForm.lvNbtDblClick(Sender: TObject);
begin
if lvNbt.Selected <> nil then
with MainForm do
begin
LeftPageCtrl.ActivePageIndex := 2;
if not cbIP.Checked then Edit1.Text := trim(lvNbt.Selected.SubItems[1])
else Edit1.Text := trim(lvNbt.Selected.Caption);
BtnFindClick(Self);
end;
end;
procedure TToolsForm.NbtEndEvent(Sender: TObject);
begin
//btnNbt.Enabled := true;
btnNbt.Tag := 0;
btnNbt.Caption := '開始';
edtNbtIP1.Enabled := true;
edtNbtIP2.Enabled := true;
spInterval.Enabled := true;
pnlStatus.Caption := '雙擊以搜索該主機';
if WindowState = wsMinimized then ShowWindow(Handle, SW_RESTORE);
//BorderIcons := [biSystemMenu,biMaximize];
if NbtHasItem then AddIpAddrRange(edtNbtIP1.Text, edtNbtIP2.Text);
end;
procedure TToolsForm.NbtSendEvent(Sender: TObject);
begin
pnlStatus.Caption := Nbt.StatusString;
end;
procedure TToolsForm.NbtAddNodeEvent(Sender: TObject);
var
TemNode : TTreeNode;
host : string;
MyItemPtr : PMyTreeItem;
begin
NbtHasItem := true;
//caption := string(Sender);
if cbAddToTree.Checked then
with MainForm do
begin
LeftPageCtrl.ActivePageIndex := 0;
SearchPageCtrl.ActivePageIndex := 1;
host := '\\' + string(Sender);
New(MyItemPtr);
TemNode := IpTree.Items.AddChild(IpTree.Items[0], host);
TemNode.ImageIndex := 7;
TemNode.SelectedIndex := 7;
IpTree.TopItem.Expand(false);
MyItemPtr^.group := IpTree.Items[0].Text;
MyItemPtr^.dirName := host;
TemNode.Data := MyItemPtr;
end;
if (not cbNbtDataLoad.Checked) then AddNbtData(lvNbt.Items[0]); ///
end;
procedure TToolsForm.N1Click(Sender: TObject);
begin
CurListView.Items.Clear;
end;
function FixLenStr(s: string; len: integer): string;
begin
result := format('%-'+inttostr(len)+'s', [s]);
end;
procedure TToolsForm.SaveNbtData;
var
NbtDataFile : file of TNbtRecord;
i : integer;
NR : TNbtRecord;
//NumWritten : integer;
begin
if lvNbtDb.Items.Count <> 0 then
begin
AssignFile(NbtDataFile, AppDir + '\NbtData.db');
ReWrite(NbtDataFile);
for i:=0 to lvNbtDb.Items.Count-1 do
begin
NR.IpAddr := trim(lvNbtDb.Items[i].Caption);
NR.GroupName := trim(lvNbtDb.Items[i].SubItems[0]);
NR.HostName := trim(lvNbtDb.Items[i].SubItems[1]);
NR.UserName := trim(lvNbtDb.Items[i].SubItems[2]);
NR.MacAddr := trim(lvNbtDb.Items[i].SubItems[3]);
//NR.Separator := #13;
{Block}Write(NbtDataFile, NR{, SizeOf(NR), NumWritten});
end;
CloseFile(NbtDataFile);
end;
end;
procedure TToolsForm.LoadNbtData;
var
NbtDataFile : file of TNbtRecord;
item : TListItem;
i : integer;
NR : TNbtRecord;
//NumWritten : integer;
begin
if not FileExists('NbtData.db') then exit;
AssignFile(NbtDataFile, 'NbtData.db');
Reset(NbtDataFile);
lvNbtDb.Items.BeginUpdate;
while not eof(NbtDataFile) do
begin
read(NbtDataFile, NR);
item := lvNbtDb.Items.Add;
item.Caption := trim(NR.IpAddr);
for i := 0 to 3 do item.SubItems.Add('');
item.SubItems[0] := trim(NR.GroupName);
item.SubItems[1] := trim(NR.HostName);
item.SubItems[2] := trim(NR.UserName);
item.SubItems[3] := trim(NR.MacAddr);
Application.ProcessMessages;
end;
lvNbtDb.Items.EndUpdate;
CloseFile(NbtDataFile);
Label20.Caption := '共 ' + inttostr(lvNbtDb.Items.Count) + ' 臺主機';
end;
procedure TToolsForm.AddNbtData(Item: TListItem);
var
TemItem : TListItem;
i : integer;
begin
for i := 0 to lvNbtDb.Items.Count - 1 do
begin
if (trim(lvNbtDb.Items[i].Caption) = trim(Item.Caption))
and(trim(lvNbtDb.Items[i].SubItems[0]) = trim(Item.SubItems[0]))
and(trim(lvNbtDb.Items[i].SubItems[1]) = trim(Item.SubItems[1]))
and(trim(lvNbtDb.Items[i].SubItems[2]) = trim(Item.SubItems[2]))
and(trim(lvNbtDb.Items[i].SubItems[3]) = trim(Item.SubItems[3]))
then exit;
//Application.ProcessMessages;
end;
TemItem := lvNbtDb.Items.Add;
TemItem.Caption := Item.Caption;
TemItem.SubItems.Add(Item.SubItems[0]);
TemItem.SubItems.Add(Item.SubItems[1]);
TemItem.SubItems.Add(Item.SubItems[2]);
TemItem.SubItems.Add(Item.SubItems[3]);
Label20.Caption := '共 ' + inttostr(lvNbtDb.Items.Count) + ' 臺主機';
Application.ProcessMessages;
end;
procedure TToolsForm.N2Click(Sender: TObject);
var
f : TextFile;
i, j : integer;
s, str, s_h : string;
begin
if CurListView.Items.Count = 0 then
begin
//Application.MessageBox('沒有可保存的內容！ ','Save File',MB_OK );
ShowMessage('沒有可保存的內容！ ');
exit;
end;
s := TimeToStr(time);
for i:=1 to length(s) do if s[i]=':' then s[i]:='-';
// 注意 PageCtrl.ActivePage.Caption 中不應含有文件名中不允許使用的字符。
SaveDlg.FileName := PageCtrl.ActivePage.Caption +'('+datetostr(now)+'-'+s+')';
if SaveDlg.Execute then
begin
NewStyleControls := False;
assignfile(f,SaveDlg.filename);
rewrite(f);
for j:=0 to (CurListView.Columns.Count - 1)
do s_h := s_h + FixLenStr(CurListView.Columns[j].Caption, 15) + #9;
writeln(f, s_h);
//for j:=0 to (CurListView.Columns.Count - 1) do write(f, ' ');
writeln(f);
for i:=0 to CurListView.Items.Count-1 do
begin
str := FixLenStr(CurListView.Items[i].Caption, 15) + #9; //#9 is tab
for j:=0 to (CurListView.Items[i].SubItems.Count-1) do
str := str + FixLenStr(CurListView.Items[i].SubItems[j], 15) + #9;
writeln(f, str);
//writeln(f);
end;
CloseFile(f);
NewStyleControls := true;
end;
end;
procedure TToolsForm.PopupMenu1Popup(Sender: TObject);
begin
PageCtrlChange(Self);
N1.Enabled := false;
N2.Enabled := false;
if CurListView.Items.Count <> 0 then
begin
N1.Enabled := true;
N2.Enabled := true;
end;
end;
procedure TToolsForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if (btnNbt.tag = 1)or(btnScanPort.tag = 1)or(btnPing.tag = 1) then
begin
CanClose := false;
ShowMessage('掃描尚未完成，請稍候。');
//Application.MessageBox('掃描尚未完成，請稍候。', '網絡工具', 0);
end
else CanClose := true;
end;
//------------------------------------------------------------------------------
procedure TToolsForm.PortShowProgress(Sender: TObject);
begin
with Sender as TScanStatus do
Label11.Caption := '正在掃描 ' + IP + ' 端口：' + Port;
end;
procedure TToolsForm.PortOnConnect(Sender: TObject);
var
item : TListItem;
TemNode : TTreeNode;
host : string;
MyItemPtr : PMyTreeItem;
status : TScanStatus;
begin
PortScanHasItem := true;
//ListBox1.Items.Add(string(Sender));
item := lvPortScan.Items.Add;
status := TScanStatus(Sender);
item.Caption := status.IP;//string(Sender);
item.SubItems.Add(status.Port{cbScanPort.Text});
if cbAddToTree2.Checked and (PreviousPortScanIP <> status.IP) then
with MainForm do
begin
LeftPageCtrl.ActivePageIndex := 0;
SearchPageCtrl.ActivePageIndex := 1;
host := '\\' + status.IP;
PreviousPortScanIP := status.IP; // prevent duplicate IP when scan in a port range.
New(MyItemPtr);
TemNode := IpTree.Items.AddChild(IpTree.Items[0], host);
TemNode.ImageIndex := 7;
TemNode.SelectedIndex := 7;
IpTree.Items[0].Expand(false);
MyItemPtr^.group := IpTree.Items[0].Text;
MyItemPtr^.dirName := host;
TemNode.Data := MyItemPtr;
end;
end;
procedure TToolsForm.PortOnExitScan(Sender: TObject);
begin
//btnScanPort.Enabled := true;
btnScanPort.Tag := 0;
btnScanPort.Caption := '開始';
edtScanIP1.Enabled := true;
edtScanIP2.Enabled := true;
cbScanPort1.Enabled := true;
cbScanPort2.Enabled := true;
spTimeOut.Enabled := true;
Label11.Caption := '完成';
if WindowState = wsMinimized then ShowWindow(Handle, SW_RESTORE);
if PortScanHasItem then AddIpAddrRange(edtScanIP1.Text, edtScanIP2.Text);
end;
procedure TToolsForm.btnScanPortClick(Sender: TObject);
var
ScanThread: TScanTcpPortThread;
begin
if btnScanPort.Tag = 0 then
begin
PortScanHasItem := false;
btnScanPort.Tag := 1;
btnScanPort.Caption := '停止';
if (not IsLegalIP(edtScanIP1.Text))or(not IsLegalIP(edtScanIP2.Text)) then
begin
ShowMessage('IP地址非法，請重新輸入');
//Application.MessageBox('IP地址非法，請重新輸入。', '網絡工具', 0);
exit;
end;
ScanThread := TScanTcpPortThread.Create(edtScanIP1.Text, edtScanIP2.Text,
strtoint(cbScanPort1.Text), strtoint(cbScanPort2.Text), spTimeOut.Value);
ScanThread.OnSendEvent := PortShowProgress;
ScanThread.OnConnectEvent := PortOnConnect;
ScanThread.OnExitEvent := PortOnExitScan;
ScanThread.Resume;
//btnScanPort.Enabled := false;
edtScanIP1.Enabled := false;
edtScanIP2.Enabled := false;
cbScanPort1.Enabled := false;
cbScanPort2.Enabled := false;
spTimeOut.Enabled := false;
exit_tcp_port_scan := false;
end
else
begin
btnScanPort.Tag := 0;
btnScanPort.Caption := '開始';
exit_tcp_port_scan := true;
//if PortScanHasItem then AddIpAddrRange(edtScanIP1.Text, edtScanIP2.Text);
end
end;
procedure TToolsForm.lvPortScanDblClick(Sender: TObject);
var
Exe : TExecuteThread;
begin
if lvPortScan.Selected <> nil then
begin
if lvPortScan.Selected.SubItems[0] = '80' then
begin
//ExecuteFile('http://'+lvPortScan.Selected.Caption,'','',1);
Exe:=TExecuteThread.Create(true);
Exe.ExeFile := 'http://'+lvPortScan.Selected.Caption;
Exe.ExeDir := '';
Exe.FreeOnTerminate := true;
Exe.Resume;
end
else
if lvPortScan.Selected.SubItems[0] = '21' then
begin
//ExecuteFile('ftp://'+lvPortScan.Selected.Caption,'','',1);
Exe:=TExecuteThread.Create(true);
Exe.ExeFile := 'ftp://'+lvPortScan.Selected.Caption;
Exe.ExeDir := '';
Exe.FreeOnTerminate := true;
Exe.Resume;
end
else
if lvPortScan.Selected.SubItems[0] = '23' then
begin
WinExec(pchar('telnet '+lvPortScan.Selected.Caption), 1);
end
else
if lvPortScan.Selected.SubItems[0] = '139' then
begin
with MainForm do
begin
LeftPageCtrl.ActivePageIndex := 2;
Edit1.Text := trim(lvPortScan.Selected.Caption);
BtnFindClick(Self);
end;
end
end;
end;
procedure TToolsForm.PageCtrlChange(Sender: TObject);
begin
case PageCtrl.ActivePageIndex of
0:
begin
CurListView := IPListView;
end;
1:
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -