注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

冰魂's blog

关注网络技术.

 
 
 
 
 

日志

 
 

ASP探测本地端口之MSWINSCK.OCX方案(有编程环境)  

2011-08-24 06:03:19|  分类: [脚本编程] |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

这个方法很鸡肋,需要服务器有编程环境,mswinsck属于VB控件,装了VC或者VS也行,否则是没有注册的。作为一种思路吧。

        MSWINSCK.OCX里的方法可以用来主动连接,但是可能由于本人的ASP功底不够吧,始终没有实现使用Connect方法探测任意IP地址的端口,希望有高人能够写出来代码并能共享出来。

测试环境:Windows 2003 企业版 SP2  IIS 6.0

测试代码:

<%
Function CheckLocalPort(intPort)
 On Error Resume Next

 Set WinSock = Server.CreateObject("MSWinsock.Winsock.1")
 WinSock.Bind intPort, "
127.0.0.1" '扫描IP

 If Err.Number <> 0 Then CheckLocalPort = True Else CheckLocalPort = False
 
 Set WinSock = Nothing
End Function

Sub CheckLocalPortList(PortList)
 PortListArr = Split(Replace(Trim(PortList), " ", ""), ",")
 PortListCnt = Ubound(PortListArr)
 For i = 0 To PortListCnt
  Response.Write "Check Port " & PortListArr(i) & " ............ "
  If CheckLocalPort(PortListArr(i)) = True Then Response.Write "Open" Else Response.Write "Closed"
  Response.Write "<br />"
 Next
End Sub
%>

<%
Call CheckLocalPortList("
88, 3389, 1433, 4444, 562, 110, 1028") '你要扫描的端口
%>


 ASP探测本地端口之MSWINSCK.OCX方案(有编程环境) - 0xesc - 冰魂s blog


  评论这张
 
阅读(99)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017