delphi编写超级可视化扫描器制作

请注意：该动画内所含广告与本站无任何关系，为作者个人宣传，网络交易风险自负

大家好 我是坏男人 前面我已经给大家做了下载者的详细制作教程 相信大家对它都有了一定的了解了吧 因为这段时间一直和师傅开发自己的远程控制软件 所以没太多的时间来给大家做教程 请理解 谢谢 也希望到时候软件开发完毕大家能够支持一下 感激大家~ 好了 进入主题 今天我们要做的是扫描器的制作 我们开始吧 ipedit这个是今天教程所需的控件 首先我们打开delphi然后安装它 OK安装完毕 因为我之前已经装过了 只是给大家再做一下演示 接下来我们要做的是 把扫描器的样子用delphi画出来 我们先建立一个新的form窗体 这个就是刚才我们安装的控件了 画好了 现在我给大家讲解一下代码吧 为了节省录象时间 我把代码已经写好了

winexec(pchar(s.exe TCP +IPEdit1.IPString + + IPEdit2.IPString+ +Edit1.Text+ +edit2.text+ /Save),sw_hide);
if  FileExists(getcurrentdir+Result.txt) then
memo1.Lines.LoadFromFile(getcurrentdir+Result.txt);

我大概说一下代码的意思
s.exe TCP这个是扫描的方式
IPEdit1.IPString这个是开始IP和IPEdit2.IPString结束IP
Edit1.Text这是端口edit2.text这个是线程 /Save保存
保存在memo这个窗体和Result.txt这个文本里头

if  FileExists(getcurrentdir+Result.txt) then
memo1.Lines.LoadFromFile(getcurrentdir+Result.txt);

OK 大概就是这么多了 我们来把代码复制进去 运行一下看看 我把工程文件保存到桌面吧 好了 运行没有问题 现在来试一下能否扫描 没问题 可以扫描

如果大家觉得界面不是很好看的话 可以下载一些皮肤控件来做一下美化 是不是好看多了 有很多皮肤 大家可以找一个自己喜欢的皮肤来做美化 好了 今天教程就到这里吧