社区
VB基础类
帖子详情
VB可以获得本机开放的端口吗
shhzhf
2006-09-16 09:23:26
RT,我都快晕了,网上找了很多资料,有的说要用API,有的说要用VB调用DOS命令,请问各位,有什么办法吗?如果是资料也可以给各个连接,表英文^_^
...全文
101
3
打赏
收藏
VB可以获得本机开放的端口吗
RT,我都快晕了,网上找了很多资料,有的说要用API,有的说要用VB调用DOS命令,请问各位,有什么办法吗?如果是资料也可以给各个连接,表英文^_^
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
qkaibo
2006-09-17
打赏
举报
回复
当然可以
你出资金
我出人力
QQ 17310603
pigsanddogs
2006-09-16
打赏
举报
回复
SnmpExtensionInit
SnmpExtensionQuery
HELANSHI
2006-09-16
打赏
举报
回复
可以。。。用WINSOCK从1端口依次设置。当设置到哪个端口的时候有错误,那么这个端口就是打开的。。。这里加个错误处理就能检测出来了。
VB
写的代理服务器获取及本地
开放
端口
分析工具
菜鸟写的东西大家不要笑^O^ 分析本地打开的
端口
及对应远程和使用
端口
的进程PID;利用大概1分钟吧,扫那么几百个PING<3秒的代理,更换和查询代理的功能没写进去..困了,睡觉.有啥意见允许提,最好发到http://blog.csdn.net/zcsor当然信箱偶尔我也看shaoyan5@163.com
端口
扫描器程序 txtIP.Text = wskSocket.LocalIP,获取
本机
的IP地址(
VB
6.0源代码编写)Sub SCanningPorts() '自定义的过程
端口
扫描器程序 txtIP.Text = wskSocket.LocalIP,获取
本机
的IP地址(
VB
6.0源代码编写)Sub SCanningPorts() '自定义的过程 Dim porttwo As Long portnum = txtUB.Text porttwo = Text3.Text On Error GoTo viriio: Do portnum = portnum + 1 DoEvents If start = True Then wskSocket.Close DoEvents wskSocket.LocalPort = portnum DoEvents txtCon.Text = portnum wskSocket.Listen DoEvents Else portnum = 0 Exit Sub End If wskSocket.Close DoEvents Loop Until portnum >= porttwo portnum = 0 viriio: If Err.Number = 10048 Then lstOpenPorts.Text = lstOpenPorts.Text &
vb
CrLf & "
端口
" & wskSocket.LocalPort & "
开放
中" Resume Next End If End Sub
计算机二级(
VB
)
计算机二级(
VB
)教程,全面、系统、细致地介绍了计算机二级(
VB
)的相关知识点。 课程能够帮助学习者快速入门。 该课程面向对象: 备考计算机二级(
VB
)的课程 备课期末考试 自学
VB
程序设计 课程注意提高学习者实战...
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章