运维部落

       在帮助一些客户的服务器做运维期间。有一些小白的客户很喜欢对网卡进行这样那样的操作和设置，其实要我来说这样有一定风险性，再者很多客户都在有网络卡或是有什么问题时重置网卡，比如在对个人电脑感觉卡或是有网络访问问题不重启电脑就直接单方面进行禁用网卡，再启用网卡。好吧，这样我很无语。其实一点用也没有。但是你个人电脑使用这样操作没问题。服务器你试试。禁用网卡。你试试启用？不可能吧。哈哈远程直接断了。小白的操作失误。这时我们就很无语了。真是哭笑不得。好吧。为了减少这种客户的“骚扰”。自己动手吧。

以前在利用一些时间了解学习了一些编程软件。delphi就是这么一个方便的程序编译软件。可以利用很少的一段代码调用一些windows系统的东西。

设计思路及要求：

1.软件建立运行服务，服务器启动时自动启动。

2.每五分钟运行一次启动网卡。

 3.建立方便的安装删除服务工具。方便一键化安装删除。

好了，我们开始吧代码其实要实现用delphi很容易。调用现成的一些函数和套件可又很方便的建立服务文件
以下给出关键的几条代码吧。太多了不一一发出来。
 

1
2
3
4
5
6
7
8
9
10
11

procedure TAutoNetWork.Timer1Timer(Sender: TObject);
begin
 if i>2 then
begin
EnableNetAdapter;
//form1.close;
timer1.Enabled:=false;
end
else
i:=i+1;
end;

建立好服务文件后我们就再要对安装文件进行安装了。delphi建立安装服务很容易两条批处理就好了，如下：

建立安装服务文件：install.bat

1
2
3

@echo
copy AutoNetWork.exe %SystemRoot%\system32\
%SystemRoot%\system32\AutoNetWork.exe /install

建立卸载服务文件：uninstall.bat

1
2
3
4

@echo
net stop AutoNetWork
AutoNetWork.exe /uninstall
del %SystemRoot%\system32\AutoNetWork.exe

有需要的的朋友可以下载回去使用。需要源代码的朋友可以找我，我发给有需要的朋友。

自动启用网卡软件 下载