中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-14 19:02

欢迎新会员 luminwei　 RSS
共 47,998 篇主题 / 350,065 篇帖子 / 今日 2 篇 / 48,211 位会员

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 用VBS写的一个端口扫描器

楼主 用VBS写的一个端口扫描器发表于 2006-10-29 08:27　·　中国浙江杭州电信

112183883

初级用户

★

积分 128
发帖 31
注册 2006-10-23 08:05
UID 67855
性别男

状态离线

此作纯属技术研究之用,呵呵,实用性嘛,脚本的效率实在是不敢恭维,如果你愿意作较长时间的等待,还是可以一用.看截图:

输入IP或IP段:

输入端口或端口段:

扫描过程中:

扫描完毕:

主要用到了WINSOCK对象,用TCP的三次握手及返回状态来确定端口的开放与否,如果你想让扫描更准确,可以将脚本源码中的sleeptime与fornumber两个变量的值改大一点.

附脚本源代码,有兴趣的可以下来看看,如果你有更好的方法,请告诉我.谢谢.点击此处下载

[ Last edited by 112183883 on 2006-10-29 at 10:35 AM ]

第 2 楼发表于 2006-10-29 09:25　·　中国广东茂名电信

yangzhiyi

中级用户

★★

积分 261
发帖 123
注册 2006-06-06 19:23
UID 56648

状态离线

看看先

第 3 楼发表于 2006-10-29 09:32　·　中国北京鹏博士BGP

kcdsw

中级用户

★★

积分 404
发帖 179
注册 2006-03-30 14:44
UID 53056

状态离线

楼主费心了

我扫的所有ip都开启了 3389 包括不存在的ip

第 4 楼发表于 2006-10-29 09:33　·　中国湖北荆门电信

mountvol

初级用户

★★

积分 186
发帖 117
注册 2006-08-14 14:50
UID 60491

状态离线

XP默认是没有安装winsock对象的.
没装过vbs的电脑上把开头的那句ON ERROR去掉就可以看到错误提示了.
以前也研究过这个,由于系统默认不安装的原因而转去学习XMLHTTP了。

第 5 楼发表于 2006-10-29 09:36　·　中国湖北荆门电信

mountvol

初级用户

★★

积分 186
发帖 117
注册 2006-08-14 14:50
UID 60491

状态离线

错了,是没装过VB的系统上是不能引用WINSOCK对象的,除非自己下载注册它.
3楼的情况就是没有winsock对象引起的,由于开头的ON ERROR RESUME NEXT导致出错也不中断,才会显示3389为开放状态。

第 6 楼发表于 2006-10-29 09:42　·　中国浙江杭州电信

112183883

初级用户

★

积分 128
发帖 31
注册 2006-10-23 08:05
UID 67855
性别男

状态离线

嗯,忘了说句,要装WINSOCK的.....

忘了加个判断了......自己机器上一直有winsock,所以犯糊涂了,以为每个人机器上都有汗....重新改下先....

[ Last edited by 112183883 on 2006-10-29 at 09:44 AM ]

第 7 楼发表于 2006-10-29 09:53　·　中国浙江杭州电信

112183883

初级用户

★

积分 128
发帖 31
注册 2006-10-23 08:05
UID 67855
性别男

状态离线

改了.......

第 8 楼发表于 2006-10-29 10:00　·　中国湖北武汉电信

lxmxn

版主

★★★★★

积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080

状态离线

　　楼主不简单。

　　不过我测试的时候，我把前面的"ON ERROR RESUME NEXT"去掉之后测试，弹出了错误提示："无法找到名为"MSWinsock.Winsock"的 automation 类。"

　　这是什么原因呢？

第 9 楼发表于 2006-10-29 10:02　·　中国浙江杭州电信

112183883

初级用户

★

积分 128
发帖 31
注册 2006-10-23 08:05
UID 67855
性别男

状态离线

就是因为没有注册mswinsck.ocx的原因,用我改过这个就OK了.我把mswinsck.ocx打包了,第一次运行会提示注册控件.

[ Last edited by 112183883 on 2006-10-29 at 10:36 AM ]

第 10 楼发表于 2006-10-29 10:56　·　中国四川成都教育网

electronixtar

铂金会员

★★★★

积分 7,493
发帖 2,672
注册 2005-09-02 00:00
UID 42173
性别男

状态离线

楼主应该看过 zzzevazzz 的文章。嘿嘿～同道中人啊。我以前写的扫描端口是用 telnet 做的。效率真低

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

第 11 楼发表于 2006-10-29 11:10　·　中国四川成都教育网

electronixtar

铂金会员

★★★★

积分 7,493
发帖 2,672
注册 2005-09-02 00:00
UID 42173
性别男

状态离线

逛了下楼主的blog，发现楼主也是四川人啊，呵呵

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

第 12 楼发表于 2006-10-29 11:44　·　中国浙江杭州电信

112183883

初级用户

★

积分 128
发帖 31
注册 2006-10-23 08:05
UID 67855
性别男

状态离线

哦，electronixtar兄也是四川人么？四川哪的？偶射洪的。。。。

你说的zzzevazzz偶开始还真不知，不过百度了一下，才发现原来是写《深入挖掘WINDOWS脚本技术》的那位仁兄，真是失敬，偶真是吃水忘了挖井人了。。惭愧，一向看文章都不看署名，看来这个习惯得改。

第 13 楼发表于 2006-10-29 12:43　·　中国四川成都教育网

electronixtar

铂金会员

★★★★

积分 7,493
发帖 2,672
注册 2005-09-02 00:00
UID 42173
性别男

状态离线

偶老家也射洪的，呵呵，貌似我跑题了

zzzevazzz 的 blog 有关于 mswinsock 的文章，推荐看一下

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

第 14 楼发表于 2006-10-29 12:59　·　中国浙江杭州电信

112183883

初级用户

★

积分 128
发帖 31
注册 2006-10-23 08:05
UID 67855
性别男

状态离线

嗯，去他那看了，ph4nt0m论坛上的WINDOWS版块也让我翻遍了，呵呵，注册了用户，有空会常去看看。est是你吧？翻贴时看到了。。。

再悄悄问下，你是射洪哪的啊？偶金华的。。。。:)。

[ Last edited by 112183883 on 2006-10-29 at 01:04 PM ]

第 15 楼发表于 2006-10-29 18:14　·　中国湖北武汉电信

lxmxn

版主

★★★★★

积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080

状态离线

　　汗…………版聊啊，你们两个？？

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: