| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 407 人关注过本帖
标题:vb中怎么对某个ip的端口扫描
只看楼主 加入收藏
shark997
Rank: 1
等 级:新手上路
帖 子:7
专家分:5
注 册:2017-1-14
结帖率:0
  问题点数:0  回复次数:4   
vb中怎么对某个ip的端口扫描
text里输入某个ip后点击按钮后对这个ip的端口扫描----应该就这样

在编写过程中遇到问题,求高手帮忙
2018-07-29 03:36
古123
Rank: 2
等 级:论坛游民
帖 子:26
专家分:12
注 册:2017-2-5
  得分:0 
程序代码:
'本地不可用
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Delay(PauseTime As Long) '防止假死
    Dim Start As Single
    Start = Timer * 1000
    Do While Timer * 1000 < Start + PauseTime
        Sleep (1)
        DoEvents
    Loop
End Sub

Private Sub Command1_Click()
    Dim i As Long
    Winsock1.Close
    Winsock1.RemoteHost = Text1.Text '要扫描的IP
    For i = 0 To 65536    '端口号只有整数,范围是从0 到65535(2^16-1)
        Winsock1.RemotePort = i
        Winsock1.Connect
        Delay 500
        If Winsock1.State = 7 Then '连接是否成功
            List1.AddItem i
        End If
    Next
End Sub

表示新手。
百度上好多的,为什么不百度?
2018-07-29 20:53
shark997
Rank: 1
等 级:新手上路
帖 子:7
专家分:5
注 册:2017-1-14
  得分:0 
回复 2楼 古123
谢谢,,,
我百度了  , 不过都是错误代码
2018-07-29 23:54
shark997
Rank: 1
等 级:新手上路
帖 子:7
专家分:5
注 册:2017-1-14
  得分:0 
回复 2楼 古123
你这代码 还是 有误,,,      Delay 500   这
2018-07-29 23:59
古123
Rank: 2
等 级:论坛游民
帖 子:26
专家分:12
注 册:2017-2-5
  得分:0 
回复 4楼 shark997
错的好像是For循环忘断开连接了。
找到一个前辈的你看看,不行我也没办法了。
附件: 您没有浏览附件的权限,请 登录注册
2018-07-30 12:51







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019757 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved