怎樣用VB來判斷某個端口是否正在使用

1：

成都創(chuàng)新互聯(lián)從2013年開始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項目網(wǎng)站設(shè)計、成都做網(wǎng)站網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元沈陽做網(wǎng)站,已為上家服務(wù),為沈陽各地企業(yè)和個人服務(wù),聯(lián)系電話:13518219792

on error resume next

MSComm1.PortOpen = True

if err.number=0 then

MSComm1.PortOpen = false

elseif err.number = comPortOpen then

debug.print "端口已打開"

else

debug.print "其它錯誤"

end if

2：

shell("netstat -na c:\netstat.txt")

'然后讀文件c:\netstat.txt判斷

vb怎樣檢測一個端口是否已經(jīng)被占用？

有個方法可以試一下,加載一個winsock控件

On Error Resume Next

Winsock1.Bind 1234 '測試1234端口

if Err=0 then msgbox "1234端口現(xiàn)在可用"

怎么用vb實現(xiàn)輸入（ip地址，本地端口號，和，遠

從1-1023這些端口是系統(tǒng)服務(wù)端口

開啟什么服務(wù)啟動什么端口

比如你開啟了 FTP服務(wù)那么 系統(tǒng)將打開 20.21（一個是控制，一個是傳輸）

現(xiàn)在總有些人認為我看網(wǎng)頁那么也將打開我本機80端口

其實不然

大家可以打開一個網(wǎng)頁 在打開CMD 輸入 netstat -an

本機并沒有80 只是遠程主機有80這個端口

好我們的程序分為兩部分

一部分判斷遠程主機

另外一部分判斷本機

比如本機打開4000

大于1024的端口你需要自己搜集 在網(wǎng)上找吧 別人已經(jīng)收集，你自己做成一個表就可以

利用vb寫的掃描本機開放端口的小程序.

4個text 兩個按鈕.和一個Winsock1控件

Dim portnum As Long

Dim start As String

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

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 If

End Sub

Private Sub Command1_Click()

Command2.Enabled = True

If Text1.Text = "" Then

MsgBox "你必須指定開始端口號！"

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "你必須指定一個結(jié)束端口號"

Exit Sub

End If

Text1.Locked = True

Text2.Locked = True

Command1.Enabled = False

Winsock1.Close

start = True

Call scanningports

logport.Text = logport.Text vbCrLf "端口" Text1.Text "- " Text3.Text " 已經(jīng)成功掃描！"

End Sub

Private Sub Command2_Click()

Command2.Enabled = False

start = False

End Sub