 减小字体
 增大字体
【收藏到ViVi】【收藏到YouNote】【收藏此页到365Key】【
收藏此页到bbmao】
文章作者：黑冰
信息来源：安全叶子技术小组[J.Leaves Security Team]（http://00day.cn）
文章是今天在硬盘里瞎逛找到，有很久了，至于多久我就记不起了。
原来我都是喜欢做教程,这次我也来写篇文章，不能说是“技术”文章，只能算是以前初学VB的一点习作而已。
这段时间,总是有些朋友(当然我也是个小菜)问我一些抓鸡工具该怎么使用,抓鸡工具简单而言无非就是扫描IP端口的东西,想来想去,我还是教各位朋友们编写一个自己的傻瓜式扫描工具吧!于是有了此文.嘿嘿,工具当然是VB6.0编写的.好了,不多写了,我们Let's go！
首先我们打开VB6.0,选择新建一个exe工程,单击确定.如图01
![]() =700) window.open('/Article/UploadPic/2008-10/2008101601149719.jpg');" src="/Article/UploadPic/2008-10/2008101601149719.jpg" onload="if(this.width>'700')this.width='700';if(this.height>'700')this.height='700';" border=0> 然后我们设置form1窗体的属性.caption写上"XXX专版扫描器"(ps:大家可以随便写).背景颜色backcolor我设置成黑色的.接下来点击textbox(就是工具栏那个abl)创建好以后,设置属性,把text里的内容删除,因为创建时会自动出现text1.forecolor设成绿色,字体嘛.backcolor设成黑色.multiline这里选true就成文本样式了 scrollbars选择2,出现了一个上下滚动条.创建4个label,分别把caption改成开始,结束,端口,线程.颜色什么的,大家可以自己设置,和设置窗体颜色一样.VB就这点好,嘿嘿.再新建4个text框,把里面的默认text全部删除.创建3个command按钮,同样caption里的信息分别改成:开始扫描,查看结果和退出程序.按钮的颜色 style选1,然后在backcolor设置颜色了.OK,美化工作,基本结束,来到最关键的部分了.
我们找到VB资源管理器,添加后事先准备好的S.exe,然后保存.就可以了.如图02
![]() =700) window.open('/Article/UploadPic/2008-10/2008101601149483.jpg');" src="/Article/UploadPic/2008-10/2008101601149483.jpg" onload="if(this.width>'700')this.width='700';if(this.height>'700')this.height='700';" border=0> 最后我们来添加代码,对象和过程那里选默认就可以,也就是通用和声明.如图03
![]() =700) window.open('/Article/UploadPic/2008-10/2008101601149270.jpg');" src="/Article/UploadPic/2008-10/2008101601149270.jpg" onload="if(this.width>'700')this.width='700';if(this.height>'700')this.height='700';" border=0> 就是我已经添加好的代码.然后我们点文件菜单,生成工程1.exe.如果以前生成过工程会自动生成,没有的话就会出现一个对话框,让你选择工程的保存路径和工程的文件名.好了,工程已经生成好了,我们找到路径,运行一下,填上开始和结束IP,点击开始扫描,可以运行如图04
![]() =700) window.open('/Article/UploadPic/2008-10/2008101601150615.jpg');" src="/Article/UploadPic/2008-10/2008101601150615.jpg" onload="if(this.width>'700')this.width='700';if(this.height>'700')this.height='700';" border=0> .最后让大家看看我事先做好的,如图05,
![]() =700) window.open('/Article/UploadPic/2008-10/2008101601150224.jpg');" src="/Article/UploadPic/2008-10/2008101601150224.jpg" onload="if(this.width>'700')this.width='700';if(this.height>'700')this.height='700';" border=0>
这么样,简单的操作,很适合菜鸟的.还不赶快编写一个自己的傻瓜式扫描工具?
最后总结一下，其实这个扫描工具就是利用VB嵌入了一个S.EXE，所以说很简单。工具编写出来以后使用方法也非常简易，真正做到了傻瓜化！
好了，就写到这里，望各位牛人们不要见笑，大家共同学习，如有问题请给予批评指正。
|
