如何用vb编写扫描软件

Question

大家好我想用vb编一个简单的扫描软件只检查端口的那种呵呵请大家帮帮我
最好是写出代码谢谢

Answer 1

很简单的,用WINSOCKET控件连接远程计算机的每个端口,连上了就开了这个端口!

Answer 2

Sub scanningports()
    Dim porttwo As Long
    portnum = Text1.Text
    porttwo = Text2.Text
    Command2.Enabled = True
    On Error GoTo viriio
    Do
    portnum = portnum + 1
    DoEvents
    If start = True Then
    '关闭当前WINSOCK
    Winsock1.Close
    '防止系统冻结
    DoEvents
    Winsock1.LocalPort = portnum
    DoEvents
    Text3.Text = portnum
    Winsock1.Listen
    DoEvents
    Else
    portnum = 0
    Command1.Enabled = True
    Text1.Locked = False
    Text2.Locked = False
    Exit Sub
    End If
    Winsock1.Close
    DoEvents
       Loop Until portnum >= porttwo
    portnum = 0
    Command1.Enabled = True
    logport.Text = logport.Text & vbCrLf & "Scanning Ports Done!" & vbCrLf
    Text1.Locked = False
    Text2.Locked = False
viriio:
    If Err.Number = 10048 Then
    logport.Text = logport.Text & vbCrLf & "端口" & Winsock1.LocalPort & " 开启中"
    Resume Next
    End IfEnd Sub